diff options
Diffstat (limited to 'doc/seek.n')
| -rw-r--r-- | doc/seek.n | 8 |
1 files changed, 4 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: seek.n,v 1.6 2004/05/17 15:16:14 dkf Exp $ +'\" RCS: @(#) $Id: seek.n,v 1.7 2004/10/27 14:24:37 dkf Exp $ '\" .so man.macros .TH seek n 8.1 Tcl "Tcl Built-In Commands" @@ -67,19 +67,19 @@ Read a file twice: .CS set f [open file.txt] set data1 [read $f] -seek $f 0 +\fBseek\fR $f 0 set data2 [read $f] close $f # $data1 == $data2 if the file wasn't updated .CE - +.PP Read the last 10 bytes from a file: .CS set f [open file.data] # This is guaranteed to work with binary data but # may fail with other encodings... fconfigure $f -translation binary -seek $f -10 end +\fBseek\fR $f -10 end set data [read $f 10] close $f .CE |