mirror of
https://github.com/envmodules/modules.git
synced 2026-06-14 00:42:43 +08:00
379d346011
modules CVS repository. * Added README.perl describing Ron Isaacson's Env::Modulecmd perl module (Ron.Isaacson@morganstanley.com). * Added further tests for modulefile "module use dir_path" * Fixed bug of unloading a modulefile with a "module use dir_path"
51 lines
1.6 KiB
Plaintext
51 lines
1.6 KiB
Plaintext
#%Module1.0#####################################################################
|
|
##
|
|
## use.own modulefile
|
|
##
|
|
proc ModulesHelp { } {
|
|
global rkoversion
|
|
|
|
puts stderr "\tThis module file will add \$HOME/privatemodules to the"
|
|
puts stderr "\tlist of directories that the module command will search"
|
|
puts stderr "\tfor modules. Place your own module files here."
|
|
puts stderr "\tThis module, when loaded, will create this directory"
|
|
puts stderr "\tif necessary."
|
|
puts stderr "\n\tVersion $rkoversion\n"
|
|
}
|
|
|
|
module-whatis "adds your own modulefiles directory to MODULEPATH"
|
|
|
|
# for Tcl script use only
|
|
set rkoversion @VERSION@
|
|
|
|
eval set [ array get env HOME ]
|
|
set ownmoddir $HOME/privatemodules
|
|
|
|
# create directory if necessary
|
|
if [ module-info mode load ] {
|
|
if { ! [ file exists $ownmoddir ] } {
|
|
file mkdir $ownmoddir
|
|
set null [open $ownmoddir/null w]
|
|
puts $null "#%Module########################################################################"
|
|
puts $null "##"
|
|
puts $null "## null modulefile"
|
|
puts $null "##"
|
|
puts $null "proc ModulesHelp { } {"
|
|
puts $null " global version"
|
|
puts $null ""
|
|
puts $null " puts stderr \"\tThis module does absolutely nothing.\""
|
|
puts $null " puts stderr \"\tIt's meant simply as a place holder in your\""
|
|
puts $null " puts stderr \"\tdot file initialization.\""
|
|
puts $null " puts stderr \"\n\tVersion \$version\n\""
|
|
puts $null "}"
|
|
puts $null ""
|
|
puts $null "module-whatis \"does absolutely nothing\""
|
|
puts $null ""
|
|
puts $null "# for Tcl script use only"
|
|
puts $null "set version @VERSION@"
|
|
}
|
|
}
|
|
|
|
module use --append $ownmoddir
|
|
|