U
|
P ±d` ã @ s d Z ddlmZ ejZddlZddlZddlZddlm Z ddlm
|
Z
|
ddl T dd d
|
d d d ddddddg Z dZ g Zi ai ZddddddddddddddddddZd d d d d d d!d"d#d$d%d%d&d'd'd d(d)Ze rúd d d*d d d d!d"d#d$d%d+d,d-d&d'd'd d d.Zd/d0d/d1d1d2d3d4d5d6d7d8d9d:d:d;d;d<Ze rTd/d0d=d2d>d2d?d@d5dAd7d8dBdCd9d:dDdEd;d.Zd/d0d2d2d?d5d7d8dFdFdFdGd;dH ZdddIdJdJdKddLdMddNdOdPdQdRdS dTdTdUdVdVdWdTdTdUdVdVdKddXdMddNdYdZdUidZdIidZdXid[ae t¡Zg Zd\d] Zd^d^d_d`d`dadbdcd`dddedfdedgdgdhdidjdkZdld Zdmdn Z dod Z d|dpd
|
Z dqd Z drd Z dsd Z!dtdu Z"dvd Z#dwd Z$dxd Z%d}dydZ&dzd Z'd{d Z(dS )~a)
|
|
Copyright 1999,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
|
|
é )Ú __version__é N)Úmarkoutercomma)Úcb_rules)Ú*ÚgetctypeÚ getstrlengthÚ
|
getarrdimsÚ getpydocsignÚ getarrdocsignÚgetinitÚsign2mapÚ routsign2mapÚ modsign2mapÚ cb_sign2mapÚcb_routsign2mapÚcommon_sign2mapTÚfloatÚintÚlongÚcomplexÚstringÚbytes)Údoubler Ú long_doubleÚcharÚ signed_charÚ unsigned_charÚshortÚunsigned_shortr r Ú long_longÚunsignedÚ complex_floatÚcomplex_doubleÚcomplex_long_doubler Ú characterZ
|
NPY_DOUBLEZ NPY_FLOATZ
|
NPY_STRINGZ NPY_UBYTEZNPY_BYTEZ NPY_SHORTZ
|
NPY_USHORTZNPY_INTZNPY_UINTZNPY_LONGZ
|
NPY_CFLOATZ NPY_CDOUBLEZNPY_CHAR)r r r r r r r r r r! r r r" r# r$ r r% ZNPY_LONGDOUBLEZ NPY_ULONGZ NPY_LONGLONGZ NPY_ULONGLONG)r r r r r r r r r r! r Ú unsigned_longr Úunsigned_long_longr" r# r$ r r% ÚdÚfÚ1ÚbÚsÚwÚiÚuÚlÚLÚFÚDÚc)r r r r r r r r r r! r r r" r# r$ r r% ÚgÚBÚhÚHÚIÚqÚQÚGÚSÚNÚy) r r r r r r r r r" r# r$ r r% r r )Ú Ú4Ú8Z12Ú16r r r r r r! r' ) r@ r* Ú2rA rB ú-1z-2z-4z-8r" r# r$ )r@ rB rC Z24Ú32r )r@ r* rD rA rB r@ )ÚrealÚintegerr Z complexkindÚlogicalzdouble complexzdouble precisionÚbytec C sÆ t t¡a| d kr&d} tj | ¡s&d S zhtd | ¡ t | d}t
|
| ¡ ¡ i i }W 5 Q R X | ¡ D ]6\}}| ¡ D ]}|| || ¡ < qz|| || ¡ < qj| ¡ D ]Ú}|tkr¾i t|< || ¡ D ]¸}|| | tkrT|t| krtd||t| | || | f || | t| |< td|||| | f t || | ¡ qÊtd|||| | || | tt ¡ f qÊqªtd W n0 tk
|
rÀ } ztd| W 5 d }~X Y nX d S ) Nz .f2py_f2cmapz Reading f2cmap from {!r} ...
|
Úrz3 Warning: redefinition of {'%s':{'%s':'%s'->'%s'}}
|
z Mapping "%s(kind=%s)" to "%s"
|
z5 Ignoring map {'%s':{'%s':'%s'}}: '%s' must be in %s
|
z1Successfully applied user defined f2cmap changes
|
z;Failed to apply user defined f2cmap changes: %s. Skipping.
|
)ÚcopyÚdeepcopyÚf2cmap_defaultÚ
|
f2cmap_allÚosÚpathÚisfileÚoutmessÚformatÚopenÚevalÚreadÚlowerÚitemsÚkeysÚc2py_mapÚ f2cmap_mappedÚappendÚerrmessÚlistÚ Exception)Z f2cmap_filer) r( ÚkÚd1Zk1Úmsg© rd úKd:\z\workplace\vscode\pyvenv\venv\Lib\site-packages\numpy/f2py/capi_maps.pyÚload_f2cmap_fileµ sN
|
ÿÿ
|
|
|
ÿ ÿrf z%gz%Lgz%dz%hhuz%hdz%huz%uz%ldz%luz(%g,%g)z (%Lg,%Lg)z\"%s\"z'%c')r r r r r r r r r r! r r& r r" r# r$ r r% c C sð d}t | rRd| kr | d }n| d }|| d krBt| d | S td| nt| r^|S t| rjdS t| rvdS d| krÖ| d ¡ tkrÖ| d ¡ }t| }|d }d
|
| krìd | d
|
krz|| d
|
d }W n4 tk
|
r td | d d | d
|
d f Y nX nÂd | d
|
krì|d tkr:t|d }z|| d
|
d }W n tk
|
rÒ |tkrrt| }z|t | d
|
d }W nB tk
|
rÌ td|| d
|
d ||| d
|
d t
|
¡ f Y nX Y nX nt | sìtd| |S )z
|
Determines C type
|
ÚvoidÚresultÚnameÚvarsú,getctype: function %s has no return value?!
|
r% r Útypespecr@ Z kindselectorr z$getctype: "%s %s %s" not supported.
|
Úkindz}getctype: "%s(kind=%s)" is mapped to C "%s" (to override define dict(%s = dict(%s="<C typespec>")) in %s/.f2py_f2cmap file).
|
z2getctype: No C-type found in "%s", assuming void.
|
) Ú
|
isfunctionr r^ Z issubroutineZ ischaracter_or_characterarrayZisstring_or_stringarrayrX rO ÚKeyErrorÚstrrP ÚgetcwdÚ
|
isexternal)ÚvarÚctypeÚarl Zf2cmaprd rd re r ø s^
|
|
ÿ
|
|
ÿÿ
|
c C s t dd| ¡} | S )a^ Rewrite Fortran expression as f2py supported C expression.
|
|
Due to the lack of a proper expression parser in f2py, this
|
function uses a heuristic approach that assumes that Fortran
|
arithmetic expressions are valid C arithmetic expressions when
|
mapping Fortran function calls to the corresponding C function/CPP
|
macros calls.
|
|
z\blen\bZ f2py_slen)ÚreÚsub)Úexprrd rd re Úf2cexpr+ s ry c C sÔ t | rJd| kr| d }n| d }|| d kr>t| d | S td| t| sbtdt| d}d| kr| d }d|kr|d }nd |krt|d }t d
|
|¡s´t d |¡rÐt| rÌtd t| d }|S )Nrh ri rj z0getstrlength: function %s has no return value?!
|
z;getstrlength: expected a signature of a string but got: %s
|
r* Ú charselectorr Úlenz\(\s*(\*|:)\s*\)z(\*|:)zMgetstrlength:intent(hide): expected a string with defined length but got: %s
|
rE ) Úisstringfunctionr r^ ÚisstringÚreprry rv ÚmatchÚ isintent_hide)rs ru r{ rd rd re r : s2
|
|
ÿ
|
ÿc C s i }t |r4t|s4t||d< d|d< d|d< nLt|rXd|d< d|d< d|d< n(t|rt |d ¡}d |¡|d< ztt|d |d< W n tk
|
rª Y nX d |¡|d< tt ||d< tt |d
|
g d d
|
|d < t
|
t |D ]|}g }|| t kr|| g}n,t D ]&}t d | || ¡r| |¡ q|D ](}t |¡t | ¡krFd||< qôqFqôd\|d< }|D ].}|d }|dkrd|d ||f |d< q|d rÐ|d d d
|
|d< d\|d< }|d D ]|}|d }|dkrd|d ||f |d< nLt|r@td| d|d |df |d< n |rätdt| t|f qä|d r|d d d
|
|d< |S )NÚsizeÚ0Úrankr@ Zdimsr* Ú dimensionr ú,éÿÿÿÿr z rank*[-1]z .*?\b%s\b.*)r@ r Zsetdims)r ú:z(*)z(:)z%s#varname#_Dims[%d]=%s,Z cbsetdimsz?getarrdims:warning: assumed shape array, using 0 instead of %r
|
r z]getarrdims: If in call-back function: array argument %s must have bounded dimensions: got %s
|
)r} Úisarrayr ÚisscalarrL Újoinr~ rV r` r{ ÚrangeÚdepargsrv r r] ÚindexÚ isintent_inrS r^ ) ru rs ÚverboseÚretÚdimr. ÚvÚvar( rd rd re r V s
|
|
|
ÿ
|
|
ÿ
|
ÿ ÿ ÿ
|
c C s t |rPd|kr|d }n|d }||d kr@t||d | S td| dS | | }}d}t|rld}n t|rxd}| }t|r²|d D ]$}|d d
|
d kr|d
|
d
} q²qd}t|} t|rÜt| |\}}
|
d |
|
}t |r4t|r d | |t
|
| t | |f }nd| |t
|
| |f }d|t
|
| f }nNt |rt|r^d| |t ||f }nd| |t ||f }d|t |f }nþt|r|d } tt| } d| || t | d | ¡|f }| |kræd| | t | d | ¡f }n d|| t | d | ¡| f }n~t|rvd} | tkrdt| tkrddtt| krdtt| d } | | ks`d| } nd} d| | f }|}n td| ||fS ) Nrh ri rj rk ©r@ r@ r@ Ú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".
|
)rn r
|
r^ r Úisintent_inoutÚ isintent_outr Ú hasinitvaluer r r[ Ú c2pycode_mapr} r r r~ r{ r rr Úlcb_mapÚlcb2_map)ru rs ÚafÚsigZsigoutÚoptÚout_ara Úinitrt Úshowinitr r Zuard rd re r
|
s
|
|
|
|
ÿ
|
|
ÿ ÿ
|
ÿ ý
|
ÿÿ
|
*
|
|
ÿc C s t |}t|r*t|s*d| t|f }nVt|rJd| t| t| f }n6t|r|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
)
|
r r} r r r r[ r r~ r{ r )ru rs rt r¢ r r rd rd re r Ý s& ÿ
|
ÿ ÿýc C sN t |rd\}}nd\}}t|rF|d }|}t|s@t|rêi }zb|d }d|krzt|dd
d¡\|d< |d < n*t|i i }t|jt|j |d< |d < W n$ t
|
k
|
rÊ t d
|
|| f Y nX t |rèd |d |d f }n\t |rF|sd\}}|d d kr(d|dd
dd¡ }|d dkrFd|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 ÚsplitrV rp rG Úimagr` Ú
|
ValueErrorr Úreplace)ru rs r¥ r¦ r r rd rd re r ï sF
|
|
|
ÿÿ "
|
ÿ
|
ÿ
|
c C sD t | st| r,t| }| d d|¡}|S t| s<t| r@dS dS )Nrz Zf2py_lenr* )r} Ú isstringarrayr ÚgetZ ischaracterZischaracterarray)rs Úelsizerd rd re Ú
|
get_elsize s r¶ c " C sH | }t |r:|d D ]$}|dd
dkr|dd
} q:q| |t|d}g }t ¡ D ] \}}||rV| d| ¡ qV|rd |¡|d< nd|d< t|r¤d |d
|
< n&|d tkrÂt|d |d
|
< nd |d
|
< t| |\|d < |d< t |r$t
|
|r$t|s$t |d dd
d¡\|d< |d< t |r¾| |d< | tkrt| |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 tkr&t|d |d < t||d < t|rÄtd!t d"t d#t d$t d%t d&t
|
d't t!t"t
|
d(td)td*t#d+t$d,t%d-t t&t"t%d.t d/t'd/t(d0g"} g }
|
t)d1t*| d2D ]&} | | |r |
|
| | d ¡ q t|rè|
|
d3| |d f ¡ t|rd4 t+d5d6 |d |¡} |
|
d7| ¡ t |rBd8| |d d4 |
|
¡f |d9< n"d:|d | |d d4 |
|
¡f |d9< t!|r|d t,krd;| t,|d f |d<< t|r®d=| | f |d<< t |rÄd>| |d<< |d t,krþd?| t,|d f |d@< dAt,|d |dB< t|rdC| | f |d@< t-| |\|dD< |dE< t.|rD|dF |dF< |S )Gz
|
varname,ctype,atype
|
init,init.r,init.i,pytype
|
vardebuginfo,vardebugshowvalue,varshowvalue
|
varrformat
|
|
intent
|
r Nr r )ÚvarnameZ
|
outvarnamert zF2PY_%sú|ZF2PY_INTENT_INr> Z
|
varrformatrt ÚOr¥ r¦ r r r¨ r© rª Z cbnamekeyZcbnameÚ
|
maxnofargsÚ
|
nofoptargsZdocstrZcbdocstrZ latexdocstrZ cblatexdocstrz5sign2map: Confused: external %s is not in lcb_map%s.
|
Úlengthr Úatyperµ r ÚoutputZinoutputÚrequiredÚoptionalÚhiddenzcomplex scalarZscalarr Úarrayz complex arrayz string arrayzcomplex functionÚfunctionÚcallbackZ auxiliaryr é z slen(%s)=%sr
c S s d| |f S )Nz%s|%srd )Úxr? rd rd re Ú<lambda>n ó 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 Z isintent_dictrY r] r r Úc2buildvalue_mapr r r r r¯ rr r r r^ r_ rZ r} r Ú
|
dictappendr rL Ú
|
c2capi_mapr¶ Ú debugcapir r Z
|
isrequiredÚ
|
isoptionalr Zl_andr Zl_notr® r³ Úiscomplexfunctionrn Úisintent_callbackZ isintent_auxr r{ ÚmapÚ cformat_mapr
|
Úhasnote) ru rs r¤ ra r Z intent_flagsr) r, r ZilZrlr. Zddimrd rd re r sú
|
ÿÿ
|
|
|
ÿ
|
|
|
õ
|
|
ÿ
|
ÿ ÿ
|
|
|
ÿ
|
|
ÿ
|
|
|
|
c C sø | d }t | }|| dd¡| ¡ | ¡ t|td| || ¡ t| pJdt| pTdt| p^dd }d|krvd|d< nd|d< d|krd |d
|
< nd
|
|d
|
< i ad | kr:| d ¡ D ]}|t
|
j kr²t
|
j | D ]j}|d }d | d | kr(| d | d ¡ D ]*}| d | d | |d krü|} q(qü|d t|< qÊq²n0d| krj| d rjt d|d t | d f t| tpxd|d< t| rÔd| kr| d }n| d }||d< t|| \|d< |d< t| d | |d< t| r| d | d |d< dg| d | d< |d tkr&t|d |d< n d |d< t d t |d t| r|d tkrrd |t|d f |d < t| rd ||f |d < t| rÔt| d | |d!< |d! d"krÔt d#t | d d$|d!< t| rô| d |d< dg| d< |S )%zV
|
name,NAME,begintitle,endtitle
|
rname,ctype,rformat
|
routdebugshowvalue
|
ri Ú_ú\_ú end of %sr@ ) ri ZtexnameZ
|
name_lowerÚNAMEÚ
|
begintitleÚendtitleZ fortrannameZ FORTRANNAMEZ callstatementÚusercodeÚ usercode1Ú F_FUNC_USÚF_FUNCZF_WRAPPEDFUNC_USZ F_WRAPPEDFUNCZuser r× r Z externalszMroutsign2map: Confused: function %s has externals %s but no "use" statement.
|
Zcallprotoargumentrh ÚrnamerÍ rÎ rj rt rÏ Z
|
resultnoteúSee elsewhere.Zrformatr¹ z.routsign2map: no c2buildvalue key for type %s
|
rÉ ZroutdebugshowvaluerÊ ZrlengthrE zzroutsign2map: expected explicit specification of the length of the string returned by the fortran function %s; taking 10.
|
Ú10)Zgetfortrannamer² rX ÚupperÚgentitleZgetcallstatementÚ getusercodeÚ getusercode1r rZ r Zcb_mapr^ r~ Zgetcallprotoargumentrn r
|
r Z hasresultnoterÐ rÓ rØ r| r rÙ ) Úroutri Úfnamer r/ ZunÚlnra ru rd rd re r s
|
|
|
|
|
ö
|
|
|
|
|
ÿ
|
|
|
|
|
ÿ
|
|
ÿ
|
|
ÿ
|
|
|
ÿ
|
|
c C sü t | r.| d | d ¡ | d dd¡d}n$| d | d ¡ | d dd¡d}t| p\g |d< t| rv| d |d< t| pd|d < t| pd|d
|
< | d r¸t| d d p°d|d < nd|d < t| pÊd|d< d| krä| d |d< d| krø| d |d< |S )z
|
modulename
|
ri rÚ rÛ )Z f90modulenameZ F90MODULENAMEZtexf90modulename)Ú
|
modulenameZ
|
MODULENAMEZ texmodulenameZrestdocrÏ r@ rà rá Úbodyr Zinterface_usercodeZ pymethoddefZcoutputZf2py_wrapper_output)Úismodulerç r² Z
|
getrestdocrÙ ré rê Zgetpymethoddef)Úmr rd rd re r Û s.
|
þ
|
þ c C s¸ d| i}|d |d< t ||d< |d tkrHt|d |d< t||d< |d tkrhdt|d |d< t|rt|t| |}t| |\|d< |d < t|r´|d
|
|d
|
< d g|d
|
< |S ) Nr· Z varname_irt r½ rµ rË rÌ rÍ rÎ rÏ rå ) r rÒ r¶ rØ r rÑ r r
|
rÙ )ru rs r r rd rd re r ø s
|
c C s d| d |f dd}t | r`d| d kr0d}nd}d|| d ¡ | d ¡ f |d < d
|
|d < n|d |d < d |d < | d |d < t|d |d < td|d |d< t| |d< d|d< |d dkrÎd|d< n |d |d< |d dkrt| rúd|d< nd|d< |d tkr$dt|d |d< t| r:t| |d< t | rÊd| krX| d }n| d }t
|
| d | r| d | d |d < d g| d | d < ||d < t || \|d < |d < t| rêd!|d< n t
|
| rê| d |d < d g| d < d"}d"}d#| krLd| krL| d# D ]<}| d | }t t t|r|d$ }t|r|d$ }qt||d%< t||d&< t
|
| rt | rd| kr| d |d'< d g| d < |S )(z\
|
name,begintitle,endtitle,argname
|
ctype,rctype,maxnofargs,nofoptargs,returncptr
|
z cb_%s_in_%sri r@ )ri Ú
|
returncptrrÚ râ rã z %s(%s,%s)Z callbacknameZexternZstaticr rÞ rÜ rß rt rg Zrctyper z3
|
#ifdef F2PY_CB_RETURNCOMPLEX
|
return_value=
|
#endif
|
rò z return_value=rË rÌ Z strlengthrh rj rÏ rå rä rÍ rÎ z8
|
#ifdef F2PY_CB_RETURNCOMPLEX
|
#ctype#
|
#else
|
void
|
#endif
|
r Úargsr rº r» Zroutnote)rÖ rX rç rè r rÕ rØ r| r rn rÙ r
|
Zl_orr r rÔ r~ )rë Zumr rã ru Znofargsr» rs rd rd re r
|
sz ÿ
|
|
þÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
c C sâ | t |d}t|r d|d< |d tkrFt|d |d< t||d< |d tkrfdt|d |d< t|rt|t| |}n t|rt ||d< d |d
|
< t
|
| |\|d < |d < t |rÐ|d |d < dg|d < t | ||d< |S )N)r· rt r rt r½ rµ rË rÌ r r* r rÍ rÎ rÏ rå Z arrdocstr) r r³ rÒ r¶ rØ r rÑ r r} r r
|
rÙ r )ru rs r rd rd re r \ s&
|
)r )N))Ú__doc__r@ r ÚversionZ f2py_versionrL rv rP Z crackfortranr r ZauxfuncsÚ__all__Z using_newcorer r r r[ rÒ r rÐ rO rM rN r\ rf rØ r ry r r r
|
r r r¶ r r r r r r rd rd rd re Ú<module> s ýððîðîô ÿ ý þ þÿð
|
,ï3
|
=J#jQ
|
R
|
