diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-20 09:58:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-03-20 09:58:52 (GMT) |
| commit | 3e01654c1a5a2ba61662be868e3ad462906c7b0f (patch) | |
| tree | 0787c7eb92e0ef00e18ed6b89cdf04287058cec8 /tools/genStubs.tcl | |
| parent | 2c7e68e5aeb40ae5340c57d4f80ef18a56a7db22 (diff) | |
| parent | 23f5b19d027c7c6f2eec97dd900569b56a9087f7 (diff) | |
| download | tcl-3e01654c1a5a2ba61662be868e3ad462906c7b0f.zip tcl-3e01654c1a5a2ba61662be868e3ad462906c7b0f.tar.gz tcl-3e01654c1a5a2ba61662be868e3ad462906c7b0f.tar.bz2 | |
[Bug 3508771] load tclreg.dll in cygwin tclsh
Diffstat (limited to 'tools/genStubs.tcl')
| -rw-r--r-- | tools/genStubs.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 464ba50..a7b463c 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -207,6 +207,7 @@ proc genStubs::rewriteFile {file text} { } set in [open ${file} r] set out [open ${file}.new w] + fconfigure $out -translation lf while {![eof $in]} { set line [gets $in] @@ -946,9 +947,9 @@ proc genStubs::emitHeader {name} { emitSlots $name text - append text "} ${capName}Stubs;\n" + append text "} ${capName}Stubs;\n\n" - append text "\n#ifdef __cplusplus\nextern \"C\" {\n#endif\n" + append text "#ifdef __cplusplus\nextern \"C\" {\n#endif\n" append text "extern ${capName}Stubs *${name}StubsPtr;\n" append text "#ifdef __cplusplus\n}\n#endif\n" @@ -970,7 +971,6 @@ proc genStubs::emitHeader {name} { # Returns the formatted output. proc genStubs::emitInit {name textVar} { - variable stubs variable hooks upvar $textVar text |