o
    Ô­j  ã                   @   sp   d Z ddlmZ ejZddlmZ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 )a5  
Build common block mechanism for f2py2e.

Copyright 1999 -- 2011 Pearu Peterson all rights reserved.
Copyright 2011 -- present NumPy Developers.
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.
é   )Ú__version__)ÚhasbodyÚ	hascommonÚhasnoteÚisintent_hideÚoutmessÚgetuseblocks)Ú	capi_maps)Ú	func2subr)Ú	rmbadnamec           
         s¬   g }t ˆ ƒr#ˆ d  ¡ D ]\}}‡ fdd„|D ƒ}| |||f¡ qntˆ ƒr5ˆ d D ]	}|t|dƒ }q+|rTg }g }|D ]}	|	d |vrQ| |	d ¡ | |	¡ q=|S |S )NÚcommonc                    s   i | ]	}|ˆ d  | “qS )Úvars© )Ú.0Úv©Úblockr   úT/var/www/html/CropPilot/venv/lib/python3.10/site-packages/numpy/f2py/common_rules.pyÚ
<dictcomp>   s    z$findcommonblocks.<locals>.<dictcomp>Úbodyé    )r   ÚitemsÚappendr   Úfindcommonblocks)
r   ÚtopÚretÚkeyÚvalueÚvars_ÚbÚtretÚnamesÚtr   r   r   r      s&   þ
€r   c                 C   s  g g dgdœ}dg}|fdd„}dg}|fdd„}dg}|fdd	„}dg}|fd
d„}	t | ƒD �]±\}
}}|
 ¡ }g g }}|D ]}t|| ƒrN| |¡ q@| |¡ q@|rftd|
d |¡d |¡f ƒ ntd|
d |¡f ƒ |d|
 ƒ t| ƒD ]	}|d|› �ƒ q{|dƒ |D ]
}|t ||¡ƒ q‹|
dkr¤|dd |¡ ƒ n|d|
d |¡f ƒ |dd |¡ ƒ |dƒ |d|
 ƒ g }|D ]H}t	 
|| ¡}t	 || ¡}t	j| }t	 ||| ¡}|d rñ| d|d  ¡ n| d¡ |d  ¡ }|�sd}|d||d |||f ƒ qÆ|dƒ t|ƒ}d dd„ |D ƒ¡}|d |
|f ƒ |d!ƒ |D ]}|d"|
|f ƒ �q/|d#ƒ d$|v �rGd%}nd&}|d'|||
 ¡ d d(gt|ƒ ¡f ƒ |d)|
 ƒ |d*|||
 ¡ |
f ƒ |d+ƒ |d,|
|
f ƒ |d-ƒ |d.|
 ƒ |d/ƒ |
 d$d0¡}|	d1| ƒ |	d2ƒ |D ]-}|	d3t	 ||| ¡ ƒ t|| ƒ�rÇ|| d4 }t|tƒ�rÁd5 |¡}|	d6| ƒ �q›|	d7ƒ |d8  d9|
d td:d;„ ||ƒ¡f ¡ q/||d<< ||d=< |d> |d?< t|d8 ƒd@k�rýd|d8< ||d> fS )ANz"COMMON blocks:\n")ÚcommonhooksÚinitcommonhooksÚdocsÚ c                 S   ó   d|d | f |d< d S )Nz%s
      %sr   r   ©ÚlineÚsr   r   r   Úfadd/   ó   zbuildhooks.<locals>.faddc                 S   r'   ©Nz%s
%sr   r   r(   r   r   r   Úcadd3   r,   zbuildhooks.<locals>.caddc                 S   r'   r-   r   r(   r   r   r   Úiadd7   r,   zbuildhooks.<locals>.iaddc                 S   r'   r-   r   r(   r   r   r   Údadd;   r,   zbuildhooks.<locals>.daddzF		Constructing COMMON block support for "%s"...
		  %s
		  Hidden: %s
ú,z7		Constructing COMMON block support for "%s"...
		  %s
z subroutine f2pyinit%s(setupfunc)zuse zexternal setupfuncÚ_BLNK_z	common %szcommon /%s/ %szcall setupfunc(%s)zend
z'static FortranDataDef f2py_%s_def[] = {Údimsz(%s)z-1z	{"%s",%s,{{%s}},%s, %s},Úrankz
	{NULL}
};c                 S   s   g | ]}d | ‘qS )zchar *r   )r   r*   r   r   r   Ú
<listcomp>i   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;Ú}Ú_Ú	F_FUNC_USÚF_FUNCz3extern void %s(f2pyinit%s,F2PYINIT%s)(void(*)(%s));zchar*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>Œ   s    zbuildhooks.<locals>.<lambda>r#   r$   r   Úlatexdocr   )r   Úlowerr   r   r   Újoinr   r
   Úvar2fixfortranr	   ÚgetctypeÚ
get_elsizeÚ
c2capi_mapÚ
getarrdimsÚstripr   ÚupperÚlenÚreplaceÚgetarrdocsignr   Ú
isinstanceÚlistÚmap)Úmr   Úfwrapr+   Úchooksr.   Úihooksr/   Údocr0   ÚnameÚvnamesr   Ú
lower_nameÚhnamesÚinamesÚnÚusenameÚidimsÚctÚelsizeÚatÚdmÚdmsÚinames1Úinames1_tpsr9   Útnamer:   r   r   r   Ú
buildhooks*   sÌ   ÿ

ÿ
ÿ

ÿ

ÿÿÿÿÿ
€ÿrc   N)r   )Ú__doc__r&   r   ÚversionÚf2py_versionÚauxfuncsr   r   r   r   r   r   r	   r
   Úcrackfortranr   r   rc   r   r   r   r   Ú<module>   s    
 
