pmodules/Pmodules
1
0
Fork 0
mirror of https://github.com/Pmodules/Pmodules.git synced 2026-06-28 10:29:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

better debug statements in libmodules.tcl

Browse Source
This commit is contained in:
gsell
2019-05-16 14:40:17 +02:00
parent df909d8640
commit ab117e94fb
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Pmodules/libmodules.tcl
+7 -8
View File
@@ -28,7 +28,8 @@ proc module-addgroup { group } {
global version
debug "called with arg $group"
debug "mode=[module-info mode]"
set GROUP [string toupper $group]
regsub -- "-" ${GROUP} "_" GROUP
setenv ${GROUP} $name
@@ -38,8 +39,6 @@ proc module-addgroup { group } {
set ::${group}_version $version
if { [module-info mode load] } {
debug "mode is load"
prepend-path MODULEPATH [file join \
$::PmodulesRoot \
$group \
@@ -50,22 +49,22 @@ proc module-addgroup { group } {
debug "mode=load: new UsedGroups=$env(UsedGroups)"
} elseif { [module-info mode remove] } {
set GROUP [string toupper $group]
debug "remove hierarchical group '${GROUP}'"
debug "mode=remove: hierarchical group '${GROUP}'"
if { [info exists ::env(PMODULES_LOADED_${GROUP})] } {
debug "unloading orphan modules"
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 "unloading: $m"
debug "mode=remove: unloading $m"
module unload ${m}
}
}
} else {
debug "no orphan modules to unload"
debug "mode=remove: no orphan modules to unload"
}
debug "mode=remove: $env(MODULEPATH)"
set dir [file join \
@@ -80,7 +79,6 @@ proc module-addgroup { group } {
debug "mode=remove: $env(UsedGroups)"
}
if { [module-info mode switch2] } {
debug "mode=switch2"
set dir [file join \
$::PmodulesRoot \
$group \
@@ -89,6 +87,7 @@ proc module-addgroup { group } {
if { [file isdirectory $dir] } {
append-path MODULEPATH $dir
}
debug "mode=switch2: new MODULEPATH=$env(MODULEPATH)"
append-path UsedGroups ${group}
}
}