diff options
Diffstat (limited to 'doc/proc.n')
| -rw-r--r-- | doc/proc.n | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -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: proc.n,v 1.4 2004/05/24 23:31:42 dkf Exp $ +'\" RCS: @(#) $Id: proc.n,v 1.5 2004/10/27 14:24:37 dkf Exp $ '\" .so man.macros .TH proc n "" Tcl "Tcl Built-In Commands" @@ -73,20 +73,20 @@ body, then the procedure-as-a-whole will return that same error. This is a procedure that accepts arbitrarily many arguments and prints them out, one by one. .CS -proc printArguments args { - foreach arg $args { - puts $arg - } +\fBproc\fR printArguments args { + foreach arg $args { + puts $arg + } } .CE - +.PP This procedure is a bit like the \fBincr\fR command, except it multiplies the contents of the named variable by the value, which defaults to \fB2\fR: .CS -proc mult {varName {multiplier 2}} { - upvar 1 $varName var - set var [expr {$var * $multiplier}] +\fBproc\fR mult {varName {multiplier 2}} { + upvar 1 $varName var + set var [expr {$var * $multiplier}] } .CE |