3
���hg � @ sx d Z ddd� ZddlmZ ejZddlmZmZmZm Z m
Z
ddlm Z ddlm Z ddl
mZ dd d
�Zd d � Zd
S )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
z$Revision: 1.19 $�
� )� __version__)�hasbody� hascommon�hasnote�
isintent_hide�outmess)� capi_maps)� func2subr)� rmbadnamec
s� g }t � �rJxd� d j� D ]*\}}� fdd�|D �}|j|||f� qW n(t� �rrx � d D ]}|t|d� }q\W |r�g }g }x0|D ](} | d |kr�|j| d � |j| � q�W |S |S )N�commonc s i | ]}� d | |�qS )�vars� )�.0�v)�blockr �8/tmp/pip-build-5_djhm0z/numpy/numpy/f2py/common_rules.py�
<dictcomp>! s z$findcommonblocks.<locals>.<dictcomp>�body� )r �items�appendr �findcommonblocks)
r �top�ret�key�valueZvars_�bZtret�names�tr )r r r s"
r c
C s� g g dgd�}dg}|fdd�}dg}|fdd�}dg}|fdd �}dg}|fd
d �} �xXt | �D �]J\}
} } |
j� }
g g }}x.| D ]&}t| | �r�|j|� q�|j|� q�W |r�td |
d
j|�d
j|�f � ntd|
d
j|�f � |d|
� |d� x | D ]}|tj| |�� �qW |
dk�r<|dd
j| � � n|d|
d
j| �f � |dd
j|� � |d� |d|
� g }x�|D ]�}tj | | �}tj
| }tj || | �}|d �r�|jd|d � n
|jd� |d j � }|�s�d}|d||d ||f � �q�W |d � t
|�}d
jd d � |D ��}|d |
|f � |d � x |D ]}|d!|
|f � �qLW |d"� d#|
k�r~d$}nd%}|d&||
|
j� d
jd'gt|� �f � |d(|
� |d)||
|
j� |
f � |d*� |d+|
|
f � |d,|
� |d-� |
jd#d.�}| d/| � | d0� xb|D ]Z}| d1tj|| | � � t| | ��r | | d2 }t|t��rld3j|�}| d4| � �q W | d5� |d6 jd7|
d
jtd8d9� ||��f � qbW ||d:< ||d;< |d< |d=< t|d6 �d>k�r�d|d6< ||d< fS )?Nz"COMMON blocks:\n")� commonhooks�initcommonhooks�docs� c S s d|d | f |d< d S )Nz %s
%sr r )�line�sr r r �fadd6 s zbuildhooks.<locals>.faddc S s d|d | f |d< d S )Nz%s
%sr r )r$ r% r r r �cadd: s zbuildhooks.<locals>.caddc S s d|d | f |d< d S )Nz%s
%sr r )r$ r% r r r �iadd> s zbuildhooks.<locals>.iaddc S s d|d | f |d< d S )Nz%s
%sr r )r$ r% r r r �daddB s 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 setupfuncZ_BLNK_z common %szcommon /%s/ %szcall setupfunc(%s)zend
z'static FortranDataDef f2py_%s_def[] = {Zdimsz(%s)z-1z {"%s",%s,{{%s}},%s},Zrankz
{NULL}
};c S s g | ] }d | �qS )zchar *r )r r% r r r �
<listcomp>l s z buildhooks.<locals>.<listcomp>z static void f2py_setup_%s(%s) {z int i_f2py=0;z! f2py_%s_def[i_f2py++].data = %s;�}�_Z 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"c S s | | S )Nr )r �dr r r �<lambda>� s z buildhooks.<locals>.<lambda>r r! r Zlatexdocr )r �lowerr r r �joinr
Zvar2fixfortranr ZgetctypeZ
c2capi_mapZ
getarrdims�stripr �upper�len�replaceZ
getarrdocsignr �
isinstance�list�map)�mr Zfwrapr& Zchooksr' Zihooksr( �docr) �nameZvnamesr
Z
lower_nameZhnamesZinames�nZidims�ctZat�dmZdmsZinames1Z inames1_tpsr. �tnamer/ r r r �
buildhooks1 s�
$ rC N���)r )�__doc__r r# �versionZ f2py_versionZauxfuncsr r r r r r r
Z crackfortranr r rC r r r r �<module> s
|