*.decls files are now in UTF-8. Use "in" operator in stead of "lsearch -exact".

jan.nijtmans · jan.nijtmans · commit 9bdfc33536ff · 2021-01-27T10:13:51.000Z
diff --git a/generic/tcl.decls b/generic/tcl.decls
@@ -5,9 +5,9 @@
 #	This file is used to generate the tclDecls.h, tclPlatDecls.h
 #	and tclStubInit.c files.
 #
-# Copyright (c) 1998-1999 by Scriptics Corporation.
-# Copyright (c) 2001, 2002 by Kevin B. Kenny.  All rights reserved.
-# Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net>
+# Copyright © 1998-1999 Scriptics Corporation.
+# Copyright © 2001, 2002 Kevin B. Kenny.  All rights reserved.
+# Copyright © 2007 Daniel A. Steffen <das@users.sourceforge.net>
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
@@ -5,9 +5,9 @@
 #	is used to generate the tclIntDecls.h, tclIntPlatDecls.h
 #	and tclStubInit.c files
 #
-# Copyright (c) 1998-1999 by Scriptics Corporation.
-# Copyright (c) 2001 by Kevin B. Kenny.  All rights reserved.
-# Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net>
+# Copyright © 1998-1999 Scriptics Corporation.
+# Copyright © 2001 Kevin B. Kenny.  All rights reserved.
+# Copyright © 2007 Daniel A. Steffen <das@users.sourceforge.net>
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
diff --git a/generic/tclOO.decls b/generic/tclOO.decls
@@ -5,7 +5,7 @@
 #	library via the stubs table.  This file is used to generate the
 #	tclOODecls.h, tclOOIntDecls.h and tclOOStubInit.c files.
 #
-# Copyright (c) 2008-2013 by Donal K. Fellows.
+# Copyright © 2008-2013 Donal K. Fellows.
 #
 # See the file "license.terms" for information on usage and redistribution of
 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
diff --git a/generic/tclTomMath.decls b/generic/tclTomMath.decls
@@ -7,7 +7,7 @@
 # If you edit this file, advance the revision number (and the epoch
 # if the new stubs are not backward compatible) in tclTomMathDecls.h
 #
-# Copyright (c) 2005 by Kevin B. Kenny.  All rights reserved.
+# Copyright © 2005 Kevin B. Kenny.  All rights reserved.
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
@@ -1101,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
 	    }

Original file line number	Diff line number	Diff line change
`@@ -5,9 +5,9 @@`
`5`	`5`	`# This file is used to generate the tclDecls.h, tclPlatDecls.h`
`6`	`6`	`# and tclStubInit.c files.`
`7`	`7`	`#`
`8`		`-# Copyright (c) 1998-1999 by Scriptics Corporation.`
`9`		`-# Copyright (c) 2001, 2002 by Kevin B. Kenny. All rights reserved.`
`10`		`-# Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net>`
	`8`	`+# Copyright © 1998-1999 Scriptics Corporation.`
	`9`	`+# Copyright © 2001, 2002 Kevin B. Kenny. All rights reserved.`
	`10`	`+# Copyright © 2007 Daniel A. Steffen <das@users.sourceforge.net>`
`11`	`11`	`#`
`12`	`12`	`# See the file "license.terms" for information on usage and redistribution`
`13`	`13`	`# of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
Original file line number	Diff line number	Diff line change
`@@ -5,9 +5,9 @@`
`5`	`5`	`# is used to generate the tclIntDecls.h, tclIntPlatDecls.h`
`6`	`6`	`# and tclStubInit.c files`
`7`	`7`	`#`
`8`		`-# Copyright (c) 1998-1999 by Scriptics Corporation.`
`9`		`-# Copyright (c) 2001 by Kevin B. Kenny. All rights reserved.`
`10`		`-# Copyright (c) 2007 Daniel A. Steffen <das@users.sourceforge.net>`
	`8`	`+# Copyright © 1998-1999 Scriptics Corporation.`
	`9`	`+# Copyright © 2001 Kevin B. Kenny. All rights reserved.`
	`10`	`+# Copyright © 2007 Daniel A. Steffen <das@users.sourceforge.net>`
`11`	`11`	`#`
`12`	`12`	`# See the file "license.terms" for information on usage and redistribution`
`13`	`13`	`# of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
Original file line number	Diff line number	Diff line change
`@@ -5,7 +5,7 @@`
`5`	`5`	`# library via the stubs table. This file is used to generate the`
`6`	`6`	`# tclOODecls.h, tclOOIntDecls.h and tclOOStubInit.c files.`
`7`	`7`	`#`
`8`		`-# Copyright (c) 2008-2013 by Donal K. Fellows.`
	`8`	`+# Copyright © 2008-2013 Donal K. Fellows.`
`9`	`9`	`#`
`10`	`10`	`# See the file "license.terms" for information on usage and redistribution of`
`11`	`11`	`# this file, and for a DISCLAIMER OF ALL WARRANTIES.`
Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@`
`7`	`7`	`# If you edit this file, advance the revision number (and the epoch`
`8`	`8`	`# if the new stubs are not backward compatible) in tclTomMathDecls.h`
`9`	`9`	`#`
`10`		`-# Copyright (c) 2005 by Kevin B. Kenny. All rights reserved.`
	`10`	`+# Copyright © 2005 Kevin B. Kenny. All rights reserved.`
`11`	`11`	`#`
`12`	`12`	`# See the file "license.terms" for information on usage and redistribution`
`13`	`13`	`# of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
Original file line number	Diff line number	Diff line change
`@@ -1101,7 +1101,7 @@ proc genStubs::emitInit {name textVar} {`
`1101`	`1101`	`}`
`1102`	`1102`	`foreach intf [array names interfaces] {`
`1103`	`1103`	`if {[info exists hooks($intf)]} {`
`1104`		`- if {[lsearch -exact $hooks($intf) $name] >= 0} {`
	`1104`	`+ if {$name in $hooks($intf)} {`
`1105`	`1105`	`set root 0`
`1106`	`1106`	`break`
`1107`	`1107`	`}`