B { `g@sxdZdddZddlmZejZddlmZmZmZm Z m Z ddlm Z ddlm Z dd l mZdd d Zd d ZdS)aM Build common block mechanism for f2py2e. Copyright 2000 Pearu Peterson all rights reserved, Pearu Peterson 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 hascommonhasnote isintent_hideoutmess) capi_maps) func2subr) rmbadnamec sg}trJxddD]*\}}fdd|D}||||fqWn(trrxdD]}|t|d}q\W|rg}g}x0|D](} | d|kr|| d|| qW|S|S)Ncommoncsi|]}d||qS)vars).0v)blockr;/tmp/pip-unpacked-wheel-4iou4664/numpy/f2py/common_rules.py !sz$findcommonblocks..body)ritemsappendrfindcommonblocks) rtopretkeyvalueZvars_bZtretnamestr)rrrs"  rc Csggdgd}dg}|fdd}dg}|fdd}dg}|fdd }dg}|fd d } xXt|D]J\} } } | } gg}}x.| D]&}t| |r||q||qW|rtd | d |d |fntd| d |f|d| |dx| D]}|t| |qW| dkr<|dd | n|d| d | f|dd ||d|d| g}x|D]}t | |}tj |}t || |}|dr|d|dn |d|d }|sd}|d||d||fqW|dt |}d dd|D}|d| |f|d x|D]}|d!| |fqLW|d"d#| kr~d$}nd%}|d&|| | d d'gt|f|d(| |d)|| | | f|d*|d+| | f|d,| |d-| d#d.}| d/|| d0xb|D]Z}| d1t|| |t| |r | |d2}t|trld3|}| d4|q W| d5|d6d7| d td8d9||fqbW||d:<||d;<|d<|d=<t|d6d>krd|d6<||d<fS)?Nz"COMMON blocks:\n") commonhooksinitcommonhooksdocscSsd|d|f|d<dS)Nz %s %srr)linesrrrfadd6szbuildhooks..faddcSsd|d|f|d<dS)Nz%s %srr)r%r&rrrcadd:szbuildhooks..caddcSsd|d|f|d<dS)Nz%s %srr)r%r&rrriadd>szbuildhooks..iaddcSsd|d|f|d<dS)Nz%s %srr)r%r&rrrdaddBszbuildhooks..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} };cSsg|] }d|qS)zchar *r)rr&rrr lszbuildhooks..zstatic void f2py_setup_%s(%s) {z int i_f2py=0;z! f2py_%s_def[i_f2py++].data = %s;}_Z F_FUNC_USF_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)rdrrrzbuildhooks..r!r"rZlatexdocr)rlowerrrr joinr Zvar2fixfortranr ZgetctypeZ c2capi_mapZ getarrdimsstripr upperlenreplaceZ getarrdocsignr isinstancelistmap)mrZfwrapr'Zchooksr(Zihooksr)docr*nameZvnamesrZ lower_nameZhnamesZinamesnZidimsctZatdmZdmsZinames1Z inames1_tpsr/Ztnamer0rrr buildhooks1s                             $ rDN)r)__doc__rr$versionZ f2py_versionZauxfuncsrrrrr r r Z crackfortranr rrDrrrrs