Edit File: from_template.cpython-37.pyc
B ��Fd� � @ sl d Z ddlmZmZmZ ddgZddlZddlZddlZe� dej �Z e� dej �Z e� dej �Z d d � Ze� d �Ze� d �Ze� d �Zdd� Ze� d�Zdd� Zdd� Ze� d�Zdd� Zdd� Ze� dej �Zdd� Zd d� Zed �Z e d k�rhyej d Z W n" e k �r$ ej!Z"ej#Z$Y n*X e%e d �Z"ej&�'e �\Z(Z)e(Z*e%e*d!�Z$e"�+� Z,ee,�Z-e$�.e-� dS )"a� process_file(filename) takes templated file .xxx.src and produces .xxx file where .xxx is .pyf .f90 or .f using the following template rules: '<..>' denotes a template. All function and subroutine blocks in a source file with names that contain '<..>' will be replicated according to the rules in '<..>'. The number of comma-separated words in '<..>' will determine the number of replicates. '<..>' may have two different forms, named and short. For example, named: <p=d,s,z,c> where anywhere inside a block '<p>' will be replaced with 'd', 's', 'z', and 'c' for each replicate of the block. <_c> is already defined: <_c=s,d,c,z> <_t> is already defined: <_t=real,double precision,complex,double complex> short: <s,d,c,z>, a short form of the named, useful when no <p> appears inside a block. In general, '<..>' contains a comma separated list of arbitrary expressions. If these expression must contain a comma|leftarrow|rightarrow, then prepend the comma|leftarrow|rightarrow with a backslash. If an expression matches '\<index>' then it will be replaced by <index>-th expression. Note that all '<..>' forms in a block must have the same number of comma-separated entries. Predefined named template rules: <prefix=s,d,c,z> <ftype=real,double precision,complex,double complex> <ftypereal=real,double precision,\0,\1> <ctype=float,double,complex_float,complex_double> <ctypereal=float,double,\0,\1> � )�division�absolute_import�print_function� process_str� process_fileNz2(\n|\A)(( (\$|\*))|)\s*(subroutine|function)\bz+\n\s*end\s*(subroutine|function)\b.*(\n|\Z)z\n (\$|\*)\s*function\bc C s� g }d}x�t �| |�}|dkr P |�� }t�| ||�� �rrx6| �d||�}|dkrTP |}| ||d � dkr<P q<W |d7 }t�| |�� �}|r�|�� d p�t| � }}|� ||f� q W |S )z� Return a list of tuples for each function or subroutine each tuple is the start and end of a subroutine or function to be expanded. r N� ���� z $� ) �routine_start_re�search�start�function_start_re�match�end�rfind�routine_end_re�len�append)�astr�spanlist�ind�mr �ir � r �P/opt/alt/python37/lib64/python3.7/site-packages/numpy/distutils/from_template.py�parse_structure; s( r z<\s*(\w[\w\d]*)\s*>z <\s*(\w[\w\d]*)\s*=\s*(.*?)\s*>z<\s*((.*?))\s*>c C sT t �| �}i }x@|D ]8}|d �� p*t|�}|d �dd�}t|�}|||< qW |S )Nr r z\,z@comma@)�named_re�findall�strip� unique_key�replace�conv)r �reps�names�rep�name�repl�thelistr r r �find_repl_patternsZ s r) z\A\\(?P<index>\d+)\Zc C sd | � d�}dd� |D �}x@tt|��D ]0}t�|| �}|r&t|�d��}|| ||< q&W d�|�S )N�,c S s g | ] }|� � �qS r )r )�.0�xr r r � <listcomp>g s zconv.<locals>.<listcomp>�index)�split�ranger �item_rer �int�group�join)r �b�lr r �jr r r r" e s r" c C s@ t | �� �}d}d}x&|s:d| }||kr4|d7 }qd}qW |S )z( Obtain a unique key given a dictionary.Fr z__l%sT)�list�keys)�adict�allkeys�done�n�newkeyr r r r o s r z\A\s*(\w[\w\d]*)\s*\Zc st | � dd�} | � dd�} t| ��t�d| �} �fdd�}t�|| �} d }d }i �x�t�| �D ]�}|�kr\��||�|d ��}|d kr�td| ��||kr�|� d �s�|||< d d � |� d �D �}t |�}|d kr�|}|�|< |}q\||kr�|�|< q\t d |d � �| �||f � q\W ��s | S � �fdd�} d} x&t|�D ]� | t�| | �d 7 } �q:W | � dd�} | � dd�} | S )Nz\>z @rightarrow@z\<z @leftarrow@z<\1>c sn t | �d��dd��}t�|�r(d| S d }x � �� D ]}� | |kr6|}q6W |d krft� �}|� |< d| S )Nr z\,z@comma@z<%s>)r" r3 r! �template_name_rer r9 r )�mobjr( r& �key)�lnamesr r �listrepl� s z expand_sub.<locals>.listreplz No replicates found for <%s>�_c S s g | ]}|� d d��qS )z@comma@r* )r! )r+ r r r r r- � s z expand_sub.<locals>.<listcomp>r* zHMismatch in number of replacements (base <%s=%s>) for <%s=%s>. Ignoring.c s$ | � d�}��|� d |g �� S )Nr )r3 �get)r@ r& )�k�rulesr r �namerepl� s z expand_sub.<locals>.namerepl� z �>�<)r! r) r �sub�list_re� template_rer rE � ValueError� startswithr/ r �printr4 r0 ) �substrr$ rC �numsubs� base_rule�rr( �rule�numrH �newstrr )rF rB rG r � expand_sub~ sF rY c C s� | }d}t |�}d}i }|�t� x`|D ]X}||||d � 7 }|�t|||d � �� |t||d |d � |�7 }|d }q(W |||d � 7 }|S )NrI r r )r �update�_special_namesr) rY )�allstrrX �writestr�struct�oldendr$ rL r r r r � s z9(\n|\A)\s*include\s*['\"](?P<name>[\w\d./\\]+[.]src)['\"]c C s� t j�| �}t| �}g }xz|D ]r}t�|�}|r�|�d�}t j�|�sTt j�||�}t j� |�rzt d|� |� t |�� q�|� |� q |� |� q W |�� |S )Nr& zIncluding file)�os�path�dirname�open�include_src_rer r3 �isabsr4 �isfilerQ �extend�resolve_includesr �close)�source�d�fid�lines�liner �fnr r r rh � s rh c C s t | �}td�|��S )NrI )rh r r4 )rj rm r r r r � s z� <_c=s,d,c,z> <_t=real,double precision,complex,double complex> <prefix=s,d,c,z> <ftype=real,double precision,complex,double complex> <ctype=float,double,complex_float,complex_double> <ftypereal=real,double precision,\0,\1> <ctypereal=float,double,\0,\1> �__main__r rU �w)/�__doc__� __future__r r r �__all__r` �sys�re�compile�Ir r r r rN r rM r) r1 r" r r? rY r rd rh r r[ �__name__�argv�file� IndexError�stdinrl �stdout�outfilerc ra �splitext�base�extZnewname�readr\ r] �writer r r r �<module>. sJ <