Attachment "foreach.n.patch" to
ticket [1078760fff]
added by
wildcard_25
2004-12-04 12:40:24.
Index: doc/foreach.n
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/foreach.n,v
retrieving revision 1.5
diff -u -d -r1.5 foreach.n
--- doc/foreach.n 26 Nov 2004 10:02:23 -0000 1.5
+++ doc/foreach.n 4 Dec 2004 04:32:10 -0000
@@ -54,11 +54,12 @@
This loop prints every value in a list together with the square and
cube of the value:
.CS
-'\" Maintainers: notice the tab hacking below!
-.ta 32
-set values {1 3 5 7 2 4 6 8} ;# Odd numbers first, for fun!
-puts "Value\\tSquare\\tCube" ;# Neat-looking header
-\fBforeach\fR x $values { ;# Now loop and print...
+# Odd numbers first, for fun!
+set values {1 3 5 7 2 4 6 8}
+# Neat-looking header
+puts "Value\\tSquare\\tCube"
+# Now loop and print...
+\fBforeach\fR x $values {
puts " $x\\t [expr {$x**2}]\\t [expr {$x**3}]"
}
.CE