From 0edcd84dd859277b50c6666a4d90101a67c76746 Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 16 Apr 2004 10:28:54 +0000 Subject: Added example based on [Patch 935911] from David Welton. --- ChangeLog | 4 ++++ doc/gets.n | 15 ++++++++++++++- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 6fed1b5..2e438e9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-04-16 Donal K. Fellows + + * doc/gets.n: Added example based on [Patch 935911]. + 2004-04-15 Donal K. Fellows * generic/tclClock.c (Tcl_ClockObjCmd): Minor fault in a [clock diff --git a/doc/gets.n b/doc/gets.n index f884d11..8631e4b 100644 --- a/doc/gets.n +++ b/doc/gets.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: 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) -- cgit v0.12