Ë
    6Š·jñ  ã                   óv   — d Z ddlmZ ej                  ZddlmZmZ ddlmZm	Z	m
Z
mZmZmZ ddlmZ d	d„Zd„ Zy)
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__)Ú	capi_mapsÚ	func2subr)ÚgetuseblocksÚhasbodyÚ	hascommonÚhasnoteÚisintent_hideÚoutmess)Ú	rmbadnamec                 óv  — g }t        | «      rF| d   j                  «       D ]/  \  }}|D �ci c]  }|| d   |   “Œ }}|j                  |||f«       Œ1 n$t        | «      r| d   D ]  }|t	        |d«      z   }Œ |r:g }g }	|D ]/  }
|
d   |	vsŒ|	j                  |
d   «       |j                  |
«       Œ1 |S |S c c}w )NÚcommonÚvarsÚbodyé    )r   ÚitemsÚappendr   Úfindcommonblocks)ÚblockÚtopÚretÚkeyÚvalueÚvÚvars_ÚbÚtretÚnamesÚts              úM/root/workspace/.venv/lib/python3.12/site-packages/numpy/f2py/common_rules.pyr   r      så   € Ø
€CÜ�ÔØ ™/×/Ñ/Ó1ò 	,‰JˆC�Ø27Ö8¨Q�Q˜˜f™ aÑ(Ñ(Ð8ˆEÐ8Ø�J‰J˜˜U EÐ*Õ+ñ	,ô 
�ŒØ�v‘ò 	/ˆAØÔ(¨¨AÓ.Ñ.‰Cð	/á
ØˆØˆØò 	ˆAØ�‰t˜5Ò Ø—‘˜Q˜q™TÔ"Ø—‘˜A•ð	ð ˆØ€Jùò 9s   «B6c                 óò  — g g dgdœ}dg}|fd„}dg}|fd„}dg}|fd„}dg}|fd„}	t        | «      D �]  \  }
}}|
j                  «       }g g }}|D ]3  }t        ||   «      r|j                  |«       Œ#|j                  |«       Œ5 dj	                  |«      }dj	                  |«      }|rt        d	|
› d
|› d|› d�«       nt        d	|
› d
|› d�«        |d|
› d�«       t        | «      D ]  } |d|› �«       Œ  |d«       |D ]  } |t        j                  ||«      «       Œ  |
dk(  r |ddj	                  |«      › �«       n |d|
› ddj	                  |«      › �«        |ddj	                  |«      › d�«        |d«        |d|
› d�«       g }|D ]Á  }t        j                  ||   «      }t        j                  ||   «      }t        j                  |   }t        j                  |||   «      }|d   r|j                  d|d   › d�«       n|j                  d«       |d   j                  «       }|sd}|d   } |d|› d|› d |› d!|› d"|› d#�«       ŒÃ  |d$«       t        |«      }dj	                  |D �cg c]  }d%|z   ‘Œ	 c}«      } |d&|
› d|› d'�«        |d(«       |D ]  } |d)|
› d*|› d+�«       Œ  |d,«       d-|v rd.}nd/}dj	                  d0gt!        |«      z  «      } |d1|› d2|› d3|
j#                  «       › d4|› d5�	«        |d6|
› d7�«        |d8|› d2|› d3|
j#                  «       › d9|
› d:�	«        |d;«        |d<|
› d=|
› d:�«        |d>«        |d?|
› d@�«        |dA«       |
j%                  d-dB«      }  |	dC| › dD�«        |	dE«       |D ]j  }t        j&                  |||   «      }! |	dF|!› dG�«       t)        ||   «      sŒ7||   dH   }"t+        |"t,        «      rdj	                  |"«      }" |	dI|"› �«       Œl  |	dJ«       |dK   j                  dL|
› ddj	                  t/        dM„ ||«      «      › dN�«       �Œ ||dO<   ||dP<   |dQ   |dR<   t!        |dK   «      dSk  rd|dK<   ||dQ   fS c c}w )TNz"COMMON blocks:\n")ÚcommonhooksÚinitcommonhooksÚdocsÚ c                 ó   — |d   › d| › �|d<   y )Nr   z
      © ©ÚlineÚss     r    Úfaddzbuildhooks.<locals>.fadd-   s   € Ø�A‘$��x ˜vÐ&ˆˆ!Šó    c                 ó   — |d   › d| › �|d<   y ©Nr   ú
