capi_maps.pyc
1 o 2 [��ci� � @ s d Z ddlmZ ejZddlZddlZddlZddlm Z ddlm 3 Z 4 ddl T g d�Z d Z g Zi ai Zi d 5 d �d d �d d �d d�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd�dd �Zi d 6 d �d d �d d �d d �dd �dd!�dd"�dd#�dd$�dd%�dd&�dd&�dd'�dd(�dd(�dd �dd)�Ze r�i d 7 d �d d �d d*�d d!�dd �dd!�dd"�dd#�dd$�dd%�dd&�d+d,�dd-�d.d/�dd'�dd(�dd(�d d d0��Zi d 8 d1�d d2�d d1�d d3�dd3�dd4�dd5�dd6�dd7�dd8�dd9�dd:�dd;�dd<�dd<�dd=�dd=�Ze �rKi d 9 d1�d d2�d d>�d d4�dd?�dd4�dd@�ddA�dd7�ddB�dd9�d+d:�ddC�d.dD�dd;�dd<�ddE�dFd=d0��Zd1d2d4d4d@d7d9d:dGdGdGdHd=dI� Zd d d 10 d d dJ�ddddddddd.dK� ddddddL�ddddddJ�dd ddddM�dNdidNd 11 idNd idO�ae�t�Zg ZdPdQ� Zi d 12 dR�d dR�d dS�d dT�ddT�ddU�ddV�ddW�ddT�ddX�ddY�d+dZ�ddY�dd[�dd[�dd\�dd]�dd^i�Zd_d`� Zdadb� Z dcdd� Z d{dedf�Z dgdh� Z didj� Z dkdl� Z!dmdn� Z"dodp� Z#dqdr� Z$dsdt� Z%d|dudv�Z&dwdx� Z'dydz� Z(dS )}a) 13 14 Copyright 1999,2000 Pearu Peterson all rights reserved, 15 Pearu Peterson <pearu@ioc.ee> 16 Permission to use, modify, and distribute this software is given under the 17 terms of the NumPy License. 18 19 NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK. 20 $Date: 2005/05/06 10:57:33 $ 21 Pearu Peterson 22 23 � )� __version__� N)�markoutercomma)�cb_rules)�*) �getctype� getstrlength� 24 getarrdims� getpydocsign� getarrdocsign�getinit�sign2map� routsign2map� modsign2map� cb_sign2map�cb_routsign2map�common_sign2mapT�double�float� long_double�char�int� signed_char� unsigned_char�short�unsigned_short�long� long_long�unsigned� complex_float�complex�complex_double�complex_long_double�string� character�bytesZ 25 NPY_DOUBLEZ NPY_FLOAT� 26 NPY_STRINGZ NPY_UBYTEZNPY_BYTEZ NPY_SHORTZ 27 NPY_USHORTZNPY_INTZNPY_UINTZNPY_LONGZ 28 NPY_CFLOATZ NPY_CDOUBLEZNPY_CHARZNPY_LONGDOUBLE� unsigned_longZ NPY_ULONGZ NPY_LONGLONG�unsigned_long_longZ NPY_ULONGLONG)r# r$ �d�f�1�b�s�w�i�u�l�L�F�D�c�g�B�h�H�I�q�Q�G�S�N�y) r r r r r r r r r r! r" r# r$ )� �4�8�12�16) rA r+ �2rB rC �-1z-2z-4z-8)rA rC rE �24�32)rA r+ rF rB rC rA )�real�integerr Z complexkind�logicalzdouble complexzdouble precision�bytec C s� t �t�a| d u rd} tj�| �sd S z�td�| �� t | d��}t 29 |� � � � i i �}W d � n1 s5w Y |� � D ]\}}|�� D ] 30 }|| ||� � < qF|| ||� � < q>|�� D ]k}|tvrhi t|< || �� D ]Z}|| | tv r�|t| v r�td||t| | || | f � || | t| |< td|||| | f � t�|| | � qntd|||| | || | tt�� �f � qnq^td� W d S ty� } z td| � W Y d }~d S d }~ww ) Nz .f2py_f2cmapz Reading f2cmap from {!r} ... 31 �rz3 Warning: redefinition of {'%s':{'%s':'%s'->'%s'}} 32 z Mapping "%s(kind=%s)" to "%s" 33 z5 Ignoring map {'%s':{'%s':'%s'}}: '%s' must be in %s 34 z1Successfully applied user defined f2cmap changes 35 z;Failed to apply user defined f2cmap changes: %s. Skipping. 36 )�copy�deepcopy�f2cmap_default� 37 f2cmap_all�os�path�isfile�outmess�format�open�eval�read�lower�items�keys�c2py_map� f2cmap_mapped�append�errmess�list� Exception)� f2cmap_filer* r) �k�d1�k1�msg� ri ��C:\Users\Jacks.GUTTSPC\AppData\Local\Packages\PythonSoftwareFoundation.Python.3.10_qbz5n2kfra8p0\LocalCache\local-packages\Python310\site-packages\numpy\f2py\capi_maps.py�load_f2cmap_file� sN 38 � ��" 39 �� ���rk z%gz%Lgz%dz%hhuz%hdz%huz%uz%ldz%luz(%g,%g)z (%Lg,%Lg)z\"%s\"z'%c'c C s� d}t | �r)d| v r| d }n| d }|| d v r!t| d | �S td| � |S t| �r/|S t| �r5dS t| �r;dS d| v r�| d �� tv r�| d �� }t| }|d }d 40 | v r�d | d 41 v r�z || d 42 d }W |S ty� td | d d | d 43 d f � Y |S w d | d 44 v r�|d tv r�t|d }z || d 45 d }W |S ty� |tv r�t| }z|t | d 46 d � }W Y |S ty� td|| d 47 d ||| d 48 d t 49 � � f � Y nw Y |S w |S t | �s�td| � |S )z 50 Determines C type 51 �void�result�name�vars�,getctype: function %s has no return value?! 52 r$ r# �typespecrA � kindselectorr z$getctype: "%s %s %s" not supported. 53 �kindz}getctype: "%s(kind=%s)" is mapped to C "%s" (to override define dict(%s = dict(%s="<C typespec>")) in %s/.f2py_f2cmap file). 54 z2getctype: No C-type found in "%s", assuming void. 55 ) � 56 isfunctionr ra � issubroutine� ischaracter_or_characterarray�isstring_or_stringarrayr[ rR �KeyError�strrS �getcwd� 57 isexternal)�var�ctype�arq �f2cmapri ri rj r � sp 58 #� ��� � �� 59 ��� � r c C s t �dd| �} | S )a^ Rewrite Fortran expression as f2py supported C expression. 60 61 Due to the lack of a proper expression parser in f2py, this 62 function uses a heuristic approach that assumes that Fortran 63 arithmetic expressions are valid C arithmetic expressions when 64 mapping Fortran function calls to the corresponding C function/CPP 65 macros calls. 66 67 z\blen\bZ f2py_slen)�re�sub)�exprri ri rj �f2cexpr+ s r� c C s� t | �r%d| v r | d }n| d }|| d v r t| d | �S td| � t| �s1tdt| � � d}d| v rN| d }d|v rD|d }n 68 d |v rNt|d �}t�d 69 |�sZt�d |�rht| �rftd t| � � d }|S )Nrm rn ro z0getstrlength: function %s has no return value?! 70 z;getstrlength: expected a signature of a string but got: %s 71 r+ � charselectorr �lenz\(\s*(\*|:)\s*\)z(\*|:)zMgetstrlength:intent(hide): expected a string with defined length but got: %s 72 rG ) �isstringfunctionr ra �isstring�reprr� r� �match� isintent_hide)r| r~ r� ri ri rj r : s2 73 74 � 75 �r c C st i }t |�r t|�s t|�|d< |d |d< d|d< |S t|�r.d|d< d|d< d|d< |S t|��r8t�|d �}d�|�|d< z tt|d ��|d< W n tyV Y nw d �|�|d< tt |��|d< tt |�d 76 g �d d 77 � |d < t 78 t |��D ]9}g }|| t v r�|| g}nt D ]}t � d | || �r�|�|� q�|D ]}t �|�t �| �kr�d||< nq�q{d\|d< }|D ]}|d }|dvr�d|d ||f |d< q�|d r�|d d d 79 � |d< d\|d< }|d D ]=}|d }|dv�rd|d ||f |d< q�t|��rtd| � d|d |df |d< q�|�r(tdt| �t|�f � q�|d �r8|d d d 80 � |d< |S )N�dims�sizer+ �rank�0rA � dimensionr �,�����r z rank*[-1]z .*?\b%s\b.*)rA r� �setdims)r �:z(*)z(:)z%s#varname#_Dims[%d]=%s,Z cbsetdimsz?getarrdims:warning: assumed shape array, using 0 instead of %r 81 r z]getarrdims: If in call-back function: array argument %s must have bounded dimensions: got %s 82 )r� �isarrayr �isscalarrO �joinr� rY rc r� �range�depargsr� r� r` �index� isintent_inrV ra ) r~ r| �verbose�ret�dimr/ �v�var) ri ri rj r V s� 5�1 83 � � 84 ��� 85 86 �� 87 88 � 89 � 90 ��� 91 r c C s� t |�r(d|v r |d }n|d }||d v r t||d | �S td| � dS | | }}d}t|�r6d}nt|�r<d}| }t|�rY|d D ]}|d d 92 � d krX|d 93 d � } nqFd}t|�} t|�rnt| |�\}} 94 d | 95 }t |�r�t|�r�d | |t 96 | t | |f }n 97 d| |t 98 | |f }d|t 99 | f }||fS t |�r�t|�r�d| |t |�|f }n 100 d| |t |�|f }d|t |�f }||fS t|��r|d } tt| ��} d| || t | d�| �|f }| |kr�d| | t | d�| �f }||fS d|| t | d�| �| f }||fS t|��rDd} | tv �r8t| tv �r8dtt| v �r8tt| d } | | k�s6d| } nd} d| | f }|}||fS td| � ||fS ) Nrm rn ro rp �rA rA rA �inputz in/output�intent� �out=z, optional\n Default: %sz %s : %s rank-0 array(%s,'%s')%sz %s : %s %s%sz%s : %sz*%s : %s rank-0 array(string(len=%s),'c')%sz%s : %s string(len=%s)%sz%s : string(len=%s)r� z.%s : %s rank-%s array('%s') with bounds (%s)%sr� �)%s : rank-%s array('%s') with bounds (%s)z8%s : rank-%s array('%s') with bounds (%s) and %s storage�argnamez => %sz%s : call-back function%sz7getpydocsign: Could not resolve docsignature for "%s". 101 )rt r 102 ra r� �isintent_inout� isintent_outr � hasinitvaluer r� r^ � c2pycode_mapr� r r� r� r� r� r{ �lcb_map�lcb2_map)r~ r| �af�sigZsigout�opt�out_are �initr} �showinitr� r� �uari ri rj r 103 � s� 104 105 � �#� � � 106 � � 107 ���� 108 �* 109 110 ��r 111 c C s� t |�}t|�rt|�sd| t|�f }|S t|�r'd| t| t| f }|S t|�rB|d }tt|��}d| |t| d� |�f }|S )Nz%%s : rank-0 array(string(len=%s),'c')z%s : rank-0 array(%s,'%s')r� r� r� ) 112 r r� r� r r� r^ r� r� r� r� )r~ r| r} r� r� r� ri ri rj r � s* � � 113 � � ��r c C sD t |�r d\}}nd\}}t|�r�|d }|}t|�s t|�rti }z1|d }d|v r<t|dd� ��d�\|d< |d < nt|i i �}t|j�t|j �|d< |d < W n t 114 ya t d 115 || f ��w t |�rpd |d |d f }||fS t |�r�|s~d\}}|d d kr�d|dd� � dd� }|d dkr�d|dd� }||fS )N)z""z''r� �=r� r r� �@,@�init.r�init.izMgetinit: expected complex number `(r,i)' but got `%s' as initial value of %r.z (capi_c.r=%s,capi_c.i=%s,capi_c)r �'z"%s"�"z\"z'%s')r� r� � iscomplex�iscomplexarrayr �splitrY ry rJ �imagrc � 116 ValueErrorr� �replace)r~ r| r� r� r� r� ri ri rj r � sJ 117 118 �� � 119 �� � � r c C sD t | �st| �rt| �}| d �d|�}|S t| �s t| �r dS dS )Nr� �f2py_lenr+ )r� � isstringarrayr �get� ischaracter�ischaracterarray)r| �elsizeri ri rj � 120 get_elsize s r� c C s~ | }t |�r |d D ]}|dd� dkr |dd� } nq 121 | |t|�d�}g }t�� D ]\}}||�r:|�d| � q+|rEd�|�|d< nd|d< t|�rRd |d 122 < n|d tv rat|d |d 123 < nd |d 124 < t| |�\|d < |d< t |�r�t 125 |�r�t|�s�t |d dd� �� d�\|d< |d< t |�r�| |d< | tv r�t| |d< tt| d |d< tt| d |d< tt| d |d< tt| d |d< n| |d< td | tt�� �f � t|�r�t|�|d < t|�r�t|t| |��}t�|d �}|d tv �r t|d |d < t|�|d < t|��r�g t�d!�t �d"�t �d#�t �d$�t �d%�t �d&�t 126 �d'�t t!t"t 127 ���d(�t�d)�t�d*�t#�d+�t$�d,�t%�d-�t t&t"t%���d.�t �d/�t'�d/�t(�d0�} g } 128 t)d1t*| �d2�D ]} | | |��r}| 129 �| | d � �qkt|��r�| 130 �d3| |d f � t|��r�d4�t+d5d6� |d |��} | 131 �d7| � t |��r�d8| |d d4�| 132 �f |d9< nd:|d | |d d4�| 133 �f |d9< t!|��r�|d t,v �r�d;| t,|d f |d<< t|��r�d=| | f |d<< t |��r�d>| |d<< |d t,v �rd?| t,|d f |d@< dAt,|d |dB< t|��r'dC| | f |d@< t-| |�\|dD< |dE< t.|��r=|dF |dF< |S )Gz� 134 varname,ctype,atype 135 init,init.r,init.i,pytype 136 vardebuginfo,vardebugshowvalue,varshowvalue 137 varrformat 138 139 intent 140 r� Nr� r� )�varnameZ 141 outvarnamer} zF2PY_%s�|ZF2PY_INTENT_INr? Z 142 varrformatr} �Or� r� r r� r� r� r� Z cbnamekey�cbname� 143 maxnofargs� 144 nofoptargs�docstrZcbdocstr� latexdocstrZ cblatexdocstrz5sign2map: Confused: external %s is not in lcb_map%s. 145 �lengthr� �atyper� r� �outputZinoutput�required�optional�hiddenzcomplex scalar�scalarr# �arrayz complex arrayz string arrayzcomplex function�function�callbackZ auxiliaryr � z slen(%s)=%sr� c S s d| |f S )Nz%s|%sri )�xr@ ri ri rj �<lambda>n s zsign2map.<locals>.<lambda>zdims(%s)zdebug-capi:%s=>%s:%sZ vardebuginfozdebug-capi:%s %s=%s:%s�debug-capi:%s=%sZvardebugshowvalue�"debug-capi:slen(%s)=%%d %s=\"%%s\"zdebug-capi:%s=%%pz #name#:%s=%sZ varshowvalue�%s�showvalueformatz #name#:slen(%s)=%%d %s=\"%%s\"� pydocsign� pydocsignout�note)/r� r � isintent_dictr\ r` r� r� �c2buildvalue_mapr r� r� r r� r{ r� r� ra rb r] r� r � 146 dictappendr rO � 147 c2capi_mapr� � debugcapir� r� � 148 isrequired� 149 isoptionalr� �l_andr� �l_notr� r� �iscomplexfunctionrt �isintent_callback� isintent_auxr� r� �map� cformat_mapr 150 �hasnote) r~ r| r� re r� Z intent_flagsr* r- r� �il�rlr/ Zddimri ri rj r s* �� 151 �� � 152 ���������� ������������ �� � � 153 � 154 � � � � 155 156 � 157 � 158 � 159 160 � 161 162 � 163 164 165 r c C s� | d }t | �}||�dd�|�� |�� t|�td| �||�� t| �p%dt| �p*dt| �p/dd� }d|v r;d|d< nd|d< d|v rHd |d 166 < nd 167 |d 168 < i ad | v r�| d � � D ]@}|t 169 j v r�t 170 j | D ]3}|d }d | d | v r�| d | d � � D ]}| d | d | |d kr�|} nq||d t|< qdqXnd| v r�| d r�t d|d t | d �f � t| t�p�d|d< t| ��rbd| v r�| d }n| d }||d< t|| �\|d< |d< t| d | �|d< t| �r�| d | d |d< dg| d | d< |d tv �r t|d |d< nd |d< t d t |d � � t| ��r>|d tv �r1d |t|d f |d < t| ��r>d ||f |d < t| ��rbt| d | �|d!< |d! d"k�rbt d#t | d � � d$|d!< t| ��rr| d |d< dg| d< |S )%zV 171 name,NAME,begintitle,endtitle 172 rname,ctype,rformat 173 routdebugshowvalue 174 rn �_�\_� end of %srA ) rn �texnameZ 175 name_lower�NAME� 176 begintitle�endtitle� fortrannameZ FORTRANNAME� callstatement�usercode� usercode1� F_FUNC_US�F_FUNCZF_WRAPPEDFUNC_US� F_WRAPPEDFUNC�user r� r � externalszMroutsign2map: Confused: function %s has externals %s but no "use" statement. 177 �callprotoargumentrm �rnamer� r� ro r} r� Z 178 resultnote�See elsewhere.�rformatr� z.routsign2map: no c2buildvalue key for type %s 179 r� Zroutdebugshowvaluer� ZrlengthrG zzroutsign2map: expected explicit specification of the length of the string returned by the fortran function %s; taking 10. 180 �10)�getfortrannamer� r[ �upper�gentitle�getcallstatement� getusercode� getusercode1r� r] r �cb_mapra r� �getcallprotoargumentrt r 181 r � hasresultnoter� r� r� r� r r� ) �routrn �fnamer� r0 �un�lnre r~ ri ri rj r � s� 182 183 184 185 186 � 187 188 189 ��� 190 � 191 192 193 � 194 195 � 196 197 � 198 199 � 200 201 r c C s� t | �r| d | d �� | d �dd�d�}n| d | d �� | d �dd�d�}t| �p.g |d< t| �r;| d |d< t| �p@d|d < t| �pHd|d 202 < | d r\t| d d �pXd|d < nd|d < t| �ped|d< d| v rr| d |d< d| v r|| d |d< |S )z 203 modulename 204 rn r� r� )Z f90modulenameZ F90MODULENAMEZtexf90modulename)� 205 modulenameZ 206 MODULENAMEZ texmodulename�restdocr� rA r� r� �bodyr Zinterface_usercode� pymethoddef�coutput�f2py_wrapper_output)�ismoduler 207 r� � 208 getrestdocr� r r �getpymethoddef)�mr� ri ri rj r � s. 209 � 210 � r c C s� d| i}|d |d< t |�|d< |d tv r$t|d |d< t|�|d< |d tv r4dt|d |d< t|�r@t|t| |��}t| |�\|d< |d < t|�rZ|d 211 |d 212 < d g|d 213 < |S ) Nr� Z varname_ir} r� r� r� r� r� r� r� r ) r r� r� r� r� r� r r 214 r� )r~ r| r� r� ri ri rj r � s 215 r c C s� d| d |f dd�}t | �r0d| d v rd}nd}d|| d �� | d �� f |d < d 216 |d < n 217 |d |d < d |d < | d |d < t|d �|d < td|d �|d< t| �|d< d|d< |d dkrgd|d< n|d |d< |d dkr�t| �r|d|d< nd|d< |d tv r�dt|d |d< t| �r�t| �|d< t | �r�d| v r�| d }n| d }t 218 | d | �r�| d | d |d < d g| d | d < ||d < t || �\|d < |d < t| �r�d!|d< nt 219 | �r�| d |d < d g| d < d"}d"}d#| v �r d| v �r | d# D ] }| d | }t t t�|��r |d$ }t|��r |d$ }q�t|�|d%< t|�|d&< t 220 | ��rCt | ��rCd| v �rC| d |d'< d g| d < |S )(z\ 221 name,begintitle,endtitle,argname 222 ctype,rctype,maxnofargs,nofoptargs,returncptr 223 z cb_%s_in_%srn rA )rn � 224 returncptrr� r� r z %s(%s,%s)Z callbackname�extern�staticr� r� r� r� r} rl �rctyper# z3 225 #ifdef F2PY_CB_RETURNCOMPLEX 226 return_value= 227 #endif 228 r z return_value=r� r� � strlengthrm ro r� r r r� r� z8 229 #ifdef F2PY_CB_RETURNCOMPLEX 230 #ctype# 231 #else 232 void 233 #endif 234 r �argsr r� r� �routnote)r� r[ r 235 r r r� r� r� r rt r� r 236 �l_orr� r� r� r� )r �umr� r r~ Znofargsr� r| ri ri rj r 237 s~ � 238 239 �� 240 241 242 243 � 244 245 � 246 r c C s� | t |�d�}t|�rd|d< |d tv r#t|d |d< t|�|d< |d tv r3dt|d |d< t|�r@t|t| |��}nt|�rNt |�|d< d |d 247 < t 248 | |�\|d < |d < t |�rh|d |d < dg|d < t | |�|d< |S )N)r� r} r r} r� r� r� r� r� r+ r� r� r� r� r Z arrdocstr) r r� r� r� r� r� r� r r� r r 249 r� r )r~ r| r� ri ri rj r \ s& 250 r )r )N))�__doc__rA r �version� f2py_versionrO r� rS � crackfortranr r �auxfuncs�__all__� using_newcorer� r� r� r^ r� r� r� rR rP rQ r_ rk r� r r� r r r 251 r r r� r r r r r r ri ri ri rj �<module> s( �������� � 252 � � � ������������ � 253 � � � ������������ � 254 � � � ������������� � 255 � � � ������������ � 256 � � � ������������ 257 ,�������� � 258 � � � �����3 259 =J#jQ 260 R