1# while.tcl --
2#
3#  Test file for compilation.
4#  Contains nested while loops, used to check generation of the exception
5#  ranges arrays.
6#
7# Copyright (c) 1998-2000 by Ajuba Solutions.
8#
9# See the file "license.terms" for information on usage and redistribution
10# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11#
12# RCS: @(#) $Id: while.tcl,v 1.2 2000/05/30 22:19:13 wart Exp $
13
14set result {}
15set top 8
16
17set outerCounter 1
18while {$outerCounter <= $top} {
19    append result $outerCounter
20
21    set innerCounter 1
22    while {$innerCounter <= $outerCounter} {
23	append result .
24	incr innerCounter
25    }
26
27    incr outerCounter
28}
29
30append result DONE
31set result
32