summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-20 10:21:07 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-20 10:21:07 (GMT)
commite42885732ad095ddf86399ce646a1c0348b38d37 (patch)
treee6ba5dc1c3c33fcefba7691de71e4dffe94c1574 /tools
parentac45c8d85147e6927979c08d95567504148b74cd (diff)
parent1a94f57ab672e62630b18fc4daa9a5a9c253bc6b (diff)
downloadtcl-e42885732ad095ddf86399ce646a1c0348b38d37.zip
tcl-e42885732ad095ddf86399ce646a1c0348b38d37.tar.gz
tcl-e42885732ad095ddf86399ce646a1c0348b38d37.tar.bz2
Merge 8.5
Diffstat (limited to 'tools')
-rw-r--r--[-rwxr-xr-x]tools/checkLibraryDoc.tcl3
-rwxr-xr-xtools/loadICU.tcl2
-rw-r--r--tools/man2help2.tcl4
3 files changed, 4 insertions, 5 deletions
diff --git a/tools/checkLibraryDoc.tcl b/tools/checkLibraryDoc.tcl
index d560b98..5674243 100755..100644
--- a/tools/checkLibraryDoc.tcl
+++ b/tools/checkLibraryDoc.tcl
@@ -3,7 +3,7 @@
# This script attempts to determine what APIs exist in the source base that
# have not been documented. By grepping through all of the doc/*.3 man
# pages, looking for "Pkg_*" (e.g., Tcl_ or Tk_), and comparing this list
-# against the list of Pkg_ APIs found in the source (e.g., tcl8.2/*/*.[ch])
+# against the list of Pkg_ APIs found in the source (e.g., tcl8.6/*/*.[ch])
# we create six lists:
# 1) APIs in Source not in Docs.
# 2) APIs in Docs not in Source.
@@ -107,7 +107,6 @@ proc main {} {
if {($len != 2) && ($len != 3)} {
puts "usage: $argv0 pkgName pkgDir \[outFile\]"
puts " pkgName == Tcl,Tk"
- puts " pkgDir == /home/surles/cvs/tcl8.2"
exit 1
}
diff --git a/tools/loadICU.tcl b/tools/loadICU.tcl
index 021ced3..506b6e4 100755
--- a/tools/loadICU.tcl
+++ b/tools/loadICU.tcl
@@ -588,7 +588,7 @@ proc backslashify { string } {
set retval {}
foreach char [split $string {}] {
scan $char %c ccode
- if { $ccode >= 0x0020 && $ccode < 0x007F && $char ne "\""
+ if { $ccode >= 0x20 && $ccode < 0x7F && $char ne "\""
&& $char ne "\{" && $char ne "\}" && $char ne "\["
&& $char ne "\]" && $char ne "\\" && $char ne "\$" } {
append retval $char
diff --git a/tools/man2help2.tcl b/tools/man2help2.tcl
index 4f3b7e5..91c81be 100644
--- a/tools/man2help2.tcl
+++ b/tools/man2help2.tcl
@@ -157,7 +157,7 @@ proc text {string} {
"\t" {\tab } \
'' "\\rdblquote " \
`` "\\ldblquote " \
- "\u00b7" "\\bullet " \
+ "\xB7" "\\bullet " \
] $string]
# Check if this is the beginning of an international character string.
@@ -824,7 +824,7 @@ proc IPmacro {argList} {
set indent 5
}
if {$text == {\(bu}} {
- set text "\u00b7"
+ set text "\xB7"
}
set tab [expr {$indent * 0.1}]i