ó ʽ÷Xc@s¤ddlZddlZddlZddlZddlmZdddddgZd„Zd „Zd „Z d „Z d „Z d „Z d„Z dd„ZdS(iÿÿÿÿN(tnewertneeds_g77_abi_wrappertsplit_fortran_filestget_g77_abi_wrapperstneeds_sgemv_fixt get_sgemv_fixcCs\tjdkrtStjdƒ}|jddƒ}x!|D]}|j|ƒr;tSq;WtS(NtdarwintvecLibtextra_link_argst(tsystplatformtFalsetretcompiletgettsearchtTrue(tinfot r_accelerateRtarg((s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pyt uses_veclib s cCs\tjdkrtStjdƒ}|jddƒ}x!|D]}|j|ƒr;tSq;WtS(NRt AccelerateRR (R R R R RRRR(RRRR((s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pytuses_accelerates cCsItjdƒ}|jddƒ}x!|D]}|j|ƒr(tSq(WtS(Ntmklt librariesR (R RRRRR (Rtr_mklRtlibrary((s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pytuses_mkl#s  cCs4t|ƒst|ƒrtSt|ƒr,tStSdS(s-Returns True if g77 ABI wrapper must be used.N(RRRRR (R((s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pyR-s  cCs#g}tjjtjjtƒƒ}t|ƒrë|tjj|ddƒtjj|ddƒg7}t|ƒr§|tjj|ddƒtjj|ddƒg7}qt|ƒrÕ|tjj|ddƒg7}qt d|fƒ‚n4|tjj|ddƒtjj|ddƒg7}|S( sY Returns file names of source files containing Fortran ABI wrapper routines. tsrcswrap_g77_abi_f.fswrap_g77_abi_c.cswrap_accelerate_c.cswrap_accelerate_f.fswrap_dummy_accelerate.fs/Do not know how to handle LAPACK %s on mac os xswrap_dummy_g77_abi.f( tostpathtabspathtdirnamet__file__RtjoinRRtNotImplementedError(Rtwrapper_sourcesR((s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pyR7s$   cCst|ƒrtStSdS(s$Returns True if SGEMV must be fixed.N(RRR (R((s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pyRWs cCsKtjjtjjtƒƒ}t|ƒrCtjj|ddƒgSgSdS(s- Returns source file needed to correct SGEMV Rsapple_sgemv_fix.cN(RRR R!R"RR#(RR((s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pyR_s c søˆdk r.gˆD]}|jƒ^q‰n‡fd†}tjdƒ}gtjtjj|dƒƒD]'}|jtjj |ƒƒsk|^qk}g}xS|D]K}||ƒ} | dk r¥x*| D]} |j tjj | ƒƒqÊWq¥q¥W|S(sÙSplit each file in `source_dir` into separate files per subroutine. Parameters ---------- source_dir : str Full path to directory in which sources to be split are located. subroutines : list of str, optional Subroutines to split. (Default: all) Returns ------- fnames : list of str List of file names (not including any path) that were created in `source_dir`. Notes ----- This function is useful for code that can't be compiled with g77 because of type casting errors which do work with gfortran. Created files are named: ``original_name + '_subr_i' + '.f'``, with ``i`` starting at zero and ending at ``num_subroutines_in_file - 1``. csÃt|dƒ®}|jƒ}g}t}x¬t|ƒD]ž\}}tjd|tjƒ}|r7|ddkr7ˆdk rª|jdƒj dƒj ƒ}|ˆk} nt} | s¼|rÕ| }|j |ƒqÕq7q7Wt |ƒdkrò|gSg} t |ƒ} x²t | ƒD]¤} |d dt| ƒd } | j | ƒt|| ƒsUqnt| d ƒO}| d| kr|j||| ƒn |j||| || d!ƒWdQXqWWdQX| S( Ntrbs"^\s+subroutine\s+([a-z0-9_]+)\s*\(isCc!*itasciiiþÿÿÿt_subr_s.ftwb(topent readlinesRt enumerateR tmatchtItNonetgrouptdecodetlowertappendtlentrangetstrRt writelines(tfnametftlinestsubstneed_split_nexttixtlinetmt subr_namet subr_wantedt new_fnamest num_filestnfilet new_fnametfn(t subroutines(s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pyt split_file…s8     0s _subr_[0-9]s*.fN( R/R2R RtglobRRR#RtbasenameR3( t source_dirRGtxRHtexclude_patternR9t source_fnamestfnamest source_fnamet created_filestcfile((RGs:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pyRhs "'%'    $(R R RRItdistutils.dep_utilRt__all__RRRRRRRR/R(((s:/tmp/pip-build-7oUkmx/scipy/scipy/_build_utils/_fortran.pyts