diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-20 10:24:06 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-20 10:24:06 (GMT) |
commit | bddd146942a0689cddba2b1d0bd5e0c3cedad709 (patch) | |
tree | a616475c79ab4e70e34d1cc4eb5ab96c4cb80f11 | |
parent | 249c689f2da9755c337657844972757e5b2d757a (diff) | |
parent | e42885732ad095ddf86399ce646a1c0348b38d37 (diff) | |
download | tcl-bddd146942a0689cddba2b1d0bd5e0c3cedad709.zip tcl-bddd146942a0689cddba2b1d0bd5e0c3cedad709.tar.gz tcl-bddd146942a0689cddba2b1d0bd5e0c3cedad709.tar.bz2 |
Merge 8.6
-rw-r--r-- | library/tcltest/tcltest.tcl | 4 | ||||
-rw-r--r--[-rwxr-xr-x] | tools/checkLibraryDoc.tcl | 3 | ||||
-rwxr-xr-x | tools/loadICU.tcl | 2 | ||||
-rw-r--r-- | tools/man2help2.tcl | 4 |
4 files changed, 6 insertions, 7 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index e7f4288..4df25e4 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -3242,8 +3242,8 @@ proc tcltest::viewFile {name {directory ""}} { # procedures that are supposed to accept strings with embedded NULL # bytes. # 2. Confirm that a string result has a certain pattern of bytes, for -# instance to confirm that "\xe0\0" in a Tcl script is stored -# internally in UTF-8 as the sequence of bytes "\xc3\xa0\xc0\x80". +# instance to confirm that "\xE0\0" in a Tcl script is stored +# internally in UTF-8 as the sequence of bytes "\xC3\xA0\xC0\x80". # # Generally, it's a bad idea to examine the bytes in a Tcl string or to # construct improperly formed strings in this manner, because it involves diff --git a/tools/checkLibraryDoc.tcl b/tools/checkLibraryDoc.tcl index d560b98..8dba5b4 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.7/*/*.[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 e07b126..a3079f5 100755 --- a/tools/loadICU.tcl +++ b/tools/loadICU.tcl @@ -591,7 +591,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 |