summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-12-03 09:09:25 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-12-03 09:09:25 (GMT)
commitb1517df3ff0aa3be2bb952a719ffbbc27d69e226 (patch)
tree775035ad317d0c0fe0fb8cbf923362a7eef0f40a /tools
parenta2e1bdf3b541497d607533fa83d88daebca4737e (diff)
downloadtcl-b1517df3ff0aa3be2bb952a719ffbbc27d69e226.zip
tcl-b1517df3ff0aa3be2bb952a719ffbbc27d69e226.tar.gz
tcl-b1517df3ff0aa3be2bb952a719ffbbc27d69e226.tar.bz2
Simplify some \\u???? escape sequences to \\x??
Diffstat (limited to 'tools')
-rw-r--r--tools/makeHeader.tcl2
-rw-r--r--tools/regexpTestLib.tcl2
-rw-r--r--tools/tcltk-man2html-utils.tcl8
3 files changed, 6 insertions, 6 deletions
diff --git a/tools/makeHeader.tcl b/tools/makeHeader.tcl
index dd2f199..c72219f 100644
--- a/tools/makeHeader.tcl
+++ b/tools/makeHeader.tcl
@@ -25,7 +25,7 @@ namespace eval makeHeader {
}
set XFORM {[format \\\\\\\\u%04x {*}[scan & %c]]}
- subst [regsub -all {[^\u0020-\u007e]} [string map $MAP $str] $XFORM]
+ subst [regsub -all {[^\x20-\x7E]} [string map $MAP $str] $XFORM]
}
####################################################################
diff --git a/tools/regexpTestLib.tcl b/tools/regexpTestLib.tcl
index a94d90f..bdb7d90 100644
--- a/tools/regexpTestLib.tcl
+++ b/tools/regexpTestLib.tcl
@@ -192,7 +192,7 @@ proc convertTestLine {currentLine len lineNum srcLineNum} {
# if and \r substitutions are made, do not wrap re, flags,
# str, and result in braces
- set noBraces [regsub -all {R} $currentLine {\\\u000D} currentLine]
+ set noBraces [regsub -all {R} $currentLine {\\\x0D} currentLine]
regsub -all {T} $currentLine {\\t} currentLine
regsub -all {V} $currentLine {\\v} currentLine
if {[regexp {=} $flags] == 1} {
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl
index 94440d5..2d82bb1 100644
--- a/tools/tcltk-man2html-utils.tcl
+++ b/tools/tcltk-man2html-utils.tcl
@@ -130,8 +130,8 @@ proc htmlize-text {text {charmap {}}} {
\" {&quot;} \
{<} {&lt;} \
{>} {&gt;} \
- \u201c "&ldquo;" \
- \u201d "&rdquo;"
+ \u201C "&ldquo;" \
+ \u201D "&rdquo;"
return [string map $charmap $text]
}
@@ -1303,8 +1303,8 @@ proc make-manpage-section {outputDir sectionDescriptor} {
global manual overall_title tcltkdesc verbose
global excluded_pages forced_index_pages process_first_patterns
- set LQ \u201c
- set RQ \u201d
+ set LQ \u201C
+ set RQ \u201D
lassign $sectionDescriptor \
manual(wing-glob) \