o

6��a=�@sldZd
dl
mZ
ejZd
dlmZmZmZm	Z	m
Z

d
dl
mZ
d
dl
mZ
d
dl
mZ
ddd�
Zd	d
�ZdS)
aM


Build common block mechanism for f2py2e.

Copyright 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__)�hasbody�	hascommon�hasnote�
isintent_hide�outmess)
�	capi_maps)
�	func2subr)
�	rmbadnamec
s�g}t��
r#�d
�
�D]\}}�f
dd�|D�
}|�|||f�

qnt��
r5�dD]	}|t|d�}q+|
rTg}g}|D]}	|	d|v
rQ|�|	d�

|�|	�

q=|S|S)N�commonc
si|]	}
|
�d|
�qS)
�vars�)�.0�
v�
�blockr
�9/usr/lib/python3/dist-packages/numpy/f2py/common_rules.py�
<dictcomp>sz$findcommonblocks.<locals>.<dictcomp>�body�)r�items�appendr�findcommonblocks)
r�top�ret�key�value�vars_�
b�tret�names�
tr
rrrs&




�









�

rc
Cs�ggd
g
d�}
dg
}|f
dd�
}dg
}|f
dd�
}dg
}|f
dd	�
}dg
}|f
d
d�
}	t|�
D�
]�\}
}}|
�
�}
gg}}|D]}t||�
rN|�|�

q@|�|�

q@|rftd|
d
�|�
d
�|�
f�

ntd|
d
�|�
f�

|d|
�

|d�

|D]
}|t�||��

q}|
dkr�|dd
�|�
�

n|d|
d
�|�
f�

|dd
�|�
�

|d�

|d|
�

g}|D]?}t�	||�
}tj
|}t�|||�}|dr�|�d|d�

n|�d�

|d��}|s�d}|d||d||f�

q�|d�

t
|�
}d
�dd�|D�
�
}|d|
|f�

|d �

|D]}|d!|
|f�

�
q|d"�

d#|
v�
r0d$}nd%}|d&||
|
��d
�d'g
t|�
�
f�

|d(|
�

|d)||
|
��|
f�

|d*�

|d+|
|
f�

|d,|
�

|d-�

|
�d#d.�}|	d/|�

|	d0�

|D]-}|	d1t�|||��

t||�
�
r�||d2}t|t��
r�d3�|�
}|	d4|�

�
q�|	d5�

|
d6�d7|
d
�td8d9�||��
f�

q/||
d:<||
d;<|d<|
d=<t|
d6�
d>k
�
r�d|
d6<|
|d<fS)?Nz"COMMON blocks:\n")�commonhooks�initcommonhooks�docs�cS�d
|
d|f|
d<dS)Nz%s
      %srr
��line�
sr
r
r�fadd4�
zbuildhooks.<locals>.faddcSr&�Nz%s
%srr
r'r
r
r�cadd8r+zbuildhooks.<locals>.caddcSr&r,r
r'r
r
r�iadd<r+zbuildhooks.<locals>.iaddcSr&r,r
r'r
r
r�dadd@r+zbuildhooks.<locals>.daddzF		Constructing COMMON block support for "%s"...
		  %s
		  Hidden: %s
�
,z7		Constructing COMMON block support for "%s"...
		  %s
z subroutine f2pyinit%s(setupfunc)zexternal setupfunc�_BLNK_z	common %szcommon /%s/ %szcall setupfunc(%s)zend
z'static FortranDataDef f2py_%s_def[] = {�dimsz(%s)z-1z	{"%s",%s,{{%s}},%s},�rankz
	{NULL}
};c
Ssg|]}
d|
�qS)
zchar *r
)rr)r
r
r�
<listcomp>jszbuildhooks.<locals>.<listcomp>zstatic void f2py_setup_%s(%s) {z	int i_f2py=0;z!	f2py_%s_def[i_f2py++].data = %s;�
}�
_�	F_FUNC_US�F_FUNCz3extern void %s(f2pyinit%s,F2PYINIT%s)(void(*)(%s));zchar*z static void f2py_init_%s(void) {z*	%s(f2pyinit%s,F2PYINIT%s)(f2py_setup_%s);z}
z5	tmp = PyFortranObject_New(f2py_%s_def,f2py_init_%s);z&	F2PyDict_SetItemString(d, "%s", tmp);z	Py_DECREF(tmp);z\_z&\subsection{Common block \texttt{%s}}
z\begin{description}z\item[]{{}\verb@%s@{}}�note�

z--- %sz\end{description}r$z"	/%s/ %s\n"cSs||
S)
Nr
)r�
dr
r
r�<lambda>�szbuildhooks.<locals>.<lambda>r"r#r�latexdocr
)r�lowerrrr�joinr	�var2fixfortranr�getctype�
c2capi_map�
getarrdims�stripr
�upper�len�replace�
getarrdocsignr�
isinstance�list�map)�
mr�fwrapr*�chooksr-�ihooksr.�docr/�name�vnamesr�
lower_name�hnames�inames�
n�idims�ct�at�dm�dms�inames1�inames1_tpsr8�tnamer9r
r
r�
buildhooks/s�

�









�

�



































��

�








�




�


�




r_N)
r
)�__doc__r%r�version�f2py_version�auxfuncsrrrrrrr	�crackfortranr
rr_r
r
r
r�<module>
s