1#%Module1.0 2 3############################################################################## 4# Modules Revision 3.0 5# Providing a flexible user environment 6# 7# File: info/%M% 8# Revision: %I% 9# First Edition: 95/12/06 10# Last Mod.: %U%, %G% 11# 12# Authors: Jens Hamisch, Jens.Hamisch@Strawberry.COM 13# 14# Description: Testuite modulefile 15# Command: 16# Sub-Command: module-info mode, module-info flags 17# 18# Invocation: load @M@/@V@, unload @M@/@V@, display @M@/@V@ 19# Invocation: switch @M@/mode5 @M@/mode6, help @M@/@V@ 20# Result: %R(load){ 21# 32 22# setenv _LMFILES_ ${_LMFILES_}:@M@/@V@ 23# setenv LOADEDMODULES ${LOADEDMODULES}:@P@/@M@/@V@ 24# }R% 25# %R(unload){ 26# 1 27# unsetenv _LMFILES_ 28# unsetenv LOADEDMODULES 29# }R% 30# %R(display){ 31# ------------------------------------------------------------------- 32# @P@/@M@/@V@: 33# 34# 2 35# ------------------------------------------------------------------- 36# }R% 37# %R(switch){ 38# 5 39# 8 40# 17 41# setenv _LMFILES_ ${_LMFILES_}:@M@/mode6 42# setenv LOADEDMODULES ${LOADEDMODULES}:@P@/@M@/mode6 43# }R% 44# %R(help){ 45# ----------- Module Specific Help for '@M@/@V@' ----------------- 46# 47# 256 48# }R% 49# Comment: %C{ 50# This modulefile checks the value of the modulecmd mode 51# flag 52# }C% 53# 54############################################################################## 55 56proc ModulesHelp { } { 57 puts stderr "[module-info flags]" 58} 59 60proc ModulesTest { } { 61 puts stderr "[module-info flags]" 62 return 1 63} 64 65if { ![module-info mode whatis] } { 66 puts stdout "[module-info flags]" 67} 68