OwlCyberSecurity - MANAGER
Edit File: auxfuncs.cpython-38.pyc
U �i]BU � R @ s� d Z ddlmZmZmZ ddlZddlZddlZddlm Z ddl m Z ddl m Z dd d d d d ddddddddddddddd d d d d d!d"d#d$d%d&d'd(d)d*d+d,d-d.d/d0d1d2d3d4d5d6d7d8d9d:d;d<d=d>d?d@dAdBdCdDdEdFdGdHdIdJdKdLdMdNdOdPdQdRdSdTdUdVdWdXdYgRZ e jZejjZejZi Zg ZdZdZdU� Zd[d � Zd\d]� Zd^dE� Zd_d`� ZdadF� Z dbd � Z dcd � Z dddC� Z ded � Z dfd6� Z!dgd)� Z"dhdi� Z#djdk� Z$dld;� Z%dmdL� Z&dndP� Z'dodK� Z(dpdN� Z)dqd#� Z*drd9� Z+dsd8� Z,dtd � Z-dud(� Z.dvdM� Z/dwdQ� Z0dxdy� Z1dzdO� Z2d{d|� Z3d}d~� Z4dd�� Z5d�dD� Z6d�d � Z7d�d�� Z8d�d>� Z9d�d=� Z:d�d&� Z;d�d'� Z<d�dH� Z=d�dI� Z>d�d�� Z?d�dB� Z@d�d7� ZAd�d<� ZBd�d:� ZCd�d!� ZDd�d"� ZEd�dG� ZFd�d� ZGd�dJ� ZHd�d�� ZId�d?� ZJd�d%� ZKd�dA� ZLd�d0� ZMd�d1� ZNd�d4� ZOd�d/� ZPd�d3� ZQd�d+� ZRd�d�� ZSd�d-� ZTd�d5� ZUd�d,� ZVd�d2� ZWd�d*� ZXd�d�� ZYd�d�� ZZd�d�� Z[eMd�eNd�eOd�ePd�eSd�eRd�eJd�eWd�eYd�eZd�e[d�i Z\d�d@� Z]d�d� Z^d�d�� Z_d�d� Z`d�d� Zad�d� Zbd�d�� Zcd�dÄ Zdd�d� Zed�d� Zfd�dDŽ Zgd�dɄ ZhG d�d˄ d�ei�ZjG d�dY� dYek�Zld�dR� Zmd�dT� Znd�dS� Zod�d$� Zpd�d� Zqd�d�dӄZrd�d� Zsi fd�d�Ztd�d� Zud�d� Zvd�d� Zwd�dڄ Zxd�d � Zyd�d� Zzd�d � Z{d�d߄ Z|d�dX� Z}d�d�dV�Z~d�d � Zi fd�d�Z�dS )�aW Auxiliary functions for 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 (BSD style) LICENSE. NO WARRANTY IS EXPRESSED OR IMPLIED. USE AT YOUR OWN RISK. $Date: 2005/07/24 19:01:55 $ Pearu Peterson � )�division�absolute_import�print_functionN)�reduce� )� __version__)�cfuncs� applyrules� debugcapi� dictappend�errmess�gentitle�getargs2�getcallprotoargument�getcallstatement�getfortranname�getpymethoddef� getrestdoc� getusercode� getusercode1�hasbody�hascallstatement� hascommon� hasexternals� hasinitvalue�hasnote� hasresultnote� isallocatable�isarray�isarrayofstrings� iscomplex�iscomplexarray�iscomplexfunction�iscomplexfunction_warn�isdouble�isdummyroutine� isexternal� isfunction�isfunction_wrap� isint1array� isinteger� isintent_aux� isintent_c�isintent_callback� isintent_copy� isintent_dict� isintent_hide� isintent_in�isintent_inout�isintent_inplace�isintent_nothide� isintent_out�isintent_overwrite� islogical�islogicalfunction�islong_complex� islong_double�islong_doublefunction� islong_long�islong_longfunction�ismodule�ismoduleroutine� isoptional� isprivate� isrequired� isroutine�isscalar�issigned_long_longarray�isstring� isstringarray�isstringfunction� issubroutine�issubroutine_wrap� isthreadsafe� isunsigned�isunsigned_char�isunsigned_chararray�isunsigned_long_long�isunsigned_long_longarray�isunsigned_short�isunsigned_shortarray�l_and�l_not�l_or�outmess�replace�show� stripcomma� throw_errorc C s t �dd�rtj�| � d S )N�verboser )�options�get�sys�stdout�write)�t� rb �5/usr/lib/python3/dist-packages/numpy/f2py/auxfuncs.pyrV @ s c C s dt kS )NZcapi)� debugoptions��varrb rb rc r E s c C s d| ko | d dko t | � S )N�typespec� character�r& re rb rb rc � _isstringI s �rj c C s t | �ot| � S �N)rj r re rb rb rc rF N s c C s t | �od| kS )NZ charselector�rF re rb rb rc � ischaracterR s rm c C s t | �ot| �S rk )r rj re rb rb rc rG V s c C s t | �o| d d dkS )N� dimension���z(*))rG re rb rb rc r Z s c C s d| kot | � S �Nrn ri re rb rb rc r ` s c C s t | �pt| �pt| � S rk )r rF r& re rb rb rc rD d s c C s t | �o| �d�dkS �Nrg )�complexzdouble complex�rD r] re rb rb rc r h s �c C s t | �o| �d�dkS )Nrg �logicalrs re rb rb rc r7 m s c C s t | �o| �d�dkS )Nrg �integerrs re rb rb rc r* q s c C s t | �o| �d�dkS )Nrg �realrs re rb rb rc �isrealu s rw c C sP z| d d W S t k rJ z| d d W Y S t k rD Y nX Y nX d S )NZ kindselector�*Zkind��KeyErrorre rb rb rc �get_kindy s r{ c C s* t | �s dS | �d�dkr dS t| �dkS )Nr rg �ru rt �8�rD r] r{ re rb rb rc r< � s c C s* t | �s dS | �d�dkr dS t| �dkS )Nr rg ru �-1r~ re rb rb rc rM � s c C s* t | �s dS | �d�dkr dS t| �dkS )Nr rg ru �-2r~ re rb rb rc rQ � s c C s* t | �s dS | �d�dkr dS t| �dkS )Nr rg ru �-4r~ re rb rb rc rL � s c C s* t | �s dS | �d�dkr dS t| �dkS )Nr rg ru �-8r~ re rb rb rc rO � s c C s* t | �s dS | �d�dks dS t| �dkS )Nr rg rv r} r~ re rb rb rc r$ � s c C s* t | �s dS | �d�dks dS t| �dkS )Nr rg rv Z16r~ re rb rb rc r: � s c C s t | �s dS t| �dkS )Nr Z32)r r{ re rb rb rc r9 � s c C s t | �o| �d�dkS rq )r r] re rb rb rc r! � s �c C s" t | �o | �d�dko t| �dkS )Nrg ru �1�r r] r{ re rb rb rc r) � s �c C s" t | �o | �d�dko t| �dkS )Nrg r| r r� re rb rb rc rN � s �c C s" t | �o | �d�dko t| �dkS )Nrg r| r� r� re rb rb rc rR � s �c C s" t | �o | �d�dko t| �dkS )Nrg r| r� r� re rb rb rc �isunsignedarray� s �r� c C s" t | �o | �d�dko t| �dkS )Nrg r| r� r� re rb rb rc rP � s �c C s" t | �o | �d�dko t| �dkS )Nrg r| r� r� re rb rb rc �issigned_chararray� s �r� c C s" t | �o | �d�dko t| �dkS )Nrg r| �2r� re rb rb rc �issigned_shortarray� s �r� c C s" t | �o | �d�dko t| �dkS )Nrg r| �4r� re rb rb rc �issigned_array� s �r� c C s" t | �o | �d�dko t| �dkS )Nrg r| r} r� re rb rb rc rE � s �c C s d| kod| d kS )N�attrspecZ allocatablerb re rb rb rc r � s c C s d| kpt | � S rp rl re rb rb rc � ismutable� s r� c C s d| kS )NZ modulenamerb ��routrb rb rc r? � s c C s d| kod| d kS )N�block�modulerb r� rb rb rc r> � s c C s d| kod| d kS )Nr� Zfunctionrb r� rb rb rc r' s c C s" t | �r dS to t| �o t| � S �Nr )r, � wrapfuncsr' r& r� rb rb rc r( s c C s d| kod| d kS )Nr� Z subroutinerb r� rb rb rc rI s c C s t | �r dS t| �ot| �S r� )r, rI �hasassumedshaper� rb rb rc rJ s c C sV | � d�rdS | d D ]:}| d � |i �� dg �D ] }|dkr2d| d< dS q2qdS )Nr� T�args�varsrn �:F�r] )r� �a�drb rb rc r� s r� c C s t | �pt| �S rk )r' rI r� rb rb rc rC ! s c C sF t | �s dS d| kr | d }n| d }|| d krBt| d | �S dS �Nr �result�namer� )r' r7 �r� r� rb rb rc r8 % s c C sF t | �s dS d| kr | d }n| d }|| d krBt| d | �S dS r� )r' r< r� rb rb rc r= 1 s c C sF t | �s dS d| kr | d }n| d }|| d krBt| d | �S dS r� )r' r: r� rb rb rc r; = s c C sF t | �s dS d| kr | d }n| d }|| d krBt| d | �S dS r� )r' r r� rb rb rc r" I s c C s t | �rtd� dS dS )Na� ************************************************************** Warning: code with a function returning complex value may not work correctly with your Fortran compiler. Run the following test before using it in your applications: $(f2py install dir)/test-site/{b/runme_scalar,e/runme} When using GNU gcc/g77 compilers, codes should work correctly. ************************************************************** r r )r" rV r� rb rb rc r# U s c C sF t | �s dS d| kr | d }n| d }|| d krBt| d | �S dS r� )r' rF r� rb rb rc rH c s c C s d| ko| d S )NZ externalsrb r� rb rb rc r o s c C s d| kod| d kS )N�f2pyenhancementsZ threadsaferb r� rb rb rc rK s s �c C s d| ko| d S )Nr� rb r� rb rb rc � hasvariablesx s r� c C s( d| ko&d| d ko&d| d ko&t | �S )Nr� ZoptionalZrequired)r4 re rb rb rc r@ | s ��c C s d| kod| d kS )Nr� Zexternalrb re rb rb rc r& � s c C s t | � ot| �S rk )r@ r4 re rb rb rc rB � s c C sp d| kr dS d| d kr dS d| d kr,dS d| d kr<dS d| d krLdS d| d kr\dS d | d krldS dS ) N�intentr �hider �inplace�in�out�inout�outinrb re rb rb rc r1 � s c C sD d| koBd| d ks d| d koBd| d koBd| d koBd| d kS )Nr� r� r� r� r� r� rb re rb rb rc r2 � s � � � �c C s d| � dg �kS )Nr� r� r� re rb rb rc r5 � s c C s< d| ko:d| d kp:d| d ko:d| d ko:t tt�| � S )Nr� r� r� r� )rU r2 r3 re rb rb rc r0 � s �c C s t | � S rk )r0 re rb rb rc r4 � s c C s d| � dg �kS )N�cr� r� re rb rb rc r, � s c C s d| � dg �kS )N�cacher� r� re rb rb rc �isintent_cache� s r� c C s d| � dg �kS )N�copyr� r� re rb rb rc r. � s c C s d| � dg �kS )NZ overwriter� r� re rb rb rc r6 � s c C s d| � dg �kS )N�callbackr� r� re rb rb rc r- � s c C s d| � dg �kS )Nr� r� r� re rb rb rc r3 � s c C s d| � dg �kS )NZauxr� r� re rb rb rc r+ � s c C s d| � dg �kS )NZaligned4r� r� re rb rb rc �isintent_aligned4� s r� c C s d| � dg �kS )NZaligned8r� r� re rb rb rc �isintent_aligned8� s r� c C s d| � dg �kS )NZ aligned16r� r� re rb rb rc �isintent_aligned16� s r� Z INTENT_INZ INTENT_INOUTZ INTENT_OUTZ INTENT_HIDEZ INTENT_CACHEZINTENT_CZOPTIONALZINTENT_INPLACEZINTENT_ALIGNED4ZINTENT_ALIGNED8ZINTENT_ALIGNED16c C s d| kod| d kS )Nr� Zprivaterb re rb rb rc rA � s c C s d| kS )N�=rb re rb rb rc r � s c C s t | �s dS | d d dkS )Nr r� )�"�')r re rb rb rc �hasinitvalueasstring� s r� c C s d| kS )NZnoterb re rb rb rc r � s c C sF t | �s dS d| kr | d }n| d }|| d krBt| d | �S dS r� )r' r r� rb rb rc r � s c C s d| kS )N�commonrb r� rb rb rc r � s c C s4 t | �r dS t| �r0| d D ]}t|�r dS q dS )Nr �bodyr )r r �containscommon)r� �brb rb rc r� s r� c C s8 t | �r dS t| �sdS | d D ]}t|�r dS q dS )Nr r r� )r> r �containsmodule)r� r� rb rb rc r� s r� c C s d| kS )Nr� rb r� rb rb rc r s c C s t | �d k S rk )r r� rb rb rc r s c C s dS )Nr rb re rb rb rc �istrue s r� c C s dS r� rb re rb rb rc �isfalse# s r� c @ s e Zd ZdS )� F2PYErrorN)�__name__� __module__� __qualname__rb rb rb rc r� ' s r� c @ s e Zd Zdd� Zdd� ZdS )rZ c C s || _ d S rk )�mess)�selfr� rb rb rc �__init__- s zthrow_error.__init__c C s d|| j f }t|��d S )Nz var = %s Message: %s )r� r� )r� rf r� rb rb rc �__call__0 s zthrow_error.__call__N)r� r� r� r� r� rb rb rb rc rZ + s c G sN dg }}t t| ��D ] }d|||f }|�d| � qtd|d�|�f �S )N�lambda v� %s,f%d=f[%d]�f%d(v)�%s:%sz and ��range�len�append�eval�join��f�l�l2�irb rb rc rS 5 s c G sN dg }}t t| ��D ] }d|||f }|�d| � qtd|d�|�f �S )Nr� r� r� r� z or r� r� rb rb rc rU = s c C s t d�S )Nzlambda v,f=f:not f(v))r� )r� rb rb rc rT E s c C s. z| d d dkW S t k r( Y dS X d S )Nr� � fortranname� r ry r� rb rb rc r% I s c C sV z4| d d }|dkrt �|s2td| d � t �W n t k rP | d }Y nX |S )Nr� r� r� z"Failed to use fortranname from %s r� )rz r )r� r� rb rb rc r P s �c C s z| d � |�}W n tk r( Y d S X |s2d S |dkrHt|t�rHd S t|t�rj|t|�krbd S || }|d d� dk�r|r�d| d t|� d |dd � }n |dd � }|dd � dkr�|r�|d d� d t|� d }n |d d� }ntd |t|�f � |S ) Nr� r � z'''z /* start z multiline (z) */ ���z /* end multiline (z)*/z-%s multiline block should end with `'''`: %s )r] rz � isinstance�str�listr� �reprr )r� Z blockname�comment�counter�rrb rb rc �getmultilineblock^ s@ ��� � �r� c C s t | d�S )NZ callstatement�r� r� rb rb rc r | s c C s t | ddd�}|r|S t| �r*td� d S ddlm} g g }}tttt��| �r`|� ddg� | d D ]�}| d | }t |�r�qh||kr�|| d }nJ||�}tt t t t��|�r�nt|�r�n|d }t|�s�t|�r�|�d� |�|� qhd �|| �} | �sd} | S )NZcallprotoargumentr )r� z<warning: callstatement is defined without callprotoargument r )�getctypezchar*Zsize_tr� r� Z_typedefrx �,Zvoid)r� r rV Z capi_mapsr� rS rH rT r( �extendr- r, rU rD r rF r r� r� ) r� Zcb_mapr� r� Z arg_typesZ arg_types2�nrf ZctypeZ proto_argsrb rb rc r � s> � c C s t | d�S )N�usercoder� r� rb rb rc r � s c C s t | ddd�S )Nr� r )r� r� r� rb rb rc r � s c C s t | d�S )NZ pymethoddefr� r� rb rb rc r � s c C sp g g }}d| krh| d }d| kr`| d D ]}||kr*|� |� q*|D ]}||krF|� |� qFn| d }||fS )Nr� �sortvars)r� )r� �sortargsr� r� rb rb rc �getargs� s r� c s� g �� dg � }� � �fdd��d �� D �}|� � d�kr|�d D ]}|� krF|�|� qF� D ]}||krb|�|� qbn |�d }� |fS )Nr� c s( g | ] }t �d | �r|� kr|�qS )r� )r+ )�.0r� �r� r� rb rc � <listcomp>� s �z getargs2.<locals>.<listcomp>r� r� )r] �keysr� )r� r� Zauxvarsr� rb r� rc r � s c C s< d| kr d S d }| d dkr,| d | d f}| d � |d �S )NZf2pymultilinesr� z python moduler� r� )r� �krb rb rc r � s c C s* dt | � d d }d|d | |d f S )N�P � � z /*%s %s %s*/rx )r� )r� r� rb rb rc r � s c C s$ t | t�r ttfdd�| g �S | gS )Nc S s | ||� S rk rb )�x�yr� rb rb rc �<lambda>� � zflatlist.<locals>.<lambda>)r� r� r �flatlist)r� rb rb rc r� � s r� c C s | r | d dkr | d d� S | S )Nro r� rb )�srb rb rc rY � s r� c s� t � t�r ��fdd�� D �S t �t�r<� �fdd��D �S dt� �� � D ]v}|dkrZqLd� kr||� d kr|� d | }n�}t � | t�r���d| |�t� | ����qL��d| � | ��qL�S )Nc s g | ]}t �|� ��qS rb �rW �r� �_m)� defaultsepr� rb rc r� � s zreplace.<locals>.<listcomp>c s g | ]}t |� ���qS rb r� r� )r� r� rb rc r� � s r� � separatorsforz#%s#)r� r� r� rW r� r� )r� r� r� r� �seprb )r� r� r� rc rW � s c C s2 t |t�r"|D ]}t| |�} q| S |�� D �] }|d dkr>q*|| k�r t | | t�rd| | g| |< t | | t�r�t || t�r�| | || | |< n| | �|| � ntt | | t��r,t || t��r,|dk�r|| �� D ]$}|| | kr�|| | | | |< q�nt| | || �| |< q*|| | |< q*| S )Nr �_r� )r� r� r r� r� r� �dict)Zrd�arr� r� �k1rb rb rc r � s. c C s� i }t | t�r>| D ]&}t|||�}t||�}d|kr q:q|S d| krV| d |�sV|S d| kr�td| d i||�}d|kr�t�|d � | �� D �]}|dkr�| | ||< q�t | | t�r�t| | |�||< �n�t | | t��r$g ||< | | D ].}t||i||�} || kr�|| � | | � q�n2|d dk�r8q��n t | | t ��rBg ||< | | �� D ]�} t | t j ��r\| |��r\t | | | t��r�| | | D ]N}t |t ��r�td|i||�}d|k�r�|d }nd }|| � t||�� �q�nR| | | }t |t ��r(td|i|�}d|k�r$|d }nd }|| � t||�� �q\nt d t| | � � t || t�r�t|| �d k�r�|| d ||< || g kr�||= q�|S ) NZ_breakZ_checkZneedZneedsr� r r� Z supertextr� z applyrules: ignoring rule %s. r )r� r� r r r Z append_needsr� r� rW r� r� �types� FunctionTyper r� r� ) Zrulesr� rf Zretr� Zrr�resr� r� r� r� rb rb rc r sl )r r )r� )��__doc__Z __future__r r r Zpprintr^ r� � functoolsr r� r r �__all__�versionZ f2py_version�stderrr` r rX r\ rd r� rV r rj rF rm rG r r rD r r7 r* rw r{ r< rM rQ rL rO r$ r: r9 r! r) rN rR r� rP r� r� r� rE r r� r? r> r' r( rI rJ r� rC r8 r= r; r" r# rH r rK r� r@ r& rB r1 r2 r5 r0 r4 r, r� r. r6 r- r3 r+ r� r� r� r/ rA r r� r r r r� r� r r r� r� � Exceptionr� �objectrZ rS rU rT r% r r� r r r r r r� r r r r� rY rW r r rb rb rb rc �<module> s� � � $