diff options
author | nijtmans <nijtmans> | 2010-10-23 07:32:23 (GMT) |
---|---|---|
committer | nijtmans <nijtmans> | 2010-10-23 07:32:23 (GMT) |
commit | d991e1808f728b871a795b90276ffc7cce2f3324 (patch) | |
tree | cc459ba13f770c585883c2085424e129d1867c1f /tools/uniClass.tcl | |
parent | 57ba14ac4c692213565dee2e0640fe5f2c5c43e6 (diff) | |
download | tcl-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.tcl | 12 |
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 } |