U
|
P ±dv ã @ sl d Z ddlmZ ejZddlmZmZmZm Z m
|
Z
|
ddlm Z ddlm Z ddl mZ d ddZd 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
|
|
é )Ú __version__)ÚhasbodyÚ hascommonÚhasnoteÚ isintent_hideÚoutmess)Ú capi_maps)Ú func2subr)Ú rmbadnamec
|
s¬ g }t rF d ¡ D ]*\}} fdd|D }| |||f¡ qn$t rj d D ]}|t|d }qV|r¨g }g }|D ](} | d |krz| | d ¡ | | ¡ qz|S |S )NÚcommonc s i | ]}| d | qS )Úvars© )Ú.0Úv©Úblockr úNd:\z\workplace\vscode\pyvenv\venv\Lib\site-packages\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 } t | D ]L\}
|
} } |
|
¡ } g g }}| D ]&}t| | r| |¡ q| |¡ q|rÌtd |
|
d |¡d |¡f ntd|
|
d |¡f |d|
|
|d | D ]}|t | |¡ qú|
|
dkr.|dd | ¡ n|d|
|
d | ¡f |dd |¡ |d |d|
|
g }|D ]}t | | ¡}t
|
| | ¡}tj | }t || | ¡}|d rÊ| d|d ¡ n
|
| d¡ |d ¡ }|sêd}|d||d |||f qr|d t|}d d d |D ¡}|d |
|
|f |d |D ]}|d!|
|
|f qH|d" d#| krxd$}nd%}|d&|| |
|
¡ d d'gt| ¡f |d(|
|
|d)|| |
|
¡ |
|
f |d* |d+|
|
|
|
f |d, |d-|
|
|d. |
|
d#d/¡}| d0| | d1 |D ]Z}| d2t || | ¡ t| | r | | d3 }t|trld4 |¡}| d5| q | d6 |d7 d8|
|
d td9d: ||¡f ¡ q^||d;< ||d<< |d= |d>< t|d7 d?kräd|d7< ||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 Úfadd4 s zbuildhooks.<locals>.faddc S s d|d | f |d< d S ©Nz%s
|
%sr r r$ r r r Úcadd8 s zbuildhooks.<locals>.caddc S s d|d | f |d< d S r( r r$ r r r Úiadd< s zbuildhooks.<locals>.iaddc S s d|d | f |d< d S r( r r$ r r r Údadd@ 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, %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 if (tmp == NULL) return NULL;z= if (F2PyDict_SetItemString(d, "%s", tmp) == -1) return NULL;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> ó z buildhooks.<locals>.<lambda>r r! r Zlatexdocr )r Úlowerr r r Újoinr Zvar2fixfortranr ZgetctypeZ
|
get_elsizeZ
|
c2capi_mapZ
|
getarrdimsÚstripr
|
ÚupperÚlenÚreplaceZ getarrdocsignr Ú
|
isinstanceÚlistÚmap) Úmr Zfwrapr' Zchooksr) Zihooksr* Údocr+ ÚnameZvnamesr Z
|
lower_nameZhnamesZinamesÚnZidimsÚctZelsizeÚatÚdmZdmsZinames1Z inames1_tpsr0 Ztnamer1 r r r Ú
|
buildhooks/ sÌ ÿ
|
ÿ
|
ÿ
|
|
|
|
ÿ
|
|
|
ÿÿ ÿÿ ÿ
|
ÿ rF N)r )Ú__doc__r# r ÚversionZ f2py_versionZauxfuncsr r r r r r r Z crackfortranr
|
r rF r r r r Ú<module> s
|
|
