From 354d7f73aad4cceb29dd5f6596df5471d658b54b Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 19 Apr 2004 22:47:36 +0000 Subject: Added example from David Welton. [Patch 938056] --- ChangeLog | 4 ++++ doc/read.n | 12 +++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index de9dc31..611992f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2004-04-19 Donal K. Fellows + + * doc/read.n: Added example from David Welton. [Patch 938056] + 2004-04-19 Kevin B. Kenny * generic/tclObj.c (Tcl_GetDoubleFromObj) Corrected diff --git a/doc/read.n b/doc/read.n index b80f134..3623dc6 100644 --- a/doc/read.n +++ b/doc/read.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: read.n,v 1.7 2001/09/14 19:20:40 andreas_kupries Exp $ +'\" RCS: @(#) $Id: read.n,v 1.8 2004/04/19 22:47:37 dkf Exp $ '\" .so man.macros .TH read n 8.1 Tcl "Tcl Built-In Commands" @@ -74,6 +74,16 @@ character, see \fBfconfigure -eofchar\fR. If there no end-of-file character has been configured for the channel, then \fBread\fR will block forever. +.SH "EXAMPLE" +This example code reads a file all at once, and splits it into a list, +with each line in the file corresponding to an element in the list: + +.CS +set fl [open /proc/meminfo] +set data [read $fl] +close $fl +set lines [split $data \\n] +.CE .SH "SEE ALSO" file(n), eof(n), fblocked(n), fconfigure(n), Tcl_StandardChannels(3) -- cgit v0.12