#%Module1.0 ############################################################################## # Modules Revision 3.0 # Providing a flexible user environment # # File: versions/%M% # Revision: %I% # First Edition: 2001/06/20 # Last Mod.: %U%, %G% # # Authors: R.K.Owen # # Description: Testuite modulefile # Command: # # Invocation: # Result: %R{ # }R% # Comment: %C{ # tests whether the versioning stack is working. # }C% # ############################################################################## if [ expr [ module-info mode load ] || [ module-info mode display ] ] { setenv MODULE_VERSION 1.1 } prepend-path MODULE_VERSION_STACK 1.1 if [ module-info mode remove ] { unsetenv MODULE_VERSION [lindex [split $env(MODULE_VERSION_STACK) : ] 0 ] }