ó ±Mc@sˆdZddlZddlmZmZmZmZmZmZd„Z d„Z e dkr„ddl Z e e j ƒe jƒndS(s #+ # NAME: # mk # CALLING SEQUENCE: # mk.py main sub1 sub2 ... -dir= # INPUTS: # main sub1 sub2 ... # name of main program, followed by additional # files needed for the compilation. # The file type, if specified, is ignored and is # replaced by .f # OPTIONAL INPUTS: # -g77 use g77 compiler # -intel use Intel Fortran 90 compiler # -pgi use Portland compiler # -absoft use Absoft Fortran compiler # # -nogen do not include the forgen library # -nofits do not include the cfitsio library # -noincl do not use default include paths # # If none of these command line switches is set then # the script will try to locate g77 first, then the Intel # compiler. # # -dir=dir destination directory for object files or executable/ # The default destination is the current directory. # -cc include libraries for linking C/C++ code # -static adds switch -static to compile command # -obj only creates object files (used by olb script) # -verbose verbose mode # -keep_id if set, the file "get_compiler.f" is NOT deleted. # OUTPUTS: # The executable will be named 'main' (the name of the main program). # RESTRICTIONS: # The g77 command includes the switches # -ffixed-line-length-none # SIDE EFFECTS: # Cannot be executed in the 'root' account. # # Include directories: # $SMEI_FOR/h, $SMEI_FOR/h/linux and $SMEI/for/h # Library directory : # Libraries should be located in $SMEI_LIB or $FOR # Two libraries are expected: gen and cfitsio. # $SMEI_LIB should always contain these. # MODIFICATION HISTORY: # JAN-2000, Paul Hick (UCSD/CASS) # JAN-2001, Paul Hick (UCSD/CASS) # Added loop to handle compilation of multiple files. # SEP-2002, Paul Hick (UCSD/CASS) # Removed -fdollar-ok option from g77 compilations (all dollar # signs in variable names should have been removed by now). # DEC-2003, Paul Hick (UCSD/CASS) # Added -lcfitsio to compile command (for Fortran FITS routines). # MAY-2004, Paul Hick (UCSD/CASS) # Modifications to get this to run on the stesun Unix machines. # Use awk instead of gawk (on our Linux boxes awk is a soft link # to gawk). Changed the syntax for variable assignment from # awk -v i=$i '{print $i}' to awk '{print $i}' i=$i # The first one doesn't work properly on the stesun machines. # JUL-2004, Paul Hick (UCSD/CASS) # Added -Vaxlib switch for Intel compiler # SEP-2004, Paul Hick (UCSD/CASS) # The default location for the libgen library is now $SMEI_LIB # (was $FOR). # OCT-2004, Paul Hick (UCSD/CASS) # Added Portland compiler. # JAN-2005, Paul Hick (UCSD/CASS) # Added -cc switch (will add a couple of C/C++ libraries # needed to cross compile Fortran and C/C++ code). # JAN-2005, Paul Hick (UCSD/CASS) # Converted from bash to Python. # JUL-2005, Paul Hick (UCSD/CASS) # Added code to handle .o, .c and .cpp files # The main program still must be a Fortran program. # MAR-2007, Paul Hick (UCSD/CASS) # SpatialIndex library is no longer included for linking. # OCT-2007, Paul Hick (UCSD/CASS; pphick@ucsd.edu) # Added -nogen and -nofits keyword # Added test for existence of get_compiler_ function. # If it exists already, use it. If not, create one. # Previously the file was always created, resulting with # a conflict with an existing one. # MAR-2011, John Clover (UCSD/CASS) # Modified f77cc for intel compiler to build for 64 bit only #- iÿÿÿÿN(tis_theretstarttargsthide_envtwhichtrun_cmdcCskddl}tjd|_|jdƒ}ddd|ddd g}t|d ƒjd j|ƒƒ|S( NiÿÿÿÿtTUBsget_compiler.fs subroutine get_compiler(f77id)s character f77id*(*)s f77id = 't's returns endtws (ttempfiletostenvironttempdirtmktemptopentwritetjoin(tf77idR tcontent((s%/home/soft/smei/ucsd/gen/python/mk.pyt set_compiler^s   c5Csœtdgfdgfgƒ}d}tjd}|dkrJ|dGH|Std|ƒ}td|ƒ}td |ƒ}td |ƒ}td |ƒ}td |ƒ} td |ƒ} td|ƒ} td|ƒ} td|ƒ} | dkrt}tjd} n1| jdƒdk}|r3| }tjd} ng}g}g}g}|rìtjtjdƒ}x¬|D]¤}tjj |ƒ}|ddkrª|j |dƒn|ddkrÎ|j |dƒn|ddkrò|j |dƒn|ddkrn|j |ƒqnqnWd}x­|D]˜}t tjj d|dƒƒj ƒ}|jdƒ}xQ|D]I}t|ƒdkrd|jdƒjƒjd ƒdk}|r­Pq­qdqdW|r#Pq#q#W|d!GH|S|j|ƒ|jd|ƒnÞt|ƒ}|dt|ƒ!}x¼|D]´}tjj |ƒ}|ddksJ|ddkr^|j |dƒn|ddkr‚|j |dƒn|ddkr¦|j |dƒn|ddkr|j |ƒqqWt|ƒdkré|d"GH|Stjj| ƒs|t| ƒd#GH|Std$|ƒr*d%}nftd&|ƒrBd'}nNtd(|ƒrZd)}n6td*|ƒrrd+}ntd,|ƒrŠd-}nd}|dkr |}t|ƒdkrçd}|d)krçtd.ƒdkräd.}qäqçn|dkr–|d/|d0GH|Sn‹td%ƒr d%}nvtd'ƒr5d'}natd)ƒrJd)}nLtd.ƒr_d.}n7td+ƒrtd+}n"td-ƒr‰d-}n |d1GH|S|d%kr±d2}d3}nl|d'krÌd2}d3}nQ|d)krçd4}d5}n6|d+krd6}d7}n|d-krd}d}ng}|d%krM|d8}d9tjd:} n[|d'krw|d8}d9tjd:} n1|d.kr®|d;}d9tjd<} |j d=ƒnú|d)kr:|d>}d9tjd<} |j d=ƒtjd<jd?ƒdkr|j d@ƒntjd<jdAƒdkr¨|dB}q¨nn|d+krd|dC}d9tjdD} nD|d-kr¨|dE}d9tjdF} |j dGƒ|j dHƒn|dIt|ƒGH|rN|d%krÝ|j dJƒqN|d'krù|j dJƒqN|d)kr"|j dKƒ|j dJƒqN|d+krN|j dLƒ|j dMƒqNn| r]d}!nbdNtjj tjdOdPdQƒdRtjj tjdSdQƒdRtjj tjdSdQdTƒ}!|rÕ|j dƒng}"g}#ddUdSg}$g}%xR|$D]J}&tjj|&ƒrýtj|&}tjj|ƒrG |%j |ƒqG qýqýWx·|D]¯}'tjj |'ƒ}(|(ddkr‡ |(d}(n|'}(d}xk|%D]c}&xPtj|&ƒD]?\})}*}+x?dVdWdXdYgD]+}|*j|ƒdkrÒ |*j|ƒqÒ qÒ W|+j|(dƒdk}|r° tjj |)|(dƒ},|"j |,ƒ|t|,ƒGHtjj | |(dƒ}-dZ|-d[|d\|!d]|,d^|-}.t|.|ƒtjj|-ƒrÇ |#j |-ƒn$| rë |'|dkrë |d_GHdSPq° q° W|rš Pqš qš WqR Wdd`g}$g}%xR|$D]J}&tjj|&ƒr tj|&}tjj|ƒrh |%j |ƒqh q q Wx‚|D]z}'tjj |'ƒ}(|(ddkr¨ |(d}(n|'}(d}x6|%D].}&xtj|&ƒD] \})}*}+x6dYgD]+}|*j|ƒdkrê |*j|ƒqê qê W|+j|(dƒdk}|rÑ tjj |)|(dƒ},|"j |,ƒ|t|,ƒGHtjj | |(dƒ}-dZ|-d[|d\|,d^|-}.t|.|ƒtjj|-ƒr× |#j |-ƒnPqÑ qÑ W|r» Pq» q» Wqs Wdd`g}$g}%xR|$D]J}&tjj|&ƒr tj|&}tjj|ƒrT |%j |ƒqT q q Wx†|D]~}'tjj |'ƒ}(|(ddkr” |(d}(n|'}(d}x:|%D]2}&xtj|&ƒD]\})}*}+x6dYgD]+}|*j|ƒdkrÖ |*j|ƒqÖ qÖ W|+j|(dƒdk}|r½ tjj |)|(dƒ},|"j |,ƒ|t|,ƒGHtjj | |(dƒ}-dZ|-d[|d\d]|,d^|-}.t|.|ƒtjj|-ƒrÇ|#j |-ƒnPq½ q½ W|r§ Pq§ q§ Wq_ W|#j|ƒt|"ƒdkr |daGH|St|#ƒdkr,|dbGH|S|r]td||| gfd|#fgƒ}/|/Stdc|ƒ}0|0dkr±|d}0tjj|0ƒd}0tjj |0ƒd}0ntjj | |0ƒ}0ddtjdeg}1tjjdUƒr"tjdU}tjj|ƒr"|1j dd|ƒq"ng}2| s>|2j dfƒn| sT|2j dgƒng}3xs|2D]k}4tjj tjdedh|4| diƒ}tjj|ƒr¹|3j dj|4| ƒqa|t|ƒdkGHqaWdl| },|j|,ƒdkr†t| ƒ},tjj |,ƒdd}-|d\|,d^|-}.t|.|ƒtjj|-ƒrZ|#j |-ƒn| rv|t|,ƒdmGHq†tj|,ƒn|d]|!d]d]j |1ƒd]d]j |#ƒd]d]j |3ƒd]d]j |ƒd^|0}.t|.|ƒtjj|0ƒrD|dnt|0ƒGH|rWtdo|0d]|tƒtj|0ƒqWn|dpt|0ƒGHtdZd]j |#ƒ|ƒtd||| gfdq|0fgƒ}/|/S(rNtf77tobjsmk, tUSERtrootsdo not use from root accounts-ccs-statics-verboses-objs-alls-nogens-nofitss-noincls-keep_ids-dir=ttPWDt:iÿÿÿÿRis.fis.cs.cpps.ot.s i is program sno main program founds(usage: mk.py main file1 file2 -dir=s does not exists-g77tg77s -gfortrantgfortrans-inteltiforts-pgitpgf77s-absofttabf77tifcs compiler s not availablesno Fortran compiler foundtgccsg++ticcticpctpgcctpgCCs -w -ffixed-line-length-nonet_t GNU_COMPILERs -w -132tINTEL_COMPILERs-VaxlibsD -O2 -shared-intel -mcmodel=large -parallel -w -132 -assume byterecls intel_9.0s-no-ipos intel_9.1s -warn nouncalleds -w -Mextendt PGI_COMPILERs -W -V -N109tABSOFT_COMPILERs-lU77s-lV77susing s-lstdc++s -cxxlib-gccs-lCs-lstds-ItSMEItforths -ItSMEI_FORtlinuxtFORtwintunixtvmstCVSsrm -f s; s -c t s -os error compiling main programtSMEI_CPPsno source file(s) specifiedsno objects file(s) createds-name=s-LtSMEI_LIBtgentcfitsiotlibs.as-ls not foundt get_compiler_s not deletedsexec: sscp sfail: texe( tdictR R RRtFalsetfindtlistdirtpathtsplitexttappendRRtreadtsplittlent expandtabstlowertremovetinsertRtisdirRRthas_keytwalktcountRtisfiletextendRtTrue(5targvt no_resulttsaytusertincl_cctstatictverboseRtalltnogentnofitstnoincltkeep_idtout_dirt to_remotet remote_dirt fortran_filest cminus_filest cplus_filest object_filestnamestnamettmptfoundtmaintlineRtf77_savetcctcpptf77linktf77ccRt include_f77tsourcestobjectsttop_dirst source_dirst source_dirtentryt base_nameRtdirstfilestsourcetobjecttcmdtstatustexenametlibsdirtall_libstlibsR;((s%/home/soft/smei/ucsd/gen/python/mk.pytmkos|      % $                                                           b      *          "         &     '    (   Z 't__main__(t__doc__R ttinyRRRRRRRRƒt__name__tsysRStexit(((s%/home/soft/smei/ucsd/gen/python/mk.pytZs .  ÿÒ