OwlCyberSecurity - MANAGER
Edit File: common_rules.cpython-38.pyc
U ���]u � @ s� d Z ddlmZmZmZ ddd� ZddlmZ ejZddl m Z m Z m Z m Z mZ dd lmZ dd lmZ dd lmZ dd d �Zdd� ZdS )aM Build common block mechanism for f2py2e. Copyright 2000 Pearu Peterson all rights reserved, Pearu Peterson <pearu@ioc.ee> Permission to use, modify, and distribute this software is given under the terms of the NumPy License NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK. $Date: 2005/05/06 10:57:33 $ Pearu Peterson � )�division�absolute_import�print_functionz$Revision: 1.19 $� ���� )� __version__)�hasbody� hascommon�hasnote� isintent_hide�outmess)� capi_maps)� func2subr)� rmbadnamec s� g }t � �rF� d �� D ]*\}}� fdd�|D �}|�|||f� qn$t� �rj� d D ]}|t|d� }qV|r�g }g }|D ](} | d |krz|�| d � |�| � qz|S |S )N�commonc s i | ]}|� d | �qS )�vars� )�.0�v��blockr �9/usr/lib/python3/dist-packages/numpy/f2py/common_rules.py� <dictcomp># s z$findcommonblocks.<locals>.<dictcomp>Zbodyr )r �items�appendr �findcommonblocks) r �top�ret�key�valueZvars_�bZtret�names�tr r r r s" r c C s� g g dgd�}dg}|fdd�}dg}|fdd�}dg}|fdd �}dg}|fd d �} t | �D �]"\} } } | �� } g g }}| D ]&}t| | �r�|�|� q�|�|� q�|r�td | d �|�d �|�f � ntd| d �|�f � |d| � |d� | D ]}|t�| |�� q�| dk�r.|dd �| � � n|d| d �| �f � |dd �|� � |d� |d| � g }|D ]�}t� | | �}tj | }t� || | �}|d �r�|�d|d � n |�d� |d � � }|�s�d}|d||d ||f � �qr|d � t |�}d �d d � |D ��}|d | |f � |d � |D ]}|d!| |f � �q8|d"� d#| k�rhd$}nd%}|d&|| | �� d �d'gt|� �f � |d(| � |d)|| | �� | f � |d*� |d+| | | f � | �d#d,�}| d-| � | d.� |D ]Z}| d/t�|| | � � t| | ��r�| | d0 }t|t��rBd1�|�}| d2| � �q�| d3� |d4 �d5| d �td6d7� ||��f � q^||d8< ||d9< |d: |d;< t|d4 �d<k�r�d|d4< ||d: fS )=Nz"COMMON blocks:\n")� commonhooks�initcommonhooks�docs� c S s d|d | f |d< d S )Nz %s %sr r ��line�sr r r �fadd8 s zbuildhooks.<locals>.faddc S s d|d | f |d< d S �Nz%s %sr r r( r r r �cadd< s zbuildhooks.<locals>.caddc S s d|d | f |d< d S r, r r( r r r �iadd@ s zbuildhooks.<locals>.iaddc S s d|d | f |d< d S r, r r( r r r �daddD s zbuildhooks.<locals>.daddzF Constructing COMMON block support for "%s"... %s Hidden: %s �,z7 Constructing COMMON block support for "%s"... %s z subroutine f2pyinit%s(setupfunc)zexternal setupfuncZ_BLNK_z common %szcommon /%s/ %szcall setupfunc(%s)zend z'static FortranDataDef f2py_%s_def[] = {Zdimsz(%s)z-1z {"%s",%s,{{%s}},%s},Zrankz {NULL} };c S s g | ] }d | �qS )zchar *r )r r* r r r � <listcomp>n s z buildhooks.<locals>.<listcomp>z static void f2py_setup_%s(%s) {z int i_f2py=0;z! f2py_%s_def[i_f2py++].data = %s;�}�_Z F_FUNC_US�F_FUNCz3extern void %s(f2pyinit%s,F2PYINIT%s)(void(*)(%s));zchar*z static void f2py_init_%s(void) {z* %s(f2pyinit%s,F2PYINIT%s)(f2py_setup_%s);z} zP F2PyDict_SetItemString(d, "%s", PyFortranObject_New(f2py_%s_def,f2py_init_%s));z\_z&\subsection{Common block \texttt{%s}} z\begin{description}z\item[]{{}\verb@%s@{}}�note� z--- %sz\end{description}r& z " /%s/ %s\n"c S s | | S )Nr )r �dr r r �<lambda>� � z buildhooks.<locals>.<lambda>r$ r% r Zlatexdocr )r �lowerr r r �joinr Zvar2fixfortranr ZgetctypeZ c2capi_mapZ getarrdims�stripr �upper�len�replaceZ getarrdocsignr � isinstance�list�map)�mr Zfwrapr+ Zchooksr- Zihooksr. �docr/ �nameZvnamesr Z lower_nameZhnamesZinames�nZidimsZctZatZdmZdmsZinames1Z inames1_tpsr4 Ztnamer5 r r r � buildhooks3 s� � � � �� � � � � rG N)r )�__doc__Z __future__r r r r r' �versionZ f2py_versionZauxfuncsr r r r r r r Z crackfortranr r rG r r r r �<module> s