166 lines
3.6 KiB
Bash
166 lines
3.6 KiB
Bash
#!/bin/bash
|
|
|
|
#############################################################################
|
|
# bash 3 or newer ...
|
|
#
|
|
if [ ${BASH_VERSINFO:-0} -lt 3 ]; then
|
|
echo "BASH version ${BASH_VERSION} ist not supported! You need at least version 3..."
|
|
return
|
|
fi
|
|
|
|
#############################################################################
|
|
# implement module comand as function
|
|
#
|
|
module() {
|
|
local -r modulecmd="${PMODULES_HOME}/bin/modulecmd"
|
|
|
|
local -a args=()
|
|
local -a switches=()
|
|
local -a sub_switches=()
|
|
local subcommand=''
|
|
|
|
while (( $# > 0 )); do
|
|
case $1 in
|
|
-u|--userlvl )
|
|
switches+=( $1 $2 )
|
|
shift 2
|
|
;;
|
|
-* )
|
|
switches+=( $1 )
|
|
shift
|
|
;;
|
|
[a-z]* )
|
|
subcommand=$1
|
|
shift
|
|
break
|
|
;;
|
|
esac
|
|
done
|
|
|
|
while (( $# > 0 ));do
|
|
case $1 in
|
|
-* )
|
|
sub_switches+=( $1 )
|
|
;;
|
|
[a-zA-Z]* )
|
|
args+=( $1 )
|
|
;;
|
|
esac
|
|
shift
|
|
done
|
|
|
|
if [[ ${subcommand} == '' ]]; then
|
|
subcommand='help'
|
|
fi
|
|
if (( ${#args} == 0 )); then
|
|
args+=( '' )
|
|
fi
|
|
for arg in "${args[@]}"; do
|
|
eval $( "${modulecmd}" bash ${switches[@]} "${subcommand}" "${sub_switches[@]}" "${arg}" )
|
|
done
|
|
}
|
|
export -f module
|
|
|
|
#############################################################################
|
|
# helper functions
|
|
#
|
|
append_path () {
|
|
local -r P=$1
|
|
local -r d=$2
|
|
|
|
if ! echo ${!P} | egrep -q "(^|:)${d}($|:)" ; then
|
|
if [[ -z ${!P} ]]; then
|
|
eval $P=${d}
|
|
else
|
|
eval $P="${!P}:${d}"
|
|
fi
|
|
fi
|
|
}
|
|
|
|
prepend_path () {
|
|
local -r P=$1
|
|
local -r d=$2
|
|
|
|
if ! echo ${!P} | egrep -q "(^|:)${d}($|:)" ; then
|
|
if [[ -z ${!P} ]]; then
|
|
eval $P=${d}
|
|
else
|
|
eval $P="${d}:${!P}"
|
|
fi
|
|
fi
|
|
}
|
|
|
|
#
|
|
# Replace or remove a directory in a path variable.
|
|
#
|
|
# To remove a dir:
|
|
# replace_path PATH <pattern>
|
|
#
|
|
# To replace a dir:
|
|
# replace_path PATH <pattern> /replacement/path
|
|
#
|
|
# Args:
|
|
# $1 name of the shell variable to set (e.g. PATH)
|
|
# $2 a grep pattern identifying the element to be removed/replaced
|
|
# $3 the replacement string (use "" for removal)
|
|
#
|
|
# Based on solution published here:
|
|
# https://stackoverflow.com/questions/273909/how-do-i-manipulate-path-elements-in-shell-scripts
|
|
#
|
|
function replace_path () {
|
|
local -r path=$1
|
|
local -r removepat=$2
|
|
local -r replacestr=$3
|
|
|
|
local -r removestr=$(echo "${!path}" | tr ":" "\n" | grep -m 1 "^$removepat\$")
|
|
export $path=$(echo "${!path}" | tr ":" "\n" | sed "s:^${removestr}\$:${replacestr}:" |
|
|
sed '/^\s*$/d' | tr "\n" ":" | sed -e 's|^:||' -e 's|:$||')
|
|
}
|
|
|
|
#############################################################################
|
|
# setup environment
|
|
#
|
|
if [[ -z ${LOADEDMODULES} ]]; then
|
|
declare -x LOADEDMODULES=''
|
|
fi
|
|
|
|
if [[ -z ${MODULEPATH} ]]; then
|
|
declare -x MODULEPATH=''
|
|
for f in ${PSI_DEFAULT_FAMILIES}; do
|
|
append_path MODULEPATH "${PSI_PREFIX}/${PSI_MODULES_ROOT}/$f"
|
|
append_path PSI_LOADEDFAMILIES "${f}"
|
|
done
|
|
fi
|
|
|
|
if [[ -z ${PSI_LOADEDFAMILIES} ]]; then
|
|
declare -x PSI_LOADEDFAMILIES=''
|
|
fi
|
|
|
|
replace_path PATH "${PMODULES_HOME%/*}/.*"
|
|
replace_path MANPATH "${PMODULES_HOME%/*}/.*"
|
|
append_path PATH "${PMODULES_HOME}/bin"
|
|
append_path MANPATH "${PMODULES_HOME}/share/man"
|
|
|
|
#############################################################################
|
|
# initialize bash completion
|
|
#
|
|
if [[ -r "${PMODULES_HOME}/init/bash_completion" ]]; then
|
|
source "${PMODULES_HOME}/init/bash_completion"
|
|
fi
|
|
|
|
#############################################################################
|
|
# legacy...
|
|
#
|
|
#declare -x MODULE_VERSION=${PMODULES_VERSION}
|
|
#declare -x MODULE_VERSION_STACK="${PMODULE_VERSION}"
|
|
#declare -x MODULESHOME="${PMODULES_HOME}"
|
|
unset MODULE_VERSION
|
|
unset MODULE_VERSION_STACK
|
|
unset MODULESHOME
|
|
|
|
# Local Variables:
|
|
# mode: sh
|
|
# sh-basic-offset: 8
|
|
# tab-width: 8
|
|
# End:
|