diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 10:16:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 10:16:36 (GMT) |
| commit | 9cc6bfd27a7df39781fec100fb172ac516802891 (patch) | |
| tree | 8b75263da364f92dbe65dd56133db933a2265d7d /tools | |
| parent | 1aade032020e2bb6cc04e0e487fe0a1c5e22f31a (diff) | |
| parent | 82f2bed5fe26cb420a472abc95b92120a84e02cf (diff) | |
| download | tcl-9cc6bfd27a7df39781fec100fb172ac516802891.zip tcl-9cc6bfd27a7df39781fec100fb172ac516802891.tar.gz tcl-9cc6bfd27a7df39781fec100fb172ac516802891.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/genStubs.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 3f4632d..47b8ad4 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -257,6 +257,7 @@ proc genStubs::rewriteFile {file text} { return } set in [open ${file} r] + fconfigure $in -eofchar "\032 {}" -encoding utf-8 set out [open ${file}.new w] fconfigure $out -translation lf -encoding utf-8 @@ -1100,7 +1101,7 @@ proc genStubs::emitInit {name textVar} { } foreach intf [array names interfaces] { if {[info exists hooks($intf)]} { - if {[lsearch -exact $hooks($intf) $name] >= 0} { + if {$name in $hooks($intf)} { set root 0 break } @@ -1191,7 +1192,7 @@ proc genStubs::init {} { set outDir [lindex $argv 0] foreach file [lrange $argv 1 end] { - source $file + source -encoding utf-8 $file } foreach name [lsort [array names interfaces]] { |