ó LuNc @sþdZddlZddlZddlmZddlmZmZmZmZm Z e dkrúdZ ej Z e ee ƒƒdkZe jdƒed e ƒZed e ƒZejd Zed krÖd ZnejdjeƒdkZerBejjejddƒejjejdddƒejjejdddƒejjejdddƒejjejdddƒgZddddgZgZxeD]…Zx|ejedeƒD]e\ZZZ xSe D]KZ!e!ekrØejj"e!ƒZ#e#ddkr#eje#dƒq#qØqØWqÂWq¦Wee e e ƒ)nee ƒZ$e$dZe$dZ%e eƒdkrŠe d GHej&ƒned!Z'edZer"ed"ks¼ed#kr"e de j(dƒd!Z e jd$ƒee ƒZ$e$dZ$e e$ƒdkr"e%je$dƒq"ned%krcejj)eƒsZe d&eGHej&ƒnd%Z*n¦ejd'ejd(kràerÊejjejd)d*ƒZ*ejj+e*ƒsºd%Z*nejd+Zq d%Z*ejd,Zn)ejjejd-d*ƒZ*ejd-Zejjed.e'd/ƒZ,ersejj+e,ƒrNej-e,ƒned0e,d1d1je%ƒeƒn"ed2e,d1d1je%ƒeƒxe%D]Z#ej-e#ƒqœWes ejd jd3ƒdkr ed4e,d1ejjejdd5d6ddƒe.ƒej-e,ƒq ne e e,ƒGHe*d%kríej/d7ƒj0ƒZ1e1j2d8ƒdZ1e1d1ejj2e,ƒd7Z1er”e1d97Z1ne1d1jee ƒdƒ7Z1e3e*d:ƒj0ƒZ#e#e1d87Z#e3e*d;ƒj4e#ƒnej&ƒndS(<s÷ #+ # NAME: # olb # PURPOSE: # Recompile all F77 subroutines and functions, and create object library # libgen.a from the object files # CALLING SEQUENCE: # olb # olb module (where 'module' is an F77 module, e.g. forgen) # INPUTS: # Fortran files selected from a number of subdirectories (see PROCEDURE). # OPTIONAL INPUTS: # -g77 use g77 compiler # -intel use Intel Fortran compiler # -pgi use Portland compiler # -absoft or $ABSOFT set # use Absoft compiler # -dir= destination directory for static library # If neither keyword or environment variable is set then g77 or Intel # compiler is used (whichever is found first using 'which') # OUTPUTS: # New or updated object library libgen.a in $for (when executed on # the '$SMEI_ACCOUNT' software account) or $myfor (when executed on a # user account). # CALLS: # mk, tiny.is_there, tiny.args, tine.run_cmd # SIDE EFFECTS: # A compilation status line is added to $sys/olb.log # RESTRICTIONS: # Can only be executed from the software account (i.e. $USER=$SMEI_ACCOUNT). # A line is added to $sys/olb.log with the time of compilation and # the module updated (if present) # PROCEDURE: # > If no explicit module is specified then a hardcoded list of # Fortran files is used from $for and $SMEI_FOR, mostly from # subdirectories 'lib' and 'os' (containing OS-dependent files) # > If an explicit module with name 'module' is specified then the # file 'module.f' is processed after looking for it in directories # $myfor, $for and $SMEI_FOR, respectively. # > Object files are created in $temp and deleted after use # > The library is created in $for (on the software account) or $myfor # (on a user account). # > The compilation command looks for include files in the directories # $for/h, $SMEI_FOR/h and $SMEI_FOR/h/linux. # > Two other switches are included: # -ffixed-line-length-none -> extended fortran # -c -> suppresses linking into executable # # Some of the fortran files are compiled with the -w switch added to # suppress warning messages, mostly about unimplemented intrinsics such # as cosd, sind, etc. # # An earlier version also used switches to be able to use our old # 'signal' subroutine (signal is a unix function included in the # badu77 group and the unix group of intrinsics): # -fbadu77-intrinsic-hide # -funix-intrinsic-hide # Since 'signal' has been renamed 'say' we don't need these anymore. # # > For gcc the machine type is determined with gcc -dumpmachine and # the version number with gcc -dumpversion. # For the Intel compilers -dumpmachine doesn't work, and -dumpversion # only works for version 8.0. ifc -dumpversion is used to determine # the version number. If it doesn't work version 6.0 is assumed (this # is the only version of ifc prior to 8.0 that we used). # MODIFICATION HISTORY: # FEB-2001, Paul Hick (UCSD/CASS) # 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). # SEP-2004, Paul Hick (UCSD/CASS) # The name of the libgen library now tries to code # compiler information into the file name. # For g77 the name now is libgen__gnu_.a # For Intel ifc it is libgen_intel_ # On the software account the library is now created in # $SMEI_LIB instead of $for. # OCT-2004, Paul Hick (UCSD/CASS) # Added Portland compiler. # JAN-2004, Paul Hick (UCSD/CASS) # Converted from bash to Python. # SEP-2007, Paul Hick (UCSD/CASS; pphick@ucsd.edu) # Added get_compiler_intel.f and get_compiler_gnu.f # to list of files to be skipped. #- iÿÿÿÿN(tmk(tis_theretstarttargstrun_cmdthide_envt__main__solb, is-objs-verboses-dir=tHOSTNAMEscass185.ucsd.edus ips.ucsd.edut SMEI_MASTERtSMEI_FORtlibtostfnctlinuxtSMEItforttdlibs forfits.fs arrinfo.fsget_compiler_intel.fsget_compiler_gnu.fttopdowns.fitf77tobjsno objects files createditg77tgfortrantgoniodtsdirectory does not exist, tUSERt SMEI_ACCOUNTtSYSsolb.logtSMEI_LIBtTUBtFORtlibgens.as ar -rcsv t sar -rsv s .ucsd.edusscp tucsdtgensdate +"%Y-%m-%d %H:%M:%S"s s alltrtw(5t__doc__tsysR RttinyRRRRRt__name__tsaytargvtlentalltappendtverbosetlib_dirtenvironthostnametfindt is_mastertpathtjointall_fdirt skip_filesRtfdirtwalktFalsetroottdirstfilestonetsplitextttmptresultsRtexittf77idtindextisdirtlog_filetisfileRtremovetTruetpopentreadt log_stringtsplittopentwrite(((s./olb.pytXs¨(      " %  #                %" 8