�
�9Zc@`
s�
dZd
dl
mZmZmZ
ddgZd
dlZd
dlZd
dlZej	dej
�Zej	dej
�Zej	dej
�Z
d	�Zej	d
�
Zej	d�
Zej	d�
Zd
�Zej	d�
Zd�Zd�Zej	d�
Zd�Zd�Zej	dej
�Zd�Zd�Zed�
Zedkr�
yejdZWn#e k
r�



ej!Z"ej#Z$n=Xe%ed�Z"ej&j'e�
\Z(Z)e(Z*e%e*d�Z$e"j+�Z,ee,�
Z-e$j.e-�

ndS(s�

process_file(filename)

  takes templated file .xxx.src and produces .xxx file where .xxx
  is .pyf .f90 or .f using the following template rules:

  '<..>' denotes a template.

  All function and subroutine blocks in a source file with names that
  contain '<..>' will be replicated according to the rules in '<..>'.

  The number of comma-separeted words in '<..>' will determine the number of
  replicates.

  '<..>' may have two different forms, named and short. For example,

  named:
   <p=d,s,z,c> where anywhere inside a block '<p>' will be replaced with
   'd', 's', 'z', and 'c' for each replicate of the block.

   <_c>  is already defined: <_c=s,d,c,z>
   <_t>  is already defined: <_t=real,double precision,complex,double complex>

  short:
   <s,d,c,z>, a short form of the named, useful when no <p> appears inside
   a block.

  In general, '<..>' contains a comma separated list of arbitrary
  expressions. If these expression must contain a comma|leftarrow|rightarrow,
  then prepend the comma|leftarrow|rightarrow with a backslash.

  If an expression matches '\<index>' then it will be replaced
  by <index>-th expression.

  Note that all '<..>' forms in a block must have the same number of
  comma-separated entries.

 Predefined named template rules:
  <prefix=s,d,c,z>
  <ftype=real,double precision,complex,double complex>
  <ftypereal=real,double precision,\0,\1>
  <ctype=float,double,complex_float,complex_double>
  <ctypereal=float,double,\0,\1>

i(tdivisiontabsolute_importtprint_functiontprocess_strtprocess_fileNs2(\n|\A)((     (\$|\*))|)\s*(subroutine|function)\bs+\n\s*end\s*(subroutine|function)\b.*(\n|\Z)s\n     (\$|\*)\s*function\bc
C`
s
g}
d
}x
tr
t
j||�}|dkr7Pn|j�}tj|||j��r�xStr�|jd||�}|dkr�Pn|}|||d!dkraPqaqaWn|d7}t	j||j��}|r�|j�dp�t
|�
}}|
j||f�

qW|
S(s� Return a list of tuples for each function or subroutine each
    tuple is the start and end of a subroutine or function to be
    expanded.
    is

i����is
     $i
N(tTruetroutine_start_retsearchtNonetstarttfunction_start_retmatchtendtrfindtroutine_end_retlentappend(tastrtspanlisttindt
mR	t
iR((sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pytparse_structure;s(

	





	









&

s<\s*(\w[\w\d]*)\s*>s<\s*(\w[\w\d]*)\s*=\s*(.*?)\s*>s<\s*((.*?))\s*>c
C`
srtj
|�
}
i}xV|
D]N}|d
j�p;t|�
}|djdd�}t|�
}|||<qW|S(Nii
s\,s@comma@(tnamed_retfindalltstript
unique_keytreplacetconv(Rtrepstnamestreptnametrepltthelist((sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pytfind_repl_patternsZs








s\A\\(?P<index>\d+)\Zc
C`
s�|jd
�
}
g|
D]}|j
�^q}xYtt|�
�
D]E}tj||�
}|rAt|jd�
�
}||||<qAqAWd
j|�
S(Nt
,tindex(	tsplitRtrangeRtitem_reRtinttgrouptjoin(Rt
bt
xt
lRRt
j((sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pyRes







c
C`
sXt|j
��
}
t}d
}x3|sSd|}||
krJ|d
7}q!t}q!W|S(s( Obtain a unique key given a dictionary.i
s__l%s(tlisttkeystFalseR(tadicttallkeystdonet
ntnewkey((sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pyRos


	






s\A\s*(\w[\w\d]*)\s*\Zc`
s|jd
d�}|jdd�}t
|�
�
tjd|�}�
f
d�}tj||�}d}d}i�x+
tj|�
D]
}|�kr��
j||
j|d��}|dkr�t	d|�
�
n||
kr�|j
d�
r�||
|<ng|jd	�
D]}|jd
d	�^q

}t|�
}	|dkr\
|	}|�|<|}q�
|	|kru
|�|<q�
t
d|d	j�|�
||f�

