#%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}