D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
proc
/
self
/
root
/
usr
/
share
/
Modules
/
init
/
Filename :
tcsh
back
Copy
# define module command and surrounding initial environment (default value # for MODULESHOME, MODULEPATH, LOADEDMODULES and parse of init config files) eval "`/usr/bin/tclsh /usr/share/Modules/libexec/modulecmd.tcl tcsh autoinit`" # no environment alteration if the above autoinit command failed if ( $status == 0 ) then # clarify compat version is not enabled for below tests if ( ! $?MODULES_USE_COMPAT_VERSION ) then setenv MODULES_USE_COMPAT_VERSION 0 endif # redefine module command if compat version has been activated if ( "$MODULES_USE_COMPAT_VERSION" == '1' ) then setenv MODULES_CMD /usr/share/Modules/libexec/modulecmd-compat ; if ( $?histchars && $?prompt ) alias module 'set _histchars = $histchars; unset histchars; set _prompt=$prompt:q; set prompt=""; eval `/usr/share/Modules/libexec/modulecmd-compat tcsh \!*`; set _exit="$status"; set histchars = $_histchars; unset _histchars; set prompt=$_prompt:q; unset _prompt; test 0 = $_exit' ; if ( $?histchars && ! $?prompt ) alias module 'set _histchars = $histchars; unset histchars; eval `/usr/share/Modules/libexec/modulecmd-compat tcsh \!*`; set _exit="$status"; set histchars = $_histchars; unset _histchars; test 0 = $_exit' ; if ( ! $?histchars && $?prompt ) alias module 'set _prompt=$prompt:q; set prompt=""; eval `/usr/share/Modules/libexec/modulecmd-compat tcsh \!*`; set _exit="$status"; set prompt=$_prompt:q;unset _prompt; test 0 = $_exit' ; if ( ! $?histchars && ! $?prompt ) alias module 'eval `/usr/share/Modules/libexec/modulecmd-compat tcsh \!*`' ; endif # define function to switch between C and Tcl versions of Modules set switchml_defined="`alias switchml`" if ( "$switchml_defined" == '' ) then alias switchml 'set swfound=1; \\ if ( ! $?MODULES_USE_COMPAT_VERSION ) setenv MODULES_USE_COMPAT_VERSION 0; \\ if ( "$MODULES_USE_COMPAT_VERSION" == "1" ) set swname="main"; \\ if ( "$MODULES_USE_COMPAT_VERSION" == "1" && -e /usr/share/Modules/libexec/modulecmd.tcl ) set swfound=0; \\ if ( "$MODULES_USE_COMPAT_VERSION" != "1" ) set swname="compatibility"; \\ if ( "$MODULES_USE_COMPAT_VERSION" != "1" && -e /usr/share/Modules/libexec/modulecmd-compat ) set swfound=0; \\ if ( $swfound == 0 && $swname == "main" ) setenv MODULES_USE_COMPAT_VERSION 0; \\ if ( $swfound == 0 && $swname == "compatibility" ) setenv MODULES_USE_COMPAT_VERSION 1; \\ if ( $swfound == 0 ) echo "Switching to Modules $swname version"; \\ if ( $swfound == 0 ) source /usr/share/Modules/init/tcsh; \\ if ( $swfound != 0 ) echo "Cannot switch to Modules $swname version, command not found"; \\ unset swfound swname;' endif unset switchml_defined if ( $?tcsh && $?prompt && -r /usr/share/Modules/init/tcsh_completion ) then if ( "$MODULES_USE_COMPAT_VERSION" != '1' ) then source /usr/share/Modules/init/tcsh_completion else # no completion support on compat version uncomplete module endif endif if ( ":${PATH}:" !~ '*:/usr/share/Modules/bin:*' ) then if ( "$PATH" == '' ) then setenv PATH /usr/share/Modules/bin else setenv PATH "/usr/share/Modules/bin:$PATH" endif endif if ( $?MANPATH ) then set manpath = $MANPATH else set manpath = `manpath` # initialize MANPATH if not set with a value that preserves manpath # system configuration even after addition of paths to this variable # by modulefiles setenv MANPATH : endif if ( ":${manpath}:" !~ '*:/usr/share/man:*' ) then if ( "$MANPATH" == '' || "$MANPATH" == ':' ) then set mlpathsep = '' else set mlpathsep = : endif setenv MANPATH "/usr/share/man$mlpathsep$MANPATH" unset mlpathsep endif unset manpath endif