summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--doc/read.n12
2 files changed, 15 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index de9dc31..611992f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-19 Donal K. Fellows <donal.k.fellows@man.ac.uk>
+
+ * doc/read.n: Added example from David Welton. [Patch 938056]
+
2004-04-19 Kevin B. Kenny <kennykb@acm.org>
* 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)