3
���h�# � @ s� d Z ddd� ZdZddlZddlmZmZmZmZm Z m
Z
m Z m Z m
Z
mZmZmZmZ ddd �Zdd
d �Zdd d
�Zdd� ZdS )aW
Rules for building C/API module with f2py2e.
Copyright 1999,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: 2004/11/26 11:13:06 $
Pearu Peterson
z$Revision: 1.16 $�
� z
See `f2py -v`� N)
�getfortranname�
isexternal�
isfunction�isfunction_wrap� isintent_in� isintent_out�islogicalfunction�ismoduleroutine�isscalar� issubroutine�issubroutine_wrap�outmess�showc C s� |d kr |}|| kr,t | � td| � dS d| | krTt | | � td| � dS | | d }|dkr�d| | kr�d|| | d f }i }d}d| | kr�| | d }d }n d
| | kr�| | d
}d }d |k�r6|�r|d dkr�d| }nd|||d f }n0|d dk�r$d||d f }nd||d f }nZd |k�rvd||d f }d |k�rld||d f }nd| }nd |k�r�d||d f }d||f }d| | k�r�d|dj| | d �f }|S ) Nz1var2fixfortran: No definition for argument "%s".
� �typespecz/var2fixfortran: No typespec for argument "%s".
�type�typenamez%s(%s)Z kindselector�kind� charselector�len�*�:�(*)z %s(len=*)z %s(%s=%s)z%s*(%s)z%s*%sz %s(len=%sz %s,kind=%s)z%s)z %s(kind=%s)z%s %s� dimension�,)r r r )r r )r r �join)�vars�a�fa�f90modeZvardef�selectorZlk� r# �5/tmp/pip-build-5_djhm0z/numpy/numpy/f2py/func2subr.py�var2fixfortran sP
r% c s� t | �s t�g � | d }x�| d D ]~}| d | }xlt|jdg ��D ]X\}}|dkrDd||f }tddgd�}d ||f |d
< � j|� |||< ||d |< qDW q"W | d j� � t� �} d g}
|
fd d
�} | d } t| �}
t | �}d| }||k�r|| ||< |g| d dd � }n|g| d }t
|| ||�}|d d� dk�r�|�r`d|dd � }nd|dd � }|| d }|jdd �dk�r�d|d< dj |�}|�r�| d| d | |f � |�s| d | d |
f � n.| d | |f � | �s| d |
� |d |
}| �r>x0| d j d �D ] }|j
� jd!��r | |� �q W |dd � }g }x2|D ]*}t|| ��rT| d | � |j|� �qTW xF|D ]>}||k�r��q�t|| ��r�| t
|||d"�� |j|� �q�W xF|D ]>}||k�r�q�t|| ��r�| t
|||d"�� |j|� �q�W x.|D ]&}||k�r*�q| t
|||d"�� �qW | |� | �rx|�rXn | d#� | | d j
� � | d$� dj � fd%d&�|D ��}|�s�t| ��r�| d'||
|f � n| d(||
|f � |�r�| d)| d | f � n| d*� |
d+ S ),Nr �argsr r z f2py_%s_d%s�integer�hide)r �intentz
shape(%s, %s)�=r c S s d|d | f |d< d S )Nz %s
%sr r# )�line�retr# r# r$ �addb s z createfuncwrapper.<locals>.add�namez
%sf2pywrapr �
z
character*(*)zcharacter(len=10)z character*10r r z(*)�10z, z subroutine f2pywrap_%s_%s (%s)�
modulenamezuse %s, only : %szsubroutine f2pywrap%s (%s)z external %s�saved_interface�
zuse )r! � interfacez
end interfacec s g | ]}|� kr|�qS r# r# )�.0r )�
extra_argsr# r$ �
<listcomp>� s z%createfuncwrapper.<locals>.<listcomp>z%s = .not.(.not.%s(%s))z %s = %s(%s)z end subroutine f2pywrap_%s_%s�endr )r �AssertionError� enumerate�get�dict�append�extend�boolr r r% r �split�lstrip�
startswithr r r r
)�rout� signaturer r �v�i�d�dn�dv�need_interfacer, r- r. � fortrannamer! Znewnamer& �lZ
charselect�sargsr+ � dumped_argsr# )r6 r$ �createfuncwrapperN s�
rO c s� t | �s t�g � | d }x�| d D ]~}| d | }xlt|jdg ��D ]X\}}|dkrDd||f }tddgd�}d ||f |d
< � j|� |||< ||d |< qDW q"W | d j� � t� �} d g}
|
fd d
�} | d } t| �}
t | �}| d }dj
|�}|�r.| d| d | |f � |�sP| d| d |
f � n"| d| |f � | �sP| d|
� | �r�x0| d j d�D ] }|j � j
d��rf| |� �qfW g }x2|D ]*}t|| ��r�| d| � |j|� �q�W xF|D ]>}||k�rؐq�t|| ��r�| t|||d�� |j|� �q�W x.|D ]&}||k�r �q| t|||d�� �qW | �rf|�rFn | d� | | d j � � | d� dj
� fdd �|D ��}|�s�| d |
|f � |�r�| d | d | f � n| d � |
d S )!Nr r& r r z f2py_%s_d%sr' r( )r r) z
shape(%s, %s)r* r c S s d|d | f |d< d S )Nz %s
%sr r# )r+ r, r# r# r$ r- � s z createsubrwrapper.<locals>.addr. z, z subroutine f2pywrap_%s_%s (%s)r1 zuse %s, only : %szsubroutine f2pywrap%s (%s)z external %sr2 r3 zuse )r! r4 z
end interfacec s g | ]}|� kr|�qS r# r# )r5 r )r6 r# r$ r7 � s z%createsubrwrapper.<locals>.<listcomp>z call %s(%s)z end subroutine f2pywrap_%s_%sr8 r )r
r9 r: r; r< r= r> r? r r r r@ rA rB r r r% )rC rD r r rE rF rG rH rI rJ r, r- r. rK r! r& rM r+ rN r# )r6 r$ �createsubrwrapper� s|
rP c C s: t | �r�t| �}| d }td||f � tj| �} |}|}d| kr^| d }| d | | d |< | d | }t|�s�d|kr�g |d< |d jd� d}x |d D ]}|jd�r�d }P q�W |r�|d jd
| � |g| d | d d d �< | t| �fS t| ��r2t| �}| d }td ||f � tj| �} | t | �fS | d
fS )Nr. z6 Creating wrapper for Fortran function "%s"("%s")...
�resultr r) �outr zout=r zout=%sr& z8 Creating wrapper for Fortran subroutine "%s"("%s")...
r )
r r r �copyr r= rB rO r rP )rC rK r. �fname�rnameZfvar�flagrF r# r# r$ �assubr sB
rW ���)NN)r )r )�__doc__� __version__Z f2py_versionrS Zauxfuncsr r r r r r r
r r r
r r r r% rO rP rW r# r# r# r$ �<module> s <
1
j
P |