mirror of
https://github.com/envmodules/modules.git
synced 2026-06-14 00:42:43 +08:00
40 lines
896 B
Plaintext
40 lines
896 B
Plaintext
#%Module1.0
|
|
|
|
##############################################################################
|
|
# Modules Revision 3.0
|
|
# Providing a flexible user environment
|
|
#
|
|
# File: continue/%M%
|
|
# Revision: %I%
|
|
# First Edition: 2006/02/21
|
|
# Last Mod.: %U%, %G%
|
|
#
|
|
# Authors: R.K.Owen <rk@owen.sj.ca.us>
|
|
#
|
|
# Description: Testuite modulefile
|
|
# Command:
|
|
# Sub-Command: setenv
|
|
#
|
|
# Invocation: load @M@/foo
|
|
# Result: %R{
|
|
# setenv _LMFILES_ ${_LMFILES_}:@M@/@V@
|
|
# setenv LOADEDMODULES ${LOADEDMODULES}:@P@/@M@/@V@
|
|
# setenv testsuite1 yes
|
|
# }R%
|
|
# Comment: %C{
|
|
# This modulefile is used for checking whether the
|
|
# TCL "continue" mechanism is working,
|
|
# where this a valid loop "continue"
|
|
# }C%
|
|
#
|
|
##############################################################################
|
|
|
|
set i 0
|
|
set j 0
|
|
while {$i < 19} {
|
|
incr i
|
|
if {$i > 9} continue
|
|
incr j
|
|
}
|
|
setenv testsuite4 "$j"
|