U
|
P ±d¶, ã @ sª
|
d Z ddlZddlZddlZddlZddlZddlZddlZddlZz ddl Z W n e
|
k
|
rh dZ Y nX ddl m Z ddl T ddl mZ e jadadadadadad ad adadadag ad a d a da i a d a da!da"da#t#g ia$d a%g a&d
|
a'g a(da)d
|
a*g a+g a,g a-d d Z.dd dZ/de_0i Z1dD ]Z2ddie1e2< q*dD ]Z2ddie1e2< qBi Z3i Z4dD ] Z5e5d e3e5< e5e4e5d < qbdd Z6dd Z7dd Z8d d Z9d d Z:e ;d!ej<¡j=Z>e ;d"ej<¡j?Z@e ;d#ej<¡j?ZAe ;d$ej<¡j?ZBe ;d%ej<¡j=ZCd&d' ZDd(d) ZEeFdfd*d+ZGd,ZHd-ZIe ;eHd eIeId.f ej<¡d/fZJe ;eHd eId0 eId0 d.f ej<¡ZKe ;eHd1 ej<¡d2fZLe ;eHd3 ej<¡d2fZMd4ZNe ;eHd eNeNd.f ej<¡d2fZOeNd5 d6 ZPe ;eHd ePePd.f ej<¡d2fZQd7ZRe ;eHd eReRd.f ej<¡d8fZSd9ZTe ;eHd:eTeTd;f ej<¡d<fZUd=ZVe ;eHd eVeVd.f ej<¡d>fZWe ;eHd? ej<¡d@fZXe ;eHdA ej<¡dBfZYe ;eHdC ej<¡dDfZZe ;eHdE ej<¡dFfZ[e ;eHdG ej<¡dHfZ\e ;eHdI ej<¡dJfZ]e ;eHdK ej<¡dLfZ^e ;eHdM ej<¡dNfZ_e ;eHdO ej<¡dPfZ`e ;eHdQ ej<¡dRfZae ;eHdS ej<¡dTfZbe ;eHdU ej<¡dVfZce ;eHdW ej<¡dXfZde ;eHdY ej<¡dZfZee ;eHd[ ej<¡d\fZfe ;eHd] ej<¡d^fZge ;eHd_ ej<¡d`fZhe ;eHda ej<¡dbfZie ;eHdc ej<ejjB ¡ddfZke ;deejj¡dffZldgdh Zmdidj Zne ;dkej<¡ZoddldmZpdndo Zqd dqdrZrdsdt Zsd
|
dudvZte ;dwej<¡Zue ;dxej<¡Zve ;dyej<¡Zwe ;dzej<¡Zxe ;d{ej<¡Zye ;d|¡Zze ;d}¡Z{e ;d~ej<¡Z|dd Z}dd Z~dd Zd
d Zdd Zdd Ze ;dej<¡Ze ;dej<¡Ze ;dej<¡Z
e ;dej<¡Ze ;dej<¡Zdd Zdd Zdd Zdd Zd ddZd ddZd ddZddd Zd¡d¢ Zd£d¤ Zdd¥d¦Zdd§d¨Zdd©dªZd«d¬ Zdd® Zdd¯d°Zd±d² Zdd³d´Ze ;dµej<¡Zd¶d· Ze ;d¸ej<¡Zd¹dº Zd»d¼ Zd½d¾ Zd¿dÀ Z dÁd Z¡ddÃdÄZ¢i fdÅdÆZ£dÇdÈ Z¤e ;dÉ¡j=Z¥dÊdË Z¦dÌdÍ Z§e ;dÎej<¡Z¨g fdÏdÐZ©dÑdÒ Zªe ;dÓej<¡Z«e ;dÔej<¡Z¬e ;dÕej<¡Ze ;dÖej<¡Z®e ;d×ej<¡Z¯dØdÙ Z°i fdÚdÛZ±ddÞdßZ²ddàdáZ³ddâdãZ´dädå ZµddædçZ¶g a·dèdé Z¸dêdë Z¹dìdí Zºg dfdîdïZ»dðdñ Z¼t· ½e¼¡ e¾dòk
|
r¦g Z¿g ZÀdZÁdZÂdZÃdZÄejÅdd
D ]¦ZÆeÆd krqeÆd dókr®dZÁqeÆdôkrÄdadaqeÆdõkrÚdöadaqeÆd÷k r trôe/død dadaqeÆdùk rdaqeÆdúk r$daqeÆdûk r8dadanòeÆdük rPdadýadanÚeÆdþk r`dZÂnÊeÆdÿk rpdZÄnºeÆd k rdZÃn¨eÆd dk r¦eÇdeÈeÆ ne r¶dZÂeÆanteà rÆdZÃeÆandeÁ
|
r zeÉeÆ Ê¡ e¿ ½eÆ¡ W n6 eËk
|
|
r ZÌ zeÇdeÌdÜ W 5 dZÌ[ÌX Y nX n
|
eÀ ½eÆ¡ qt
|
sLt
|
rLt
|
sLe/dd e¸e¿ZÍt
|
re/deÈt d e¹eÍZÎeÉtdZÁeÁ ÏeΡ W 5 Q R X eÄ
|
r¦eFeÍ dS ( a*
|
crackfortran --- read fortran (77,90) code and extract declaration information.
|
|
Copyright 1999-2004 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/09/27 07:13:49 $
|
Pearu Peterson
|
|
|
Usage of crackfortran:
|
======================
|
Command line keys: -quiet,-verbose,-fix,-f77,-f90,-show,-h <pyffilename>
|
-m <module name for f77 routines>,--ignore-contains
|
Functions: crackfortran, crack2fortran
|
The following Fortran statements/constructions are supported
|
(or will be if needed):
|
block data,byte,call,character,common,complex,contains,data,
|
dimension,double complex,double precision,end,external,function,
|
implicit,integer,intent,interface,intrinsic,
|
logical,module,optional,parameter,private,public,
|
program,real,(sequence?),subroutine,type,use,virtual,
|
include,pythonmodule
|
Note: 'virtual' is mapped to 'dimension'.
|
Note: 'implicit integer (z) static (z)' is 'implicit static (z)' (this is minor bug).
|
Note: code after 'contains' will be ignored until its scope ends.
|
Note: 'common' statement is extended: dimensions are moved to variable definitions
|
Note: f2py directive: <commentchar>f2py<line> is read as <line>
|
Note: pythonmodule is introduced to represent Python module
|
|
Usage:
|
`postlist=crackfortran(files)`
|
`postlist` contains declaration information read from the list of files `files`.
|
`crack2fortran(postlist)` returns a fortran code to be saved to pyf-file
|
|
`postlist` has the following structure:
|
*** it is a list of dictionaries containing `blocks':
|
B = {'block','body','vars','parent_block'[,'name','prefix','args','result',
|
'implicit','externals','interfaced','common','sortvars',
|
'commonvars','note']}
|
B['block'] = 'interface' | 'function' | 'subroutine' | 'module' |
|
'program' | 'block data' | 'type' | 'pythonmodule' |
|
'abstract interface'
|
B['body'] --- list containing `subblocks' with the same structure as `blocks'
|
B['parent_block'] --- dictionary of a parent block:
|
C['body'][<index>]['parent_block'] is C
|
B['vars'] --- dictionary of variable definitions
|
B['sortvars'] --- dictionary of variable definitions sorted by dependence (independent first)
|
B['name'] --- name of the block (not if B['block']=='interface')
|
B['prefix'] --- prefix string (only if B['block']=='function')
|
B['args'] --- list of argument names if B['block']== 'function' | 'subroutine'
|
B['result'] --- name of the return value (only if B['block']=='function')
|
B['implicit'] --- dictionary {'a':<variable definition>,'b':...} | None
|
B['externals'] --- list of variables being external
|
B['interfaced'] --- list of variables being external and defined
|
B['common'] --- dictionary of common blocks (list of objects)
|
B['commonvars'] --- list of variables used in common blocks (dimensions are moved to variable definitions)
|
B['from'] --- string showing the 'parents' of the current block
|
B['use'] --- dictionary of modules used in current block:
|
{<modulename>:{['only':<0|1>],['map':{<local_name1>:<use_name1>,...}]}}
|
B['note'] --- list of LaTeX comments on the block
|
B['f2pyenhancements'] --- optional dictionary
|
{'threadsafe':'','fortranname':<name>,
|
'callstatement':<C-expr>|<multi-line block>,
|
'callprotoargument':<C-expr-list>,
|
'usercode':<multi-line block>|<list of multi-line blocks>,
|
'pymethoddef:<multi-line block>'
|
}
|
B['entry'] --- dictionary {entryname:argslist,..}
|
B['varnames'] --- list of variable names given in the order of reading the
|
Fortran code, useful for derived types.
|
B['saved_interface'] --- a string of scanned routine signature, defines explicit interface
|
*** Variable definition is a dictionary
|
D = B['vars'][<variable name>] =
|
{'typespec'[,'attrspec','kindselector','charselector','=','typename']}
|
D['typespec'] = 'byte' | 'character' | 'complex' | 'double complex' |
|
'double precision' | 'integer' | 'logical' | 'real' | 'type'
|
D['attrspec'] --- list of attributes (e.g. 'dimension(<arrayspec>)',
|
'external','intent(in|out|inout|hide|c|callback|cache|aligned4|aligned8|aligned16)',
|
'optional','required', etc)
|
K = D['kindselector'] = {['*','kind']} (only if D['typespec'] =
|
'complex' | 'integer' | 'logical' | 'real' )
|
C = D['charselector'] = {['*','len','kind','f2py_len']}
|
(only if D['typespec']=='character')
|
D['='] --- initialization expression string
|
D['typename'] --- name of the type if D['typespec']=='type'
|
D['dimension'] --- list of dimension bounds
|
D['intent'] --- list of intent specifications
|
D['depend'] --- list of variable names on which current variable depends on
|
D['check'] --- list of C-expressions; if C-expr returns zero, exception is raised
|
D['note'] --- list of LaTeX comments on the variable
|
*** Meaning of kind/char selectors (few examples):
|
D['typespec>']*K['*']
|
D['typespec'](kind=K['kind'])
|
character*C['*']
|
character(len=C['len'],kind=C['kind'], f2py_len=C['f2py_len'])
|
(see also fortran type declaration statement formats below)
|
|
Fortran 90 type declaration statement format (F77 is subset of F90)
|
====================================================================
|
(Main source: IBM XL Fortran 5.1 Language Reference Manual)
|
type declaration = <typespec> [[<attrspec>]::] <entitydecl>
|
<typespec> = byte |
|
character[<charselector>] |
|
complex[<kindselector>] |
|
double complex |
|
double precision |
|
integer[<kindselector>] |
|
logical[<kindselector>] |
|
real[<kindselector>] |
|
type(<typename>)
|
<charselector> = * <charlen> |
|
([len=]<len>[,[kind=]<kind>]) |
|
(kind=<kind>[,len=<len>])
|
<kindselector> = * <intlen> |
|
([kind=]<kind>)
|
<attrspec> = comma separated list of attributes.
|
Only the following attributes are used in
|
building up the interface:
|
external
|
(parameter --- affects '=' key)
|
optional
|
intent
|
Other attributes are ignored.
|
<intentspec> = in | out | inout
|
<arrayspec> = comma separated list of dimension bounds.
|
<entitydecl> = <name> [[*<charlen>][(<arrayspec>)] | [(<arrayspec>)]*<charlen>]
|
[/<init_expr>/ | =<init_expr>] [,<entitydecl>]
|
|
In addition, the following attributes are used: check,depend,note
|
|
TODO:
|
* Apply 'parameter' attribute (e.g. 'integer parameter :: i=2' 'real x(i)'
|
-> 'real x(2)')
|
The above may be solved by creating appropriate preprocessor program, for example.
|
|
é Né )Ú __version__)Ú*)ÚsymbolicÚfixú Ú éÿÿÿÿc C sp da dadadadadadadadada g a
|
da t g ia da dadag ai adadadag ag ag ag ad ad S )Nr r r r r r )Ú strictf77ÚsourcecodeformÚquietÚverboseÚtabcharÚ pyffilenameÚ f77modulenameÚ skipemptyendsÚignorecontainsÚ dolowercaseÚdebugÚ groupcounterÚ grouplistÚ neededmoduleÚ expectbeginÚskipblocksuntilÚ usermodulesÚ f90modulevarsÚ gotnextfileÚfilepositiontextÚcurrentfilenameÚ skipfunctionsÚ skipfuncsÚ onlyfuncsÚ include_pathsÚprevious_context© r$ r$ úNd:\z\workplace\vscode\pyvenv\venv\Lib\site-packages\numpy/f2py/crackfortran.pyÚreset_global_f2py_varsÇ s4 r& c C s, t sd S ts(|r tj t¡ tj | ¡ d S ©N)r r ÚsysÚstdoutÚwriter )ÚlineÚflagr$ r$ r% Úoutmessí s r- é2 zabcdefghopqrstuvwxyz$_ÚtypespecÚrealZijklmnÚinteger)3ÚintÚdoubleÚfloatÚcharÚshortÚlongZvoidÚcaseÚwhileÚreturnÚsignedZunsignedÚifÚforZtypedefÚsizeofÚunionÚstructÚstaticÚregisterÚnewÚbreakZdoÚgotoÚswitchÚcontinueÚelseÚinlineZexternÚdeleteÚconstÚautoÚlenZrankÚshapeÚindexÚslenÚsizeZ_iÚmaxÚminZflenZfshapeÚstringZcomplex_doubleZ float_doubleÚstdinÚstderrr) ÚtypeÚdefaultZ_bnc C s( | t kr$td| t | f t | S | S )Nz&rmbadname1: Replacing "%s" with "%s".
|
)ÚbadnamesÚerrmess©Únamer$ r$ r% Ú
|
rmbadname1 s
|
ÿr] c C s dd | D S )Nc S s g | ] }t |qS r$ )r] ©Ú.0Ú_mr$ r$ r% Ú
|
<listcomp> s z rmbadname.<locals>.<listcomp>r$ ©Únamesr$ r$ r% Ú rmbadname s rd c C s( | t kr$td| t | f t | S | S )Nz+undo_rmbadname1: Replacing "%s" with "%s".
|
)Ú invbadnamesrZ r[ r$ r$ r% Úundo_rmbadname1 s
|
ÿrf c C s dd | D S )Nc S s g | ] }t |qS r$ )rf r^ r$ r$ r% ra ! s z"undo_rmbadname.<locals>.<listcomp>r$ rb r$ r$ r% Úundo_rmbadname s rg c C sN | d¡}|dkrdS d| |d
kr*dS d| |d
kr>dS | |d d
S )NÚ.r r ú\ú/r )Úrfind)r\ Úir$ r$ r% Ú getextension$ s
|
rm z.*\.(for|ftn|f77|f)\Zz-\*-\s*fortran\s*-\*-z-\*-\s*f90\s*-\*-z-\*-\s*fix\s*-\*-z[^c*]\s*[^\s\d\t]c C s t dk rt | ¡ ¡ j}nxtdtj | ¡}t| dV}| |¡}|
|
t j ¡rTd}n4|
|
t j t jf¡rld}n |
|
t jt jf¡rd}nd}W 5 Q R X t| ||dS ) aN Ensures that filename is opened with correct encoding parameter.
|
|
This function uses charset_normalizer package, when available, for
|
determining the encoding of the file to be opened. When charset_normalizer
|
is not available, the function detects only UTF encodings, otherwise, ASCII
|
encoding is used as fallback.
|
Né Úrbz UTF-8-SIGzUTF-32zUTF-16Úascii)Úencoding)Úcharset_normalizerÚ from_pathÚbestrq rS ÚosÚpathÚgetsizeÚopenÚreadÚ
|
startswithÚcodecsÚBOM_UTF8Ú BOM_UTF32_LEÚ BOM_UTF32_BEÚBOM_LEÚBOM_BE)ÚfilenameÚmoderq ÚnbytesZfhandleÚrawr$ r$ r% Úopenhook5 s
|
r
c C s¬ d}t | d}| ¡ }d}t|r*d}nt|r:d}d}|dkr|r|d dkr| ¡ r|d8 }|d dkr~t|dd
s|d d
|
d krd}q| ¡ }q:W 5 Q R X |S ) z(Check if file is in free format Fortran.r Úré r ú!ú Né éþÿÿÿr ú&)r
ÚreadlineÚ _has_f_headerÚ_has_f90_headerÚstripÚ_free_f90_start)ÚfileÚresultÚfr+ Únr$ r$ r% Úis_free_formatT s" ,r c C s |st ttttttttf }| g kr&dS t}d}d}d}t
|
dt j ¡}t
|
d¡} t
|
d¡}
|
t
|
d¡} |rp|dd d \}} d
|
gd d t d D } dat j| td}z | ¡ }W nF tk
|
rô } z(td| ¡ d| ¡ d| dW 5 d}~X Y nX |sþqt| ¡ r¢da| ¡ ada |} dadatj t¡d }ttrXt|sXt|sXdant trpt|spdatr|t ant at dt tttrdpdf | !¡ "dd
|
¡}|dksÞ|d dkrÎqÞ|dd
}q²ts.t#|d\}}|d
|
7 }|dd
$¡ d kr.t#|d |d d
d\}}| %¡ dkrNtdkrHq¢d}q¢tdkr¾|d d kr|dd
$¡ d krd!|d d
}nd}q¢n tr¶t&|d"kr¶|dd"
}|d | krÔtd#t | |ràtrt&|d kr|d d
|
ks||d$d
}d}d}n¦ts| '|¡}|r6| (d%¡}|rZ||
|
'|¡ (d%¡ }d}d}n,d!|d d
}|rz| $¡ }n|}|}|}|dk }n,d!|d d
}|r°| $¡ }n|}|}|}nàtdkr|s*|d&kr*| '|¡r*|d' }| ¡ }|st)d( q"|| }| '|¡rìq"qì| *¡ }| '|¡}|rD| (d%¡}|rh||
|
'|¡ (d%¡ }d}d}n |rx| $¡ }n|}|}|}|dk }nt+d)t t d*| ,¡ d t| f a| '|¡}|rf| (d+¡}tj -|¡rìt.||dd, nxtj /t¡gt0 }d}|D ]:}tj 1||¡} tj -| ¡rd}t.| |dd, qBq|snt d-t |tj2 1|¡f n|| |} q¢|r| $¡ }n|}|}d*| ,¡ d t| f a| '|¡}|rT| (d+¡}tj -|¡rÚt.||dd, nxtj /t¡gt0 }d}|D ]:}tj 1||¡} tj -| ¡rôd}t.| |dd, q0qô|s\t d-t |tj2 1|¡f n|| da| 3¡ |rz|dd n|\ a aaaaaaaadS ).zõ
|
Read fortran codes from files and
|
1) Get rid of comments, line continuations, and empty lines; lower cases.
|
2) Call dowithline(line) on every line.
|
3) Recursively call itself when statement "include '<filename>'" is met.
|
NFr z*\s*include\s*(\'|")(?P<name>[^\'"]*)(\'|")z(?P<line>.*)&\s*\Zz(\s*&|)(?P<line>.*)z.*?'''r )r r ú c S s g | ] }t |qS r$ )Ústrr^ r$ r$ r% ra s z#readfortrancode.<locals>.<listcomp>é
|
)r
zreadfortrancode: reading ú#z failed with
|
zu.
|
It is likely that installing charset_normalizer package will help f2py determine the input file encoding correctly.r r r Úfreez Reading file %s (format:%s%s)
|
z,strictõ Â z
|
r r z!f2pyr )r Úcr ÚCr Zf2pyz éH zxreadfortrancode: Found non-(space,digit) char in the first column.
|
Are you sure that this code is in fix form?
|
line=%sé r+ ú.pyfÚ
|
z.Unexpected end of file when reading multiline
|
z6Flag sourcecodeform must be either 'fix' or 'free': %szLine #%d in %s:"%s"
|
r\ )Ú
|
dowithlineÚistopzAreadfortrancode: could not find include file %s in %s. Ignoring.
|
)4r r r r r
|
Ú beginpatternr r r ÚreÚcompileÚIÚrangeÚ fileinputZ FileInputr
r ÚUnicodeDecodeErrorÚ Exceptionr ÚlinenoZ isfirstlineru rv ÚsplitextÚ is_f_filer Ú_has_fix_headerr Úbeginpattern77Úbeginpattern90r- ÚreprÚ
|
expandtabsÚreplaceÚsplit_by_unquotedÚlowerr rM ÚmatchÚgrouprZ ÚrstripÚ
|
ValueErrorZ
|
filelinenoÚisfileÚreadfortrancodeÚdirnamer" ÚjoinÚpathsepÚclose) Úffiler£ r¤ Z saveglobalsZlocaldolowercaseÚcontZ finallineÚllZ includelineZcont1Zcont2Z
|
mline_markÚl1Z spacedigitsZfinÚlÚmsgÚextÚrlÚ_Z origfinalliner ÚlcÚmÚfnÚ include_dirsZ foundfileÚinc_dirZfn1r$ r$ r% r½ l s
|
|
ÿ ÿ
|
|
|
|
ÿ
|
|
ÿÿÿÿ
|
|
|
þ(
|
|
|
|
|
|
ÿ
|
|
|
|
|
ÿ
|
ÿ
|
|
|
ÿÿ
|
|
ÿ
|
|
|
ÿ
|
|
|
|
ÿ
|
ÿ ÿr½ zN\s*(?P<before>%s(?=\s*(\b(%s)\b)))\s*(?P<this>(\b(%s)\b))\s*(?P<after>%s)\s*\Zzqcharacter|logical|integer|real|complex|double\s*(precision\s*(complex|)|complex)|type(?=\s*\([\w\s,=(*)]*\))|byteú.*rW z|static|automatic|undefined)z([a-z]+[\w\s(=*+-/)]*?|)ÚfunctionrÑ rÐ Úbegin)z [a-z\s]*?Ú
|
subroutinerÓ rÐ zprogram|block\s*dataz@|module(?!\s*procedure)|python\s*module|(abstract|)\s*interface|z type(?!\s*\()z\end|endprogram|endblockdata|endmodule|endpythonmodule|endinterface|endsubroutine|endfunctionÚendzJend\s*(if|do|where|select|while|forall|associate|block|critical|enum|team)z[\w]*?z[\w\s]*Úendifzmodule\s*procedureÚmoduleprocedure)r Úimplicitr× rÐ r× )r údimension|virtualrØ rÐ Ú dimension)r ÚexternalrÚ rÐ rÚ )r ÚoptionalrÛ rÐ rÛ )r ÚrequiredrÜ rÐ rÜ )r ÚpublicrÝ rÐ rÝ )r ÚprivaterÞ rÐ rÞ )r Ú intrinsicrß rÐ rß )r úintent|depend|note|checkrà z \s*\(.*?\).*Úintent)r Ú parameterrâ z\s*\(.*râ )r Údatarã rÐ rã )r Úcallrä rÐ rä )r Úentryrå rÐ rå )r Úcallfunræ rÐ ræ )r Úcommonrç rÐ rç )r Úuserè rÐ rè )r Úcontainsré r ré )r Úformatrê rÐ rê )r úKthreadsafe|fortranname|callstatement|callprotoargument|usercode|pymethoddefrë rÐ Úf2pyenhancementsz2\s*(?P<before>''')(?P<this>.*?)(?P<after>''')\s*\ZÚ multilinec C sv t dt |@ rtdt djd t |¡¡d t |¡¡ddd¡}| | ¡}|rn| ¡ }|d |d
|
fS | d fS ) z¶
|
Splits the line into (line[:i], line[i:]),
|
where i is the index of first occurrence of one of the characters
|
not within quotes, or len(line) if no such index exists
|
z"'z cannot split by unquoted quoteszR\A(?P<before>({single_quoted}|{double_quoted}|{not_quoted})*)(?P<after>{char}.*)\Zz[^"'{}]z[{}]z('([^'\\]|(\\.))*')z("([^"\\]|(\\.))*"))Z
|
not_quotedr5 Ú single_quotedZ double_quotedÚbeforeÚafterr )ÚsetÚAssertionErrorr¦ r§ rê Úescaper¸ Ú groupdict)r+ Ú
|
charactersr rÌ Údr$ r$ r% r¶ ¡ s ûÿ
|
r¶ c C sB g }t | d¡D ]$}dD ]}| |d¡}q| |¡ qd |¡S )Nú@,@z(),rÊ ú,)ÚmarkoutercommaÚsplitrµ Úappendr¿ )ZargslineÚar r r$ r$ r% Ú _simplifyargsµ s rý z"\s*(?P<result>\b[a-z]+\w*\b)\s*=.*c C s¸ t | d\}}|rtd | ¡std | ¡s|dksBtt|t | d\} }|rvt| | t |dd
d\} }qPt| | dS |dk rädatdiati ia tg ia
|
g t t d< i t t d< dt t d< dt t d < d
|
a d
|
a dS |dkr d}t rt tkrd }t|krptd ttttf td t
|
td t t ¡ t
|
t t
|
td d
|
d< t
|
t= td aqt rüt tkrüt
|
td t t ¡ t
|
t t
|
td d
|
d< t
|
t= td at
|
td t t ¡ t
|
t t
|
td d
|
d< t
|
t= td ad
|
a dS | dkrdS d}ttttttttttttt t t t t t!t"t#t$t%t&ttt'fD ](}|d | ¡}|rh qt|d }qJ|sÎt(} dt krtkrn ndS dt t krt t d D ]Ü}
|
|
|
t)krÎt)|
|
}
|
dt t krò|
|
t t d kròq¸t* d|
|
t+| t*j,¡} | r¸| | -d¡¡} t.| -d¡} | rJd|
|
| | -d¡f } n d|
|
| f } t/d | ¡}|stdt| dS t0|d| dS q¸t1dksºt1dkrÊt2 3¡ 4d¡rÊda5tdt dS |d dkrÆdt krôtk rn ntd at tkrdS tdkr$t6dt t d | ¡} | rp| -d ¡tt kspt6d t| -d ¡ttt t7f t tkr~d
|
a t
|
td t t ¡ t
|
t t
|
td d
|
d< t
|
t= td at8s´da9nî|d d krdt krìtkrün n td adS da:t0||d | da9n|d d kr&n|d d krFt0||d | nn|d d!krt;r^dS dt krvtkr~n ndS ta n0dt krtkr¤n ndS t0||d | dS )"z¬
|
reset=-1 --- initialize
|
reset=0 --- crack the line
|
reset=1 --- final check if mismatch of blocks occurred
|
|
Cracked data is saved in grouplist[0].
|
ú;r r Nr ÚbodyÚvarsÚblockr\ r é z(crackline: groupcounter=%s groupname=%s
|
zYcrackline: Mismatch of blocks encountered. Trying to fix it by assuming "end" statement.
|
Ú externalsÚ
|
interfacedz5(?P<before>[^"]*)\b%s\b\s*@\(@(?P<args>[^@]*)@\)@.*\Zrï Úargszcallfun %s(%s) result (%s)r zcallfun %s(%s)z8crackline: could not resolve function call for line=%s.
|
ræ r¡ z"crackline:%d: No pattern for line
|
rÔ z>crackline: groupcounter(=%s) is nonpositive. Check the blocks.ÚthiszGcrackline: End group %s does not match with previous Begin group %s
|
%srÒ rÕ rÖ ré )<r¶ Úf2pyenhancementspatternr¸ Úmultilinepatternrò r³ Ú crackliner Ú groupnameÚ
|
groupcacher r r r r- rû ÚdimensionpatternÚexternalpatternÚ intentpatternÚoptionalpatternÚrequiredpatternÚparameterpatternÚ datapatternÚ publicpatternÚprivatepatternÚintrinsicpatternÚ endifpatternÚ
|
endpatternÚ formatpatternr¥ ÚfunctionpatternÚsubroutinepatternÚimplicitpatternÚ typespatternÚ commonpatternÚ callpatternÚ
|
usepatternÚcontainspatternÚ entrypatternÚmoduleprocedurepatternÚcrackline_re_1re r¦ Úmarkouterparenr¨ r¹ rý ÚcallfunpatternÚ analyzeliner r r· Úendswithr# r¬ r r r r r )r+ ÚresetrÊ Z has_semicolonZsemicolon_lineÚflr, ÚpatrÌ Úre_1r\ Úm1Úm2rü r$ r$ r% r À sB ÿ
|
|
|
|
ÿÿ
|
ô
|
ÿ ÿ
|
ÿ
|
$
|
|
þÿþ
|
r c C sd d}d}| D ]R}|dkr4|d }|dkrV|d }q n"|dkrV|d }|dkrV|d }q || }q |S )Nr r ú(r ú@(@ú)ú@)@r$ )r+ rÆ r r r$ r$ r% r$ _ s
|
r$ rø c C sÀ d}d}t | |d \}}||7 }|r¦|d |krL|dkrL|d| d 7 }n6||d 7 }|d dkrn|d7 }n|d dkr|d8 }t |dd
|d \}}||7 }q"|r¼tt|| |f|S )Nr r z()ú@r. r r0 )r¶ rò r³ )r+ ÚcommarÆ r rï rð r$ r$ r% rù q s
|
|
rù c C s | dd¡ dd¡}|S )Nr/ r. r1 r0 )rµ )r+ r r$ r$ r% Úunmarkouterparen s r4 c C sþ | si } |s| S | |kr | S t | ¡ D ]Ð}|dkrN|s@|| krø|| | |< q(|dkrr|| D ]}t| ||} q^q(|dkrt| || |} q(|dkr¦t| || |} q(|dkrÈ|sº|| krø|| | |< q(|dkrÒq(|dkrètd| q(td t| q(| S )
|
Nr/ ÚattrspecÚ kindselectorÚ charselector)ú=ÚtypenameÚnote)rá ÚcheckrÙ rÛ rÜ Údependz"appenddecl: "%s" not implemented.
|
z-appenddecl: Unknown variable definition key: )ÚlistÚkeysÚ setattrspecÚsetkindselectorÚsetcharselectorrZ r¬ r )ÚdeclZdecl2ÚforceÚkrÆ r$ r$ r% Ú
|
appenddecl s8 ÿrE zD\s*(?P<this>(@\(@.*?@\)@|\*[\d*]+|\*\s*@\(@.*?@\)@|))(?P<after>.*)\Zz[(?:,(?P<attributes>[\w(),]+))?(::)?(?P<name>\b[a-z$_][\w$]*\b)(?:\((?P<params>[\w,]*)\))?\Zz\s*(?P<name>\b[\w$]+\b)\s*(@\(@\s*(?P<args>[\w\s,]*)\s*@\)@|)\s*((result(\s*@\(@\s*(?P<result>\b[\w$]+\b)\s*@\)@|))|(bind\s*@\(@\s*(?P<bind>.*)\s*@\)@))*\s*\ZzF\s*(?P<scheme>(operator|assignment))@\(@\s*(?P<name>[^)]+)\s*@\)@\s*\Zz9\s*(?P<name>\b[\w$]+\b)\s*@\(@\s*(?P<args>.*)\s*@\)@\s*\Zz4([-+]?(?:\d+(?:\.\d*)?|\d*\.\d+))[dD]((?:[-+]?\d+)?)zA([-+]?((?:\d+(?:\.\d*)?|\d*\.\d+))[eE]((?:[-+]?\d+)?)|(\d+\.\d*))zintent\s*\(.*?\bcallback\bc C s& | dg ¡D ]}t |¡r dS q dS )Nr5 r r )ÚgetÚ_intentcallbackpatternr¸ )Zvdeclrü r$ r$ r% Ú_is_intent_callback¼ s
|
rH c C sl d | ¡ ¡} t | ¡}t| | |rb| d¡}|rHdd | d¡D ng }| d¡|| d¡fS d g d fS )Nr Ú
|
attributesc S s g | ] }| ¡ qS r$ )r· )r_ rü r$ r$ r% ra É s z*_resolvetypedefpattern.<locals>.<listcomp>rø r\ Úparams)r¿ rú Útypedefpatternr¸ Úprintr¹ )r+ r, Úattrsr$ r$ r% Ú_resolvetypedefpatternà s
|
|
|
rN c C s¢ t | } t | ¡}|r:| d¡| d¡| d¡| d¡fS t | ¡}|rp| d¡d | d¡ d }|g d d fS t | ¡}|r| d¡| d¡d d fS d g d d fS )Nr\ r r ÚbindÚschemer. r0 )r$ Únameargspatternr¸ r¹ ÚoperatorpatternÚcallnameargspattern)r+ r, r\ r$ r$ r% Ú_resolvenameargspatternÎ s
|
$
|
|
rT c > C sÔ | d¡}|dkrd atr´|dkr´ts´tdk r´tj t¡ d¡d }t
|
d| da td adt t< i t t< g tt< g t t d < i t t d
|
< dt t d < |t t d < d t t d< da|dkr¸| ¡ }t d|tj¡rÜd}n,t d|tj¡ròd}nt d|tj¡rd}|dkrFt| d¡\}}}t|dt t d
|
|< g }d } nt| d¡\}}} }|d kr|dkrvd}nd}|dkrt
|
d ||tfa|rºtd d t| d ¡D }ng }d|krèd|krà| d¡ qÈt
|
d d}
|
d} |d!krnd} d"t t krd S |t t d" kr&d S tt D ]} | d |kr. d S q.|t t d# kr`d S d$d%d!| }tr¢td&kr¢tdkr¢td' ad}
|
|d(kr¢d} td ai t t< g tt< |
|
rPtdkrÜt
|
d)t t d d*t t< dt t d < tt t d < dt t d< g t t d < g t t d+< g t t d#< i t t d
|
< td ai t t< g tt< | rtdkrnt
|
d,t d d-t t< d-t t d < d.t t d < d/t td d t td d f t t d< g t t d < g t t d+< g t t d#< i t t d
|
< td ai t t< g tt< |t t< |t t d < |s,d0| d1d2¡ }| d3¡t t d4< t |t t d < | t t d5< tdkrrtt t d< n^tr¤td6kr¤d/t td d tf t t d< n,d/t td d t td d f t t d< t t t ¡ D ] } t t | sàt t | = qà|t t d"< g t t d < g t t d+< g t t d#< i t t d
|
< i t t d7< |dkr^g t t d8< |d!krö|t td' d+ krt td' d+ !|¡ t" #t td' d
|
¡t t d
|
< z,t t d
|
| t t d
|
| d9 $d:¡= W n t%k
|
rô Y nX |d;krÚz6t&t t d
|
| t td' d
|
d t t d
|
|< W n t%k
|
rL Y nX |d<kr¨| r¨| t t d
|
kr¨|| ks¨t&t t d
|
| t t d
|
| t t d
|
|< zt td' d# !|¡ W n t%k
|
rØ Y nX |d%kr2t'd | d3¡d1 | ¡}|r2t(| d¡| d¡\}}}}t)|||| |d!krÐttd !t t ¡ tt ttd d& d < tt= td attd !t t ¡ tt ttd d& d < tt= td an|d7kr>t| d¡\}}} }|d k rÐ|rtd=d t| d ¡D }ng }| d ks t*t | |t t d7 |< d7|tfan|dkrt(|| d¡\}}}}t)||||}|d k rÐd>|tfanJ|d?k r$t t d
|
}| d¡ +¡ }| ,d@¡}|dk r\|dAk r\t-| ,dB¡d' }|d |d
d@ ||d d
}| ,d@¡}||d
d@k r\d"t t k r\t
|
dC| d¡|d |
f |dD .t t d" ¡ }|dk rpd}d}n |d |
+¡ }||d' d
}t| d ¡}t/|dk rÎ|d }t
|
dEdD .|dd
¡ d }dFd t| d ¡D D ]}t0 |¡}|
|
s6|dGk
|
rd} n$t1| 2¡ t
|
dH|t |f qênt | d ¡} |dGk
|
rp| dIk
|
sb| dJk
|
rp| | d¡7 } | |k
|
ri || < |dKk
|
r|| d¡ }|dAk rP| d¡| }t3 |¡ rP| t t d" k rDtdk r6dLt td' d k
|
røt
|
dM | t t d k rBt
|
dN| t t d f t t d" !| ¡ n t4dO| n t4dP| |dQk r^|}d9|| k r|| d9 !|¡ n|g|| d9< |d:k røt t d dk r¶t
|
dR qê| t t d" k rÌ qêd+t t k ræg t t d+< t t d+ !| ¡ | } qê|t t d
|
< |d k rÐd>|tfa n¬|dSk rTdTd | d¡ dD¡D t t dU< n||dVkrªt t d
|
}| d¡ +¡ dd&
}d }t| d ¡D ]ð}z dWd | dX¡D \} } W n, t%k
|
rà t
|
dY||f Y qY nX t5|} t | } | |k ri || < dX|| k r>|| dX | k s>t
|
dZ| || dX | f t6| | }| rè| 7d[¡d\k r¸t | } t8 9| ¡D ]:} t | | :¡ | ;¡
¡ d]d^¡| | :¡ | ;¡
< qpd .| ¡} n0| 7d[¡d_k rè| dd
¡ d]d^¡ dDd`¡} zt<| i | } W nD t=t>t?fk
|
r< } z t4da| | f W Y ¢ qW 5 d } ~ X Y nX t | || dX< d9|| krp|| d9 !dV¡ ndVg|| d9< | } q|t t d
|
< |d k rÐd>|tfa n&|dbkrä| d¡ +¡ ¡ dckrÜd t t db< qÐ| d¡rÐdbt t krt t db }!ni }!|!d kr t
|
dd i }!t| d¡ d ¡D ]}i }"t de|tj¡}|sbt
|
df| q2t@ | d¡¡}#|#st
|
dg| q2t(|# d¡|# d¡\}}}}tA||\}$}%}&||"d[< |$|"dh< |%|"di< |&|"dj< t |" ¡ D ]} |"| sâ|"| = qât| d¡ d ¡D ]À}'dk|'krdz dld |' dk¡D \}(})W n( t%k
|
r` t
|
dm|' Y qY nX n |' +¡ }(})t/|(t/|) krdks¢n t
|
dn|' qtBtC|(tC|)d D ]}*|"|!tD|*< q¸qq2|!t t db< nì|dokrg }d}+d},d}-d}.d}/| d¡D ]Î}0|/sF|0dpkr*|. }.|0dqkrF|.rF|-d }-q|0drkrZ|/d }/n|0dskrl|/d }/|-dkr|+|0 }+n\|-dkr|,|0 },nH|-d'kr|+ +¡ }+|+ EdD¡rÂ|+dd
+¡ }+| !|+|,g¡ |0}+d},d}-q|-d'kr |+ +¡ }+|+ EdD¡r|+dd
+¡ }+| !|+|,g¡ i }1d
|
t t kr:t t d
|
}1d }|D ]}2dtd |2D }2|2d d dDkr||2d dd
|2d< |2d d drkr¢t
|
du|2d qBd}d}3t/|2d }4tdvd t|2d d ¡D D ]} | d drkrút
|
du| qÖd}.||4k rD|.s |2d | dDksD|2d | dpkr8|. }.|d }qþ|d }| |1kr^i |1| < dX|1| kr¸|1| dX |2d |3|d
ks¸t
|
dw| |1| dX |2d |3|d
f |2d |3|d
|1| dX< |}3| }qÖqB|1t t d
|
< |d k rÐd>|tfanÈ|dxkrx| d¡ +¡ }|d dqks6dy| }g }5d}-d}6d}7|D ]r}0|0dqkrd|-d }-qJ|-d6kr|6 +¡ }6|6sdz}6|5 !|6|7g¡ |-d' }-d}6d}7|-d' r²|6|0 }6n|7|0 }7qJ|6 +¡ }6|6sÐdz}6|5 !|6|7g¡ i }8dxt t krüt t dx }8|5D ]\}0|0d |8kr g |8|0d < d{d t|0d d ¡D D ] }|r:|8|0d !|¡ q:q |8t t dx< dx|6tfanX|d|krÔt d}| d¡tj¡}|r¾| 2¡ }9d|t t krÀi t t d|< | d ¡}i t t d| |< d}:d~|9krÒ|9d~ d k rÒd|9kr|9d d krd}:|:t t d| | d< dd |9d~ dD¡D }i };|D ]r}2dX|2krt d|2tj¡}#|#r|# d|¡ +¡ |;|# d¡ +¡ < nt
|
dt |2 n|2|;|2< |;t t d| | d
< qFn nt1| 2¡ t
|
d nü|dkrhdt t krøi t t d< t t d }<| d¡dkrRd|<krRtF|<d tGr<|<d g|<d< |<d !| d¡¡ n| d¡|<| d¡< nh|dkr²td krtrt
|
d d S t}=tHt |= td d'
| d¡ n tdkrÐt1| 2¡ t
|
d d S )Nr rí )rÒ rä ræ rW r rh r zBanalyzeline: no group yet. Creating program group with name "%s".
|
Úprogramrÿ r r r\ ZfromskyÚfrom)rÒ rä ræ z block\s*dataú
|
block datazpython\s*moduleú python modulezabstract\s*interfaceúabstract interfacerW rð )r5 Ú _BLOCK_DATA_r )Ú interfacerW rY z2analyzeline: No name/args pattern found for line.
|
c S s g | ] }| ¡ qS r$ ©r ©r_ Úxr$ r$ r% ra s ÿz analyzeline.<locals>.<listcomp>r÷ z<analyzeline: argument list is malformed (missing argument).
|
)rä ræ r r rÓ rÑ r r ©r[ rY z&analyzeline: Creating module block %s
|
Úmoduler zDanalyzeline: Creating additional interface block (groupcounter=%s).
|
r[ Úunknown_interfacez%s:%sZunknown_r rÊ rï Úprefixr é rå Úvarnamesr5 rÚ ©rÑ rÓ ræ c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra s ÿÚvariable)rÙ rá rÛ rÜ rÚ rÝ rÞ rß ú::rá r1 z'All arguments will have attribute %s%s
|
rø zXanalyzeline: cannot handle multiple attributes without type specification. Ignoring %r.
|
c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra Ä s ©rÝ rÞ zEanalyzeline: no name pattern found in %s statement for %s. Skipping.
|
ÚoperatorZ
|
assignmentrÙ Ú__user__z8analyzeline: missing __user__ module (could be nothing)
|
z;analyzeline: appending intent(callback) %s to %s arguments
|
z,analyzeline: intent(callback) %s is ignored
|
z=analyzeline: intent(callback) %s is already in argument list
|
)rÛ rÜ rÝ rÚ rÞ rß z(analyzeline: ignoring program arguments
|
rÖ c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra ÿ s Ú implementedbyrâ c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra s r8 zManalyzeline: could not extract name,expr in parameter statement "%s" of "%s"
|
zGanalyzeline: Overwriting the value of parameter "%s" ("%s") with "%s".
|
r/ r0 rö ÚeÚcomplexz+1j*(z1analyzeline: Failed to evaluate %r. Ignoring: %s
|
r× Únonez<analyzeline: Overwriting earlier "implicit none" statement.
|
z9\s*(?P<this>.*?)\s*(\(\s*(?P<after>[a-z-, ]+)\s*\)\s*|)\ZzDanalyzeline: could not extract info of implicit statement part "%s"
|
zManalyzeline: could not extract types pattern of implicit statement part "%s"
|
r6 r7 r9 ú-c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra S s zZanalyzeline: expected "<char>-<char>" instead of "%s" in range list of implicit statement
|
z^analyzeline: expected "<char>-<char>" instead of "%s" in range list of implicit statement (2)
|
rã ú'rj r. r0 c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra s z>analyzeline: implied-DO list "%s" is not supported. Skipping.
|
c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra s z=analyzeline: changing init expression of "%s" ("%s") to "%s"
|
rç z//Ú_BLNK_c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra Î s rè zR\A\s*(?P<name>\b\w+\b)\s*((,(\s*\bonly\b\s*:|(?P<notonly>))\s*(?P<list>.*))|)\s*\Zr= ZnotonlyÚonlyc S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra á s z7\A\s*(?P<local>\b\w+\b)\s*=\s*>\s*(?P<use>\b\w+\b)\s*\ZÚlocalz0analyzeline: Not local=>use pattern found in %s
|
Úmapz0analyzeline: Could not crack the use statement.
|
)rì rì Zusercodez-analyzeline: No context for multiline block.
|
z+analyzeline: No code implemented for line.
|
)Ir¹ r# r r r ru rv Úbasenamer rú r- r r
|
r r r· r¦ r¸ r¨ rN ÚdictrT rd rù Úremover r r r³ rµ r] r= r> rû ÚcopyÚdeepcopyrO r¬ rE r Úcracktypespec0Ú
|
updatevarsrò r Úfindr$ r¿ rM Ú namepatternrL rô rG rZ Úget_parametersÚdetermineexprtyperF Ú real16patternÚfinditerÚstartrÔ ÚevalÚ SyntaxErrorÚ NameErrorÚ TypeErrorÚtypespattern4implicitÚ cracktypespecr© ÚordÚchrrz Ú
|
isinstancer Úappendmultiline)>rÌ r8 r+ r Znewnamer\ rM rÊ r r Z
|
needmoduleZ needinterfaceÚitrD Útr/ ÚselectorÚattrÚedeclrO Ú last_namerÄ rl ÚplÚchrl r, ZapZinitexprrJ ÚttÚvrÇ ÚimplrB r- Ú
|
kindselectÚ
|
charselectr9 r ZbegcZendcÚoÚdlZilr ZfcÚinpr r rÆ ÚjZllenZclZbnÚolZ commonkeyÚmmZisonlyrÉ rö Úgcr$ r$ r% r& Ý s
|
ÿÿÿ
|
|
|
|
|
|
ÿ
|
|
|
ÿ
|
|
|
|
ÿÿ
|
ÿÿ ÿ
|
ÿ ÿ
|
|
ÿ ÿ
|
ÿ
|
|
ÿ
|
ÿ
|
|
|
ÿ
|
|
ÿ
|
|
|
$
|
ÿ
|
ÿ
|
|
ÿ
|
ÿÿ
|
|
|
|
ÿÿÿÿ
|
|
|
|
ÿ
|
|
ÿ
|
|
ÿ
|
ÿ ÿÿ
|
|
|
ÿ ÿÿÿ ÿ ÿ
|
|
|
|
ÿ "ÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
ÿ &ÿ"
|
0
|
ÿ
|
|
|
|
|
|
|
ÿ
|
|
ÿÿ
|
ÿ
|
|
|
|
|
þ
|
r& c C s: d| kri | d< | d }||kr(g ||< || |¡ d S )NZf2pymultilines©rû )r¹ Z context_nameÚmlrö r$ r$ r% r s r c C sÞ d }d }t d| t j¡r d} n"t d| t j¡r4d} n | ¡ ¡ } t t|¡}|s^td d S | ¡ }t |
|
¡ D ]}t || ||< qr| dkr |d }|d }| d ¡}|d
|
krÒ|d |
¡ }||d d
}| |||fS ) Nzdouble\s*complexúdouble complexzdouble\s*precisionzdouble precisionz>cracktypespec0: no kind/char_selector pattern found for line.
|
)rm r1 Úlogicalr0 Ú characterrW r rð rg r r ) r¦ r¸ r¨ r r· Ú selectpatternr$ r- rô r= r> r4 r| )r/ rÄ r r r, rö rD rl r$ r$ r% rz s0 ÿ
|
rz z)\s*(?P<name>\b\w+\b)\s*(?P<after>.*)\s*\ZzB\s*(\(\s*(kind\s*=)?\s*(?P<kind>.*)\s*\)|\*\s*(?P<kind2>.*?))\s*\Zz2\s*(\((?P<lenkind>.*)\)|\*\s*(?P<charlen>.*))\s*\Zz§\s*(kind\s*=\s*(?P<kind>.*?)\s*(@,@\s*len\s*=\s*(?P<len>.*)|)|(len\s*=\s*|)(?P<len2>.*?)\s*(@,@\s*(kind\s*=\s*|)(?P<kind2>.*)|(f2py_len\s*=\s*(?P<f2py_len>.*))|))\s*\Zz¿\s*(@\(@\s*(?!/)\s*(?P<array>.*?)\s*@\)@\s*\*\s*(?P<len>.*?)|(\*\s*(?P<len2>.*?)|)\s*(@\(@\s*(?!/)\s*(?P<array2>.*?)\s*@\)@|))\s*(=\s*(?P<init>.*?)|(@\(@|)/\s*(?P<init2>.*?)\s*/(@\)@|)|)\s*\Zc C s | ¡ } t| dkr| S | d }tdt| d D ]>}| | dkrd| |d dks2| |d dkrdq2|| | }q2|| d }|S )Nr r r z ()[]{}=+-/* r )r rM r© )ÚexprZexpr2rl r$ r$ r% Ú removespaces? s ÿþ r¨ c C s~ d}d}d}d}| D ]d}|dkr6|dkr6||7 }|}q|sF|dkrF|}||krV| }n|dkrl|rl|d7 }q||7 }|}q|S ) a(
|
The function replace all spaces in the input variable line which are
|
surrounded with quotation marks, with the triplet "@_@".
|
|
For instance, for the input "a 'b c'" the function returns "a 'b@_@c'"
|
|
Parameters
|
----------
|
line : str
|
|
Returns
|
-------
|
str
|
|
r FNri )ri rp ú")rp r© r ú@_@r$ )r+ ÚfragmentZinsideZ current_quoteÚescapedr r$ r$ r% ÚmarkinnerspacesN s& r c C sì d }t | |\}}}|rdd t| d¡D }g }t d¡} |D ]D}
|
|
|
sLqB| |
|
¡} | r|| d¡ ¡ } | |
|
t| d
}
|
| |
|
¡ qB|}dd t| d¡D } g }| D ]D}dd tt
|
t |dd d
|
¡D D ]}|rÔ| | d d¡¡ qÔq¬|D ]î}t |¡} | s td t| qöt| d ¡}i }|tt d krXtt d | ¡ }d|k}|rn| |d< n*| r| |d kstd||d | f d|kr²t |¡|d< nv|r(t| ¡ D ]b}||d kr|| |d | kstd|||d | || f nt || ¡|d |< qÄd|krZ|rZ|rH||d< ntd||f nv|rÐt| ¡ D ]b}||d kr¶|| |d | ks¶td|||d | || f nt || ¡|d |< qld|krä||d< n*|r|d |kstd||d |f d|kr(t |¡|d< n.|r|D ]"}
|
|
|
|d kr2|d |
|
¡ q2n@t | ¡|d< t |¡|d< t |¡|d< ||d< t |¡|d< d| d¡p¨g krì|tt d krìdtt krÚg tt d< tt d |¡ | d ¡rt t| d ¡¡}|rx| ¡ }d D ]2}||d d k r ||d ||< ||d = q t| ¡ D ],}|| d k rt|| ||< n||= q^d |kr(| d krÔd|ks´|d s¼i |d< |d |d d!< |d = nT| d"kr(d|ksò|d súi |d< d |d kr|d d = |d |d d!< |d = d#|krvd$|krj|d$ |d# ksjtd%||d$ |d# f n |d# |d$< d |kräd&|krä|d d'kr¬|d& |d < |d&= n8|d& d( |d |d&< |d = td)| || ||d& f d&|krd*|d& }d|ks|d s|g|d< n\|d |¡ |d D ]D}|d d+
d,kr0||kr0|d d-= td.|||f qq0ntd/|| d ¡ t| ¡ D ]}|| s||= q|tt d |< d0tt krâtt d0 |¡ |}qö|S )1Nc S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra y s z updatevars.<locals>.<listcomp>r÷ z(?P<start>[a-zA-Z]+)r c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra
s c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra s r ©r3 z@ @rª z;updatevars: no name pattern found for entity=%s. Skipping.
|
r\ r r/ zIupdatevars: attempt to change the type of "%s" ("%s") to "%s". Ignoring.
|
r6 zVupdatevars: attempt to change the kindselector "%s" of "%s" ("%s") to "%s". Ignoring.
|
r7 zEupdatevars:%s: attempt to change empty charselector to %r. Ignoring.
|
zVupdatevars: attempt to change the charselector "%s" of "%s" ("%s") to "%s". Ignoring.
|
r9 zMupdatevars: attempt to change the typename of "%s" ("%s") to "%s". Ignoring.
|
r5 rÚ r r rð )rM ÚarrayÚinitÚ2rM ©rm r1 r¤ r0 r r¥ r° r8 zTupdatevars: attempt to change the init expression of "%s" ("%s") to "%s". Ignoring.
|
r¯ r rø z-updatevars: "%s %s" is mapped to "%s %s(%s)"
|
ú dimension(%s)é rÙ r z5updatevars:%s: attempt to change %r to %r. Ignoring.
|
z?updatevars: could not crack entity declaration "%s". Ignoring.
|
rd ) r rù rú r¦ r§ r¸ r¹ r· rM rû r¨ r rµ r} r- r³ r] r r rx r= r> rZ rF Úlenarraypatternr$ rô r4 )r/ r r5 Z
|
entitydeclr r r r9 rÆ r rü rÌ ÚsÚelZel1rl Úe1Zenamer Znot_has_typespecrD r, Úd1ÚlkÚdmZdm1r$ r$ r% r{ s sB
|
|
(
|
|
|
ÿ
|
ÿ
|
$
|
ÿ
|
|
ÿ$
|
ÿ
|
|
|
ÿ
|
(
|
|
|
|
|
|
ÿ
|
ÿ
|
|
ÿ ÿ
|
|
r{ c C s d }d }d }|r| dkrt |¡}|s<tdt| d S | ¡ }|d |d< |d= t| ¡ D ]}|| sb||= qbt| ¡ D ]\}}t|||< qnf| dkr°t |¡}|sÈtdt| d S | ¡ }|d |d< |d= |d r`t
|
t |d ¡}| ¡ }d D ]:}||d
|
r,||d
|
||< || ||< ||d
|
= q
|
|d d k r`|d |d < |d= t| ¡ D ]}|| sr||= qrt| ¡ D ]\}}t|||< qnR| d kròt d |t j ¡}|rÜ| d¡}ntdt| | ntdt| |||fS )Nr² z4cracktypespec: no kindselector pattern found for %s
|
Zkind2r r¥ z4cracktypespec: no charselector pattern found for %s
|
ZcharlenÚlenkind)rM Úkindr± Zf2py_lenrW z\s*\(\s*(?P<name>\w+)\s*\)r\ z'cracktypespec: no typename found in %s
|
z'cracktypespec: no selector used for %s
|
)r6 r¸ r- r³ rô r= r> Úitemsr] r7 Úlenkindpatternrù r¦ r¨ r¹ ) r/ r r r r9 rD rl r¼ rº r$ r$ r% r st
|
|
ÿ
|
|
|
ÿ
|
|
ÿ
|
|
|
|
ÿÿr c C sê | si } |s| S d| kr&|g| d< | S |r8| d |¡ || d krH| S |dkrld| d krl| d |¡ nz|dkrd| d kr| d |¡ nV|dkr´d| d kræ| d |¡ n2|dkrØd| d kræ| d |¡ n| d |¡ | S )Nr5 rA Ú automaticrÝ rÞ r¡ )rB r rC r$ r$ r% r? I s.
|
r? c C sZ | si } |s| S d| kr$|| d< | S t | ¡ D ]$}|sD|| d kr0|| | d |< q0| S )Nr6 ©r= r> ©rB ÚselrC rD r$ r$ r% r@ d s r@ c C sZ | si } |s| S d| kr$|| d< | S t | ¡ D ]$}|sD|| d kr0|| | d |< q0| S )Nr7 rÁ r r$ r$ r% rA r s rA Úunknownc C s d| kr| d S |S )Nr\ r$ )r rÄ r$ r$ r% Ú getblockname s rÅ c C s2 zd| d | d f a W n tk
|
r, Y nX d S )Nz
|
In: %s:%s
|
rV r\ )r r¬ )r r$ r$ r% Ú setmesstext s rÆ c C s2 i }d| krt | d }d| kr.| | d ¡ |S )NÚ parent_blockrè )Ú get_usedictÚupdate)r Úusedictr$ r$ r% rÈ s rÈ c C s |d kr i }t | }|s |S t| ¡ D ]\}}| ¡ }|tkrXtd|| d¡f q(t| }t|}|snq(|r~td| t| ¡ D ]0\}}||kr²tdt |t |f |||< qq(|S )Nz0get_useparameters: no module %s info used by %s
|
r\ z,get_useparameters: mapping for %s not impl.
|
zEget_useparameters: overriding parameter %s with value from module %s
|
)
|
rÈ r= r¾ r· r r- rF r~ rZ r³ ) r Ú param_maprÊ ZusenameÚmappingÚmvarsrJ rD r r$ r$ r% Úget_useparameters s2 ÿ ÿ rÎ c
|
sâ t s| S t| tr* fdd| D }|S t| td| d f d d krXt| d k r¾d| kr¾| d }t| ¡ D ]@}|| }d|kr||d }d|kr||d }| kr| | |d< q| fd d| d
|
D } | | d
|
< | S ) Nc s g | ]}t |d dqS ©r )ÚtabrË ©Ú
|
postcrack2)r_ Úg©rË rÐ r$ r% ra ¿ s ÿz postcrack2.<locals>.<listcomp>ú %sBlock: %s
|
r\ r r r6 r½ c s g | ]}t |d dqS rÏ rÑ ©r_ ÚbrÔ r$ r% ra Ò s ÿrÿ )r r r= rÆ r- rÎ r> )
|
r rÐ rË Úretr r Úvarr½ ÚvalZnew_bodyr$ rÔ r% rÒ ¹ s4
|
ÿ ÿrÒ c C sP t | trfg }g }| D ]F}t| t||d d}d|krRd|d krR| |¡ q| |¡ q|| S t| t | tsd| krtdt| d| krº| d dksºtd|| d f d t | } t
|
| } t | | d
|
< t | d
|
| d < d | krþ| d rþ| d }t | ||d| d < g }d| krP| d }t| ¡ D ]}d|kr2| |¡ q2ni }d} d| krj| d } d| kr>| d r>g }
|
d| kr| d }
|
t | d
|
¡} | r²| d } nd} | |krîd} d| | f |krâ| d } qÄd| | f } dg i | d d}| d D ]ð}||
|
krÎg }d}| d D ]}|d }|d dkr&d} |d D ]@}| d } d|krL|d |krLt |¡}|d | = qqL|r&|d s¨| d |= |
|
|
|
|¡= q¾q&|d |¡ n(|| krt| | s| | |d
|
|< q|d
|
s|d r>|
|
| d< d|gi | | d d}i || < t |¡ |rL|| d< | S ) zi
|
TODO:
|
function return values
|
determine expression types if in argument list
|
r ©rÐ r\ rj r z0postcrack: Expected block dictionary instead of ra rÕ r r Zsortvarsr rÿ rè r r r Z__user__routinesZunknown__user__routinesr z%s_%ir[ Z_user_interface)r rÿ r r\ r rX )r rÿ r r\ r )r r= rÆ Ú postcrackrû rv r¬ r r- Ú analyzeargsÚ analyzecommonÚ analyzevarsÚ sortvarnamesÚ analyzebodyr> rx rO Z
|
isexternalr )r r rÐ ZgretZuretrÓ Z userisdefinedZuseblockrD r\ r rÍ Zmnamerl r[ rl Zedefr r× ZbbZmblockr$ r$ r% rÜ Ù s®
|
ÿ
|
|
|
|
|
|
ÿ
|
|
|
|
|
|
|
ÿ ÿ
|
rÜ c C sþ g }g }t | ¡ D ]2}d| | kr<| | d r<| |¡ q| |¡ qt|}d}|rú|d }d}|dd
D ] }|| | d krpd} qqp|rÖ|dd
|g }|d }||krøtdd |¡ d || }qúqT| |¡ |dd
}t|}d}qT|S )Nr< r r zTsortvarnames: failed to compute dependencies because of cyclic dependencies between ú, r¢ )r= r> rû rM rZ r¿ )r ZindepÚdepr r rl r) Úwr$ r$ r% rà 9 s> þþ
|
rà c C s t | s | S g }t| d ¡ D ]<}g }| d | D ]}t d|tj¡}|r2g }| d¡r~dd t| d¡ d¡D }t | d¡
|
¡ }|| d krìd | d | krÎ| d | d d
|
d |¡ ¡ n d
|
d |¡ g| d | d < n0|rd d
|
d |¡ gi| d |< n i | d |< ||krF| |¡ n|}t d ||f | |¡ q6|| d |< q d | krt|| d < n| d | | d < | S )Nrç z2\A\s*\b(?P<name>.*?)\b\s*(\((?P<dims>.*?)\)|)\s*\ZÚdimsc S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra g s ÿz!analyzecommon.<locals>.<listcomp>r÷ r\ r r5 r³ rø zNanalyzecommon: failed to extract "<name>[(<dims>)]" from "%s" in common /%s/.
|
Ú
|
commonvars)Z hascommonr= r> r¦ r¸ r¨ r¹ rù rú r] r rû r¿ rZ )r ræ rD Zcomvarsrl rÌ rå r r$ r$ r% rÞ [ sT ÿ
|
ÿ ÿ ÿ ÿ
|
|
ÿ
|
|
rÞ c C s
|
t | g }| d D ]ð}| |d< |d dkr|d k rD|d |krDqn|d }|d tkrZqtrl|d tkrlqt|ddd |d
|
< n|}t|||d d }|d d kr¾|d s¾| d¡s¾d|kr¾q|d dd¡dkrÞt |¡ q|d dkrú|d t |d < | |¡ q|S )Nrÿ rÇ r re r\ r z
|
T©Ú as_interfaceZsaved_interfacer rÛ r_ rk rì r r Ú pythonmoduler` r )
|
rÆ r r! Úcrack2fortrangenrÜ rF rµ r rû r )r r rÐ rÿ r× Zas_r$ r$ r% rá s@ ÿ ÿÿ rá c C s t | t}i }d| kr| d d krFd }tdkrtdt| d nRt| d ¡ D ]@}| d | d¡dkr| d | ||< qV| d | d ||< qV||fS )Nr× r z6buildimplicitrules: no implicit rules for routine %s.
|
r\ r/ )rA rÀ )rÆ Údefaultimplicitrulesr r- r³ r= r> rF )r Ú implicitrulesÚ attrrulesrD r$ r$ r% Úbuildimplicitrules© s ÿrî c C s0 t | ||}t|ttfkr |S td| dS )z2 Like `eval` but returns only integers and floats zr=%rN)r rW r2 r4 r» )rl rÓ rÆ r r$ r$ r% Úmyeval¼ s rï z \A\b\w+\b\Zc C s z t t| i i }d|dfW S tk
|
r0 Y nX t | ¡rFdd| fS t| }|D ]²}t||krfqRt d| d | ¡r|qRt d| d tj ¡}| | ¡}|rRzF| | ¡}|rØd|
|
d ¡d|
|
d
|
¡f }| |¡}q®t|i i } | | ¡}|rd|
|
d ¡d|
|
d
|
¡f }| |¡}qît|i i | }
|
| | ¡}|rbd|
|
d ¡d |
|
d
|
¡f }| |¡}q4t|i i }| | ¡}|r¦d|
|
d ¡d |
|
d
|
¡f }| |¡}qxt|i i } |
|
d | |kræ|
|
d | | kræ|
|
| |fW S W n tk
|
rþ Y nX qqRd S )a
|
Obtain ``a`` and ``b`` when ``e == "a*x+b"``, where ``x`` is a symbol in
|
xset.
|
|
>>> getlincoef('2*x + 1', {'x'})
|
(2, 1, 'x')
|
>>> getlincoef('3*x + x*2 + 2 + 1', {'x'})
|
(5, 3, 'x')
|
>>> getlincoef('0', {'x'})
|
(0, 0, None)
|
>>> getlincoef('0*x', {'x'})
|
(0, 0, 'x')
|
>>> getlincoef('x*x', {'x'})
|
(None, None, None)
|
|
This can be tricked by sufficiently complex expressions
|
|
>>> getlincoef('(x - 0.5)*(x - 1.5)*(x - 1)*x + 2*x + 3', {'x'})
|
(2.0, 3.0, 'x')
|
r Nr z\w\s*\([^)]*\bú\bú(?P<before>.*?)\bú\b(?P<after>.*)z%s(%s)%srï rð g à?g ø?)NNN) r2 rï r¬ Úgetlincoef_re_1r¸ rM r¦ Úsearchr§ r¨ r¹ ) rl Zxsetr Zlen_er^ r+ rÌ r, Úeer× rü Úc2r$ r$ r% Ú
|
getlincoefÆ sv
|
|
|
|
|
ÿ
|
ÿ
|
ÿ
|
ÿ $r÷ z\b[a-z][\w$]*\bc C sÎ | |kr®|| dg ¡}d|| krjt|| sjt || d ¡D ]&}||krB||krB|| krB| |¡ qB|d d
D ]4}| |g ¡pt|||D ]}||kr| |¡ qqvntdt| g }||| < |S )Nr< r8 z,_get_depend_dict: no dependence info for %s
|
)rF ÚisstringÚ word_patternÚfindallrû Ú_get_depend_dictr- r³ )r\ r ÚdepsÚwordsÚwordrä r$ r$ r% rû s
|
ÿrû c C s* t | ¡ }i }|D ]}t|| | q|S r' )r= r> rû )r rc Ú depend_dictr r$ r$ r% Ú_calc_depend_dict' s
|
r c s t g }t ¡ D ] } | s| |¡ |= q rt ¡ D ]8\}} fdd|D }|sv| |¡ |= qF| |< qFq6fdd|D S )z
|
c s g | ]}| kr|qS r$ r$ )r_ r )rÿ r$ r% ra : s z$get_sorted_names.<locals>.<listcomp>c s g | ]}| kr|qS r$ r$ )r_ r\ ©r r$ r% ra @ s )r r= r> rû r¾ )r rc r\ ÚlstZnew_lstr$ )rÿ r r% Úget_sorted_names/ s
|
|
r c C s@ | d dkr| dd
} t | ¡r&dS t | ¡r4dS d| d S ) Nr ú'"r r é é zkind(r0 )r r¸ Ú real8pattern)rT r$ r$ r% Ú
|
_kind_funcC s
|
|
r c C sL d| }|dkrdS |dkr dS |dkr,dS |dkr8d S |dd
|
krHd S d S ) Nr é r i r l r l r é é r r$ )r rÌ r$ r$ r% Ú_selected_int_kind_funcN s r c C sX | dk r dS | dk rdS t ¡ ¡ }| d¡r<| dkrTdS n| dk rHdS | dkrTdS d S )
|
Né r r r )Úaarch64ÚpowerÚppcZriscvÚs390xZsparcé é r r )ÚplatformÚmachiner· rz )Úpr Úradixr r$ r$ r% Ú_selected_real_kind_func^ s
|
r c C s t |¡}t |¡}dtfdtfdtffD ]\}}||kr*|||< q*g }t| D ]*}d| | krPd| | d krP| |¡ qPt dtj¡}t dtj¡} t dtj¡}
|
|D ]j}d | | krú| | d } t | | rò|
|
¡ } d
|
D ]} | j | } qâ| d | ¡} | d | ¡} d } d| | kr^d| | d kr^t | }| d| | d d d¡} t | |k } | s®|
|
| ¡s®| d¡}t |dkr®d |d d
¡
|
¡ |d
|
¡ d¡} t| | rt| }t | ¡D ]:}t| | ¡ | ¡
|
¡ dd¡|| ¡ | ¡
< qÎd |¡} n t| | r4td| d t | ¡rFd} nt | ¡rVd} zt| ||||< W n@ t k
|
rª } z | ||< td|t | f W 5 d }~X Y nX t | | rÚt || t rÚt!|| ||< |
|
¡ }||kr|| ||< qªt"| | tdt | qª|S )Nr½ Zselected_int_kindZselected_real_kindr5 râ z \bkind\s*\(\s*(?P<value>.*)\s*\)z-\bselected_int_kind\s*\(\s*(?P<value>.*)\s*\)z4\bselected_(int|real)_kind\s*\(\s*(?P<value>.*)\s*\)r8 ))z.false.ÚFalse)z.true.ÚTruez
|
kind("\1")zselected_int_kind(\1)Fr6 rÊ r r r rö rl zAget_parameters[TODO]: implement evaluation of complex expression r¢ r r z get_parameters: got "%s" on %s
|
z2get_parameters:parameter %s does not have value?!
|
)#rx r r r r rû r¦ r§ r¨ Z islogicalr· rµ ÚsubrM r¸ rú r¿ Zisdoubler= r r r rÔ Z iscomplexr- rô r r r¬ r³ rø r r2 r rL )r Z global_paramsrJ Zg_paramsr\ ÚfuncZ param_namesr Zkind_reZselected_int_kind_reZselected_kind_rer ÚreplZ is_replacedZ
|
orig_v_lenZv_r rÌ rÇ Únlr$ r$ r% r~ q s
|
|
þ
|
ÿ ÿ
|
|
&
|
ÿ &
|
|
ÿr~ c C s | dkr dS t | |S )N)z(:)ú(*)r r )Ú _eval_scalar)ÚlengthrJ r$ r$ r% Ú _eval_lengthÏ s r" z\d+_c
|
C s t | r| d¡d } z&t| i |} t| tr2tnt| } W nX tttfk
|
rZ | Y S t k
|
r } z t
|
d|| t | ¡ f W 5 d }~X Y nX | S )NrÊ r z,"%s" in evaluating %r (available names: %s)
|
) Ú_is_kind_numberrú r r r r³ r
r r r¬ rZ r= r> )ÚvaluerJ rÇ r$ r$ r% r × s þr c @ sî t | t| \}}t | d ¡| d dkrF| d krFi | d < d| d krÄd= d| d d krÄ| d d d }ttdd | d D B D ],}d
|
D ]"}||krt |i ¡||< qqg }| d }|D ]2}z| | |¡ W qÔ tk
|
r Y qÔX qÔt ¡ D ]}||kr| |¡ qt
|
t | } i }
|
t d ¡j} t ¡ D ]d} | | } | rZ| | ¡ | ¡
}z |
|
| W n. tk
|
rº t d | t j¡j|
|
|< Y nX qZ|D ]Ö}|d t| ¡ krút| ||d |< d| krîd| kr(d| d ksî|rÈ|d ¡ }t|| ¡ D ]z}|dkrn|| | dkrnqJ|| kr|| | | |< n0|dkrJ|| | D ]}t| ||< q¨qJn&|| d krîtdt|| d f d| krZd| d krZ| d d }ztt|i | }W n tk
|
rH Y nX || d d< d| krÆd| d krÆ| d d }ztt|i | }W n tk
|
r´ Y nX || d d< i }d| krô| d }| ¡ g | d< d\}}}}}|D ]}|d d
dkr<|dd
¡ dd
}nÂ|d d
d krh|d d
¡ dd
}n|d d
d kr|d d
¡ dd
}nj|d d
d krÀ|d d
¡ dd
}n>|d d!
d"krì|d!d
¡ dd
}nt| ||< |rrd | kr g | d < d#d$ t| d%¡D D ]6}| d&d¡}|| d kr6| d |¡ q6d }|rÄ| d'd(¡}| d)d*¡}d"| kr®|g| d"< n| d" |¡ d }|d k r4d | krèg | d < t d+d$ t| d%¡D D ]*}|| d kr| d |¡ qd }|d k r
|
d | krXg | d < d,d$ t| d%¡D D ]*}|| d krp| d |¡ qpd }q
|
|rôd| krôg | d< t d-d$ t| d%¡D D ]}|d.krôd.nd/}|| krt| | }| D ]Z}t d0| d1 t j¡} | |¡} | r| d2¡t| | | d3¡ }| |¡} q6q||kr|g} nt|d. d4¡} t | d5kr²d/| kr²d/g} d/}t | dkrÚ| d |krÚd6| d g} t | d5krÞt t!j"j#| \} } | | d } | j$t!j%j&d7}i }!| d D ]²} t! '| ¡}"| (|"¡r"z:| )|"¡\}}#||#fd8d9}$t| *¡ }%|% +|# *¡ ¡ W n4 t,k
|
rª }& zd }$t| *¡ }%W 5 d }&~&X Y nX tfd:d|%D }'|$t|'f|!| < q"|!||< | d |¡ qàd | k r¦d | k r¦|| d k r¦| d g ¡}(g })t-t.t/t0| }*t1| rÞt2| d D ]x\}+}| |¡ d k rn¬|* r. 3¡ D ]\} \},}- fd;d<t }.| |. | |(k sd=| k sd | k ræ q|,d k
|
rx| |.k
|
rxd>}/|,t! 'd?| d@|+ dA¡}0|0j$t!j%j&d7}0|0| d=< |g|- | d < d | k
|
ràd?| d@|+ dB| g| d < nhdC}/d | k
|
rg | d < dD| d k
|
rº| d dD¡ |( | ¡ |) d?| d@|+ dB| ¡ | dg ¡}1dE|1k sdF|1k s|1 |/ rdFndE¡ |1 r|1| d< q d k r` 3¡ D ]\} \},}-| d g ¡}'| dg ¡D ]8}2|2 4d ¡ rld 5|2 ¡ ¡}2|' 6|2dGd
dH¡¡ ql|' rÀtt|'| d < ||'k r@|( | ¡ q@ q`nt7| rzd| k rzd/| d k r4t8| d d/ | }3|3| d d/< nFd| d k rzt8| d d | }3| d d= |3| d d/< |) r|)| d < |( r¦tt|(| d < d=| krÄd| k rÎg | d< dE| d k rdF| d k r| d dE¡ d | k rrg | d < t|
|
3¡ D ].\} } | | d= r*| d | ¡ q*| d sr| d = t9| rÄt:| d= | | d=< qÄt ¡ D ]´}|| d k rªd"| k rÜ| d" | d"< | d dk rªdI| kr | dI kr t;| | dI |< dJ| k rª| dJ }4|4 dKd¡}5|4|5k }6|5 dLd¡}4|4|5k }7t<d |4¡} | rJt=| dM¡| d3¡\}8}9}}:t>|8|9\};}<}=|8| d< |;rôd|;krèzt|;d i | |;d< W n tk
|
ræ Y nX |;| d< |<r|<| d< |=r|=| dN< |6r0t| dK|< |7r^t| dL|< ntdOt| dJ qª| d dPkrêdQ| krt | d | dQ ¡}>nt | d ¡}>t ¡ D ]$}t-t?t@| r¬|> |¡ q¬dR| kr2|> 6t| dR ¡ ¡ t| dR ¡ D ].}| dR | D ]}||>kr|> |¡ qq| d dkrhdI| krZ|> | dI ¡ n|> | d ¡ | d dSkr¦| d }?|?kr¦d |? kr¦|? d | d < | d dTkrÆ|> 6t ¡ ¡ t ¡ D ]}||>krÒ|= qÒS )UNr r rÑ r\ r r5 c s s | ]}|d V qdS )r\ Nr$ rÖ r$ r$ r% Ú <genexpr>ó s z analyzevars.<locals>.<genexpr>rÿ rh r z[A-Za-z][\w$]*z.*\b%s\br r/ rÚ Z undefinedzCanalyzevars: typespec of variable %s is not defined in routine %s.
|
r7 rM r6 r½ )NNNNNr´ rÙ r r r rá r< r r; r r: c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra I
|
s z analyzevars.<locals>.<listcomp>r÷ r z\n\nz
|
|
z\n r¢ c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra Z
|
s c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra a
|
s c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra g
|
s ú:r rñ rò rï rð z@:@r Ú1)Úlanguagec S s | | | S r' r$ )r¶ rü r× r$ r$ r% Úsolve_v
|
s z analyzevars.<locals>.solve_vc 3 s | ]}|j kr|j V qd S r' )rã )r_ r¶ r r$ r% r%
|
s
|
ÿc s: | d g g¡d D ] }||kr| |¡ || qd S )Nr )rF Úadd)r rü Zv1)Úcoeffs_and_depsÚ compute_depsr$ r% r, ¹
|
s
|
z!analyzevars.<locals>.compute_depsr8 Fzshape(râ r0 z) == TÚinrÛ rÜ r rø r rb ZpureÚ recursiver r9 z'analyzevars: prefix (%s) were not used
|
)r` ré rX rW ræ rå )rÓ rÑ rW )ArÆ rî rx rñ r? rF rû ÚKeyErrorr= r> r~ rÎ r¦ r§ r¸ r rÔ r¨ r· r- r³ r r r¬ Úreverser rù rú rµ rd r¹ rM rt r ZExprÚparseÚtostringZLanguager Z as_symbolré Z linear_solveÚsymbolsrÉ Ú RuntimeErrorZl_orZ isintent_inZisintent_inoutZisintent_inplaceZisarrayÚ enumerater¾ rz r¿ Úextendrø r" Zisscalarr rE r rz r Úisintent_callbackZ isintent_aux)@r rì rí Úgenr rD Zsvarsr rü rJ Z dep_matchesZ
|
name_matchr rÌ Zln0rÆ Zdimension_exprsr Zdimrá r< r; r: r Útmprö Zstarr r+ r r¹ Zd2ZdsizeZsolver_and_depsr¶ r× r) Z all_symbolsrÇ Zv_depsZn_depsZn_checksZ
|
n_is_inputrl Zsolverrü Zall_depsZ is_requiredr° Zv_attrZaar! ÚprZpr1ZispureZisrecr/ r r r r r9 Z
|
neededvarsr\ r$ )r+ r, r r% rß ç s "
|
"
|
|
ÿ
|
|
|
"
|
|
|
ÿÿ
|
|
ÿ&ÿÿ
|
|
|
|
|
ÿ
|
þÿÿ ÿ
|
ÿ
|
ÿ ÿ
|
|
ÿÿ ÿ
|
|
|
|
ÿ ÿ
|
|
ÿ ÿ
|
|
|
|
|
|
rß z\A[a-z]+[\w$]*\Zc C sf | }t | ¡ }|r¦t|\}}t| |d |}d}| D ](} | ¡ } | tjtj krXd} || }q8|d dkrx|d }n|d }|} | |d ks| |d kr¦| d } q| |krØd }
|
| t|
|
|krÌ|
|
d }
|
q²| t|
|
} |rê||d | < nx| |d kr(||d kr |d | |d | < n i |d | < d
|
|krb||d
|
|d krbt |d | d |d | < | S ) Nr Ze_rÊ r rl Ú_er r r r r rÚ )
|
Úanalyzeargs_re_1r¸ rî r r· rT Úascii_lowercaseÚdigitsr r? ) rü r r Zorig_aZ a_is_exprrì rí ÚatÚnar rD r$ r$ r% Ú expr2namec s>
|
|
|
|
rA c C s t | t| \}}d| kr$g | d< g }| d D ]}t|| |}| |¡ q0|| d< d| krt| d ¡ D ]*\}}|D ] }|| d krxi | d |< qxql| d D ]B}|d |kr d| krÀg | d< |d | d kr | d |d ¡ q d| kr| d | d kri | d | d < | S )Nr rå r rÿ r\ r r )rÆ rî rA rû r= r¾ )r rì rÊ r rü rD Zargs1r× r$ r$ r% rÝ s. rÝ z\A\(.+?,.+?\)\Zz \A[+-]?\d+(_(?P<name>\w+)|)\Zz*\A[+-]?[\d.]+[-\d+de.]*(_(?P<name>\w+)|)\Zz
|
\A\(.*\)\Zz \A(?P<name>\w+)\s*\(.*?\)\s*\Zc C sT t | trddiS t | tr$ddiS t | tr6ddiS t | trD| S tt| d S )Nr/ r1 r0 rm )r r2 r4 rm rv rò r³ )r r$ r$ r% Ú_ensure_exprdictª s
|
|
|
|
rB c C s¸ | |krt || S | ¡ } t | ¡r.ddiS t | ¡}|rjd| ¡ krb| d¡rbtdt| ddiS t | ¡}|r¦d| ¡ kr| d¡rtdt| ddiS dD ]J}dd t
|
| |d
|
d | d ¡D D ] }||krÒt || S qÒqªi }t | ¡r t | d d
||}nft | ¡}|r| d¡}t | d¡||}|r^d|kr^|d= |s|d |krt ||d S | d dkrdddidS |s´tdt| |S )Nr/ rm r\ z:determineexprtype: selected kind types not supported (%s)
|
r1 r0 )ú+ro r rj c S s g | ] }| ¡ qS r$ r\ r] r$ r$ r% ra É s z%determineexprtype.<locals>.<listcomp>r® r2 r r r5 r r r¥ r )r/ r7 z>determineexprtype: could not determine expressions (%s) type.
|
)rB r Údetermineexprtype_re_1r¸ Údetermineexprtype_re_2rô r¹ r- r³ Údetermineexprtype_re_3rù rú Údetermineexprtype_re_4r Údetermineexprtype_re_5)r§ r ÚrulesrÌ Úoprl r Zrnr$ r$ r% r ¶ sT
|
|
|
ÿ
|
|
ÿ(
|
|
|
ÿr r¢ Fc C sî t | d}t| trf| D ]F}|rN|d dkrN|d tkr<qtrN|d tkrNq|t|||d }q|S d}d}d}| d }|dkrdS g } d| kr| d }d| krø| d }
|
| d D ]&} t| | | } t|
|
| s²| | ¡ q²| d d ksê| rød
|
d | ¡ }d} d | kr:t| d
|
¡ D ]"} d | |t | | d | f } q| dg ¡d d
}|d krld|krl| d¡ |rd| |t d |¡|f } d}d| kr¬t| d |t }d}d| krÌt| d |t }|dkrÚd}d}d| krd| d }| d | kr| | d ¡ t| d |t |d}t| | d | |t |d}
|
d}d| kr`|s`d| d }d| kr¬d}t| d ¡ D ]$\} }d||t | d |¡f }q~|| }|dkrÄ|d krÄd}d |||||||| ||
|
|||||f }|S ) Nr r re r\ rç rU r r rÑ z(%s)rø rì z %s%s%s %srá Úcallbackz%s%sintent(%s) %srè rç ra r z result (%s)rÿ rV z! in %srå z%s%sentry %s(%s)rW rZ z%%s%s%s %s%s%s %s%s%s%s%s%s%send %s %s)rÆ r r= r r! rê rA r7 rû r¿ r> r rF rw Ú use2fortranÚcommon2fortranÚ vars2fortranr¾ )r rÐ rè rØ rÓ rb r\ r Z blocktypeZargslr rü rì rD Z
|
intent_lstrè rç r rÿ ZmessZ entry_stmtsrl r$ r$ r% rê ã sÄ
|
|
|
ÿ
|
|
ÿÿ
|
|
|
|
ÿ
|
ÿ ÿrê c C sV d}t | ¡ D ]@}|dkr6d||d | | ¡f }qd|||d | | ¡f }q|S )Nr rq z %s%scommon %srø z%s%scommon /%s/ %s)r= r> r¿ )rç rÐ rØ rD r$ r$ r% rM . s rM c C s d}t | ¡ D ]ö}d|||f }| | i krL|r|d dkr|d d
}qd| | krl| | d rld| }d| | krê| | d rêd}t | | d ¡ D ]L}|| | d | krÈd |||f }d}qd
|
|||| | d | f }d}q|r|d dkr|d d
}q|S ) Nr z %s%suse %s,r rø rr z%s only:rt r ú%s%s%sz
|
%s%s%s=>%srÁ )rè rÐ rØ rÌ r rD r$ r$ r% rL 8 s( rL c C sT | d }g }|D ]>}zt d| }W n tk
|
r: Y qX || r| |¡ q|S )Nrá z isintent_%s)Úglobalsr/ rû )rÙ r rØ rá r r$ r$ r% Útrue_intent_listP s rQ c C s. t | d}g }|D ]}|| d kr| |¡ qd| krn| d D ],}||kr`||krl| |¡ q@td| q@d| kr| | d ¡ |s¬t| ¡ D ]}||kr| |¡ q|D ]v}d|| kr
|
|| d D ]8}||krÐd|| krÐ||| d krÐtd||f qÐd| krÄ|| d krÄt|| r>d |||f }d
|
|||f }t|| rhd |||f }||krd || krq°d } | d D ],}
|
||
|
d kr|
|
d dkrd} q¼q| rÄq°||krät| t d| q°|| d kr | d dks°|
|
d¡r q°d || krld|| krRd|| d krR||kr°d
|
|||f }q°t|| t d| q°|| d } | dkr¤d|| kr¤d| || d f } i } d|| krÄ|| d } nd || krÞ|| d } d | kr| d d krd | | d f } nd | | d f } nZd!| krZd"| | d! f } d#| krPd$| | d# f } nd%| } nd#| krtd&| | d# f } d'} d|| krÜd(d) || d D }|rÀd*|krÀd+|krÀ| d+¡ |rÜd,| d- |¡f } d-} d.|| kr
|
d/| | d- || d. ¡f } d-} d0|| krBt || }|r>d1| | d- |¡f } d-} d2|| krpd3| | d- || d2 ¡f } d-} d|| krd4| | d- || d ¡f } d-} d5|| kr|| d5 }|| d d6krþz t|}d7|j|jf }W n tk
|
rü Y nX d8| ||f } n d9| |f } d:||| f }q°|S );z&
|
TODO:
|
public sub
|
...
|
r r ræ z7vars2fortran: Confused?!: "%s" is not defined in vars.
|
rd r< zHvars2fortran: Warning: cross-dependence between variables "%s" and "%s"
|
r z%s%sintent(callback) %sz%s%sexternal %sz%s%soptional %sr/ r rÿ r\ r rÑ r z/vars2fortran: No definition for argument "%s".
|
r r5 rÚ z-vars2fortran: No typespec for argument "%s".
|
rW r9 z%s(%s)r6 r7 r )r r& z%s*(%s)z%s*%srM z %s(len=%sr½ z %s,kind=%s)z%s)z %s(kind=%s)r c S s g | ]}|d kr|qS ))rÚ r$ )r_ rÆ r$ r$ r% ra ¸ s ÿz vars2fortran.<locals>.<listcomp>z
|
intent(in)z intent(out)z%s, %srø rÙ z%s%sdimension(%s)rá z%s%sintent(%s)r; z %s%scheck(%s)z%s%sdepend(%s)r8 )rm r£ z(%s,%s)z %s :: %s=%sz%s :: %srO )rÆ rû rZ r6 r= r> r7 Z
|
isoptionalÚshowr- rF rw r¿ rQ r r0 Úimagr¬ )r r r rÐ rè rØ Znoutrü rö rà r× Zvardefr r r r r r$ r$ r% rN ^ sì ÿ
|
$
|
ÿ
|
|
|
|
|
|
|
|
ÿ ÿ rN c C sz t dd t| t t dd g attd }t dd tD ]"}t d|j dd t||}q<t dd t |}t| S )NzReading fortran codes...
|
r zPost-processing...
|
z"Applying post-processing hooks...
|
z r¢ z Post-processing (stage 2)...
|
)
|
r- r½ r r rÜ r Úpost_processing_hooksÚ__name__ÚtraverserÒ )ÚfilesÚpostlistÚhookr$ r$ r% Ú crackfortrané s
|
|
|
|
|
rZ c C s$ t | d }d}dt }|| | S )Nr¢ zE! -*- f90 -*-
|
! Note: the context of this file is case sensitive.
|
z
|
! This file was auto-generated with f2py (version:%s).
|
! See:
|
! https://web.archive.org/web/20140822061353/http://cens.ioc.ee/projects/f2py2e
|
)rê Ú f2py_version)r ÚpyfÚheaderÚfooterr$ r$ r% Ú crack2fortranú s ür_ c C s( t | to&t| dko&t | d ttfS )Nr r )r ÚtuplerM r2 r )Úobjr$ r$ r% Ú_is_visit_pair s
|
|
|
ÿþrb c O s6 t | rR| d dkr| S || ||f||}|dk rDt |s@t|S | }| \}} n d| f}d}t| tr¼g }t| D ]D\} }
|
t| |
|
f|f|||g |d|\} } | dk rt| | ¡ qtndt| tr t }| ¡ D ]B\} }
|
t| |
|
f|f|||g |d|\}}|dk rÖ|||< qÖn| }|dkr.|S ||fS )aí Traverse f2py data structure with the following visit function:
|
|
def visit(item, parents, result, *args, **kwargs):
|
"""
|
|
parents is a list of key-"f2py data structure" pairs from which
|
items are taken from.
|
|
result is a f2py data structure that is filled with the
|
return value of the visit function.
|
|
item is 2-tuple (index, value) if parents[-1][1] is a list
|
item is 2-tuple (key, value) if parents[-1][1] is a dict
|
|
The return value of visit must be None, or of the same kind as
|
item, that is, if parents[-1] is a list, the return value must
|
be 2-tuple (new_index, new_value), or if parents[-1] is a
|
dict, the return value must be 2-tuple (new_key, new_value).
|
|
If new_index or new_value is None, the return value of visit
|
is ignored, that is, it will not be added to the result.
|
|
If the return value is None, the content of obj will be
|
traversed, otherwise not.
|
"""
|
r rÇ N)Úparentsr ) rb rò r r= r5 rV rû rv r¾ )ra Úvisitrc r r ÚkwargsZ
|
new_resultÚparentZ
|
result_keyrO r$ Z new_indexZnew_itemÚkeyZnew_keyÚ new_valuer$ r$ r% rV sR
|
|
þþþ
|
þþþ
|
|
rV c
|
O s> |d \}}| \}}dd } |dkrF|d d dks8t |d d }
|
n.|d krp|d
|
d dksbt |d
|
d }
|
nd }
|
d } |
|
d k rª|} |
|
¡ D ]\} } t| r| | | } qnP|d krú|d
|
d d }
|
|} |
|
¡ D ]*\} } t| rÎt d | d d| | ¡} qÎ| d k r:| |kr2td| d| d| d| d d || fS d S )aü Previously, Fortran character was incorrectly treated as
|
character*1. This hook fixes the usage of the corresponding
|
variables in `check`, `dimension`, `=`, and `callstatement`
|
expressions.
|
|
The usage of `char*` in `callprotoargument` expression can be left
|
unchanged because C `character` is C typedef of `char`, although,
|
new implementations should use `character*` in the corresponding
|
expressions.
|
|
See https://github.com/numpy/numpy/pull/19388 for more information.
|
|
r c S s0 t d| d | |¡}t d| d | |¡}|S )Nz[*]\s*\brð z\b\s*[\[]\s*0\s*[\]])r¦ r )Úvarnamer$ r$ r$ r% Ú fix_usagec s ÿz8character_backward_compatibility_hook.<locals>.fix_usage)rÙ r; éýÿÿÿr r r r8 r NZ callstatementz
|
(?<![&])\brð r zcharacter_bc_hook[rh z ]: replaced `z` -> `z`
|
)rò r¾ Z ischaracterr¦ r r- )Úitemrc r r re Z
|
parent_keyZ parent_valuerg r$ rj Z vars_dictrh ri Zvdr$ r$ r% Ú%character_backward_compatibility_hookQ s@
|
ÿ
|
|
ÿrm Ú__main__r& z-quietz-verboser z-fixz?Use option -f90 before -fix if Fortran 90 code is in fix form.
|
z-skipemptyendsz--ignore-containsz-f77z-f90r z-hz-showz-mro zUnknown option %s
|
z OSError: a Warning: You have specified module name for non Fortran 77 code that
|
should not need one (expect if you are scanning F90 code for non
|
module blocks but then you should use flag -skipemptyends and also
|
be sure that the files do not contain programs without program
|
statement).
|
z Writing fortran code to file %s
|
rä )r )r )rø )r )r )r )r )rÄ )N)r N)Nr )r )NN)r r )r¢ F)r )r )r F)ÐÚ__doc__r( rT rª r¦ ru rx r r{ rr Ú ImportErrorr r Zauxfuncsr Úversionr[ r
|
r r r r r r r r r r r¥ r r r r r r r r r
|
r" r r! r# r r r r r& r- Ú _MAXCACHErë r rY re r r] rd rf rg rm r§ r¨ r¸ r¯ rô r r r° r r
r rR r½ ZbeforethisafterZ fortrantypesr r r r Z groupbegins77r± Z groupbegins90r² Z groupendsr Zendifsr Zmoduleproceduresr" r r r r r r r r r r r r r! r% r r r r ÚSr r r¶ rý r# r r$ rù r4 rE r¦ rK rQ rR rS r r rG rH rN rT r& r rz r} r6 r7 r¿ rµ r¨ r r{ r r? r@ rA rÅ rÆ rÈ rÎ rÒ rÜ rà rÞ rá rî rï ró r÷ rù rû r r r r r r~ r" r# r rß r< rA rÝ rD rE rF rG rH rB r rê rM rL rQ rN rT rZ r_ rb rV rm rû rU rW Úfuncsr Úf2Zf3Z showblocklistÚargvrÆ rZ r³ rx rÁ ÚOSErrorZdetailrX r\ r* r$ r$ r$ r% Ú<module> s
|
&
|
|
f ÿÿ ÿÿ
|
ÿÿ
|
ÿÿ ÿÿÿþ ÿÿ ÿÿ ÿÿ ÿþ ÿÿ
|
ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ
|
ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ
|
|
ÿÿ ÿÿ ÿþ ÿþ ÿÿÿ 5
|
ÿ ÿý ÿ% < `"+ # H ^ { % ÿ - K
|
B<
|
|
|
|
|
|
ÿ
|
|
|
|
|
|
&ú
|