r'   r(   s     r    Úcaddzbuildhooks.<locals>.cadd1   ó   € Ø�A‘$��r˜$˜Ð ˆˆ!Šr,   c                 ó   — |d   › d| › �|d<   y r.   r'   r(   s     r    Úiaddzbuildhooks.<locals>.iadd5   r1   r,   c                 ó   — |d   › d| › �|d<   y r.   r'   r(   s     r    Údaddzbuildhooks.<locals>.dadd9   r1   r,   ú,z)		Constructing COMMON block support for "z	"...
		  z
		  Hidden: r/   zsubroutine f2pyinitz(setupfunc)zuse zexternal setupfuncÚ_BLNK_zcommon zcommon /z/ zcall setupfunc(ú)zend
zstatic FortranDataDef f2py_z
_def[] = {Údimsú(z-1Úrankz	{"z",z,{{z}},z, z},z
	{NULL}
};zchar *zstatic void f2py_setup_z) {z	int i_f2py=0;z	f2py_z_def[i_f2py++].data = ú;ú}Ú_Ú	F_FUNC_USÚF_FUNCzchar*zextern void z	(f2pyinitz	,F2PYINITz
)(void(*)(z));zstatic void f2py_init_z(void) {ú	z)(f2py_setup_z);z}
z 	tmp = PyFortranObject_New(f2py_z_def,f2py_init_z	if (tmp == NULL) return NULL;z 	if (F2PyDict_SetItemString(d, "z", tmp) == -1) return NULL;z	Py_DECREF(tmp);z\_z!\subsection{Common block \texttt{z}}
z\begin{description}z\item[]{{}\verb@z@{}}Únotez--- z\end{description}r$   z"	/c                 ó   — | |z   S )Nr'   )r   Úds     r    ú<lambda>zbuildhooks.<locals>.<lambda>‹   s
   € °a¸!±e€ r,   z\n"r"   r#   r   Úlatexdocr   )r   Úlowerr
   r   Újoinr   r   r   Úvar2fixfortranr   ÚgetctypeÚ
get_elsizeÚ
c2capi_mapÚ
getarrdimsÚstripr   ÚlenÚupperÚreplaceÚgetarrdocsignr	   Ú
isinstanceÚlistÚmap)#Úmr   Úfwrapr+   Úchooksr0   Úihooksr3   Údocr5   ÚnameÚvnamesr   Ú
lower_nameÚhnamesÚinamesÚnÚ
hnames_strÚ
inames_strÚusenameÚidimsÚctÚelsizeÚatÚdmÚdmsr;   Úinames1r*   Úinames1_tpsr@   Úarg_types_strÚtnameÚdocsignrB   s#                                      r    Ú
buildhooksro   (   sj  € Ø°Ø)Ð*ñ,€CàˆD€Eàó 'àˆT€Fàó !àˆT€Fàó !àˆ$€Càó !ä 0°Ó 3ó PUÑˆˆv�tØ—Z‘Z“\ˆ
Ø˜R�ˆØò 	!ˆAÜ˜T !™WÔ%Ø—‘˜aÕ à—‘˜aÕ ð		!ð
 —X‘X˜fÓ%ˆ
Ø—X‘X˜fÓ%ˆ
ÙÜÐAÀ$ÀÀ|Ø!�lÐ"2°:°,¸bðBõ Cô ÐAÀ$ÀÀ|Ø!�l "ð&ô 'áÐ" 4 &¨Ð4Ô5Ü# A“ò 	#ˆGÙ�4˜�yÐ!Õ"ð	#áÐ!Ô"Øò 	4ˆAÙ”×)Ñ)¨$°Ó2Õ3ð	4à�8ÒÙ�7˜3Ÿ8™8 FÓ+Ð,Ð-Õ.á�8˜D˜6  C§H¡H¨VÓ$4Ð#5Ð6Ô7Ùˆ˜sŸx™x¨Ó/Ð0°Ð2Ô3ÙˆWŒÙÐ*¨4¨&°Ð<Ô=ØˆØò 	HˆAÜ×#Ñ# D¨¡GÓ,ˆBÜ×)Ñ)¨$¨q©'Ó2ˆFÜ×%Ñ% bÑ)ˆBÜ×%Ñ% a¨¨a©Ó1ˆBØ�&ŠzØ—‘˜q  F¡ ¨AÐ.Õ/à—‘˜RÔ Ø�V‘*×"Ñ"Ó$ˆCÙØ�Ø�f‘:ˆDÙ�6˜!˜˜C ˜v U¨3¨%¨u°R°D¸¸6¸(À#ÐFÕGð	Hñ 	ˆ^ÔÜ˜FÓ#ˆØ—h‘h°gÖ>° ¨1£Ò>Ó?ˆÙÐ& t f¨A¨k¨]¸$Ð?Ô@ÙÐÔØò 	=ˆAÙ�7˜4˜&Ð 6°q°c¸Ð;Õ<ð	=áˆSŒ	Ø�*ÑØ ‰FàˆFØŸ™ ' ¬S°«\Ñ!9Ó:ˆÙˆ|˜F˜8 9¨Z¨L¸	À$Ç*Á*Ã,Àð PØ&˜ sð,ô 	-áÐ% d V¨9Ð5Ô6Ùˆr�&�˜ : ,¨i¸¿
¹
»°~ð FØ ˜6 ð%ô 	&áˆUŒÙÐ0°°°oÀdÀVÈ2ÐNÔOÙÐ.Ô/ÙÐ0°°Ð6QÐRÔSÙÐ Ô!Ø—‘˜S %Ó(ˆÙÐ4°U°G¸6ÐBÔCÙÐ#Ô$Øò 	$ˆAÜ×-Ñ-¨a°°a±Ó9ˆGÙÐ(¨¨	°Ð9Ô:Ü�t˜A‘wÕØ˜A‘w˜v‘�Ü˜d¤DÔ)ØŸ9™9 T›?�DÙ�t˜D˜6�]Õ#ð	$ñ 	Ð!Ô"ØˆF‰×ÑØ�D�6˜˜CŸH™H¤SÑ);¸VÀUÓ%KÓLÐMÈUÐSö	Uð_PUðb  €CˆÑØ#€CÐÑØ˜!‘f€Cˆ
�OÜ
ˆ3ˆv‰;Ó˜1ÒØˆˆF‰Ø��a‘ˆ=ÐùòQ  ?s   É;Q4
N)r   )Ú__doc__r%   r   ÚversionÚf2py_versionr   r   Úauxfuncsr   r   r   r	   r
   r   Úcrackfortranr   r   ro   r'   r,   r    ú<module>ru      s1   ðñ	õ à×"Ñ"€ç "ß W× WÝ #óó(ir,   