OwlCyberSecurity - MANAGER
Edit File: gnu.cpython-38.pyc
U <b�]DQ � @ sh d dl mZmZmZ d dlZd dlZd dlZd dlZd dlZd dl Z d dl Z d dl Z d dl Z d dl m Z mZmZ d dlmZ d dlmZ d dlmZ d dlmZ dd gZe�d �Zd d � Ze� r�g Z ng Z G d d� de�Z G dd � d e �Z dd� Z e dk�rdd dl!m"Z" d dl#m$Z$ e"�%d� e&e$d��'� � ze&e$d��'� � W n e(k �rb e&e� � Y nX dS )� )�division�absolute_import�print_functionN)�Popen�PIPE�STDOUT)� filepath_from_subprocess_output)� FCompiler)� get_exception)� system_info� GnuFCompiler�Gnu95FCompilerzTarget: ([a-zA-Z0-9_\-]*)c C s t jdkot�� d dkS )N�win32r Z64bit)�sys�platform� architecture� r r �?/usr/lib/python3/dist-packages/numpy/distutils/fcompiler/gnu.py�is_win64 s r c @ s e Zd ZdZdZdZdd� Zdd� Zdd gZd d gd d d dgd d d d d gddgdgd d d gd�Z d Z d Z e j dkr�ejdkr�dgZejdkr�dD ]Ze e �d� q�dZdZdd � Zd d � Zd d � Zd!d"� Zd#d$� Zd%d&� Zd'd(� Zd)d*� Z d+d,� Z d-d.� Z d S )/r �gnu)�g77zGNU Fortran 77 compilerc C s� |� d�r"||�d�d d� }q t|�dkrrt�d|�}|r�|� d�rVd|�d�fS |�� d kr�d |�d�fS nft�d |�}|r�d |�d�fS t�d |�}|r�|�d�}|� d �s�|� d�s�|� d�r�d|fS d |fS d}t|| ��dS )z6Handle the different versions of GNU fortran compilerszgfortran: warning� � N� z ([0-9.]+)z GNU Fortranr r �gfortranz GNU Fortran\s+95.*?([0-9-.]+)z%GNU Fortran.*?\-?([0-9-.]+\.[0-9-.]+)�0�2�3z6A valid Fortran version was not found in this string: )� startswith�find�len�re�search�group�start� ValueError)�self�version_string�m�v�errr r r �gnu_version_match) s. � z GnuFCompiler.gnu_version_matchc C s& | � |�}|r|d dkr d S |d S )Nr r r )r+ )r& r' r) r r r � version_matchU s zGnuFCompiler.version_matchr Zf77N� -dumpversion�-g�-Wall�-fno-second-underscore�ar�-cr�ranlib�� version_cmd� compiler_f77� compiler_f90� compiler_fix� linker_soZarchiverr3 � linker_exe�nt�cygwinz-fPICr )r5 r6 r9 r: � -mno-cygwin�g2c�gnu95c C s� | j dd � }tjdkr�tj�dd �}|s�dd lm} i }z |j}W n t k rX Y nX |� }|� ||� |�dd�}|tjd< |dkr�d}t j |dd� |� d d d g� n |�d � tj�d �r�|�d� |S )Nr �darwinZMACOSX_DEPLOYMENT_TARGETr z10.3z2Env. variable MACOSX_DEPLOYMENT_TARGET set to 10.3� )� stacklevelz -undefinedZdynamic_lookupz-bundlez-sharedZsunosz -mimpure-text)r9 r r �os�environ�getZdistutils.sysconfig� sysconfig�get_makefile_filename�AttributeErrorZparse_makefile�warnings�warn�extend�appendr )r& �opt�targetZsc�grG �filename�sr r r �get_flags_linker_sov s, z GnuFCompiler.get_flags_linker_soc C sJ zt �| jdg �}W n tt jfk r0 Y nX t|�}tj�|�S d S )Nz-print-libgcc-file-name) � subprocess� check_outputr6 �OSError�CalledProcessErrorr rC �path�dirname)r& �outputr r r �get_libgcc_dir� s � zGnuFCompiler.get_libgcc_dirc C s� t jd d� dkrd}nt jdkr(d}nd }d }|r�d�|�g}zt�| j| �}W n ttjfk rn Y nX t|�}t j � |�}|S )N� �linuxzlibgfortran.sor@ zlibgfortran.dylibz-print-file-name={0}) r r �formatrS rT r6 rU rV r rC rW rX )r& Zlibgfortran_nameZlibgfortran_dirZ find_lib_argrY r r r �get_libgfortran_dir� s" � z GnuFCompiler.get_libgfortran_dirc C s� g }t jd d� dkr�| �� }|r�t jdkr�|�d�s�tj�|�}tj�|d| j �}tj� |�s�tjj|ftj fd �� }tj� tj�|d��}tj�|d| j �}tj� |�r�|� |� |� |� | � � }|r�|� |� |S )Nr[ r\ r z/usr/libzlib%s.a� �lib)r r rZ r rC rW �normpath�joinr> �exists�pardir�abspathrL r^ )r& rM �drW �rootZd2�lib_gfortran_dirr r r �get_library_dirs� s$ z GnuFCompiler.get_library_dirsc C s� g }| � � }|d k rL| jd }| j|| jf }tj�tj�||��sR| j}n| j}|d k rd|�|� | j }t j dkr�|r�|j dkr�|�d� t j dkr�|�d� |S )Nz-picr �msvc�gccr@ � cc_dynamic) rZ r> Zstatic_lib_formatZstatic_lib_extensionrC rW �isfilerb rL � c_compilerr r � compiler_type)r& rM rf r> �frn r r r � get_libraries� s$ � zGnuFCompiler.get_librariesc C s dgS )Nr. r �r& r r r �get_flags_debug� s z GnuFCompiler.get_flags_debugc C s0 | � � }|r |dkr dg}ndg}|�d� |S )Nz3.3.3z-O2z-O3z-funroll-loops)� get_versionrL )r& r) rM r r r � get_flags_opt� s zGnuFCompiler.get_flags_optc C sd ddl m} z|�� d }W n tk r4 g Y S X t�d�}g }|�|�D ]}|d|g7 }qN|S )z( Return detected arch flags from CFLAGS r )rF ZCFLAGSz -arch\s+(\w+)�-arch)� distutilsrF Zget_config_vars�KeyErrorr! �compile�findall)r& rF ZcflagsZarch_re� arch_flags�archr r r � _c_arch_flags� s zGnuFCompiler._c_arch_flagsc C s g S )Nr rr r r r �get_flags_arch s zGnuFCompiler.get_flags_archc C sJ t jd d� dks t jdkr t�d|ks,t�t jdkr:dnd}d||f S )N� �aixr �,r@ �=z-Wl,-rpath%s%s)r r �NotImplementedError�AssertionError)r& �dir�sepr r r �runtime_library_dir_option s z'GnuFCompiler.runtime_library_dir_option) �__name__� __module__� __qualname__ro �compiler_aliases� descriptionr+ r, �possible_executables� executables�module_dir_switch�module_include_switchrC �namer r Z pic_flags�keyrL r> Zsuggested_f90_compilerrR rZ r^ ri rq rs ru r} r~ r� r r r r r $ sD , � , c @ s& e Zd ZdZdZdZdd� ZddgZdd gd d d d dge d d d dge d d d d dge dd d gddgdgd d gd�Z dZ dZ e j d d� dkr�e d �d� e �� d d d� dkr�d D ]Ze e �d � q�dZd d � Zd d!� Zd"d#� Zd$d%� Zd&d'� Zd(d)� Zd*d+� Zd,d-� Zd.d/� Zd0d1� Zd S )2r r? )r zGNU Fortran 95 compilerc C sX | � |�}|r|d dkr d S |d }|dkr0n$tjdkrTdD ]}| j| �d� q>|S )Nr r r z4.r )r5 r6 r7 r8 r9 r: r= )r+ r r r� rL )r& r' r) r� r r r r, s z Gnu95FCompiler.version_matchr Zf95z<F90>r- Nr/ r. z -ffixed-formr0 r1 r2 r3 r4 z-Jz-Ir r� r9 z -lpthreadr rA Z64)r6 r7 r8 r9 r: z-maix64c C s^ t jdksg S g }| �� }d|kr0d||�d�< dD ]$}t||�r4||kr4|�d|g� q4|S )z>Return a list of -arch flags for every supported architecture.r@ Zi386�i686)Zppcr� Zx86_64Zppc64rv )r r r} �index� _can_targetrK )r& �cmdr{ Zc_archsr| r r r �_universal_flagsI s z Gnu95FCompiler._universal_flagsc C s* t �| �}| �| j�}|r&||d d�< |S �Nr )r � get_flagsr� r7 �r& �flagsr{ r r r r� Y s zGnu95FCompiler.get_flagsc C s* t �| �}| �| j�}|r&||d d�< |S r� )r rR r� r9 r� r r r rR ` s z"Gnu95FCompiler.get_flags_linker_soc C s� t �| �}tjdkr�| j}|r�|jdkr�| �� }|r�tj� | � � �}tjj |ftj fd �� }tj� |d�}tj� |�}tj� tj� |d��r�|�|� | �� }|r�|�|� |S )Nr rj r_ r` z libmingwex.a)r ri r r rn ro � get_targetrC rW ra rZ rb rd rc rL r^ ) r& rM rn rN rf rg rW Zmingwdirrh r r r ri g s z Gnu95FCompiler.get_library_dirsc C s� t �| �}tjdkr |�d� tjdkr�| j}|rn|jdkrnd|krn|�d�}|�|d d� |�|d d� | j}|r�|jdkr�g S |S ) Nr@ rl r rj rk r ZmingwexZmingw32) r rq r r �removern ro r� �insert)r& rM rn �ir r r rq z s z Gnu95FCompiler.get_librariesc C sV zt �| jdg �}W n tt jfk r0 Y n"X t|�}t�|�}|rR|�d�S dS )Nz-vr � ) rS rT r6 rU rV r �TARGET_Rr" r# )r& rY r( r r r r� � s zGnu95FCompiler.get_targetc C st t �� }|D ]6}t|d��"}|�d�}|s,q8|�|� q W 5 Q R X q t�|�� �}tj d dkrj|� d�}|� d�S )N�rbi r r �asciir� ) �hashlibZsha1�open�read�update�base64Z b32encodeZdigestr � version_info�decode�rstrip)r& � filenames�h�fnrp �block�textr r r � _hash_files� s zGnu95FCompiler._hash_filesc C s` | j }|jdkrtd��| �t|�t|� �}t� r:d}nd}dtj�tj� |d ��d dd� } | d | d | } | d } | d } | d } tj� || �}tj� || �}tj� || �}tj� |�r�||fS |r�dgt|� dg }| j || |t|�dd| ddddg d� t� �r d}nd}d| d| |g}|j �sF|�� |�|jg| � ||fS )zeCreate a wrapper shared library for the given objects Return an MSVC-compatible lib rj z This method only supports MSVCZ win_amd64r r` r N� �.z .gfortran-z.dllz.defz.libz-Wl,--whole-archivez-Wl,--no-whole-archivez -Wl,--allow-multiple-definitionz-Wl,--output-def,z-Wl,--export-all-symbolsz-Wl,--enable-auto-importz-staticz-mlong-double-64)� output_dirZextra_postargsz /MACHINE:X64z /MACHINE:X86z/def:z/OUT:)rn ro r% r� �listr rC rW �splitext�basenamerb rm Zlink_shared_objectZ initializedZ initializeZspawnr` )r& �objectsr� � extra_dll_dir� chained_dlls� is_archivern Z object_hash�tagr� Z root_nameZdll_nameZdef_nameZlib_nameZdll_pathZdef_pathZlib_pathZ specifierZlib_argsr r r �_link_wrapper_lib� s` ��� ���z Gnu95FCompiler._link_wrapper_libc C s |j dkS )N)rj )ro )r& Zcompilerr r r �can_ccompiler_link� s z!Gnu95FCompiler.can_ccompiler_linkc C s� | j jdkr�g }g }|D ](}|�� �d�r6|�|� q|�|� qg }g }|ddd� D ]6} | j| g|||dd�\} } |�d| � |�d| � qX|s�|S | j||||dd�\} } | g| S td ��dS ) z� Convert a set of object files that are not compatible with the default linker, to a file that is compatible. rj z.aN���T)r� r� r FzUnsupported C compiler)rn ro �lower�endswithrL r� r� r% ) r& r� r� r� ZarchivesZ plain_objects�objZ chained_libsr� �archiver` Zdllr r r �wrap_unlinkable_objects� s< � � z&Gnu95FCompiler.wrap_unlinkable_objects) r� r� r� ro r� r� r, r� � _EXTRAFLAGSr� r� r� r r rL r r� r> r� r� rR ri rq r� r� r� r� r� r r r r r sX ������� >c C s� | dd� }t jdd�\}}t�|� zztj�|�}tj�|�d d }z<|� d|d|g� t |t t |d�}|� � |jdkW �W � S tj�|�r�t�|� X W 5 t�|� X d S ) z7Return true if the architecture supports the -arch flagNz.f)�suffixr z.orv z-c)�stderr�stdout�cwdF)�tempfileZmkstemprC �closer� rW rX r� rc rK r r r Z communicate� returncode)r� r| ZnewcmdZfidrP rf rY �pr r r r� s r� �__main__)�log)�customized_fcompilerrA r Zg95))Z __future__r r r r! rC r rI r r� r� r� rS r r r Z numpy.distutils.exec_commandr Znumpy.distutils.fcompilerr Znumpy.distutils.compatr Znumpy.distutils.system_infor Z compilersry r� r r� r r r� r� rw r� Znumpy.distutilsr� Z set_verbosity�printrt � Exceptionr r r r �<module> sF t