Current File : //proc/self/root/proc/self/root/proc/self/root/proc/self/root/usr/share/Modules/init/tcsh
# 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
Mini Shell