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