Last Piece Hacktivist Crew

Editing: module-info

#%Module1.0#####################################################################
##
## module-info modulefile
##
proc ModulesHelp { } {
    puts stderr "\tThis module returns all the various module-info values"
    puts stderr "\tin whatever mode you use (except in  `whatis' mode)"
    InfoOut
}

module-whatis   "returns all various module-info values"

proc InfoOut { } {
global ModulesCurrentModulefile
puts stderr     "+++ global vars +++++++++++++++++++++++++++++++"
puts stderr     "ModulesCurrentModulefile = $ModulesCurrentModulefile"
puts stderr     "+++ module-info +++++++++++++++++++++++++++++++"
puts stderr     [ concat        "flags                  = " [module-info flags]]
puts stderr     [ concat        "mode                   = " [module-info mode]]
puts stderr     [ concat        "name                   = " [module-info name]]
puts stderr     [ concat        "specified              = " [module-info specified]]
puts stderr     [ concat        "shell                  = " [module-info shell]]
puts stderr     [ concat        "shelltype              = " [module-info shelltype]]
#puts stderr    [ concat        "alias                  = " [module-info alias]]
puts stderr     [ concat        "version                = " [module-info version [module-info name]]]
puts stderr     [ concat        "user                   = " [module-info user]]
puts stderr     [ concat        "symbols                = " [module-info symbols]]
puts stderr     "+++ info ++++++++++++++++++++++++++++++++++++++"
puts stderr     [ concat        "hostname               = " [info hostname ]]
puts stderr     [ concat        "level                  = " [info level ]]
puts stderr     [ concat        "loaded null            = " [is-loaded null ]]
puts stderr     [ concat        "library                = " [info library ]]
puts stderr     [ concat        "nameofexecutable       = " [info nameofexecutable ]]
puts stderr     [ concat        "sharedlibextension     = " [info sharedlibextension ]]
puts stderr     [ concat        "tclversion             = " [info tclversion ]]
puts stderr     [ concat        "patchlevel             = " [info patchlevel ]]
puts stderr     "+++++++++++++++++++++++++++++++++++++++++++++++"
}
if {! [ module-info mode whatis ] } {InfoOut}

Cancel