diff options
| author | stanton <stanton> | 1999-06-10 04:29:01 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-06-10 04:29:01 (GMT) |
| commit | 7d849078f78a84680ee3d12ee9146dbfc4aaf54b (patch) | |
| tree | b67e5a182e6eb59fd18c1477193516bac601fb95 /tools/genStubs.tcl | |
| parent | 81e8aa10e3e8c90c32e241356ce9bc68b5e4b3dc (diff) | |
| download | tcl-7d849078f78a84680ee3d12ee9146dbfc4aaf54b.zip tcl-7d849078f78a84680ee3d12ee9146dbfc4aaf54b.tar.gz tcl-7d849078f78a84680ee3d12ee9146dbfc4aaf54b.tar.bz2 | |
* tools/genStubs.tcl: Changed to always write output in LF mode.
Diffstat (limited to 'tools/genStubs.tcl')
| -rw-r--r-- | tools/genStubs.tcl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 16033cb..d131e28 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: genStubs.tcl,v 1.6 1999/05/25 01:00:37 stanton Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.7 1999/06/10 04:29:01 stanton Exp $ namespace eval genStubs { # libraryName -- @@ -180,6 +180,9 @@ proc genStubs::rewriteFile {file text} { set in [open ${file} r] set out [open ${file}.new w] + # Always write out the file with LF termination + fconfigure $out -translation lf + while {![eof $in]} { set line [gets $in] if {[regexp {!BEGIN!} $line]} { |