Current File : //usr/lib64/python3.9/site-packages/numpy/distutils/fcompiler/__pycache__/gnu.cpython-39.pyc
a
z[ycP �
@ sF d dl Z d dlZd dlZd dlZd dlZd dlZd dlZd dlZd dlZd dlm Z m
Z
m Z d dl m
Z
d dlmZ d dlmZ ddgZe �d�Zd d
� ZG d d� de�ZG d d� de�Zd
d� Zedk�rBd dlmZ d dl m Z e� d� e e d�� � � ze e d�� � � W n. e!�y@ Z" ze e"� W Y dZ"["n
dZ"["0 0 dS )� N)�Popen�PIPE�STDOUT)� filepath_from_subprocess_output)� FCompiler)� LooseVersion� GnuFCompiler�Gnu95FCompilerzTarget: ([a-zA-Z0-9_\-]*)c C s t jdkot�� d dkS )N�win32r Z64bit)�sys�platform� architecture� r r �C/usr/lib64/python3.9/site-packages/numpy/distutils/fcompiler/gnu.py�is_win64 s r c @ s� e Zd ZdZdZdZdd� Zdd� Zdd gZd
d gg d �d
d
g d
�ddgdgg d
�d�Z d
Z
d
Z e j
dkrzejdkrzdgZejdkr�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|�dkrvt�d|�}|r�|� d�rZd|�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�strip�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_matchL s
zGnuFCompiler.version_matchr Zf77N� -dumpversion)N�-g�-Wall�-fno-second-underscore)Nr+ r, �ar�-cr�ranlib�� version_cmd� compiler_f77� compiler_f90� compiler_fix� linker_soZarchiverr0 �
linker_exe�nt�cygwinz-fPICr
)r2 r3 r6 r7 � -mno-cygwin�g2c�gnu95c C s� | j dd � }tjdkrztj�dd �}|sjdd l}|�d�}|s\d}d|� �}tj |dd� t
|�tjd< |� g d �� n
|� d
� tj�
d �r�|� d � |S )
Nr �darwinZMACOSX_DEPLOYMENT_TARGETr z10.9z.Env. variable MACOSX_DEPLOYMENT_TARGET set to � )�
stacklevel)z
-undefinedZdynamic_lookupz-bundlez-sharedZsunosz
-mimpure-text)r6 r r �os�environ�get� sysconfigZget_config_var�warnings�warn�str�extend�appendr )r# �opt�targetrC �sr r r �get_flags_linker_som s
z GnuFCompiler.get_flags_linker_soc C sH zt �| jdg �}W n tt jfy. Y n0 t|�}tj�|�S d S )Nz-print-libgcc-file-name) �
subprocess� check_outputr3 �OSError�CalledProcessErrorr r@ �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 ttjfyl Y n0 t|�}t j
� |�}|S )N� �linuxzlibgfortran.sor= zlibgfortran.dylibz-print-file-name={0}) r r �formatrM rN r3 rO rP r r@ rQ rR )r# Zlibgfortran_nameZlibgfortran_dirZ find_lib_argrS 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|gtj
fd �R � }tj� tj�|d��}tj�|d| j �}tj� |�r�|� |� |� |� | �
� }|r�|� |� |S )NrU rV r
z/usr/libzlib%s.a� �lib)r r rT r r@ rQ �normpath�joinr; �exists�pardir�abspathrH rX )r# rI �drQ �rootZd2�lib_gfortran_dirr r r �get_library_dirs� s$
z GnuFCompiler.get_library_dirsc C s� g }| � � }|d urL| jd }| j|| jf }tj�tj�||��sR| j}n| j}|d urd|�|� | j }t
j dkr�|r�|j dkr�|�d� t
j dkr�|�d� |S )Nz-picr
�msvc�gccr= �
cc_dynamic)
rT r; Zstatic_lib_formatZstatic_lib_extensionr@ rQ �isfiler\ rH �
c_compilerr r �
compiler_type)r# rI r` r; �frh 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_versionrH )r# r& rI r r r �
get_flags_opt� s
zGnuFCompiler.get_flags_optc C s^ ddl }z|�� d }W n ty. g Y S 0 t�d�}g }|�|�D ]}|d|g7 }qH|S )z( Return detected arch flags from CFLAGS r NZCFLAGSz
-arch\s+(\w+)�-arch)rC Zget_config_vars�KeyErrorr �compile�findall)r# rC ZcflagsZarch_re�
arch_flags�archr r r �
_c_arch_flags� s
zGnuFCompiler._c_arch_flagsc C s g S )Nr rl r r r �get_flags_arch� s zGnuFCompiler.get_flags_archc C s\ t jdkst jdkrt�d|vs$J �t jdkr8d|� �S t j�d�rNd|� �S d|� �S d S ) Nr
r9 �,r= z -Wl,-rpath,�ZaixZos400z-Wl,-blibpath:z -Wl,-rpath=)r r �NotImplementedErrorr )r# �dirr r r �runtime_library_dir_option� s
z'GnuFCompiler.runtime_library_dir_option) �__name__�
__module__� __qualname__ri �compiler_aliases� descriptionr( r) �possible_executables� executables�module_dir_switch�module_include_switchr@ �namer r Z pic_flags�keyrH r; Zsuggested_f90_compilerrL rT rX rc rk rm ro rv rw r| r r r r r sD -�
#
c @ s e Zd ZdZdZdZdd� ZddgZdd gg d
�g d �g d
�g d �d
dgdgddgd�ZdZ dZ
e j �
d�r�ed �d� e �� d dd� dkr�dD ]Zee �d � q�dZd d � Zd d � Zd!d"� Zd#d$� Zd%d&� Zd'd(� Zd)d*� Zd+d,� Zd-d.� Zd/d0� ZdS )1r r< )r zGNU Fortran 95 compilerc C s\ | � |�}|r|d dkr d S |d }t|�dkr4n$tjdkrXdD ]}| j| �d� qB|S )Nr r r �4r
)r2 r3 r4 r5 r6 r7 r: )r( r r r r� rH )r# r$ r& r� r r r r) s
z Gnu95FCompiler.version_matchr Zf95�<F90>r* )Nr, r+ z -ffixed-formr- )Nr, r+ r- )r� r, r+ r. r/ r0 Nr, r1 z-Jz-Iry r6 z -lpthreadr r> Z64)r3 r4 r5 r6 r7 z-maix64c C s^ t jdksg S g }| �� }d|v r0d||�d�< dD ]$}t||�r4||v r4|�d|g� q4|S )z>Return a list of -arch flags for every supported architecture.r= Zi386�i686)Zppcr� Zx86_64Zppc64Zs390xrp )r r rv �index� _can_targetrG )r# �cmdrt Zc_archsru r r r �_universal_flags< s
z Gnu95FCompiler._universal_flagsc C s* t �| �}| �| j�}|r&||d d�< |S �Nr )r � get_flagsr� r4 �r# �flagsrt r r r r� L s
zGnu95FCompiler.get_flagsc C s* t �| �}| �| j�}|r&||d d�< |S r� )r rL r� r6 r� r r r rL S s
z"Gnu95FCompiler.get_flags_linker_soc C s� t �| �}tjdkr�| j}|r�|jdkr�| �� }|r�tj� | �
� �}tjj |gtj fd �R � }tj� |d�}tj� |�}tj�
tj� |d��r�|�|� | �� }|r�|�|� |S )Nr
rd rY rZ z libmingwex.a)r rc r r rh ri �
get_targetr@ rQ r[ rT r\ r^ r] rH rX ) r# rI rh rJ r` ra rQ Zmingwdirrb r r r rc Z s
z Gnu95FCompiler.get_library_dirsc C s� t �| �}tjdkr |�d� tjdkr�| j}|rn|jdkrnd|v rn|�d�}|�|d d� |�|d d� | j}|r�|jdkr�g S |S ) Nr= rf r
rd re r ZmingwexZmingw32) r rk r r �removerh ri r� �insert)r# rI rh �ir r r rk m s
z Gnu95FCompiler.get_librariesc C sz z<t j| jdg t jt jd�}|�� \}}|p0d|p6d }W n tt jfyT Y n"0 t|�}t� |�}|rv|�
d�S dS )Nz-v)�stdin�stderr� r � ) rM r r3 r � communicaterO rP r �TARGET_Rr r )r# �p�stdoutr� rS r% r r r r� s
�
zGnu95FCompiler.get_targetc C sz t �� }|D ]J}t|d��,}|�d�}|s,q8|�|� q W d � q 1 sL0 Y q t�|�� �}|�d�}|� d�S )N�rbi �ascii�=)
�hashlibZsha1�open�read�update�base64Z b32encodeZdigest�decode�rstrip)r# � filenames�h�fnrj �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
rd z This method only supports MSVCZ win_amd64r
rZ 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:)rh ri r" r� �listr r@ rQ �splitext�basenamer\ rg Zlink_shared_objectZ initializedZ
initializeZspawnrZ )r# �objectsr� �
extra_dll_dir� chained_dlls�
is_archiverh 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 dvS )N)rd )ri )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.
rd z.aN���T)r� r� r FzUnsupported C compiler)rh ri �lower�endswithrH r� r� r" ) r# r� r� r� ZarchivesZ
plain_objects�objZ chained_libsr� �archiverZ Zdllr r r �wrap_unlinkable_objects� s< �
�
z&Gnu95FCompiler.wrap_unlinkable_objects) r} r~ r ri r� r� r) r� r� r� r� r r r rH r
r� r; r� r� rL rc rk r� r� r� r� r� r r r r r
s@ �
>c C s� | dd� }t jdd�\}}t�|� z�tj�|�}tj�|�d d }zZ|�d|d|g� t|t t
|d�}|� � |j dkW tj�
|�r�t�|� W t�|� S ntj�
|�r�t�|� 0 W t�|� n t�|� 0 dS ) z7Return true if the architecture supports the -arch flagNz.f)�suffixr z.orp z-c)r� r� �cwd)�tempfileZmkstempr@ �closerQ rR r� rG r r r r� �
returncoder] r� )r� ru ZnewcmdZfid�filenamer` rS r� r r r r� s*
�
� � r� �__main__)�log)�customized_fcompilerr> r Zg95)#r r@ r rD r r� r� r� rM r r r Z numpy.distutils.exec_commandr Znumpy.distutils.fcompilerr Zdistutils.versionr Z compilersrr r� r r r r� r} Z distutilsr� Znumpy.distutilsr� Z
set_verbosity�printrn � Exception�er r r r �<module> s<
q
Mini Shell