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/file.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/file.n')
-rw-r--r-- | doc/file.n | 36 |
1 files changed, 18 insertions, 18 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: file.n,v 1.58 2010/01/13 12:08:30 dkf Exp $ +'\" RCS: @(#) $Id: file.n,v 1.59 2010/01/20 13:42:17 dkf Exp $ '\" .so man.macros .TH file n 8.3 Tcl "Tcl Built-In Commands" @@ -491,22 +491,22 @@ directory: .PP .CS proc findMatchingCFiles {dir} { - set files {} - switch $::tcl_platform(platform) { - windows { - set ext .obj - } - unix { - set ext .o - } - } - foreach file [glob \-nocomplain \-directory $dir *.c] { - set objectFile [\fBfile tail\fR [\fBfile rootname\fR $file]]$ext - if {[\fBfile exists\fR $objectFile]} { - lappend files $file - } - } - return $files + set files {} + switch $::tcl_platform(platform) { + windows { + set ext .obj + } + unix { + set ext .o + } + } + foreach file [glob \-nocomplain \-directory $dir *.c] { + set objectFile [\fBfile tail\fR [\fBfile rootname\fR $file]]$ext + if {[\fBfile exists\fR $objectFile]} { + lappend files $file + } + } + return $files } .CE .PP @@ -518,7 +518,7 @@ set oldName foobar.txt set newName foo/bar.txt # Make sure that where we're going to move to exists... if {![\fBfile isdirectory\fR [\fBfile dirname\fR $newName]]} { - \fBfile mkdir\fR [\fBfile dirname\fR $newName] + \fBfile mkdir\fR [\fBfile dirname\fR $newName] } \fBfile rename\fR $oldName $newName \fBfile link\fR \-symbolic $oldName $newName |