golden hour
/opt/alt/python37/lib64/python3.7/site-packages/numpy/distutils/fcompiler/__pycache__
⬆️ Go Up
Upload
File/Folder
Size
Actions
__init__.cpython-37.opt-1.pyc
26.15 KB
Del
OK
__init__.cpython-37.pyc
26.3 KB
Del
OK
absoft.cpython-37.opt-1.pyc
4.45 KB
Del
OK
absoft.cpython-37.pyc
4.45 KB
Del
OK
compaq.cpython-37.opt-1.pyc
4.25 KB
Del
OK
compaq.cpython-37.pyc
4.25 KB
Del
OK
g95.cpython-37.opt-1.pyc
1.52 KB
Del
OK
g95.cpython-37.pyc
1.52 KB
Del
OK
gnu.cpython-37.opt-1.pyc
9.49 KB
Del
OK
gnu.cpython-37.pyc
9.49 KB
Del
OK
hpux.cpython-37.opt-1.pyc
1.83 KB
Del
OK
hpux.cpython-37.pyc
1.83 KB
Del
OK
ibm.cpython-37.opt-1.pyc
3.28 KB
Del
OK
ibm.cpython-37.pyc
3.28 KB
Del
OK
intel.cpython-37.opt-1.pyc
6.94 KB
Del
OK
intel.cpython-37.pyc
6.94 KB
Del
OK
lahey.cpython-37.opt-1.pyc
1.86 KB
Del
OK
lahey.cpython-37.pyc
1.86 KB
Del
OK
mips.cpython-37.opt-1.pyc
2.21 KB
Del
OK
mips.cpython-37.pyc
2.21 KB
Del
OK
nag.cpython-37.opt-1.pyc
1.8 KB
Del
OK
nag.cpython-37.pyc
1.8 KB
Del
OK
none.cpython-37.opt-1.pyc
1018 B
Del
OK
none.cpython-37.pyc
1018 B
Del
OK
pathf95.cpython-37.opt-1.pyc
1.43 KB
Del
OK
pathf95.cpython-37.pyc
1.43 KB
Del
OK
pg.cpython-37.opt-1.pyc
2.12 KB
Del
OK
pg.cpython-37.pyc
2.12 KB
Del
OK
sun.cpython-37.opt-1.pyc
2.07 KB
Del
OK
sun.cpython-37.pyc
2.07 KB
Del
OK
vast.cpython-37.opt-1.pyc
1.9 KB
Del
OK
vast.cpython-37.pyc
1.9 KB
Del
OK
Edit: __init__.cpython-37.opt-1.pyc
B <�Fd�� � @ s4 d Z ddlmZmZmZ ddddgZddlZddlZddlZddl Z ye W n e k rl ddl m Z Y nX dd lmZ dd lmZ dd lmZ dd lmZmZmZmZmZ dd lmZm Z ddl m Z m Z ddl m!Z! ddl"m#Z#m$Z$m%Z%m&Z&m'Z' ddl(m)Z) ddl*m+Z+ ddl,m-Z- e.Z/G dd� de0�Z1dd� Z2dd� Z3dd� Z4G d d� de �Z5d Z6da7da8d d � Z9d7d!d"�Z:d8d#d$�Z;d9d%d&�Z<e � a=d:d'd�Z>d;d(d�Z?d)d� Z@e�Ad*ejB�jCZDe�Ad+ejB�jEZFe�Ad,ejB�jEZGe�Ad-ejB�jEZHe�Ad.ejB�jCZId/d0� ZJd1d2� ZKe�Ad3ejB�ZLd4d5� ZMeNd6k�r0e?� 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. � )�division�absolute_import�print_function� FCompiler� new_fcompiler�show_fcompilers�dummy_fortran_fileN)�Set)� open_latin1)�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)�EnvironmentConfig)�find_executable)� get_exceptionc @ s e Zd ZdS )�CompilerNotFoundN)�__name__� __module__� __qualname__� r# r# �U/opt/alt/python37/lib64/python3.7/site-packages/numpy/distutils/fcompiler/__init__.pyr 0 s r c C s t | �rt| �S | S d S )N)r r )�sr# r# r$ �flaglist3 s r& c C s t | �rt| �S t| �S )N)r r �bool)r% r# r# r$ �str2bool9 s r( c C s t | �ot| �S )N)r r )�seqr# r# r$ �is_sequence_of_strings> s r* c @ s> e Zd ZdZeddddefdddefdddefdddefd�Zedd d d d d dddd� Zeddddefdddefdddefdddefd d d efd ddefd ddefd!d"d#efd$ddefd%ddefd&d'd(efd)ddefd*ddefd+d,d-efd.d/d0efd1d/d0efd2d3d4efd5�Z d6d6d6d6d6d7d7d7d8�Z d7d6gZ dZ d9Z dZg Zd6d:gd6gd7gd7d;gd7d<gd7gd=d>gdd?�ZdZd@ZdAZdAZdZdBZg ZdCdDdEdFdGdHdIdJdKg ZdLZe� ZdMZ dNZ dOZ dPZ i Z dQdRdSdTdUdVdWdXgZ!dZ"g Z#g Z$dYdZ� Z%d[d\� Z&d]d^� Z'd_d`� Z(e(dQ�Z)e(dR�Z*e(dS�Z+e(dT�Z,e(dU�Z-e(dV�Z.e(dW�Z/e(dX�Z0dadb� Z1dcdd� Z2dedf� Z3dgdh� Z4didj� Z5dkdl� Z6dmdn� Z7dodp� Z8dqdr� Z9dsdt� Z:dudv� Z;dwdx� Z<dydz� Z=d{d|� Z>d}d~� Z?dd�� Z@d�d�� ZAe? ZBZCe@ ZDZEeA ZFZGd�d�� ZHd�d�� ZId�d�gfd�d��ZJd�d�d��ZKd�d�� ZLd�d�� ZMd�d�� ZNd�d�� ZOd�d�� ZPd�d�d��ZQd�d�� ZRdS )�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�noopt�noarch�debug�verbose)�distutils_sectionr, r- r. r/ )zexe.compiler_f77ZF77Zf77execN)zexe.compiler_f90�F90�f90execN)zexe.compiler_fixr1 r2 N)zexe.version_cmdNNN)z exe.linker_soZLDSHAREDZldsharedN)zexe.linker_exeZLDZldN)NZAR�arN)NZRANLIB�ranlibN) r0 � compiler_f77� compiler_f90� compiler_fix� version_cmd� linker_so� linker_exe�archiverr4 z flags.f77ZF77FLAGS�f77flagsz 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)r0 �f77�f90�free�fixr? Zopt_f77Zopt_f90r@ Zarch_f77Zarch_f90r. Z debug_f77Z debug_f90�flagsr9 r: r3 rC rD )z.fz.forz.Fz.ftnz.f77z.f90z.F90z.f95r# z-vz-fixedz-sharedr3 z-cr)r8 r5 r6 r7 r9 r: r; r4 z-cz-o z-Iz.forz.ftnz.f77z.fz.f90z.f95z.Fz.F90z.FORz.oz.azlib%s%sz%s%s� r8 r5 r6 r7 r9 r: r; r4 c O s| t j| f|�|� | j�| j�| _| j�| j�| _| j�| j�| _| j�� | _x"| j D ]}|| jkrVd | j|< qVW d| _ 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$ rI � s zFCompiler.__init__c C sZ | � | j�}|j�| j� |j�|j�|_|j�|j�|_|j�|j�|_|j � � |_ |S )N) �__new__� __class__�__dict__�updaterJ rK rL rM rN rO rP )rS �objr# r# r$ �__copy__� s zFCompiler.__copy__c C s | � � S )N)r\ )rS r# r# r$ rP � s zFCompiler.copyc s � fdd�}t |d�S )Nc s | j � S )N)rO )rS )�keyr# r$ �fget� s z)FCompiler._command_property.<locals>.fget)r^ )�property)r] r^ r# )r] r$ �_command_property� s zFCompiler._command_propertyc C s | � ||� d S )N)� set_command)rS r] �valuer# r# r$ �set_executable s zFCompiler.set_executablec K s& x |� � D ]\}}| �||� q W d S )N)�itemsra )rS rU �k�vr# r# r$ � set_commands s zFCompiler.set_commandsc C s< || j kr td|| jjf ��t|�r.t|�}|| j|< d S )Nz$unknown executable '%s' for class %s)rQ � ValueErrorrX r r r rO )rS r] rb r# r# r$ ra s zFCompiler.set_commandc s� �j ��fdd�� �fdd�}d� �fdd� }�j}|d�}|sj|d �}|r\t�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, | � kr� | S t | �}| � | < � |< |S )N)r )�exe�fc_exe)� exe_cacher# r$ �cached_find_executable0 s z:FCompiler.find_executables.<locals>.cached_find_executablec s* |d k r&t |�s&td| |� jjf ��d S )Nz"%s value %r is invalid in class %s)r* rh rX r )�namerb )rS r# r$ �verify_command_form6 s z7FCompiler.find_executables.<locals>.verify_command_formNc s� �j �| d �}|sd S t�j| �}|s6||g�j }n |g�j }t� }g }xH|D ]@}|dkrd|}n |dkrp|}|rR||kr~qR|�|� |�|� qRW x$|D ] } � | �} | r�| |d< | S q�W ��| d � d S )Nz<F77>z<F90>r ) rO �get�getattrrM �possible_executables�set�add�appendra ) Zexe_keyrC rD �cmdZexe_from_environZ possibles�seenZunique_possiblesrV ri rj )rl rS r# r$ �set_exe; s2 z+FCompiler.find_executables.<locals>.set_exer6 r5 z %s: no Fortran 90 compiler foundz%s: f90 nor f77)rD z %s: no Fortran 77 compiler foundr7 r9 )rC rD r: r8 r; r4 )NN)� _exe_cache� compiler_typer �warnr )rS rn rw ZctyperD rC r# )rl rk rS 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# )Zelfr# r# r$ �update_executableso s z FCompiler.update_executablesc C s g | j S )z+List of flags common to all compiler types.)� pic_flags)rS r# r# r$ � get_flagsz s zFCompiler.get_flagsc C s& | j �|d �}|d krg S |dd � S )N� )rO ro )rS r] ru r# r# r$ �_get_command_flags~ s z FCompiler._get_command_flagsc C s | � d�S )z"List of Fortran 77 specific flags.r5 )r� )rS r# r# r$ � get_flags_f77� s zFCompiler.get_flags_f77c C s | � d�S )z"List of Fortran 90 specific flags.r6 )r� )rS 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# )rS r# r# r$ �get_flags_free� s zFCompiler.get_flags_freec C s | � d�S )z/List of Fortran 90 fixed format specific flags.r7 )r� )rS 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.r9 )r� )rS 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.r: )r� )rS r# r# r$ �get_flags_linker_exe� s z FCompiler.get_flags_linker_exec C s | � d�S )zList of archiver flags. r; )r� )rS r# r# r$ � get_flags_ar� s zFCompiler.get_flags_arc C s g S )z0List of architecture independent compiler flags.r# )rS r# r# r$ � get_flags_opt� s zFCompiler.get_flags_optc C s g S )z.List of architecture dependent compiler flags.r# )rS 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# )rS r# r# r$ �get_flags_debug� s zFCompiler.get_flags_debugc C s | j dd� S )zList of compiler libraries.N)� libraries)rS r# r# r$ � get_libraries� s zFCompiler.get_librariesc C s | j dd� S )z%List of compiler library directories.N)� library_dirs)rS r# r# r$ �get_library_dirs� s zFCompiler.get_library_dirsFr c C s" t j| ||d�}|d kr t� �|S )N)�force� ok_status)r � get_versionr )rS r� r� �versionr# r# r$ r� � s zFCompiler.get_versionc sn t �d�jj � d�_�j�|� �j�|� �j�|� �� � �� � �j� dd�}�j� d|�}�j� dd�}�jj � �jj �g �g �g }g �� r��jj��r��jj��jj}�jj��rΈjj� �g g g }}}� ������fdd�} |�s| d |� |�s| d |� |�r&| d|� �jj| | | } � �rV�j� g� | d � ��rv�j�g| � | d � ��r��j�g� | d � �j} | �r�jj} tj�d��r�tdd�} tj� | dd�}tj� | dd�}|g| d| g } �j| | d� �j }|�r&�jj }�j|| d� �jj }|�rN�jj }�j|g| d� �� ��!� � ��"��#� � dS )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| �}x^d� �fd��fd��fgD ]>\}}}d| |f }|r>|t�d| �k r>|� t�j|�� q>W d S )N� get_flags_rC rD z%s_%s)�extendrp rN )�tagrG Zthis_getrm �cZflagvar�t)rC r< rD r= rF �fixflagsrS r# r$ r~ � s z&FCompiler.customize.<locals>.get_flagsr? r@ )r5 )r6 )r7 Zaixr )Z standard_libZconfig� ld_so_aixz python.expz-bI:)r9 )r: )r; N)$r �inforX r rR rJ Zuse_distributionrM rN r| r{ ro r5 r6 rC rD rE r7 rF rG rg r9 �sys�platform� startswithr �os�path�joinr: r; r3 Zset_library_dirsr� Z set_librariesr� )rS �distr, r- r. r> ZoflagsZaflagsZdflagsr~ rA r9 Zlinker_so_flagsZ python_libr� Z python_expr: Zlinker_exe_flagsr3 rB r# )rC r< rD r= rF r� rS r$ � customize� st zFCompiler.customizec C s� g }xPt | j�� �dddddg D ]0}t| |�r"t| |�}|�|ddt|� f� q"W |�� t|�}xB|� d| j j �D ],}|dd � d kr�d |d d� }t |� qzW dS ) z0Print out the attributes of a compiler instance.r� r� r� � object_switch�compile_switchNz= z%s instance properties:� z --z ) �listrO �keys�hasattrrp rt �repr�sortr Z generate_helprX r �print)rS Zpropsr] rf �pretty_printer�lr# r# r$ �dump_properties s zFCompiler.dump_propertiesc C s� i }t |�r2t|�s2d}| j} t|�}| jp.g } njt|�rld}| j} | dkr`td| jj |f ��| j phg } n0d}| j } | dkr�td| jj |f ��| j p�g } | j d dkr�| j � � |g} n| j � � | g} | j|g} | r�t�d |d d� d�| �f � |�| jg �} | �r t�d d�| � � | | | | | | | }d tj�| d �| |f }y| j||d� W n( tk �r� tt� �}t|��Y nX 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_headerr5 � get_f77flags�extra_f77_compile_args�is_free_formatr6 r rX r �extra_f90_compile_argsr7 r� �stripr� r r� r� ro ry r� r� �basename�spawn�strr r )rS r[ �src�extZcc_args�extra_postargsZpp_optsZ src_flagsZflavor�compilerZextra_compile_args�o_argsZs_args� extra_flags�commandr� �msgr# r# r$ �_compile2 sL zFCompiler._compilec C s� g }| j d k rH| j d dkr2|�| j �� |g� qb|�| j �� | � ntd| � td| jj� | jd k r�xB|g| D ]}|�d| j|f � qxW ntd| � td| jj� |S )Nr� r� z'XXX: module_build_dir=%r option ignoredz XXX: Fix module_dir_switch for z%s%sz"XXX: module_dirs=%r option ignoredz#XXX: Fix module_include_switch for )�module_dir_switchr� r� rt r� rX r �module_include_switch)rS Z module_dirsZmodule_build_dirZoptions�dr# r# r$ �module_optionsd s zFCompiler.module_optionsc C s d| S )Nz-lr# )rS �libr# r# r$ �library_optionv s zFCompiler.library_optionc C s d| S )Nz-Lr# )rS �dirr# r# r$ �library_dir_optionx s z FCompiler.library_dir_optionc C s� | � ||�\}}| �|||�\}}}t| |||�}t|�rJtj�||�}n|d k rZtd��| �||��rr| 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 � }|| }y| �|� W n( tk �rn tt� �}t|��Y nX 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 EXECUTABLEr: r9 r� r r� r r r r. )rS Z target_descr� Zoutput_filenameZ output_dirr� r� Zruntime_library_dirsZexport_symbolsr. Z extra_preargsr� Z build_tempZ target_langZlib_optsr� Zld_argsZlinkerr� r� r# r# r$ �link{ sB zFCompiler.linkc C s� |d kr 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� rp rO )rS rm Z hook_name�hook�varr# r# r$ rL � s$ zFCompiler._environment_hook)N) NNNNNr NNNN)Sr r! r" �__doc__r r( rJ rM r& rN Z language_mapZlanguage_orderry �compiler_aliasesZversion_patternrq rO �suggested_f90_compilerr� r� r� r� r� r} Zsrc_extensionsZ obj_extensionr Zshared_lib_extensionZstatic_lib_extensionZstatic_lib_formatZshared_lib_formatZ exe_extensionrx rQ � c_compilerr� r� rI r\ rP r` r8 r5 r6 r7 r9 r: r; r4 rc rg ra 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� rL r# r# r# r$ r A s� O e2 +) )Zwin32) �gnu�intelv�absoft�compaqv�intelev�gnu95�g95Zintelvem�intelem)zcygwin.*)r� r� r� r� r� r� r� )zlinux.*) r� �intelZlahey�pgr� �nagZvastZcompaqZinteler� r� r� Zpathf95)zdarwin.*)r� r� r� �ibmr� r� r� r� )zsunos.*)Zsunr� r� r� )zirix.*)Zmipsr� r� )zaix.*)r� r� r� )�posix)r� r� )�nt)r� r� )Zmac)r� r� r� c C s� ddl m } tdk rdS tj�tj�t�d�}i ai ax�| |�D ]�}tj�tj� |��\}}d| }t |� t j | }t |d�r@xn|jD ]d}t||�}|j||jf}|t|j< x<|jD ]2} | tkr�td| |jt| d jf ��|t| < q�W q�W q@W 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� rp ry � descriptionr� rh r ) r� ZpysZfname� module_namer� �moduleZcname�klassZdesc�aliasr# r# r$ �load_all_fcompiler_classes� s, r� Fc C s ddl m} |dd�}x�| D ]�}d }y�t|||d�} | �|� | �� }|r�| jd kr�d }| j} | r�t�d|| f � t|| |d�} | �|� | �� }|d k r�| }|r�| jd kr�t d| j j ��W n> t k r� t� d|� Y n tk r� t� d |� Y nX |d k r |S q W d 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� r6 r� r rz rh rX r r r. r ) Zcompiler_types�osnamer� � requiref90r� r� r� ry rf r� Z new_compilerr# r# r$ �_find_existing_fcompiler� s@ r� c C s| | d krt j} |d kr tj}g }xHtD ]@\}}t�||�sFt�|| �r&x |D ]}||krL|�|� qLW q&W |sx|�d� |S )Nr� )r� rm r� r� �_default_compilers�re�matchrt )r� r� �matching_compiler_types�patternry Zctr# r# r$ �!available_fcompilers_for_platform s r c C s t | |�}t|| |||d�}|S )zIDetermine the default Fortran compiler to use for the given platform.)r� r� r� r� )r r� )r� r� r� r� r� ry r# r# r$ �get_default_fcompiler& s r c C s� | |f}|t krdS t� | dkr(tj} |dkr>t| ||d�}|tkrVt| \}} } nb|tkrnt| \}} } nJd| } |dk r�| 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� rm r r� r� r� r� r rz rs r� ) r� r� r/ r r� r� r� Z fcompiler_keyr� r� Zlong_descriptionr� r# r# r$ r 6 s0 c C s | dkr�ddl m} ddlm} |� } tj�tjd �| _ dgtjdd� | _ y| j � d� W n t k rt Y nX || j d< | �� | �� g }g }g }ts�t� t� }x�|D ]�}d}t�d� y$t|| jd �} | �| � | �� }W n> ttfk �r& t� } t� d |f � t� t | �� Y nX |dk�rP|� d | dt| d f� q�| � � |� d | dt| d d | f� q�W 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 foundz fcompiler=� z (%s)c S s" g | ]}d | dt | d f�qS )z fcompiler=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� �argvZ script_nameZ script_args�removerh ZcmdclassZparse_config_filesZparse_command_liner� r� r r Z set_verbosityr r/ r� r� r r r r. r� rt r� r� rr r� r� r Z print_helpr� ) r� r r+ r� Z compilers_naZ compilers_niZplatform_compilersr� rf r� rV r� r# r# r$ r ] sd c C s, t dd�\} }| �d� | �� |d d� S )Nz.f)�suffixz# subroutine dummy() end r )r �write�close)Zform r# r# r$ r � s 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 | d�}|�� }d}t|�r(d}nt|�r8d}d}xj|dkr�|r�|�� }|r�|d dkr�|d8 }|d dkr�t|dd� �s�|d d� d kr�d}P |�� }q:W |�� |S ) z(Check if file is in free format Fortran.r �ri' r �!� Nr� r� �&)r �readline� _has_f_header�_has_f90_header�rstrip�_free_f90_startr )�file�result�f�line�nr# r# r$ r� � s& , r� c C s* t | d�}|�� }|�� t|�p(t|�S )Nr )r r r r �_has_fix_header)r� r r r# r# r$ r� � s r� z=(c|)f77flags\s*\(\s*(?P<fcname>\w+)\s*\)\s*=\s*(?P<fflags>.*)c C sv i }t | d�}d}xV|D ]N}|d7 }|dkr.P t�|�}|s>q|�d��� }|�d��� }t|�||< qW |�� |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 � �fcnamerA )r � _f77flags_rer� �groupr� r r )r� rG r �ir �mr rA r# r# r$ r� � s r� �__main__)NNFN)NN)NNFN)NNr r r FN)N)Or� Z __future__r r r �__all__r� r� r� �typesrr � NameErrorZsetsr Z numpy.compatr Zdistutils.sysconfigr 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 Znumpy.distutils.environmentr Z numpy.distutils.exec_commandr Znumpy.distutils.compatr �typeZ __metaclass__� Exceptionr r& r( r* r r� r� r� r� r� r r r r r r �compile�Ir� r� �searchr r r r r� r� r! r� r r# r# r# r$ �<module> s� " ! =
Save