diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | doc/gets.n | 15 |
2 files changed, 18 insertions, 1 deletions
@@ -1,3 +1,7 @@ +2004-04-16 Donal K. Fellows <donal.k.fellows@man.ac.uk> + + * doc/gets.n: Added example based on [Patch 935911]. + 2004-04-15 Donal K. Fellows <donal.k.fellows@man.ac.uk> * generic/tclClock.c (Tcl_ClockObjCmd): Minor fault in a [clock @@ -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.4 2001/09/14 19:20:40 andreas_kupries Exp $ +'\" RCS: @(#) $Id: gets.n,v 1.5 2004/04/16 10:28:55 dkf Exp $ '\" .so man.macros .TH gets n 7.5 Tcl "Tcl Built-In Commands" @@ -52,6 +52,19 @@ 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. + +.CS +set chan [open "some.file.txt"] +set lineNumber 0 +while {[gets $chan line] >= 0} { + puts "[incr lineNumber]: $line" +} +close $chan +.CE + .SH "SEE ALSO" file(n), eof(n), fblocked(n), Tcl_StandardChannels(3) |