U
|
O ±d]¢ ã @ sâ d Z ddddgZddlZddlZddlZddlmZ ddlmZ dd l m
|
Z
|
m Z m Z m Z mZ dd
|
lmZmZ dd lmZmZ dd lmZ dd lmZmZmZmZm Z ddl m Z ddlm Z ddl m!Z! e"Z#G dd de$Z%dd Z&dd Z'dd Z(G dd deZ)dZ*da+da,d d Z-d5d d Z.d6d!d"Z/d7d#d$Z0e1 a2d8d%dZ3d9d&dZ4d'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?d/d0 Z@e 6d1ej7¡ZAd2d3 ZBeCd4krÞ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 úYd:\z\workplace\vscode\pyvenv\venv\Lib\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 @ sx 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/edfd0d1d2edfd3d1d2edfd4d5d6edfd7Z d8d8d8d8d8d9d9d9d:Z
|
d9d8gZ dZ d;Z dZg Zd8d<gd8gd9gd9d=gd9d>gd9gd?d@gddAZdZdBZdCZdCZdZdDZg ZdEdFdGdHdIdJdKdLdMg ZdNZe ZdOZ dPZ dQZ dRZ i Z dSdTdUdVdWdXdYdZgZ!dZ"g Z#g Z$d[d\ Z%d]d^ Z&d_d` Z'dadb Z(e(dSZ)e(dTZ*e(dUZ+e(dVZ,e(dWZ-e(dXZ.e(dYZ/e(dZZ0dcdd Z1dedf Z2dgdh Z3didj Z4dkdl Z5dmdn Z6dodp Z7dqdr Z8dsdt Z9dudv Z:dwdx Z;dydz Z<d{d| Z=d}d~ Z>dd Z?dd Z@dd ZAe? ZBZCe@ ZDZEeA ZFZGd
d ZHdd ZIddgfddZJd ddZKdd ZLdd ZMdd ZNdd ZOdd ZPd¡ddZQdd ZRdd ZSdd 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_soÚLDSHAREDÚldsharedNF)zexe.linker_exeZLDZldNF)NÚARÚarNF)NZRANLIBÚranlibNF) r/ Ú compiler_f77Ú compiler_f90Ú compiler_fixÚ version_cmdÚ linker_soÚ
|
linker_exeÚarchiverr6 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_soÚLDFLAGSZldflagszflags.linker_exezflags.arÚARFLAGSÚarflags)r/ Úf77Úf90ÚfreeÚfixrA Zopt_f77Zopt_f90rB Zarch_f77Zarch_f90r- Z debug_f77Z debug_f90Úflagsr; r< r5 rG rH )ú.fú.forú.Fú.ftnú.f77ú.f90ú.F90ú.f95r z-vz-fixedz-sharedr5 z-cr)r: r7 r8 r9 r; r< r= r6 z-cz-o z-IrM rO rP rL rQ rS rN rR z.FORz.oz.azlib%s%sú%s%sÚ r: r7 r8 r9 r; r< r= r6 c O sx t j| f|| | j | j¡| _| j | j¡| _| j | j¡| _| j ¡ | _| j D ]}|| jkrTd | j|< qTd| _
|
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! rV Ö s
|
|
zFCompiler.__init__c C sZ | | j¡}|j | j¡ |j |j¡|_|j |j¡|_|j |j¡|_|j
|
¡ |_ |S r" ) Ú__new__Ú __class__Ú__dict__ÚupdaterW rX rY rZ r[ r\ r] )r` Úobjr r r! Ú__copy__ä s zFCompiler.__copy__c C s | ¡ S r" )ri ©r` r r r! r] í s zFCompiler.copyc s fdd}t |dS )Nc s | j s
|
t| j S r" )r_ ÚAssertionErrorr\ rj ©Úkeyr r! Úfgetô s
|
z)FCompiler._command_property.<locals>.fget)rn )Úproperty)rm rn r rl r! Ú_command_propertyó s zFCompiler._command_propertyc C s | ||¡ d S r" )Ú set_command©r` rm Úvaluer r r! Úset_executable s zFCompiler.set_executablec K s" | ¡ D ]\}}| ||¡ qd S r" )Úitemsrq )r` rb ÚkÚvr r r! Ú set_commands s zFCompiler.set_commandsc C s` || j kr td|| jjf t|r.t|}|d ksRt|dd
sRt||f|| j|< d S )Nz$unknown executable '%s' for class %sr ) r^ Ú
|
ValueErrorre r r r r) rk r\ rr r r r! rq s
|
|
ÿÿ$zFCompiler.set_commandc sÜ j s
|
tjfdd fdd}d fdd }j}|d}|st|d }|rft d
|
| ¡ qtd | n*|d |d }|st 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 r" r )ÚexeÚfc_exe)Ú exe_cacher r! Úcached_find_executable( 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) ry re r )Únamers rj r r! Úverify_command_form. s ÿÿz7FCompiler.find_executables.<locals>.verify_command_formNc sÈ j | d ¡}|sd S tj| }|s6||gj }n |gj }t }g }|D ]@}|dkrb|}n |dkrn|}|rP||kr|qP| |¡ | |¡ qP|D ] } | }
|
|
|
r|
|
|d< |
|
S q | d ¡ d S )Nz<F77>z<F90>r ) r\ ÚgetÚgetattrrZ Úpossible_executablesÚsetÚaddÚappendrq ) Zexe_keyrG rH ÚcmdZexe_from_environZ possiblesÚseenZunique_possiblesrc rz r{ )r} r` r r! Úset_exe3 s2
|
|
z+FCompiler.find_executables.<locals>.set_exer8 r7 z %s: no Fortran 90 compiler foundz%s: f90 nor f77)rH z %s: no Fortran 77 compiler foundr9 r; )rG rH r< r: r= r6 )NN)r_ rk Ú
|
_exe_cacheÚ compiler_typer Úwarnr )r` r r ÚctyperH rG r )r} r| 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 rj 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_flagsrj r r r! Ú get_flagsr s zFCompiler.get_flagsc C s& | j |d ¡}|d krg S |dd
S )Nr )r\ r )r` rm r r r r! Ú_get_command_flagsv s z FCompiler._get_command_flagsc C s
|
| d¡S )z"List of Fortran 77 specific flags.r7 ©r rj r r r! Ú get_flags_f77| s zFCompiler.get_flags_f77c C s
|
| d¡S )z"List of Fortran 90 specific flags.r8 r rj 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 rj r r r! Úget_flags_free s zFCompiler.get_flags_freec C s
|
| d¡S )z/List of Fortran 90 fixed format specific flags.r9 r rj 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.r; r rj 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 rj r r r! Úget_flags_linker_exe s z FCompiler.get_flags_linker_exec C s
|
| d¡S )zList of archiver flags. r= r rj r r r! Ú get_flags_ar s zFCompiler.get_flags_arc C s g S )z0List of architecture independent compiler flags.r rj r r r! Ú get_flags_opt s zFCompiler.get_flags_optc C s g S )z.List of architecture dependent compiler flags.r rj 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 rj r r r! Úget_flags_debug s zFCompiler.get_flags_debugc C s | j dd
S )zList of compiler libraries.N)Ú librariesrj r r r! Ú get_libraries s zFCompiler.get_librariesc C s | j dd
S )z%List of compiler library directories.N)Ú library_dirsrj r r r! Úget_library_dirs¢ s zFCompiler.get_library_dirsr c C s, | j s
|
ttj| ||d}|d kr(t |S )N)ÚforceÚ ok_status)r_ rk r Ú get_versionr )r` r¡ r¢ Úversionr r r! r£ ¦ s
|
|
zFCompiler.get_versionc sÞ t djj ¡ d_j |¡ j |¡ j |¡ ¡
|
¡ j dd¡}j d|¡}j dd¡}jj jj g g g }g r®tj ¡ jjrÎtj ¡jjjj}jjròtj ¡jj g g g }}} fdd} |s:| d | |s:| d
|
| |rJ| d| jj| | | }
|
rxj |
|
d rj| |
|
d r°j |
|
d j} | rrjj} 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"}|rjj"}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 | tj| ¡ td| }d fdfdffD ]>\}}}d| |f }|r<|td| k r<| tj|¡ q<d S )NÚ
|
get_flags_rG rH z%s_%s)Úextendr r[ )ÚtagrK Zthis_getr~ ÚcZflagvarÚt©rG r> rH r? rJ Zfixflagsr` r r! r î s þ z&FCompiler.customize.<locals>.get_flagsrA rB )r7 )r8 )r9 Úaixr )Ú standard_libÚconfigÚ ld_so_aixz
|
python.expz-bI:Zos400r )Úget_config_varZLIBPL)r; )r< )r= N))r Úinfore r r_ rW Zuse_distributionrZ r[ r r r r7 r8 r Z NativeParserÚsplitrG rH rI r9 rJ rK rx r; ÚsysÚplatformÚ
|
startswithr ÚosÚpathÚjoinÚdistutils.sysconfigr¯ r< r= r5 Zset_library_dirsr Z set_librariesr )r` Údistr+ r, r- r@ ZoflagsZaflagsZdflagsr rC r; Zlinker_so_flagsZ
|
python_libr® Z
|
python_expr¯ Z python_configr< Zlinker_exe_flagsr5 rF r rª r! Ú customize² s
|
|
|
|
|
zFCompiler.customizec C s¦ g }t | j ¡ dddddg D ]0}t| |r t| |}| |ddt| f¡ q | ¡ t|}| d| j
|
j ¡D ],}|dd
d
|
krd |d d
}t | qtdS ) z0Print out the attributes of a compiler instance.r¤ r r Ú object_switchÚcompile_switchNz= z%s instance properties:é z --z ) Úlistr\ ÚkeysÚhasattrr r
ÚreprÚsortr Ú generate_helpre r Úprint)r` Úpropsrm rw Ú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 } | dkrtd| jj |f | j
|
pg }
|
| j d dkrº| j ¡ |g} n| j ¡ | g} | j ¡ sØt| j|g} |
|
rt d |d
|
d
d |
|
¡f ¡ | | jg ¡} | r0t d d | ¡ ¡ | | | | | | |
|
}d tj | d ¡| |f }z| j||d W n6 tk
|
r° } zt|}t|dW 5 d}~X 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_headerr7 Ú get_f77flagsÚextra_f77_compile_argsÚis_free_formatr8 r re r Úextra_f90_compile_argsr9 r» Ústripr¼ rk r r° r· r r rµ r¶ ÚbasenameÚspawnÚstrr
|
)r` rh ÚsrcÚextZcc_argsÚextra_postargsZpp_optsZ src_flagsZflavorÚcompilerÚextra_compile_argsÚo_argsÚs_argsÚ extra_flagsÚcommandrË rc Úmsgr r r! Ú_compile; s`
|
ÿ
|
ÿ
|
|
ÿÿÿÿÿzFCompiler._compilec C s° g }| j d k rH| j d dkr2| | j ¡ |g¡ qb| | j ¡ | ¡ ntd| td| jj | jd k r|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 rT z"XXX: module_dirs=%r option ignoredz#XXX: Fix module_include_switch for )Úmodule_dir_switchr¦ rÒ r
rÄ re 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 k rZtd| ||¡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 |¡¡ |tjkr"| jd d
}n| jd d
}|| }z| |¡ W n6 tk
|
r| } zt|}t|d W 5 d }~X 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¦ ÚmkpathÚdirnamer Z
|
EXECUTABLEr< r; rÔ r rÕ r r r- )r` Z target_descrì Zoutput_filenameÚ
|
output_dirr r Úruntime_library_dirsÚexport_symbolsr- Z extra_preargsrØ Ú
|
build_tempZ target_langZlib_optsrÛ Zld_argsZlinkerrÞ rc rß r r r! Úlink sF ÿÿ
|
|
|
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´ r r\ )r` r~ Ú hook_nameÚhookÚvarr r r! rY ³ 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' rW rZ r% r[ Z language_mapZlanguage_orderr Úcompiler_aliasesZversion_patternr r\ Úsuggested_f90_compilerr¼ r» rë rá râ r Zsrc_extensionsZ obj_extensionr Úshared_lib_extensionZstatic_lib_extensionZstatic_lib_formatZshared_lib_formatZ exe_extensionr r^ Ú
|
c_compilerrÏ rÑ rV ri r] rp r: r7 r8 r9 r; r< r= r6 rt rx rq 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ó rY rù rû r r r r! r 9 s ( û÷ îù ø þ O
|
u2 ü
|
/)
|
)Úwin32)
|
ÚgnuÚintelvÚabsoftÚcompaqvÚintelevÚgnu95Úg95ZintelvemÚintelemZflang)zcygwin.*)r r r r r r r )zlinux.*)Úarmr ÚintelZlaheyÚpgÚnvr ÚnagZvastZcompaqZinteler r r Zpathf95ÚnagforZfujitsu)zdarwin.*) r r r r Úibmr r r r )zsunos.*)Úsunr r r )zirix.*)Zmipsr r )zaix.*)r r r )Úposix©r r )Úntr )Úmac)r r r c
|
C sì ddl m } tdk rdS tj tj t¡d¡}i ai a| |D ]¨}tj tj |¡¡\}}d| }t
|
| t j | }t |dr>|jD ]`}t||}|j||jf}|t|j< |jD ]2} | tkrÚtd| |jt| d jf |t| < q°qq>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ý ry r )
|
r ZpysÚfnameÚ module_namer× ÚmoduleÚcnameÚklassÚdescÚaliasr r r! Úload_all_fcompiler_classes s0
|
|
|
|
|
|
ÿÿr& Fc C s ddl m} |dd}| D ]ô}d }zt|||d} | |¡ | ¡ }|r| jd krd }| j}
|
|
|
rt 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 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£ r8 rþ r r ry re r r r- r ) Zcompiler_typesÚosnamer³ Ú
|
requiref90r r' r¹ r rw r¨ Z new_compilerr r r! Ú_find_existing_fcompiler sJ
|
ÿ
|
ÿÿÿ
|
ÿ
|
|
r, c C st | d krt j} |d kr tj}g }tD ]<\}}t ||¡sDt || ¡r$|D ]}||krH| |¡ qHq$|sp| d¡ |S )Nr )rµ r~ r² r³ Ú_default_compilersÚreÚmatchr
)r* r³ Úmatching_compiler_typesÚpatternr Úctr r r! Ú!available_fcompilers_for_platformB s
|
r3 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 )r3 r r° r, )r* r³ r+ r r0 r r r r! Úget_default_fcompilerQ s ÿÿür4 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µ r~ r4 r r r· r¿ r r r r ) r) rÙ r. r6 r¡ r+ r Z fcompiler_keyr r# Úlong_descriptionrß r r r! r c s4 ÿ ÿ
|
|
c C s
|
| dkrddl m} ddlm} | } tj tjd ¡| _ dgtjdd
| _
|
z| j
|
d¡ W n t k
|
rt Y nX || j d< | ¡ | ¡ g }g }g }ts¦t t }|D ]Ò}d}t d¡ z$t|| jd } | | ¡ | ¡ }W nF ttfk
|
r, }
|
z"t d
|
|f ¡ t t |
|
¡ W 5 d}
|
~
|
X Y nX |dkrV| 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 fqS )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.)&Údistutils.distr9 Z'numpy.distutils.command.config_compilerr* rµ r¶ rÓ r² ÚargvÚ script_nameÚ script_argsÚremovery ÚcmdclassÚparse_config_filesÚparse_command_liner r& r3 r Ú set_verbosityr r. rº r£ r r r- rÁ r
rÈ r¾ r r¿ r r Ú
|
print_helprÄ ) r¹ r9 r* r Z compilers_naZ compilers_niZplatform_compilersrÙ rw r¨ rc rÆ r r r! r sh
|
|
|
|
|
ÿ ÿÿ
|
|
|
c C s, t dd\} }| d¡ | ¡ |d d
S )NrL )Úsuffixz# subroutine dummy()
|
end
|
r: )r ÚwriteÚclose)Úfor~ 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 | dd }| ¡ }d}t|s.t|r4d}nt|rDd}d}|dkr¬|r¬| ¡ }|r¢|d dkr¢|d8 }|d dkrt|dd
s|d
|
d
d kr¢d}q¬| ¡ }qDW 5 Q R X |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 s0 t | dd}| ¡ }W 5 Q R X t|p.t|S )NrM rN )rS rT rW rV )rÖ r\ r] r r r! rÍ ê s rÍ z=(c|)f77flags\s*\(\s*(?P<fcname>\w+)\s*\)\s*=\s*(?P<fflags>.*)c C sz i }t | dd`}d}|D ]P}|d7 }|dkr2 qlt |¡}|sBq| d¡ ¡ }| d¡ ¡ }t|||< qW 5 Q R X |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>}.
|
rM rN r r é ÚfcnamerC )rS Ú _f77flags_rer/ ÚgrouprÒ r )rÖ rK r\ Úir] Úmr` rC r r r! rÎ ð s
|
rÎ Ú__main__)NNFN)NN)NNFN)NNr r r FN)N)Drü Ú__all__rµ r² r. r¸ r Údistutils.fancy_getoptr Údistutils.errorsr r r
|
r r Údistutils.utilr r Znumpy.distutils.ccompilerr r Znumpy.distutilsr Znumpy.distutils.misc_utilr r r r r Z numpy.distutils.exec_commandr r Ú environmentr ÚtypeÚ __metaclass__Ú Exceptionr r% r' r) r r- r r r& r, r3 r4 r r7 r r r ÚcompileÚIr/ rÌ ÚsearchrU rW rV rY rÐ rÍ ra rÎ r r r r r! Ú<module> s| ÿ 7 ý
|
%
|
ÿ
|
ú
|
'
|
<
|
|
