Current File : //usr/lib64/python3.9/site-packages/numpy/distutils/fcompiler/__pycache__/__init__.cpython-39.pyc
a
z[ycW� � @ s� d Z g d�ZddlZddlZddlZddlmZ ddlmZ ddl m
Z
m Z m Z m
Z
mZ ddlmZmZ ddlmZmZ dd lmZ dd
lmZmZmZmZm Z dd l m Z dd lm Z d
dl m!Z! e"Z#G dd� de$�Z%dd� Z&dd� Z'dd� Z(G dd� de�Z)dZ*da+da,dd� Z-d6d d �Z.d7d d �Z/d8d!d"�Z0e1� a2d9d#d$�Z3d:d%d&�Z4d'd(� Z5e�6d)ej7�j8Z9e�6d*ej7�j:Z;e�6d+ej7�j:Z<e�6d,ej7�j:Z=e�6d-ej7�j8Z>d.d/� Z?d0d1� Z@e�6d2ej7�ZAd3d4� ZBeCd5k�r�e4� dS );a� numpy.distutils.fcompiler
Contains FCompiler, an abstract base class that defines the interface
for the numpy.distutils Fortran compiler abstraction model.
Terminology:
To be consistent, where the term 'executable' is used, it means the single
file, like 'gcc', that is executed, and should be a string. In contrast,
'command' means the entire command line, like ['gcc', '-c', 'file.c'], and
should be a list.
But note that FCompiler.executables is actually a dictionary of commands.
)� FCompiler�
new_fcompiler�show_fcompilers�dummy_fortran_file� N)�get_python_lib)� FancyGetopt)�DistutilsModuleError�DistutilsExecError� CompileError� LinkError�DistutilsPlatformError)� split_quoted� strtobool)� CCompiler�gen_lib_options)�log)� is_string� all_strings� is_sequence�make_temp_file�get_shared_lib_extension��find_executable)� _shell_utils� )�EnvironmentConfigc @ s e Zd ZdS )�CompilerNotFoundN)�__name__�
__module__� __qualname__� r r �H/usr/lib64/python3.9/site-packages/numpy/distutils/fcompiler/__init__.pyr ( s r c C s t | �rt| �S | S d S �N)r r
��sr r r! �flaglist+ s r% c C s t | �rt| �S t| �S r" )r r �boolr# r r r! �str2bool1 s r' c C s t | �ot| �S r" )r r )�seqr r r! �is_sequence_of_strings6 s r) c @ s^ e Zd ZdZeddddedfdddedfdddedfdddedfd �Zedd
d d d
ddddd� Zeddddedfdddedfddd edfd ddedfd d d edfd!ddedfd"ddedfd#d$d%edfd&ddedfd'ddedfd(d)d*edfd+ddedfd,ddedfd-d.d/edfd0d1d2edfd3d1d2edfd4d5d6edfd7�Z d8d8d8d8d8d9d9d9d:�Z
d9d8gZ dZ d;Z
dZg Zd8d<gd8gd9gd9d=gd9d>gd9gd?d@gddA�ZdZdBZdCZdCZdZdDZg Zg dE�ZdFZe� ZdGZ dHZ dIZ dJZ i Z g dA�Z!dZ"g Z#g Z$dKdL� Z%dMdN� Z&dOdP� Z'dQdR� Z(e(dS�Z)e(dT�Z*e(dU�Z+e(dV�Z,e(dW�Z-e(dX�Z.e(dY�Z/e(dZ�Z0d[d\� Z1d]d^� Z2d_d`� Z3dadb� Z4dcdd� Z5dedf� Z6dgdh� Z7didj� Z8dkdl� Z9dmdn� Z:dodp� Z;dqdr� Z<dsdt� Z=dudv� Z>dwdx� Z?dydz� Z@d{d|� ZAe? ZBZCe@ ZDZEeA ZFZGd}d~� ZHdd�� ZIdd�gfd�d��ZJd�d�d��ZKd�d�� ZLd�d�� ZMd�d�� ZNd�d�� ZOd�d�� ZPd�d�d��ZQd�d�� ZRd�d�� ZSd�d�� ZTdS )�r a0 Abstract base class to define the interface that must be implemented
by real Fortran compiler classes.
Methods that subclasses may redefine:
update_executables(), find_executables(), get_version()
get_flags(), get_flags_opt(), get_flags_arch(), get_flags_debug()
get_flags_f77(), get_flags_opt_f77(), get_flags_arch_f77(),
get_flags_debug_f77(), get_flags_f90(), get_flags_opt_f90(),
get_flags_arch_f90(), get_flags_debug_f90(),
get_flags_fix(), get_flags_linker_so()
DON'T call these methods (except get_version) after
constructing a compiler instance or inside any other method.
All methods, except update_executables() and find_executables(),
may call the get_version() method.
After constructing a compiler instance, always call customize(dist=None)
method that finalizes compiler construction and makes the following
attributes available:
compiler_f77
compiler_f90
compiler_fix
linker_so
archiver
ranlib
libraries
library_dirs
� config_fcN�nooptF�noarch�debug�verbose)�distutils_sectionr+ r, r- r. )zexe.compiler_f77ZF77Zf77execNF)zexe.compiler_f90�F90�f90execNF)zexe.compiler_fixr0 r1 NF)zexe.version_cmdNNNF)z
exe.linker_soZLDSHAREDZldsharedNF)zexe.linker_exeZLDZldNF)NZAR�arNF)NZRANLIB�ranlibNF) r/ � compiler_f77� compiler_f90� compiler_fix� version_cmd� linker_so�
linker_exe�archiverr3 z flags.f77ZF77FLAGS�f77flagsTz flags.f90ZF90FLAGS�f90flagsz
flags.freeZ FREEFLAGS� freeflagsz flags.fixz flags.optZFOPT�optz
flags.opt_f77z
flags.opt_f90z
flags.archZFARCH�archzflags.arch_f77zflags.arch_f90z flags.debugZFDEBUGZfdebugzflags.debug_f77zflags.debug_f90zself.get_flagsZFFLAGS�fflagszflags.linker_soZLDFLAGSZldflagszflags.linker_exezflags.arZARFLAGS�arflags)r/ �f77�f90�free�fixr> Zopt_f77Zopt_f90r? Zarch_f77Zarch_f90r- Z debug_f77Z debug_f90�flagsr8 r9 r2 rB rC )�.f�.for�.F�.ftn�.f77�.f90�.F90�.f95r z-vz-fixedz-sharedr2 z-cr)r7 r4 r5 r6 r8 r9 r: r3 z-cz-o z-I) rH rJ rK rG rL rN rI rM z.FORz.oz.azlib%s%s�%s%s� c O s~ t j| g|�R i |�� | j�| j�| _| j�| j�| _| j�| j�| _| j�� | _| j D ]}|| jvrZd | j|< qZd| _
d S )NF) r �__init__�distutils_vars�clone�_environment_hook� command_vars� flag_vars� executables�copy�_executable_keys�_is_customised)�self�args�kw�er r r! rQ � s
zFCompiler.__init__c C sZ | � | j�}|j�| j� |j�|j�|_|j�|j�|_|j�|j�|_|j �
� |_ |S r" ) �__new__� __class__�__dict__�updaterR rS rT rU rV rW rX )r[ �objr r r! �__copy__� s zFCompiler.__copy__c C s | � � S r" )rd �r[ r r r! rX � s zFCompiler.copyc s � fdd�}t |d�S )Nc s | j s
J �| j� S r" )rZ rW re ��keyr r! �fget� s
z)FCompiler._command_property.<locals>.fget)rh )�property)rg rh r rf r! �_command_property� s zFCompiler._command_propertyr7 r4 r5 r6 r8 r9 r: r3 c C s | � ||� d S r" )� set_command�r[ rg �valuer r r! �set_executable s zFCompiler.set_executablec K s" |� � D ]\}}| �||� qd S r" )�itemsrk )r[ r] �k�vr r r! � set_commands s zFCompiler.set_commandsc C s` || j vr td|| jjf ��t|�r.t|�}|d u sRt|dd � �sRJ ||f��|| j|< d S )Nz$unknown executable '%s' for class %sr )rY �
ValueErrorr` r r r
r) rW rl r r r! rk s
��$zFCompiler.set_commandc s� �j s
J ��j��fdd�� �fdd�}d� �fdd� }�j}|d�}|st|d �}|rft�d
| � q�td | ��n*|d |d �}|s�t�d
| � |d|d � |d||d� |d||d� |d||d� |d� |d� dS )a3 Go through the self.executables dictionary, and attempt to
find and assign appropriate executables.
Executable names are looked for in the environment (environment
variables, the distutils.cfg, and command line), the 0th-element of
the command list, and the self.possible_executables list.
Also, if the 0th element is "<F77>" or "<F90>", the Fortran 77
or the Fortran 90 compiler executable is used, unless overridden
by an environment setting.
Subclasses should call this if overridden.
c s, | � v r� | S t | �}| � | < � |< |S r" r )�exe�fc_exe)� exe_cacher r! �cached_find_executable( s
z:FCompiler.find_executables.<locals>.cached_find_executablec s* |d ur&t |�s&td| |� jjf ��d S )Nz"%s value %r is invalid in class %s)r) rs r` r )�namerm re r r! �verify_command_form. s ��z7FCompiler.find_executables.<locals>.verify_command_formNc s� �j �| d �}|sd S t�j| �}|s6||g�j }n |g�j }t� }g }|D ]@}|dkrb|}n |dkrn|}|rP||v r|qP|�|� |�|� qP|D ] } � | �}
|
r�|
|d< |
S q���| d � d S )Nz<F77>z<F90>r ) rW �get�getattrrU �possible_executables�set�add�appendrk ) Zexe_keyrB rC �cmdZexe_from_environZ possibles�seenZunique_possiblesr^ rt ru )rw r[ r r! �set_exe3 s2
z+FCompiler.find_executables.<locals>.set_exer5 r4 z %s: no Fortran 90 compiler foundz%s: f90 nor f77)rC z %s: no Fortran 77 compiler foundr6 r8 )rB rC r9 r7 r: r3 )NN)rZ �
_exe_cache�
compiler_typer �warnr )r[ ry r� ZctyperC rB r )rw rv r[ r! �find_executables s*
zFCompiler.find_executablesc C s dS )aq Called at the beginning of customisation. Subclasses should
override this if they need to set up the executables dictionary.
Note that self.find_executables() is run afterwards, so the
self.executables dictionary values can contain <F77> or <F90> as
the command, which will be replaced by the found F77 or F90
compiler.
Nr re r r r! �update_executablesg s z FCompiler.update_executablesc C s
g | j S )z+List of flags common to all compiler types.)� pic_flagsre r r r! � get_flagsr s zFCompiler.get_flagsc C s& | j �|d �}|d u rg S |dd � S )Nr )rW rz )r[ rg r� r r r! �_get_command_flagsv s z FCompiler._get_command_flagsc C s
| � d�S )z"List of Fortran 77 specific flags.r4 �r� re r r r! �
get_flags_f77| s zFCompiler.get_flags_f77c C s
| � d�S )z"List of Fortran 90 specific flags.r5 r� re r r r! �
get_flags_f90 s zFCompiler.get_flags_f90c C s g S )z.List of Fortran 90 free format specific flags.r re r r r! �get_flags_free� s zFCompiler.get_flags_freec C s
| � d�S )z/List of Fortran 90 fixed format specific flags.r6 r� re r r r! �
get_flags_fix� s zFCompiler.get_flags_fixc C s
| � d�S )z/List of linker flags to build a shared library.r8 r� re r r r! �get_flags_linker_so� s z FCompiler.get_flags_linker_soc C s
| � d�S )z,List of linker flags to build an executable.r9 r� re r r r! �get_flags_linker_exe� s z FCompiler.get_flags_linker_exec C s
| � d�S )zList of archiver flags. r: r� re r r r! � get_flags_ar� s zFCompiler.get_flags_arc C s g S )z0List of architecture independent compiler flags.r re r r r! �
get_flags_opt� s zFCompiler.get_flags_optc C s g S )z.List of architecture dependent compiler flags.r re r r r! �get_flags_arch� s zFCompiler.get_flags_archc C s g S )z=List of compiler flags to compile with debugging information.r re r r r! �get_flags_debug� s zFCompiler.get_flags_debugc C s | j dd� S )zList of compiler libraries.N)� librariesre r r r! �
get_libraries� s zFCompiler.get_librariesc C s | j dd� S )z%List of compiler library directories.N)� library_dirsre r r r! �get_library_dirs� s zFCompiler.get_library_dirsr c C s, | j s
J �tj| ||d�}|d u r(t� �|S )N)�force� ok_status)rZ r � get_versionr )r[ r� r� �versionr r r! r� � s
zFCompiler.get_versionc s� t �d�jj � d�_�j�|� �j�|� �j�|� �� � ��
� �j� dd�}�j� d|�}�j� dd�}�jj � �jj
�g �g �g }g �� r�tj�� �� �jj��r�tj�����jj��jj}�jj��r�tj�����jj� �g g g }}}� ������fdd�} |�s:| d |� |�s:| d
|� |�rJ| d|� �jj| | | }
� �rx�j� � |
d � ��r��j�| � |
d � ��r��j�� |
d
� �j} | �rr�jj} tj�d��rt dd�}
t j � |
dd�}t j � |
dd�}|g| d| g } tj�d��rbddl m!} |d�}t j � |d�}t j � |d�}|g| d| g } �j| | d� �j"}|�r��jj"}�j|| d� �jj#}|�r��jj$}�j|g| d� ��%��&� � ��'��(� � d S ) a� Customize Fortran compiler.
This method gets Fortran compiler specific information from
(i) class definition, (ii) environment, (iii) distutils config
files, and (iv) command line (later overrides earlier).
This method should be always called after constructing a
compiler instance. But not in __init__ because Distribution
instance is needed for (iii) and (iv).
z customize %sTr+ Fr, r- c s� |� t�j| �� t�d| �}d� �fd��fd��ffD ]>\}}}d| |f }|r<|t�d| �ur<|� t�j|�� q<d S )N�
get_flags_rB rC z%s_%s)�extendr{ rV )�tagrF Zthis_getrx �cZflagvar�t�rB r; rC r< rE Zfixflagsr[ r r! r� � s � z&FCompiler.customize.<locals>.get_flagsr> r? )r4 )r5 )r6 Zaixr )Z standard_libZconfig� ld_so_aixz
python.expz-bI:Zos400r )�get_config_varZLIBPL)r8 )r9 )r: N))r �infor` r rZ rR Zuse_distributionrU rV r� r� rz r4 r5 r Z NativeParser�splitrB rC rD r6 rE rF rr r8 �sys�platform�
startswithr �os�path�join�distutils.sysconfigr� r9 r: r2 Zset_library_dirsr� Z
set_librariesr� )r[ �distr+ r, r- r= ZoflagsZaflagsZdflagsr� r@ r8 Zlinker_so_flagsZ
python_libr� Z
python_expr� Z
python_configr9 Zlinker_exe_flagsr2 rA r r� r! � customize� s�
zFCompiler.customizec C s� g }t | j�� �g d� D ]0}t| |�rt| |�}|�|ddt|� f� q|�� t|�}|� d| j
j �D ],}|dd� dkr�d|dd� }t |� qndS )z0Print out the attributes of a compiler instance.)r� r� r� �
object_switch�compile_switchNz= z%s instance properties:� z --z )
�listrW �keys�hasattrr{ r �repr�sortr Z
generate_helpr` r �print)r[ Zpropsrg rq �pretty_printer�lr r r! �dump_properties' s �
�
zFCompiler.dump_propertiesc
C s� i }t |�r2t|�s2d}| j} t|�}| jp.g }
njt|�rld}| j} | du r`td| jj |f ��| j
phg }
n0d}| j } | du r�td| jj |f ��| j
p�g }
| j d dkr�| j �
� |g} n| j �
� | g} | j�
� s�J �| j|g} |
�rt�d |d
d� d�|
�f � |�| jg �}
|
�r0t�d d�|
� � | | |
| | | |
}d tj�| d
�| |f }z| j||d� W n8 t�y� } z t|�}t|�d�W Y d}~n
d}~0 0 dS )z Compile 'src' to product 'obj'.z:f77z:f90Nz%f90 not supported by %s needed for %sz:fixz-f90 (fixed) not supported by %s needed for %s���� zextra %s options: %rr z%using compile options from source: %rz%s: %sr )�display)� is_f_file�has_f90_headerr4 � get_f77flags�extra_f77_compile_args�is_free_formatr5 r r` r �extra_f90_compile_argsr6 r� �stripr� r r� r� rz r� r� r� �basename�spawn�strr
)r[ rc �src�extZcc_args�extra_postargsZpp_optsZ src_flagsZflavor�compilerZextra_compile_args�o_args�s_args� extra_flags�commandr� r^ �msgr r r! �_compile; s`
�
�
�����zFCompiler._compilec C s� g }| j d urH| j d dkr2|�| j �� |g� qb|�| j �� | � ntd| � td| jj� | jd ur�|g| D ]}|�d| j|f � qvntd| � td| jj� |S )Nr� r� z'XXX: module_build_dir=%r option ignoredz XXX: Fix module_dir_switch for rO z"XXX: module_dirs=%r option ignoredz#XXX: Fix module_include_switch for )�module_dir_switchr� r� r r� r` r �module_include_switch)r[ Z module_dirsZmodule_build_dir�options�dr r r! �module_optionsm s
zFCompiler.module_optionsc C s d| S )Nz-lr )r[ �libr r r! �library_option s zFCompiler.library_optionc C s d| S )Nz-Lr )r[ �dirr r r! �library_dir_option� s z FCompiler.library_dir_optionc
C s� | � ||�\}}| �|||�\}}}t| |||�}t|�rJtj�||�}n|d urZtd��| �||��r�| j d dkr�| j �
� |g}n| j �
� | g}t| j �r�|| j g }n
|| j }|| | }| r�dg|d d�< |
r�|
|d d�< | r�|� | � | �
tj�|�� |tjk�r"| jd d � }n| jd d � }|| }z| �|� W n8 t�y~ } z t|�}t|�d �W Y d }~n
d }~0 0 n t�d|� d S )Nz%'output_dir' must be a string or Noner� r� z-gr zskipping %s (up-to-date))Z_fix_object_argsZ
_fix_lib_argsr r r� r� r� � TypeErrorZ
_need_link�library_switchr� �objectsr� Zmkpath�dirnamer Z
EXECUTABLEr9 r8 r� r r� r r r- )r[ Z target_descr� Zoutput_filename�
output_dirr� r� Zruntime_library_dirsZexport_symbolsr- Z
extra_preargsr� Z
build_tempZ target_langZlib_optsr� Zld_argsZlinkerr� r^ r� r r r! �link� sF ��
"zFCompiler.linkc C s� |d u r d S t |�r�|�d�r:|dd � }t| |�}|� S |�d�rl|dd � }| j| }|rf|d S d S q�|�d�r�|dd � }t| d| �}|� S n|� S d S ) Nzself.� zexe.r� r zflags.� r� )r r� r{ rW )r[ rx Z hook_name�hook�varr r r! rT � s$
zFCompiler._environment_hookc C s dS )zc
Check if the given C compiler can link objects produced by
this compiler.
Tr )r[ Z ccompilerr r r! �can_ccompiler_link� s z FCompiler.can_ccompiler_linkc C s
t � �dS )a�
Convert a set of object files that are not compatible with the default
linker, to a file that is compatible.
Parameters
----------
objects : list
List of object files to include.
output_dir : str
Output directory to place generated object files.
extra_dll_dir : str
Output directory to place extra DLL files that need to be
included on Windows.
Returns
-------
converted_objects : list of str
List of converted object files.
Note that the number of output files is not necessarily
the same as inputs.
N)�NotImplementedError)r[ r� r� Z
extra_dll_dirr r r! �wrap_unlinkable_objects� s z!FCompiler.wrap_unlinkable_objects)N)
NNNNNr NNNN)Ur r r �__doc__r r' rR rU r% rV Z language_mapZlanguage_orderr� �compiler_aliasesZversion_patternr| rW �suggested_f90_compilerr� r� r� r� r� r� Zsrc_extensionsZ
obj_extensionr Zshared_lib_extensionZstatic_lib_extensionZstatic_lib_formatZshared_lib_formatZ
exe_extensionr� rY �
c_compilerr� r� rQ rd rX rj r7 r4 r5 r6 r8 r9 r: r3 rn rr rk r� r� r� r� r� r� r� r� r� r� r� r� r� r� Zget_flags_opt_f77Zget_flags_opt_f90Zget_flags_arch_f77Zget_flags_arch_f90Zget_flags_debug_f77Zget_flags_debug_f90r� r� r� r� r� r� r� r� r� r� rT r� r� r r r r! r 9 s ( �� �� � O
u2 �
/r )
)�win32)
�gnu�intelv�absoft�compaqv�intelev�gnu95�g95Zintelvem�intelemZflang)zcygwin.*)r� r� r� r� r� r� r� )zlinux.*)Zarmr� �intelZlahey�pg�nvr� �nagZvastZcompaqZinteler� r� r� Zpathf95�nagforZfujitsu)zdarwin.*) r� r� r� r� �ibmr� r� r� r� )zsunos.*)Zsunr� r� r� )zirix.*)Zmipsr� r� )zaix.*)r� r� r� )�posix�r� r� )�ntr� )Zmac)r� r� r� c
C s� ddl m } tdurdS tj�tj�t�d�}i ai a| |�D ]�}tj�tj� |��\}}d| }t
|� t j | }t
|d�r>|jD ]`}t||�}|j||jf}|t|j< |jD ]2} | tv r�td| |jt| d jf ��|t| < q�q�q>dS ) zcCache all the FCompiler classes found in modules in the
numpy.distutils.fcompiler package.
r )�globNz*.pyznumpy.distutils.fcompiler.� compilersz#alias %r defined for both %s and %sr )r �fcompiler_classr� r� r� r� �__file__�fcompiler_aliases�splitextr� �
__import__r� �modulesr� r r{ r� � descriptionr� rs r )
r Zpys�fname� module_namer� �moduleZcname�klassZdesc�aliasr r r! �load_all_fcompiler_classes s0
��r Fc C s ddl m} |dd�}| D ]�}d }z�t|||d�} | �|� | �� }|r�| jd u r�d }| j}
|
r�t�d||
f � t||
|d�} | �|� | �� }|d ur�|
}|r�| jd u r�t d| j
j ��W n: t y� t�
d|� Y n ty� t�
d |� Y n0 |d ur| S qd S )
Nr )�get_distributionT)�always)�platr� r� z?Trying %r compiler as suggested by %r compiler for f90 support.z2%s does not support compiling f90 codes, skipping.zH_find_existing_fcompiler: compiler_type='%s' raised DistutilsModuleErrorz6_find_existing_fcompiler: compiler_type='%s' not found)Znumpy.distutils.corer r r� r� r5 r� r r� rs r` r r r- r ) Zcompiler_types�osnamer� �
requiref90r� r r� r� rq r� Z new_compilerr r r! �_find_existing_fcompiler sJ
�
���
�
r c C st | d u rt j} |d u r tj}g }tD ]<\}}t�||�sDt�|| �r$|D ]}||vrH|�|� qHq$|sp|�d� |S )Nr� )r� rx r� r� �_default_compilers�re�matchr )r r� �matching_compiler_types�patternr� Zctr r r! �!available_fcompilers_for_platformB s
r c C s, t | |�}t�d|� t|| |||d�}|S )zIDetermine the default Fortran compiler to use for the given
platform.z+get_default_fcompiler: matching types: '%s')r r� r r� )r r r� r )r r� r r� r r� r r r! �get_default_fcompilerQ s ���r c C s� | |f}|t v rdS t� | du r(tj} |du r>t| ||d�}|tv rVt| \}} }
nb|tv rnt| \}} }
nJd| } |dur�| d| } | dd�t�� � } t �
| � t � |� dS | |||d�}||_ |S )zhGenerate an instance of some FCompiler subclass for the supplied
platform/compiler combination.
N)r r� z7don't know how to compile Fortran code on platform '%s'z with '%s' compiler.z Supported compilers are: %s)�,)r. �dry_runr� )
�failed_fcompilersr r� rx r r r r� r� r r� r~ r� ) r r� r. r r� r r� Z
fcompiler_keyr
r Zlong_descriptionr� r r r! r c s4 � �
r c C s
| du r�ddl m} ddlm} |� } tj�tjd �| _ dgtjdd� | _
z| j
� d� W n t yr Y n0 || j
d< | �� | �� g }g }g }ts�t� t� }|D ]�}d}t�d� z$t|| jd �} | �| � | �� }W nH ttf�y, }
z*t�d
|f � t�t |
�� W Y d}
~
n
d}
~
0 0 |du �rV|� d | dt| d f� q�| � � |� d | dt| d d
| f� q�t t t�!� �t |� �}dd� |D �}|�"� |�"� |�"� t#|�} | �$d� t#|�} | �$d� |�r�t#|�} | �$d� t%d� dS )zbPrint list of available compilers (used by the "--help-fcompiler"
option to "config_fc").
Nr )� Distribution)r* r* r z--help-fcompiler���)r� r. z show_fcompilers: %s not found�
fcompiler=� z (%s)c S s" g | ]}d | dt | d f�qS )r! Nr" )r )�.0Zfcr r r! �
<listcomp>� s �z#show_fcompilers.<locals>.<listcomp>zFortran compilers found:z5Compilers available for this platform, but not found:z)Compilers not available on this platform:z>For compiler details, run 'config_fc --verbose' setup command.)&Zdistutils.distr Z'numpy.distutils.command.config_compilerr* r� r� r� r� �argv� script_nameZ script_args�removers ZcmdclassZparse_config_filesZparse_command_liner r r r Z
set_verbosityr r. r� r� r r r- r� r r� r� r} r� r� r �
print_helpr� ) r� r r* r Z compilers_naZ compilers_niZplatform_compilersr� rq r� r^ r� r r r! r � sh
$
� ��
r c C s, t dd�\} }| �d� | �� |d d� S )NrG )�suffixz# subroutine dummy()
end
r )r �write�close)�forx r r r! r � s
r z.*\.(for|ftn|f77|f)\Zz-\*-\s*fortran\s*-\*-z-\*-\s*f90\s*-\*-z-\*-\s*fix\s*-\*-z[^c*!]\s*[^\s\d\t]c C s� d}t | dd���}|�� }d}t|�s.t|�r4d}nt|�rDd}d}|dkr�|r�|�� }|r�|d dkr�|d8 }|d dkr�t|dd � �s�|d
d� d kr�d}q�|�� }qDW d � n1 s�0 Y |S ) z(Check if file is in free format Fortran.r �latin1��encodingi' r �!� Nr� r� �&)�open�readline�
_has_f_header�_has_fix_header�_has_f90_header�rstrip�_free_f90_start)�file�result�f�line�nr r r! r� � s$ ,(r� c C sD t | dd��}|�� }W d � n1 s*0 Y t|�pBt|�S )Nr- r. )r3 r4 r7 r6 )r� r< r= r r r! r� � s &r� z=(c|)f77flags\s*\(\s*(?P<fcname>\w+)\s*\)\s*=\s*(?P<fflags>.*)c C s� i }t | dd��j}d}|D ]P}|d7 }|dkr2 qlt�|�}|sBq|�d��� }|�d��� }t|�||< qW d � n1 s�0 Y |S ) z�
Search the first 20 lines of fortran 77 code for line pattern
`CF77FLAGS(<fcompiler type>)=<f77 flags>`
Return a dictionary {<fcompiler type>:<f77 flags>}.
r- r. r r � �fcnamer@ N)r3 � _f77flags_rer �groupr� r
)r� rF r< �ir= �mr@ r@ r r r! r� � s
,r� �__main__)NNFN)NN)NNFN)NNr r r FN)N)Dr� �__all__r� r� r r� r Zdistutils.fancy_getoptr Zdistutils.errorsr r r
r r Zdistutils.utilr
r Znumpy.distutils.ccompilerr r Znumpy.distutilsr Znumpy.distutils.misc_utilr r r r r Z numpy.distutils.exec_commandr r Z environmentr �typeZ
__metaclass__� Exceptionr r% r' r) r r r r r r r r r} r r r r �compile�Ir r� �searchr5 r7 r6 r9 r� r� rA r� r r r r r! �<module> sv 7 �
%
�
�
'
<
Mini Shell