q�q�W�s�
|S��fd�}
d
}x.t|�
D] �|tj|
|�d7}q�
W|jdd�}|jdd�}|S(Ns\>s@rightarrow@s\<s@leftarrow@s<\1>c
`
s�t|j
d
�
jdd��
}
tj|
�
r8d|
Sd}x-�j�D]}�||
krK|}qKqKW|dkr�t��
}|
�|<nd|S(Ni
s\,s@comma@s<%s>(RR*Rttemplate_name_reRRR1R(tmobjR"R tkey(
tlnames(sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pytlistrepl�s
!











sNo replicates found for <%s>t
_R$s@comma@sHMismatch in number of replacements (base <%s=%s>) for <%s=%s>. Ignoring.c
`
s.|jd
�
}
�
j
|
�d
|
g
��S(Ni
(R*tget(R9R (t
ktrules(sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pytnamerepl�s

ts

t
>t
<(RR#Rtsubtlist_reRttemplate_reRR>t
ValueErrort
startswithR&RtprintR+R'(tsubstrRR<tnumsubst	base_rulet
rR"RtruletnumRAtnewstr((R?R;R@sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pyt
expand_sub~sF















.




	


(





c
C`
s�|}
d
}t|
�
}d}i}|j
t�

xm|D]e}||
||d!7}|j
t|
||d!�
�

|t|
|d|d!|�7}|d}q8W||
|7}|S(NRBii
(Rtupdatet_special_namesR#RR(tallstrRQtwritestrtstructtoldendRRE((sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pyR�s









"

s9(\n|\A)\s*include\s*['\"](?P<name>[\w\d./\\]+[.]src)['\"]c
C`
s�tj
j|�
}
t|�
}g}x�|D]�}tj|�
}|r�|jd
�
}tj
j|�
stj
j|
|�}ntj
j	|�
r�t
d|�
|jt|�
�

q�|j
|�

q+|j
|�

q+W|j�
|S(NR sIncluding file(tostpathtdirnametopentinclude_src_reRR*tisabsR+tisfileRJtextendtresolve_includesRtclose(tsourcet
dtfidtlinestlineRtfn((sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pyRa�s 
















c
C`
st|�
}
t
d
j|
�
�
S(NRB(RaRR+(RcRf((sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pyR�s

s�
<_c=s,d,c,z>
<_t=real,double precision,complex,double complex>
<prefix=s,d,c,z>
<ftype=real,double precision,complex,double complex>
<ctype=float,double,complex_float,complex_double>
<ftypereal=real,double precision,\0,\1>
<ctypereal=float,double,\0,\1>
t__main__i
RNt
w(/t__doc__t
__future__RR
Rt__all__RYtsystretcompilet
IRRR
RRGRRFR#R(RRR8RRRR]RaRRTt__name__targvtfilet
IndexErrortstdinRetstdouttoutfileR\RZtsplitexttbasetexttnewnametreadRURVtwrite(((sP/opt/alt/python27/lib64/python2.7/site-packages/numpy/distutils/from_template.pyt<module>.sJ




	

	

	
	
	<