diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-20 13:42:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-20 13:42:17 (GMT) |
| commit | 1549d82a2029add6f62dde489d26a70b466f4fd0 (patch) | |
| tree | 6b453022eb94d1d13ccd73cb7e033e4859af45fd /doc/split.n | |
| parent | ee1c40272a0ee43da070323282205173df4a8816 (diff) | |
| download | tcl-1549d82a2029add6f62dde489d26a70b466f4fd0.zip tcl-1549d82a2029add6f62dde489d26a70b466f4fd0.tar.gz tcl-1549d82a2029add6f62dde489d26a70b466f4fd0.tar.bz2 | |
Use a consistent indentation of 4 for code examples.
Diffstat (limited to 'doc/split.n')
| -rw-r--r-- | doc/split.n | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/doc/split.n b/doc/split.n index ef5470b..d68aaf3 100644 --- a/doc/split.n +++ b/doc/split.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: split.n,v 1.11 2008/10/17 10:22:25 dkf Exp $ +'\" RCS: @(#) $Id: split.n,v 1.12 2010/01/20 13:42:17 dkf Exp $ '\" .so man.macros .TH split n "" Tcl "Tcl Built-In Commands" @@ -77,16 +77,19 @@ set records [\fBsplit\fR $content "\en"] ## Iterate over the records foreach rec $records { - ## Split into fields on colons - set fields [\fBsplit\fR $rec ":"] + ## Split into fields on colons + set fields [\fBsplit\fR $rec ":"] - ## Assign fields to variables and print some out... - lassign $fields \e - userName password uid grp longName homeDir shell - puts "$longName uses [file tail $shell] for a login shell" + ## Assign fields to variables and print some out... + lassign $fields \e + userName password uid grp longName homeDir shell + puts "$longName uses [file tail $shell] for a login shell" } .CE .SH "SEE ALSO" join(n), list(n), string(n) .SH KEYWORDS list, split, string +'\" Local Variables: +'\" mode: nroff +'\" End: |