mirror of
https://github.com/Pmodules/Pmodules.git
synced 2026-06-26 01:23:09 +02:00
gsell
41b6e2a26e
- unused procedures removed - implementation of the output of the .info file moved to modulecmd.bash - swap is now implemented in modulecmd.bash as unload followed by a load
329 lines
8.5 KiB
Tcl
329 lines
8.5 KiB
Tcl
#
|
|
# :TODO:
|
|
# switch/swap
|
|
# unload modules if parent removed
|
|
#
|
|
|
|
if {[info exists env(PMODULES_DEBUG)] && $env(PMODULES_DEBUG)} {
|
|
proc debug {msg} {
|
|
set level [expr [info level] -2]
|
|
set r [catch {info level ${level}} e]
|
|
if {$r} {
|
|
set caller ""
|
|
} else {
|
|
set caller [lindex [split [info level [expr [info level] - 3]]] 0]
|
|
}
|
|
puts -nonewline stderr "${caller}: "
|
|
puts stderr ${msg}
|
|
}
|
|
} else {
|
|
proc debug {msg} {}
|
|
}
|
|
|
|
debug "loading libmodules"
|
|
|
|
proc module-addgroup { group } {
|
|
global env
|
|
global name
|
|
global version
|
|
|
|
debug "called with arg $group"
|
|
debug "mode=[module-info mode]"
|
|
|
|
set GROUP [string toupper $group]
|
|
regsub -- "-" ${GROUP} "_" GROUP
|
|
setenv ${GROUP} $name
|
|
setenv ${GROUP}_VERSION $version
|
|
|
|
set ::${group} $name
|
|
set ::${group}_version $version
|
|
|
|
if { [module-info mode load] } {
|
|
prepend-path MODULEPATH [file join \
|
|
$::PmodulesRoot \
|
|
$group \
|
|
$::PmodulesModulfilesDir \
|
|
{*}$::variant]
|
|
prepend-path UsedGroups $group
|
|
debug "mode=load: new MODULEPATH=$env(MODULEPATH)"
|
|
debug "mode=load: new UsedGroups=$env(UsedGroups)"
|
|
} elseif { [module-info mode remove] } {
|
|
set GROUP [string toupper $group]
|
|
debug "mode=remove: hierarchical group '${GROUP}'"
|
|
|
|
if { [info exists ::env(PMODULES_LOADED_${GROUP})] } {
|
|
debug "mode=remove: unloading orphan modules"
|
|
set modules [split $env(PMODULES_LOADED_${GROUP}) ":"]
|
|
foreach m ${modules} {
|
|
if { ${m} == "--APPMARKER--" } {
|
|
continue
|
|
}
|
|
if { [is-loaded ${m}] } {
|
|
debug "mode=remove: unloading $m"
|
|
module unload ${m}
|
|
}
|
|
}
|
|
} else {
|
|
debug "mode=remove: no orphan modules to unload"
|
|
}
|
|
debug "mode=remove: $env(MODULEPATH)"
|
|
set dir [file join \
|
|
$::PmodulesRoot \
|
|
$group \
|
|
$::PmodulesModulfilesDir \
|
|
{*}$::variant]
|
|
debug "mode=remove: dir=$dir"
|
|
remove-path MODULEPATH $dir
|
|
debug "mode=remove: $env(UsedGroups)"
|
|
remove-path UsedGroups $group
|
|
debug "mode=remove: $env(UsedGroups)"
|
|
}
|
|
}
|
|
|
|
proc set-family { group } {
|
|
module-addgroup $group
|
|
}
|
|
|
|
proc _pmodules_update_loaded_modules { group name version } {
|
|
if { ${group} == "--APPMARKER--" } {
|
|
return
|
|
}
|
|
set GROUP [string toupper $group]
|
|
debug "${GROUP} $name/$version"
|
|
append-path PMODULES_LOADED_${GROUP} "$name/$version"
|
|
remove-path PMODULES_LOADED_${GROUP} "--APPMARKER--"
|
|
}
|
|
|
|
proc lreverse_n { list n } {
|
|
set res {}
|
|
set i [expr [llength $list] - $n]
|
|
while {$i >= 0} {
|
|
lappend res {*}[lrange $list $i [expr $i+$n-1]]
|
|
incr i -$n
|
|
}
|
|
set res
|
|
}
|
|
|
|
#
|
|
# set standard environment variables
|
|
#
|
|
proc _pmodules_setenv { PREFIX name version } {
|
|
#
|
|
# Hack for supporting legacy modules
|
|
if { "${::group}" == "Legacy" } {
|
|
debug "this is a legacy module..."
|
|
return
|
|
}
|
|
|
|
set NAME [string toupper $name]
|
|
regsub -- "-" ${NAME} "_" NAME
|
|
|
|
if { ! [info exist ::dont-setenv] } {
|
|
set ::dont-setenv {}
|
|
}
|
|
|
|
if { ${version} != "" } {
|
|
if { [lsearch ${::dont-setenv} "${NAME}_VERSION"] == -1 } {
|
|
setenv ${NAME}_VERSION $version
|
|
}
|
|
}
|
|
|
|
if { [file isdirectory "$PREFIX"] } {
|
|
if { [lsearch ${::dont-setenv} "${NAME}_PREFIX"] == -1 } {
|
|
setenv ${NAME}_PREFIX $PREFIX
|
|
}
|
|
if { [lsearch ${::dont-setenv} "${NAME}_DIR"] == -1 } {
|
|
setenv ${NAME}_DIR $PREFIX
|
|
}
|
|
if { [lsearch ${::dont-setenv} "${NAME}_HOME"] == -1 } {
|
|
setenv ${NAME}_HOME $PREFIX
|
|
}
|
|
} else {
|
|
debug "$PREFIX is not a directory"
|
|
}
|
|
|
|
if { [file isdirectory "$PREFIX/bin"] } {
|
|
if { [lsearch ${::dont-setenv} "PATH"] == -1 } {
|
|
prepend-path PATH $PREFIX/bin
|
|
}
|
|
}
|
|
|
|
if { [file isdirectory "$PREFIX/sbin"] } {
|
|
if { [lsearch ${::dont-setenv} "PATH"] == -1 } {
|
|
prepend-path PATH $PREFIX/sbin
|
|
}
|
|
}
|
|
|
|
if { [file isdirectory "$PREFIX/share/man"] } {
|
|
if { [lsearch ${::dont-setenv} "MANPATH"] == -1 } {
|
|
prepend-path MANPATH $PREFIX/share/man
|
|
}
|
|
}
|
|
|
|
# set various environment variables - as long as they are not blacklisted
|
|
debug "prepend to include paths"
|
|
if { [file isdirectory "$PREFIX/include"] } {
|
|
if { [lsearch ${::dont-setenv} "C_INCLUDE_PATH"] == -1 } {
|
|
prepend-path C_INCLUDE_PATH $PREFIX/include
|
|
}
|
|
if { [lsearch ${::dont-setenv} "CPLUS_INCLUDE_PATH"] == -1 } {
|
|
prepend-path CPLUS_INCLUDE_PATH $PREFIX/include
|
|
}
|
|
if { [lsearch ${::dont-setenv} "${NAME}_INCLUDE_DIR"] == -1 } {
|
|
setenv ${NAME}_INCLUDE_DIR $PREFIX/include
|
|
}
|
|
}
|
|
|
|
debug "prepend to library paths"
|
|
if { [file isdirectory "$PREFIX/lib"] } {
|
|
if { [lsearch ${::dont-setenv} "LIBRARY_PATH"] == -1 } {
|
|
prepend-path LIBRARY_PATH $PREFIX/lib
|
|
}
|
|
if { [lsearch ${::dont-setenv} "LD_LIBRARY_PATH"] == -1 } {
|
|
prepend-path LD_LIBRARY_PATH $PREFIX/lib
|
|
}
|
|
if { [lsearch ${::dont-setenv} "${NAME}_LIBRARY_DIR"] == -1 } {
|
|
setenv ${NAME}_LIBRARY_DIR $PREFIX/lib
|
|
}
|
|
}
|
|
|
|
if { [file isdirectory "$PREFIX/lib/pkgconfig"] } {
|
|
if { [lsearch ${::dont-setenv} "PKG_CONFIG_PATH"] == -1 } {
|
|
prepend-path PKG_CONFIG_PATH $PREFIX/lib/pkgconfig
|
|
}
|
|
}
|
|
|
|
if { [file isdirectory "$PREFIX/lib/cmake"] } {
|
|
if { [lsearch ${::dont-setenv} "CMAKE_MODULE_PATH"] == -1 } {
|
|
prepend-path CMAKE_MODULE_PATH $PREFIX/lib/cmake
|
|
}
|
|
}
|
|
|
|
debug "prepend to library paths (64bit)"
|
|
if { [file isdirectory "$PREFIX/lib64"] } {
|
|
if { [lsearch ${::dont-setenv} "LIBRARY_PATH"] == -1 } {
|
|
prepend-path LIBRARY_PATH $PREFIX/lib64
|
|
}
|
|
if { [lsearch ${::dont-setenv} "LD_LIBRARY_PATH"] == -1 } {
|
|
prepend-path LD_LIBRARY_PATH $PREFIX/lib64
|
|
}
|
|
if { [lsearch ${::dont-setenv} "${NAME}_LIBRARY_DIR"] == -1 } {
|
|
setenv ${NAME}_LIBRARY_DIR $PREFIX/lib64
|
|
}
|
|
}
|
|
}
|
|
|
|
proc module-url { url } {
|
|
set ::g_url ${url}
|
|
}
|
|
|
|
proc module-license { license } {
|
|
set ::g_license ${license}
|
|
}
|
|
|
|
proc module-maintainer { maintainer } {
|
|
set ::g_maintainer ${maintainer}
|
|
}
|
|
|
|
proc module-help { help } {
|
|
set ::g_help ${help}
|
|
}
|
|
|
|
proc ModulesHelp { } {
|
|
if { [info exists ::whatis] } {
|
|
puts stderr "${::whatis}"
|
|
} else {
|
|
module whatis ModulesCurrentModulefile
|
|
}
|
|
if { [info exists ::version] } {
|
|
puts stderr "Version: ${::version}"
|
|
} else {
|
|
module whatis
|
|
}
|
|
if { [info exists ::g_url] } {
|
|
puts stderr "Homepage: ${::g_url}"
|
|
}
|
|
if { [info exists ::g_license] } {
|
|
puts stderr "License: ${::g_license}"
|
|
}
|
|
if { [info exists ::g_maintainer] } {
|
|
puts stderr "Maintainer: ${::g_maintainer}"
|
|
}
|
|
if { [info exists ::g_help] } {
|
|
puts stderr "${::g_help}\n"
|
|
}
|
|
}
|
|
|
|
#
|
|
# intialize global vars
|
|
# Modulefile is something like
|
|
#
|
|
# ${PMODULES_ROOT}/group/${PMODULES_MODULEFILES_DIR}/name/version
|
|
# or
|
|
# ${PMODULES_ROOT}/group/${PMODULES_MODULEFILES_DIR}/X1/Y1/name/version
|
|
# or
|
|
# ${PMODULES_ROOT}/group/${PMODULES_MODULEFILES_DIR}/X1/Y1//X2/Y2/name/version
|
|
#
|
|
proc _pmodules_init_global_vars { } {
|
|
global group
|
|
global GROUP
|
|
global name
|
|
global P
|
|
global version
|
|
global V
|
|
global V_MAJOR
|
|
global V_MINOR
|
|
global V_PATCHLVL
|
|
global V_RELEASE
|
|
global V_PKG
|
|
|
|
global variant
|
|
global PREFIX # prefix of package
|
|
|
|
debug "$::ModulesCurrentModulefile"
|
|
set ::PmodulesRoot $::env(PMODULES_ROOT)
|
|
set ::PmodulesModulfilesDir $::env(PMODULES_MODULEFILES_DIR)
|
|
set modulefile [file split $::ModulesCurrentModulefile]
|
|
set pmodules_root [file split $::PmodulesRoot]
|
|
set pmodules_root_num_dirs [llength $pmodules_root]
|
|
|
|
set modulefile_root [file join {*}[lrange $modulefile 0 \
|
|
[expr $pmodules_root_num_dirs - 1]]]
|
|
if { $::PmodulesRoot != $modulefile_root } {
|
|
debug "stop sourcing: ${::PmodulesRoot} != $modulefile_root"
|
|
return
|
|
}
|
|
debug "modulefile is inside our root"
|
|
set rel_modulefile [lrange $modulefile [llength $pmodules_root] end]
|
|
set group [lindex $rel_modulefile 0]
|
|
set GROUP "${group}"
|
|
set name [lindex $modulefile end-1]
|
|
set P "${name}"
|
|
set version [lindex $modulefile end]
|
|
set V "${version}"
|
|
lassign [split $V -] V_PKG tmp
|
|
set V_RELEASE [lindex [split $tmp _] 0]
|
|
lassign [split $V_PKG .] V_MAJOR V_MINOR V_PATCHLVL
|
|
set variant [lrange $rel_modulefile 2 end]
|
|
set prefix "$pmodules_root $group [lreverse_n $variant 2]"
|
|
set PREFIX [file join {*}$prefix]
|
|
|
|
debug "group of module $name: $group"
|
|
}
|
|
|
|
if { [info exists ::whatis] } {
|
|
module-whatis "$whatis"
|
|
}
|
|
|
|
_pmodules_init_global_vars
|
|
|
|
#
|
|
# we cannot load another module with the same name
|
|
#
|
|
conflict $name
|
|
|
|
_pmodules_setenv ${PREFIX} ${name} ${version}
|
|
_pmodules_update_loaded_modules ${group} ${name} ${version}
|
|
|
|
debug "return from lib"
|