1# for.tcl -- 2# 3# Test file for compilation. 4# Contains nested for 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: for.tcl,v 1.2 2000/05/30 22:19:11 wart Exp $ 13 14set result {} 15set top 8 16 17for {set outerCounter 1} {$outerCounter <= $top} {incr outerCounter} { 18 append result $outerCounter 19 20 for {set innerCounter 1} \ 21 {$innerCounter <= $outerCounter} {incr innerCounter} { 22 append result . 23 } 24} 25 26append result DONE 27set result 28