Your IP : 216.73.216.213
(��^� � @ s� d Z d d l m Z m Z m Z d d d � Z d d l m Z e j Z d d l m
Z
m Z m Z m
Z
m Z d d l m Z d d l m Z d d
l m Z d d d � Z d
d � Z d 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
� )�division�absolute_import�print_functionz$Revision: 1.19 $�
� )� __version__)�hasbody� hascommon�hasnote�
isintent_hide�outmess)� capi_maps)� func2subr)� rmbadnamec
C s g } t | � r x� | d j � D]U } i } x( | d | D] } | d | | | <q> W| j | | d | | f � q# Wn4 t | � r� x% | d D] } | t | d � } q� W| rg } g } x< | D]4 } | d | k r� | j | d � | j | � q� W| S| S)N�common�vars�bodyr )r �keys�appendr �findcommonblocks)
�block�top�ret�nr �v�bZtret�names�t� r �J/opt/alt/python35/lib64/python3.5/site-packages/numpy/f2py/common_rules.pyr s& %
r c
C s� d g d g d d g i } d g } | d d � } d g } | d d � } d g } | d
d � } d g } | d d
� } x,t | � D] \ }
} } |
j � }
g g } } x; | D]3 } t | | � r� | j | � q� | j | � q� W| r t d |
d j | � d j | � f � n t d |
d j | � f � | d |
� | d � x$ | D] } | t j | | � � q\W|
d k r�| d d j | � � n | d |
d j | � f � | d d j | � � | d � | d |
� g } x� | D]� } t j | | � } t j
| } t j | | | � } | d rY| j d | d � n
| j d � | d j � } | s�d } | d | | d | | f � q�W| d � t
| � } d j d d � | D� � } | d! |
| f � | d" � x" | D] } | d# |
| f � q�W| d$ � d% |
k r8d& } n d' } | d( | |
|
j � d j d) g t | � � f � | d* |
� | d+ | |
|
j � |
f � | d, � | d- |
|
|
f � |
j d% d. � } | d/ | � | d0 � xv | D]n } | d1 t j | | | � � t | | � r�| | d2 } t | t � rTd3 j | � } | d4 | � q�W| d5 � | d j d6 |
d j t d7 d8 � | | � � f � q� W| | d <| | d <| d9 | d: <t | d � d; k r�d | d <| | d9 f S)<NZ commonhooksZinitcommonhooksZdocsz"COMMON blocks:\n"� c S s d | d | f | d <d S)Nz %s
%sr r )�line�sr r r �fadd9 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 �iaddA s zbuildhooks.<locals>.iaddc S s d | d | f | d <d S)Nz%s
%sr r )r! r" r r r �daddE 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 | � q S)zchar *r )�.0r" r r r �
<listcomp>o 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}
zP F2PyDict_SetItemString(d, "%s", PyFortranObject_New(f2py_%s_def,f2py_init_%s));z\_z&\subsection{Common block \texttt{%s}}
z\begin{description}z\item[]{{}\verb@%s@{}}�note�
z--- %sz\end{description}z " /%s/ %s\n"c S s | | S)Nr )r �dr r r �<lambda>� s z buildhooks.<locals>.<lambda>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_nameZhnamesZinamesr Zidims�ctZat�dmZdmsZinames1Z inames1_tpsr, �tnamer- r r r �
buildhooks4 s�
&
"
!
0
r@ N���)�__doc__�
__future__r r r r r �versionZ f2py_versionZauxfuncsr r r
r r r
r Z crackfortranr r r@ r r r r �<module> s (