y Z? ej< dej= j> Z@ ej< d ej= j> ZA ej< d ej= jB ZCg d ZDg d ZEd ZFd! ZGeHdfd"ZId#ZJd$ZK ej< eJd
eKeKd%fz ej= d&fZL ej< eJd
eKd'z eKd'z d%fz ej= ZM ej< eJd(z ej= d)fZN ej< eJd*z ej= d)fZOd+ZP ej< eJd
ePePd%fz ej= d)fZQePd,z d-z ZR ej< eJd
eReRd%fz ej= d)fZSd.ZT ej< eJd
eTeTd%fz ej= d/fZUd0ZV ej< eJd1eVeVd%fz ej= d2fZWd3ZX ej< eJd
eXeXd%fz ej= d4fZY ej< eJd5z ej= d6fZZ ej< eJd7z ej= d8fZ[ ej< eJd9z ej= d:fZ\ ej< eJd;z ej= dfZ^ ej< eJd?z ej= d@fZ_ ej< eJdAz ej= dBfZ` ej< eJdCz ej= dDfZa ej< eJdEz ej= dFfZb ej< eJdGz ej= dHfZc ej< eJdIz ej= dJfZd ej< eJdKz ej= dLfZe ej< eJdMz ej= dNfZf ej< eJdOz ej= dPfZg ej< eJdQz ej= dRfZh ej< eJdSz ej= dTfZi ej< eJdUz ej= dVfZj ej< eJdWz ej= dXfZk ej< eJdYz ej= ejl z dZfZm ej< d[ejl d\fZnd] Zod^ Zp ej< d_ej= Zqdd`Zrda ZsddcZtdd ZuddeZv ej< dfej= Zw ej< dgej= Zx ej< dhej= Zy ej< diej= Zz ej< djej= Z{ ej< dk Z| ej< dl Z} ej< dmej= Z~dn Zdo Zdp Zdq Zdr Zds Z ej< dtej= Z ej< duej= Z ej< dvej= Z ej< dwej= Z ej< dxej= Zdy Zdz Zd{ Zd| Zdd}Zdd~ZddZddZd Zd ZddZddZddZd Zd ZddZd ZddZ ej< dej= Zd Z ej< dej= Zd Zd Zd Zd Zd ZddZi fdZd Z ej< d jB Zd Zd Z ej< dej= Zg fdZd Z ej< dej= Z ej< dej= Z ej< dej= Z ej< dej= Z ej< dej= Zd Zi fdZddZddZddZd ZddZg ad Zd Zd Zg dfdZd Ztr e edk rg Zg ZdZdZdZdZej dd D ]1Zed
k r
ed dk rdZÌedk rdada$edk rdada/edk rt& r e1dd dadaMedk rdaVedk rda_edk rdadajedk rdadadawedk rdZČedk rdZƌedk rdZŌed dk r ed eeȦ z erdZeaerdZeaerV eeȦ e eȦ # e$ rZ edeΛd Y dZ[ΐdZ[ww xY we eȦ 3t& st2 rt4 s e1dd ee Zt0 rf e1d et0 z d eeϦ Z et0 dĦ 5 Zeà eЦ ddd n # 1 swxY w Y er eHeϦ dS dS dS )a*
crackfortran --- read fortran (77,90) code and extract declaration information.
Copyright 1999-2004 Pearu Peterson all rights reserved,
Pearu Peterson
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
-m ,--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: f2py is read as
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'][]['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':,'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:
{:{['only':<0|1>],['map':{:,...}]}}
B['note'] --- list of LaTeX comments on the block
B['f2pyenhancements'] --- optional dictionary
{'threadsafe':'','fortranname':,
'callstatement':|,
'callprotoargument':,
'usercode':|,
'pymethoddef:'
}
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'][] =
{'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()',
'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 = [[]::]
= byte |
character[] |
complex[] |
double complex |
double precision |
integer[] |
logical[] |
real[] |
type()
= * |
([len=][,[kind=]]) |
(kind=[,len=])
= * |
([kind=])
= 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.
= in | out | inout
= comma separated list of dimension bounds.
= [[*][()] | [()]*]
[// | =] [,]
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)Path ) __version__)*)symbolicfix c | da dadadadadadadadada g a
da t g ia da
dadag ai adadadag ag ag ag ad ad S )Nr r r r r
r ) strictf77sourcecodeformquietverbosetabchar pyffilename
f77modulename
skipemptyendsignorecontains dolowercasedebug groupcounter grouplist neededmodule expectbeginskipblocksuntil usermodules
f90modulevars gotnextfilefilepositiontextcurrentfilename
skipfunctions skipfuncs onlyfuncs
include_pathsprevious_context k/builddir/build/BUILD/cloudlinux-venv-1.0.12/venv/lib64/python3.11/site-packages/numpy/f2py/crackfortran.pyreset_global_f2py_varsr* s IN
EGGKMMNK EL r"ILKOKMKOMIIMr( c t sd S t sG|r$t j t
t j | d S d S N)r r sysstdoutwriter )lineflags r) outmessr2 s^ / J - . . .
r( 2 zabcdefghopqrstuvwxyz$_typespecrealijklmninteger)3intdoublefloatcharshortlongvoidcasewhilereturnsignedunsignediffortypedefsizeofunionstructstaticregisternewbreakdogotoswitchcontinueelseinlineexterndeleteconstautolenrankshapeindexslensize_imaxminflenfshapestringcomplex_double float_doublestdinstderrr. typedefault_bnc t | t v r.t d| dt | d t | S | S )Nzrmbadname1: Replacing "" with "".
)badnameserrmessnames r)
rmbadname1rr
sF xx~~~' ( ( (~ Kr( c d | D S )Nc , g | ]}t | S r' )rr .0_ms r)
z rmbadname.. s + + +rJrNN + + +r( r' namess r) rmbadnamer{ s + +U + + ++r( c t | t v r.t d| dt | d t | S | S )Nz undo_rmbadname1: Replacing "rl rm ) invbadnamesro rp s r) undo_rmbadname1r~ sJ {44T***, - - -4 Kr( c d | D S )Nc , g | ]}t | S r' )r~ ru s r) rx z"undo_rmbadname.." s 0 0 0BOB 0 0 0r( r' ry s r) undo_rmbadnamer ! s 0 0% 0 0 00r( z-\*-\s*fortran\s*-\*-z-\*-\s*f90\s*-\*-z-\*-\s*fix\s*-\*-z[^c*]\s*[^\s\d\t])z.f90z.f95z.f03z.f08)z.forz.ftnz.f77z.fc ` t ,t j | j }nt dt
j | }t | d 5 }| | }|
t j rd}n^|
t j
t j f rd}n0|
t j t j f rd}nd}ddd n # 1 swxY w Y t | || S ) 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-16ascii)encoding)charset_normalizer from_pathbestr r` ospathgetsizeopenread
startswithcodecsBOM_UTF8 BOM_UTF32_LE BOM_UTF32_BEBOM_LEBOM_BE)filenamemoder nbytesfhandleraws r) openhookr / sB %%/99>>@@I R 2233
(D
!
!
#W,,v&&C~~fo..
#& !4f6I JKK
##
>??
## #
#
#
#
#
#
#
#
#
#
#
#
#
#
#
# $ 2 2 22s 1BDDDc ( d}t | j t v rd}t | d 5 }| }d}t
| rd}nt | rd}d}|dk rw|ru|d dk rM| r9|dz }|d dk rt |d d
s|d d d
k rd}n | }|dk r|ud d d n # 1 swxY w Y |S )z(Check if file is in free format Fortran.FTr r !r N r &)
r suffixlowerCOMMON_FREE_EXTENSIONSr readline
_has_f_header_has_f90_headerstrip_free_f90_start)fnameresultr r0 ns r) is_free_formatr N sj F E{{ !!%;;; % & !! AA
T
"
" AF!eeeAw#~~$**,,~QGtOORaR(A(AOd2b5kUXFXFX !F##%%D
!eee& & & & & & & & & & & & & & & Ms B9DD D c
$ |s8t t t t t t
t t t f }| g k rdS t }d}d}d}t j
dt j }t j
d } t j
d }
t j
d } |r |dd d \ }} d
gd t d D z }
dat j | t
} | }nO# t" $ rB}t% d| d| d| d d}~ww xY w|sn | rda| ada |} dadat, j t d }t3 t j t8 v r!t; | st= | sdan%t? t rt= | sdat rt@ antB atE dtG t dt t rdpdd |$ % dd
}|dk s|d d vrn|dd }|dk t sYtM |d \ }}|d
z
}|dd d k r!tM |d z |d d z d \ }}|' dk rt dk rnd}^t dk r|d d!v r2|dd d"k rd#|d d z }n(d}t r tQ | d$k r
|dd$ }|d |
vr t% d%tG | z |rt r2tQ | d k r |d d
k s||d&d z }d}d}nt s| ) | }|r|* d' }|r0||
) | * d' z }d}d}n*d#|d d z }|r| }n|}|}|}|du}nTd#|d d z }|r| }n|}|}|}n(t dk r|sw|d(k rq| ) | r\|d)z } | }|stW d* n ||z }| ) | rnB|, }| ) | }|r|* d' }|r0||
) | * d' z }d}d}n |r| }n|}|}|}|du}n$t[ d+tG t z d,|. dz
t | fz a|) | }|r|* d- }t, j / | rta ||d. nt, j 1 t gtd z }d}|D ]W}t, j 3 || } t, j / | rd}ta | |d. nX|s@tE d/tG | d0t, j4 3 | d1 n || |} r|r| }n|}|}d,|. dz
t | fz a|) | }|r|* d- }t, j / | rta ||d. nt, j 1 t gtd z }d}|D ]W}t, j 3 || } t, j / | rd}ta | |d. nX|s@tE d/tG | d0t, j4 3 | d1 n || da|5 |r |dd dS |\ a aaaaaaaadS )2z
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 ''" is met.
NFr
z*\s*include\s*(\'|")(?P[^\'"]*)(\'|")z(?P.*)&\s*\Zz(\s*&|)(?P.*)z.*?'''r )r
r
c , g | ]}t | S r' )strru s r) rx z#readfortrancode.. s 777r3r77777r(
)r Tzreadfortrancode: 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 z (format:z,strict)
z
r r z!f2pyr )r cr Cr f2pyz H zxreadfortrancode: Found non-(space,digit) char in the first column.
Are you sure that this code is in fix form?
line=%s r0 .pyf
z.Unexpected end of file when reading multiline
z6Flag sourcecodeform must be either 'fix' or 'free': %szLine #%d in %s:"%s"
rq )
dowithlineistopz-readfortrancode: could not find include file z in . Ignoring.
)6r r r! r r
beginpatternr r r recompileIrange fileinput FileInputr r UnicodeDecodeError Exceptionr lineno isfirstliner r splitextr r r COMMON_FIXED_EXTENSIONSr _has_fix_headerr beginpattern77beginpattern90r2 repr
expandtabsreplacesplit_by_unquotedr rX matchgroupro rstrip
ValueError
filelinenoisfilereadfortrancodedirnamer% joinpathsepclose) ffiler r saveglobalslocaldolowercasecont finallinell includelinecont1cont2
mline_markl1 spacedigitsfinlmsgextrl_
origfinalliner lcmfn include_dirs foundfileinc_dirfn1s r) r r h s 6!#3_nV_ %+6 {{" DI B*5rt= =K J, - -E J- . .EI&&J
2r
FB%77U2YY7777K
eh
7
7
7Ca AA! CLLNN SZZ\\ !$
?? 7 ! !llnnOKBI "N'""?33A6CO$$+11337NNN(++ O/>q/A/A O 00
( 9K9K
(!'
. - - GO,,,,nn .Y4"446
7
7
7
LLNN " "63 / /r''uH$$#2#A r'' D'3//GQ
HA"1"v||~~(((Wr!""v)=sCC1 7799?? ''
U " "t000QqS6<<>>V++ !ABB%AA D
q66B;;#2#AaDK'' !GIMa!Q R R R !
I !
CFFQJJqts{{!ABB%Z "
AA , GGFOO %++a.."6"6v">"> >$& (*
$aeO+ +(*
II(*I(*
TMDD !ABB%A' '$&HHJJ $& $&MBB
v
%
%
C6MMj.>.>q.A.AMH B MO O O BA!''++ HHJJ AA
$GGFOO
%++a....v666 "
# # "
II "I "
TMDD H4P^K_K__a a
a4 NN q /287 7 m , , " Bw~~b!!
B zCCCCC GOOO44 68E F + G ',,w33Cw~~c** $% '
!LLLL ! BG R"*//,"?"?"?"? A B B B
Jy ! ! !
CaD HHJJ M0 1 or43 3-((A
WWV__
7>>"
> B:Q ? ? ? ? ? GOOO < <=
MLI'
gll7B//7>>#&& !I#CJaHHHHE
>HHHHbjool ; ; ; ;= > > >
9 IIKKK D
2q 9D 6 % %+++s :D
E=EEzN\s*(?P%s(?=\s*(\b(%s)\b)))\s*(?P(\b(%s)\b))\s*(?P%s)\s*\Zzqcharacter|logical|integer|real|complex|double\s*(precision\s*(complex|)|complex)|type(?=\s*\([\w\s,=(*)]*\))|byte.*rh 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|endfunctionendzJend\s*(if|do|where|select|while|forall|associate|block|critical|enum|team)z[\w]*?endifzmodule\s*proceduremoduleprocedure)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''')(?P.*?)(?P''')\s*\Z multilinec
t d t | z r
J d t j d d t j | d t j | dd }| | }|r$| }|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({single_quoted}|{double_quoted}|{not_quoted})*)(?P{char}.*)\Zz[^"'{}]z[{}]z('([^'\\]|(\\.))*')z("([^"\\]|(\\.))*"))
not_quotedr;
single_quoted
double_quotedbeforeafterr
)setr r r escaper groupdict)r0
charactersr r ds r) r r s E
S__,PP/PPP -
!!'!((:)>)>?? ry 4 45500 "( "2 "2 3 3A
A )
KKMM( QwZ(( ":r( c g }t | d D ]2}dD ]}| |d }| | 3d | S )N@,@z(),r ,)markoutercommasplitr appendr )argslinear r s r)
_simplifyargsr- sq
A
H
%
%
+
+E
2
2 " "A !S!!AA 88A;;r( z"\s*(?P\b[a-z]+\w*\b)\s*=.*c n t | d \ }}|rt d | st d | sq|dk sJ t | t | d \ } }|r-t | | t |dd d \ } }|-t | | dS |dk rwdat diat i iat g ia g t t d< i t t d< dt t d< dt t d < d
a
d
a dS |dk r
d}t rt t k rd }t |k rt d t t d
t t d t d t t dz
t t t t t t dz
d
d< t t = t dz
at |k t r t t k rt t dz
t t t t t t dz
d
d< t t = t dz
at t dz
t t t t t t dz
d
d< t t = t dz
ad
a
dS | dk rdS d}t t t" t$ t& t( t* t, t. t0 t2 t4 t6 t8 t: t< t> t@ tB tD tF tH tJ t t tL fD ]&}|d | }|r n|dz }'|stN } dt cxk r t k rn ndS dt t v rat t d D ]G}
|
tP v r
tP |
}
dt t v r|
t t d v rHtS j d|
z tU | tR j+ } | r| | , d } t[ | , d }
| r d|
d|
d| , d d} n d|
d|
d} t\ d | }|s"t dt | z dS t_ |d| dS It` dk s7t` dk rEtb 2 3 d rda4t d t z dS |d d k rdt cxk r t k r n n t dz
at t k rdS t dk rtk d t z t8 d | } | r| , d t t k sZtk d!t | , d d"t t t d#tl t t k rd
a t t dz
t t t t t t dz
d
d< t t = t dz
atn sda8dS dS |d d$k rCdt cxk r t k rn n t dz adS da9t_ ||d | da8dS |d d%k rdS |d d&k rt_ ||d | dS |d d'k r.tt rdS dt cxk r t k rn ndS t a dS dt cxk r t k rn ndS t_ ||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
bodyvarsblockrq r zcrackline: groupcounter=z groupname=r zYcrackline: Mismatch of blocks encountered. Trying to fix it by assuming "end" statement.
externals
interfacedz5(?P[^"]*)\b%s\b\s*@\(@(?P[^@]*)@\)@.*\Zr argszcallfun (z
) result (r )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.thiszcrackline: End group z* does not match with previous Begin group z
r r r r );r f2pyenhancementspatternr multilinepatternr crackliner groupname
groupcacher r r r r2 r* dimensionpatternexternalpattern
intentpatternoptionalpatternrequiredpatternparameterpattern datapattern
publicpatternprivatepatternintrinsicpattern endifpattern
endpattern
formatpatternr functionpatternsubroutinepatternimplicitpattern typespattern
commonpattern callpattern
usepatterncontainspattern entrypatternmoduleprocedurepatterncrackline_re_1r} r markouterparenr r r- callfunpattern analyzeliner r! r endswithr& r r r r r r )r0 resetr
has_semicolonsemicolon_lineflr1 patr re_1rq m1m2r, s r) r< r< sQ )s33A}
5a 8 > >t D D
/ 2 8 8 > >
zzz4;;zzz 0s ; ; n N dE " " "#4^ABB5G#M#M D. N $ qyy !2& "B'
!2& +-
< (+-
< (,.
< )+-
< ( qyy
\\ 9 9BR G,''''i :
;
;
; l
n
n
n lQ& ' . .z,/G H H H6? 6MIlQ& ' +F 3,''!+L R \\ 9 9 lQ& ' . .z,/G H H H6? 6MIlQ& ' +F 3,''!+L lQ& ' . .z,/G H H H6? 6MIlQ& ' +F 3,''!+L L rzz D /=/ +}n j o/@ }Z ' &
FLL Eax K% / / / /< / / / / / F *\2 2 2"<0=
;&&&t,D :l#;;;
S_H`amHn@n@n XLtSUcdhUiUikmkoq q BHHX$6$677B%bhhv&6&677A < < DD!!!RXXh%7%7%7%7 9< 4844 ;&q)//55A WZ^_cZdZd df f f 9d333FF Q;;7a< > > > K FF # $ $
$ Kr( zD\s*(?P(@\(@.*?@\)@|\*[\d*]+|\*\s*@\(@.*?@\)@|))(?P.*)\Zz[(?:,(?P[\w(),]+))?(::)?(?P\b[a-z$_][\w$]*\b)(?:\((?P[\w,]*)\))?\Zz\s*(?P\b[\w$]+\b)\s*(@\(@\s*(?P[\w\s,]*)\s*@\)@|)\s*((result(\s*@\(@\s*(?P\b[\w$]+\b)\s*@\)@|))|(bind\s*@\(@\s*(?P(?:(?!@\)@).)*)\s*@\)@))*\s*\ZzF\s*(?P(operator|assignment))@\(@\s*(?P[^)]+)\s*@\)@\s*\Zz9\s*(?P\b[\w$]+\b)\s*@\(@\s*(?P.*)\s*@\)@\s*\Zz4([-+]?(?:\d+(?:\.\d*)?|\d*\.\d+))[dD]((?:[-+]?\d+)?)zA([-+]?((?:\d+(?:\.\d*)?|\d*\.\d+))[eE]((?:[-+]?\d+)?)|(\d+\.\d*))zintent\s*\(.*?\bcallback\bc r | dg D ] }t | r dS dS )Nrm r r )get_intentcallbackpatternr )vdeclr, s r) _is_intent_callbackr sF
YYz2
&
& ! ' ' * * 11 1r( c x d | } t | }t | | |rc| d }|r d | d D ng }| d || d fS d g d fS )Nr
attributesc 6 g | ]}| S r' )r )rv r, s r) rx z*_resolvetypedefpattern.. s 555q555r( r' rq params)r r) typedefpatternr printr )r0 ra attrss r) _resolvetypedefpatternr s
774::<< D d # #B $OOO ; &&9>F55EKK$4$45555Bxx (:(::: T>r( c > t | } t | }|rR| d | d | d | d fS t | }|r7| d dz | d z dz }|g d d fS t
| }|r,| d | d d d fS d g d d fS )Nrq r6 r bindschemer7 r8 )rW nameargspatternr r operatorpatterncallnameargspattern)r0 ra rq s r) _resolvenameargspatternr s $ D t $ $B Xxx &!1!1288H3E3ErxxPVGWGWWW t $ $B $xx!!C'"((6*:*::S@Rt## " "4 ( (B >xx &!1!14== T4 r( c
dB | d }|dk rd at r
|dvrt st dk rt
j t d d }t d|z da t dz adt t < i t t < g t t < g t t d < i t t d
< dt t d < |t t d < d
t t d< da|dv
r| }t! j d|t j rd}nEt! j d|t j rd}n"t! j d|t j rd}|dk rTt' | d \ }}}t) | t t d
|< g }d } n't+ | d \ }}} }| |dk rd}nd}|dvrt d ||t fa|r:t- d t/ | d D }ng }d|v r,d|v r| d d|v t d d}
d} |d v rd} d!t t vrd S |t t d! vrd S t t D ]} | d |k r d S |t t d" v rd S d#d$d | }t2 r(t4 d%k r t dk rt d&z ad}
|d'vrd} t dz ai t t < g t t < |
rt6 dk r%t d(t9 t2 z d d)t t < dt t d < t2 t t d < dt t d< g t t d < g t t d*< g t t d"< i t t d
< t dz ai t t < g t t < | r$t6 dk rt d+t z d d,t t < d,t t d < d-t t d < t t dz
d d.t t dz
d t t d< g t t d < g t t d*< g t t d"< i t t d
< t dz ai t t < g t t < |t t < |t t d < |sd/| d0d1 z }| d2 t t d3< t= | t t d < | t t d4< t dk rt t t d< nt2 rDt d5k r9t t dz
d d.t t t d< nLt t dz
d d.t t dz
d t t d< t? t t D ]-}
t t |
st t |
= .|t t d!< g t t d < g t t d*< g t t d"< i t t d
< i t t d6< |dk rg t t d7< |d v r|t t d&z
d* vr.t t d&z
d* ! | tE j# t t d&z
d
t t d
< t t d
| t t d
| d8 $ d9 = n# tJ $ r Y nw xY w|d:v r? tM t t d
| t t d&z
d
d t t d
|< n# tJ $ r Y nw xY w|d;k r| r| t t d
v rg|| k satM t t d
| t t d
| t t d
|< t t d&z
d" ! | n# tJ $ r Y nw xY w|d$k rtN d | d2 d0z |z }|rMtQ | d | d \ }}}}tS |||| |d v rt t dz
! t t t t t t dz
d% d < t t = t dz
at t dz
! t t t t t t dz
d% d < t t = t dz
ad S d S |d6k rt+ | d \ }}} }|~|r:t- d< t/ | d D }ng }| J t9 | |t t d6 |< d6|t fad S d S |dk rJtQ || d \ }}}}tS |||| }| d=|t fad S d S |d>v r
t t d
}| d * }|+ d? }|dk r|d@k rtY | + dA d&z
}|d |dz d?z ||dz d z }|+ d? }||d d?k rrd!t t v r^t dB| d |d | dC |dD- t t d! z }|dk rd}d}n)|d | * }||d&z d }t/ | d }t] | dk r5|d }t dEdD- |dd z d }dF t/ | d D D ]}t^ | }|sL|dGv rd}
ngta | 1 t dH|dIt9 | dJ kt= | d }
|dGv r$|
dKk s|
dLk r|
| d z
}
|
|vri ||
< |dMk r|| d z }|d@k r | d |z }td | r|
t t d! vrt dk rdNt t d&z
d vrt dO |
t t d k rWt dP|
dQt t d dR t t d! ! |
n%tg dS|
z ntg dT|
z |dUv r|}d8||
v r"||
d8 ! | n |g||
d8< |d9k rt t d dk rt dV p|
t t d! vrd*t t vrg t t d*< t t d* ! |
|
}|t t d
< | d=|t fad S d S |dWk rGdX | d dD D t t dY< d S |dZk r|-dk r|,|0z },J|-d&k rb|+* }+|+D dD r |+dd * }+|! |+|,g |0}+d},d}-|-d&k r\|+* }+|+D dD r |+dd * }+|! |+|,g i }1d
t t v rt t d
}1d }|D ]}2d~ |2D }2|2d d dDk r|2d dd |2d< |2d d d|k rt d|2d z _d}d}3t] |2d }4t- d t/ |2d d D D ]} | d d|k rt d| z "d}.||4k rH|.s|2d | dDk s4|2d | dzk r|. }.|dz }||4k r|."|2d | dDk 4|dz }| |1vri |1| < d\|1| v rY|1| d\ |2d |3|dz
k s6t d| da|1| d\ d|2d |3|dz
d_ |2d |3|dz
|1| d\< |}3| }|1t t d
< | d=|t fad S d S |dk r| d * }|d d{k sd|z }g }5d}-d}6d}7|D ]\}0|0d{k r|-dz }-|-d5k r8|6* }6|6sd}6|5! |6|7g |-d&z
}-d}6d}7|-d&z r|6|0z }6W|7|0z }7]|6* }6|6sd}6|5! |6|7g i }8dt t v rt t d }8|5D ]o}0|0d |8vr g |8|0d < d t/ |0d d D D ]%}|r!|8|0d ! | &p|8t t d< d|6t fad S |dk r t! j d| d t j }|r|1 }9dt t vri t t d< | d }i t t d |< d}:d|9v r"|9d d|9v r
|9d d}:|:t t d | d< d |9d dD D }i };|D ]}2d\|2v rt! j d|2t j }#|#rP|# d * |;|# d * < n%t dt9 |2 z n|2|;|2< |;t t d | d< d S d S ta | 1 t d d S |dv rdt t vri t t d< t t d }<| d dk r[d|. s6 J J J"# ggii J J Jr( r& z. s6 "N "N "N&' #$'')) "N "N "Nr( variable)r r
r r r r r
r ::r
re z"All arguments will have attribute r r' zXanalyzeline: cannot handle multiple attributes without type specification. Ignoring %r.
c 6 g | ]}| S r' r r s r) rx z analyzeline.. s EEE!''))EEEr( r r
z&analyzeline: no name pattern found in z statement for z . Skipping.
operator
assignmentr __user__z8analyzeline: missing __user__ module (could be nothing)
z(analyzeline: appending intent(callback) to z 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 6 g | ]}| S r' r r s r) rx z analyzeline.. s < < <1QWWYY < < . s ? ? ?Qqwwyy ? ? ?r( rp zAanalyzeline: could not extract name,expr in parameter statement "" of ""
z1analyzeline: Overwriting the value of parameter "" ("z ") with "rm r4 r5 r$ ecomplexz+1j*(z analyzeline: Failed to evaluate z . Ignoring: r nonez.*?)\s*(\(\s*(?P[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"
rn ro rq -c 6 g | ]}| S r' r r s r) rx z analyzeline..O s )J)J)J!'')))J)J)Jr( zZanalyzeline: expected "-" instead of "%s" in range list of implicit statement
z^analyzeline: expected "-" instead of "%s" in range list of implicit statement (2)
r '/r7 r8 c 6 g | ]}| S r' r r s r) rx z analyzeline.. s &&&q&&&r( z>analyzeline: implied-DO list "%s" is not supported. Skipping.
c 6 g | ]}| S r' r r s r) rx z analyzeline.. s U U Ua U U Ur( z*analyzeline: changing init expression of "") to "r z//_BLNK_c 6 g | ]}| S r' r r s r) rx z analyzeline.. s KKKAaggiiKKKr( r zR\A\s*(?P\b\w+\b)\s*((,(\s*\bonly\b\s*:|(?P))\s*(?P.*))|)\s*\Zru notonlyonlyc 6 g | ]}| S r' r r s r) rx z analyzeline.. s ???Aaggii???r( z7\A\s*(?P\b\w+\b)\s*=\s*>\s*(?P