From 2ff814556189426b5aaac1392705441dea064c5c Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 27 Jan 2021 09:32:44 +0000
Subject: When generating stubs, always read *.decls and *Decls.h files in
 UTF-8. This corrects possible invalid UTF-8.

---
 tools/genStubs.tcl | 5 +++--
 1 file 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]] {
-- 
cgit v0.12