diff options
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/break.n | 12 | ||||
| -rw-r--r-- | doc/continue.n | 12 |
2 files changed, 22 insertions, 2 deletions
diff --git a/doc/break.n b/doc/break.n index 3b71c71..af0eac4 100644 --- a/doc/break.n +++ b/doc/break.n @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: break.n,v 1.4 2003/09/02 16:32:12 dgp Exp $ +'\" RCS: @(#) $Id: break.n,v 1.5 2004/05/05 23:08:39 dkf Exp $ '\" .so man.macros .TH break n "" Tcl "Tcl Built-In Commands" @@ -29,6 +29,16 @@ aborts its execution and returns normally. Break exceptions are also handled in a few other situations, such as the \fBcatch\fR command, Tk event bindings, and the outermost scripts of procedure bodies. +.SH EXAMPLE +Print a line for each of the integers from 0 to 5: +.CS +for {set x 0} {$x<10} {incr x} { + if {$x > 5} { + break + } + puts "x is $x" +} +.CE .SH "SEE ALSO" catch(n), continue(n), for(n), foreach(n), return(n), while(n) diff --git a/doc/continue.n b/doc/continue.n index 0771831..86478e2 100644 --- a/doc/continue.n +++ b/doc/continue.n @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: continue.n,v 1.4 2003/09/02 16:32:12 dgp Exp $ +'\" RCS: @(#) $Id: continue.n,v 1.5 2004/05/05 23:08:39 dkf Exp $ '\" .so man.macros .TH continue n "" Tcl "Tcl Built-In Commands" @@ -29,6 +29,16 @@ continues with the next iteration of the loop. Catch exceptions are also handled in a few other situations, such as the \fBcatch\fR command and the outermost scripts of procedure bodies. +.SH EXAMPLE +Print a line for each of the integers from 0 to 10 \fIexcept\fR 5: +.CS +for {set x 0} {$x<10} {incr x} { + if {$x == 5} { + continue + } + puts "x is $x" +} +.CE .SH "SEE ALSO" break(n), for(n), foreach(n), return(n), while(n) |