diff options
Diffstat (limited to 'doc/gets.n')
| -rw-r--r-- | doc/gets.n | 7 |
1 files changed, 3 insertions, 4 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: gets.n,v 1.5 2004/04/16 10:28:55 dkf Exp $ +'\" RCS: @(#) $Id: gets.n,v 1.6 2004/10/27 12:53:22 dkf Exp $ '\" .so man.macros .TH gets n 7.5 Tcl "Tcl Built-In Commands" @@ -51,15 +51,14 @@ produce the same results as if there were an input line consisting only of the end-of-line character(s). The \fBeof\fR and \fBfblocked\fR commands can be used to distinguish these three cases. - .SH "EXAMPLE" This example reads a file one line at a time and prints it out with the current line number attached to the start of each line. - +.PP .CS set chan [open "some.file.txt"] set lineNumber 0 -while {[gets $chan line] >= 0} { +while {[\fBgets\fR $chan line] >= 0} { puts "[incr lineNumber]: $line" } close $chan |