summaryrefslogtreecommitdiffstats
path: root/tools/uniClass.tcl
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-10-23 07:32:23 (GMT)
committernijtmans <nijtmans>2010-10-23 07:32:23 (GMT)
commitd991e1808f728b871a795b90276ffc7cce2f3324 (patch)
treecc459ba13f770c585883c2085424e129d1867c1f /tools/uniClass.tcl
parent57ba14ac4c692213565dee2e0640fe5f2c5c43e6 (diff)
downloadtcl-d991e1808f728b871a795b90276ffc7cce2f3324.zip
tcl-d991e1808f728b871a795b90276ffc7cce2f3324.tar.gz
tcl-d991e1808f728b871a795b90276ffc7cce2f3324.tar.bz2
[Bug 3085863]: tclUniData 9 years old
Upgrade everything to Unicode 6.0, except non-BMP characters > 0xFFFF
Diffstat (limited to 'tools/uniClass.tcl')
-rw-r--r--tools/uniClass.tcl12
1 files changed, 6 insertions, 6 deletions
diff --git a/tools/uniClass.tcl b/tools/uniClass.tcl
index 442fc2a..9a1bf13 100644
--- a/tools/uniClass.tcl
+++ b/tools/uniClass.tcl
@@ -64,17 +64,17 @@ proc genTable {type} {
set ranges [string trimright $ranges "\t\n ,"]
set chars [string trimright $chars "\t\n ,"]
- if {$ranges != ""} {
- puts "static crange ${type}RangeTable\[\] = {\n$ranges\n};\n"
+ if {$ranges ne ""} {
+ puts "static const crange ${type}RangeTable\[\] = {\n$ranges\n};\n"
puts "#define NUM_[string toupper $type]_RANGE (sizeof(${type}RangeTable)/sizeof(crange))\n"
} else {
puts "/* no contiguous ranges of $type characters */\n"
}
- if {$chars != ""} {
- puts "static chr ${type}CharTable\[\] = {\n$chars\n};\n"
+ if {$chars ne ""} {
+ puts "static const chr ${type}CharTable\[\] = {\n$chars\n};\n"
puts "#define NUM_[string toupper $type]_CHAR (sizeof(${type}CharTable)/sizeof(chr))\n"
} else {
- puts "/* no singletons of $type characters */\n"
+ puts "/*\n * no singletons of $type characters.\n */\n"
}
}
@@ -94,7 +94,7 @@ foreach {type desc} {
upper "uppercase characters"
graph "unicode print characters excluding space"
} {
- puts "/* Unicode: $desc */\n"
+ puts "/*\n * Unicode: $desc.\n */\n"
genTable $type
}