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