diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 09:32:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-27 09:32:44 (GMT) |
| commit | 2ff814556189426b5aaac1392705441dea064c5c (patch) | |
| tree | dc962a5ae73add11105006a14e2123787f367814 /tools | |
| parent | 05b6284310bcc1e0e5ab236b607095275b3a5b2f (diff) | |
| download | tcl-2ff814556189426b5aaac1392705441dea064c5c.zip tcl-2ff814556189426b5aaac1392705441dea064c5c.tar.gz tcl-2ff814556189426b5aaac1392705441dea064c5c.tar.bz2 | |
When generating stubs, always read *.decls and *Decls.h files in UTF-8. This corrects possible invalid UTF-8.
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 bc0d700..5b7278c 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -257,8 +257,9 @@ 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 + fconfigure $out -translation lf -encoding utf-8 while {![eof $in]} { set line [gets $in] @@ -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]] { |