File: //usr/local/lib/python3.10/dist-packages/numpy/distutils/fcompiler/__pycache__/gnu.cpython-310.pyc
o
���gP �
@ 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� Zedkr�d dlmZ d dl m Z e� d� e e d�� � � z e e d�� � � W dS e!y� Z" z e e"� W Y dZ"["dS dZ"["ww dS )� N)�Popen�PIPE�STDOUT)� filepath_from_subprocess_output)� FCompiler)� LooseVersion� GnuFCompiler�Gnu95FCompilerzTarget: ([a-zA-Z0-9_\-]*)c C s t jdko t�� d dkS )N�win32r �64bit)�sys�platform� architecture� r r �H/usr/local/lib/python3.10/dist-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
dkr=ejdkr=dgZejdkrNdD ] Ze e �d� qDdZdZdd� 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� �� }|� d�st|�dkr?t�d|�}|r>|� d�r1d|�d�fS |�� d kr>d
|�d�fS n3t�d |�}|rNd
|�d�fS t�d |�}|rr|�d�}|� d
�sj|� d�sj|� d�rnd|fS d
|fS d}t|| ��)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 s2
�
�
� �
z GnuFCompiler.gnu_version_matchc C s& | � |�}|r
|d dkrd S |d S )Nr r r )r) )r$ r% r' r r r �
version_matchL s
zGnuFCompiler.version_matchr �f77N� -dumpversion)N�-g�-Wall�-fno-second-underscore)Nr- r. �ar�-cr�ranlib�� version_cmd� compiler_f77� compiler_f90� compiler_fix� linker_so�archiverr2 �
linker_exe�nt�cygwinz-fPICr
)r4 r5 r8 r: � -mno-cygwin�g2c�gnu95c C s� | j dd � }tjdkr=tj�dd �}|s5dd l}|�d�}|s.d}d|� �}tj |dd� t
|�tjd< |� g d �� n|� d
� tj�
d �rM|� d � |S )
Nr �darwin�MACOSX_DEPLOYMENT_TARGETr z10.9z.Env. variable MACOSX_DEPLOYMENT_TARGET set to � )�
stacklevel)z
-undefined�dynamic_lookupz-bundlez-shared�sunosz
-mimpure-text)r8 r r
�os�environ�get� sysconfig�get_config_var�warnings�warn�str�extend�appendr )r$ �opt�targetrI �sr r r �get_flags_linker_som s
z GnuFCompiler.get_flags_linker_soc C sF z t �| jdg �}W n
tt jfy Y d S w t|�}tj�|�S )Nz-print-libgcc-file-name) �
subprocess� check_outputr5 �OSError�CalledProcessErrorr rF �path�dirname)r$ �outputr r r �get_libgcc_dir� s
�� zGnuFCompiler.get_libgcc_dirc C s� t jd d� dkr d}n
t jdkrd}nd }d }|rBd�|�g}z
t�| j| �}W n
ttjfy7 Y |S w t|�}t j
� |�}|S )N� �linuxzlibgfortran.sor@ zlibgfortran.dylibz-print-file-name={0}) r r
�formatrT rU r5 rV rW r rF rX rY )r$ �libgfortran_name�libgfortran_dir� find_lib_argrZ r r r �get_libgfortran_dir� s&
�� z GnuFCompiler.get_libgfortran_dirc C s� g }t jd d� dkrd| �� }|rdt jdkr_|�d�s_tj�|�}tj�|d| j �}tj� |�s_tjj|gtj
fd �R � }tj� tj�|d��}tj�|d| j �}tj� |�r_|� |� |� |� | �
� }|ro|� |� |S )Nr\ r] r
z/usr/libzlib%s.a� �lib)r r
r[ r rF rX �normpath�joinr> �exists�pardir�abspathrO rb )r$ rP �drX �root�d2�lib_gfortran_dirr r r �get_library_dirs� s$
z GnuFCompiler.get_library_dirsc C s� g }| � � }|d ur&| jd }| j|| jf }tj�tj�||��s%| j}n| j}|d ur2|�|� | j }t
j dkrF|rF|j dkrF|�d� t
j dkrP|�d� |S )Nz-picr
�msvc�gccr@ �
cc_dynamic)
r[ r> �static_lib_format�static_lib_extensionrF rX �isfilerf rO �
c_compilerr r
�
compiler_type)r$ rP rj r> �fru 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|dkrdg}ndg}|�d� |S )Nz3.3.3z-O2z-O3z-funroll-loops)� get_versionrO )r$ r' rP r r r �
get_flags_opt� s
zGnuFCompiler.get_flags_optc C s^ ddl }z|�� d }W n ty g Y S w t�d�}g }|�|�D ]}|d|g7 }q$|S )z( Return detected arch flags from CFLAGS r N�CFLAGSz
-arch\s+(\w+)�-arch)rI �get_config_vars�KeyErrorr �compile�findall)r$ rI �cflags�arch_re�
arch_flags�archr r r �
_c_arch_flags� s �
zGnuFCompiler._c_arch_flagsc C s g S )Nr ry r r r �get_flags_arch� s zGnuFCompiler.get_flags_archc C sX t jdks
t jdkr t�d|vsJ �t jdkr d|� �S t j�d�r'd|� �S d|� �S ) Nr
r< �,r@ z -Wl,-rpath,��aix�os400z-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__rv �compiler_aliases� descriptionr) r* �possible_executables� executables�module_dir_switch�module_include_switchrF �namer r
� pic_flags�keyrO r> �suggested_f90_compilerrS r[ rb rn rx rz r| r� r� r� r r r r r sF -�
#
c @ s e Zd ZdZdZdZdd� ZddgZdd gg d
�g d �g d
�g d �d
dgdgddgd�ZdZ dZ
e j �
d�rUed �d� e �� d dd� dkrUdD ] Zee �d � qKdZd 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 dkrd S |d }t|�dkr |S tjdkr.dD ]
}| j| �d� q#|S )Nr r r �4r
)r4 r5 r6 r7 r8 r: r= )r) r r r
r� rO )r$ r% r' r� r r r r* s
�z Gnu95FCompiler.version_matchr �f95�<F90>r, )Nr. r- z -ffixed-formr/ )Nr. r- r/ )r� r. r- r0 r1 r2 Nr. r3 z-Jz-Ir� r8 z -lpthreadr rB �64)r5 r6 r7 r8 r: z-maix64c C s^ t jdksg S g }| �� }d|v rd||�d�< dD ]}t||�r,||v r,|�d|g� q|S )z>Return a list of -arch flags for every supported architecture.r@ �i386�i686)�ppcr� �x86_64�ppc64�s390xr~ )r r
r� �index� _can_targetrN )r$ �cmdr� �c_archsr� r r r �_universal_flags< s
�z Gnu95FCompiler._universal_flagsc C �* t �| �}| �| j�}|r||d d�< |S �Nr )r � get_flagsr� r6 �r$ �flagsr� r r r r� L �
zGnu95FCompiler.get_flagsc C r� r� )r rS r� r8 r� r r r rS S r� z"Gnu95FCompiler.get_flags_linker_soc C s� t �| �}tjdkrM| j}|rM|jdkrM| �� }|rMtj� | �
� �}tjj |gtj fd �R � }tj� |d�}tj� |�}tj�
tj� |d��rM|�|� | �� }|rX|�|� |S )Nr
ro rc rd z libmingwex.a)r rn r r
ru rv �
get_targetrF rX re r[ rf rh rg rO rb ) r$ rP ru rQ rj rk rX �mingwdirrm r r r rn Z s
z Gnu95FCompiler.get_library_dirsc C s� t �| �}tjdkr|�d� tjdkrD| j}|r7|jdkr7d|v r7|�d�}|�|d d� |�|d d� | j}|rC|jdkrCg S |S ) Nr@ rq r
ro rp r �mingwex�mingw32) r rx r r
�removeru rv r� �insert)r$ rP ru �ir r r rx m s
z Gnu95FCompiler.get_librariesc C s| z t j| jdg t jt jd�}|�� \}}|pd|pd }W n
tt jfy+ Y dS w t|�}t� |�}|r<|�
d�S dS )Nz-v)�stdin�stderr� r � ) rT r r5 r � communicaterV rW r �TARGET_Rr r! )r$ �p�stdoutr� rZ r& r r r r� s"
� �
zGnu95FCompiler.get_targetc C s| t �� }|D ]&}t|d��} |�d�}|sn|�|� qW d � n1 s'w Y qt�|�� �}|�d�}|� d�S )N�rbTi �ascii�=)
�hashlib�sha1�open�read�update�base64� b32encode�digest�decode�rstrip)r$ � filenames�h�fnrw �block�textr r r � _hash_files� s
� ��
zGnu95FCompiler._hash_filesc C s\ | j }|jdkr td��| �t|�t|� �}t� r d}nd}dtj�tj� |d ��d dd� } | d | d
| }
|
d } |
d } |
d
}
tj�
|| �}tj�
|| �}tj�
||
�}tj� |�rh||fS |rtdgt|� dg }| j || |t|�dd| ddddg d� t� r�d}nd}d| d| |g}|j
s�|�� |�|jg| � ||fS )zeCreate a wrapper shared library for the given objects
Return an MSVC-compatible lib
ro z This method only supports MSVC� win_amd64r
rd 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_dir�extra_postargsz /MACHINE:X64z /MACHINE:X86z/def:z/OUT:)ru rv r# r� �listr rF rX �splitext�basenamerf rt �link_shared_object� initialized�
initialize�spawnrd )r$ �objectsr� �
extra_dll_dir� chained_dlls�
is_archiveru � object_hash�tagr� � root_name�dll_name�def_name�lib_name�dll_path�def_path�lib_path� specifier�lib_argsr r r �_link_wrapper_lib� s`
��� ���z Gnu95FCompiler._link_wrapper_libc C s
|j dvS )N)ro )rv )r$ �compilerr r r �can_ccompiler_link� s
z!Gnu95FCompiler.can_ccompiler_linkc C s� | j jdkr]g }g }|D ]}|�� �d�r|�|� q |�|� q g }g }|ddd� D ]} | j| g|||dd�\}
} |�d|
� |�d| � q,|sL|S | j||||dd�\}
} |
g| S td ��)
z�
Convert a set of object files that are not compatible with the default
linker, to a file that is compatible.
ro z.aN���T)r� r� r FzUnsupported C compiler)ru rv �lower�endswithrO r� r� r# ) r$ r� r� r� �archives�
plain_objects�obj� chained_libsr� �archiverd �dllr r r �wrap_unlinkable_objects� s<
�
�
z&Gnu95FCompiler.wrap_unlinkable_objects) r� r� r� rv r� r� r* r� r� r� r� r r
r rO r r� r> r� r� rS rn rx r� r� r� r� r� r r r r r
sB �
> c C s� | dd� }t jdd�\}}t�|� zQtj�|�}tj�|�d d }z3|�d|d|g� t|t t
|d�}|� � |j dkW tj�
|�rQt�|� W t�|� S W t�|� S tj�
|�rdt�|� w w t�|� w ) z7Return true if the architecture supports the -arch flagNz.f)�suffixr z.or~ z-c)r� r� �cwd)�tempfile�mkstemprF �closerX rY r� rN r r r r� �
returncoderg r� )r� r� �newcmd�fid�filenamerj rZ r� r r r r� s(
� � � r� �__main__)�log)�customized_fcompilerrB r �g95)#r rF r rK r
r� r� r� rT r r r � numpy.distutils.exec_commandr �numpy.distutils.fcompilerr �distutils.versionr � compilersr� r� r r r r� r� � distutilsr �numpy.distutilsr �
set_verbosity�printr{ � Exception�er r r r �<module> sD
q
���