diff options
| author | nijtmans <nijtmans> | 2010-07-01 21:28:15 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-07-01 21:28:15 (GMT) |
| commit | abb430245e8a99364bb0ddbca7f85c8adb62d36f (patch) | |
| tree | 6504f41b881faedff35589b0b480a44e4042fb92 /tools/uniClass.tcl | |
| parent | e10b292750a32db464a69efbd938795b6f2c8d52 (diff) | |
| download | tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.zip tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.tar.gz tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.tar.bz2 | |
[Bug #3020677] wish can't link reg1.2
formatting, spacing, cleanup unused variables
Diffstat (limited to 'tools/uniClass.tcl')
| -rw-r--r-- | tools/uniClass.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/uniClass.tcl b/tools/uniClass.tcl index 442fc2a..1840851 100644 --- a/tools/uniClass.tcl +++ b/tools/uniClass.tcl @@ -64,13 +64,13 @@ proc genTable {type} { set ranges [string trimright $ranges "\t\n ,"] set chars [string trimright $chars "\t\n ,"] - if {$ranges != ""} { + if {$ranges ne ""} { puts "static 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 != ""} { + if {$chars ne ""} { puts "static chr ${type}CharTable\[\] = {\n$chars\n};\n" puts "#define NUM_[string toupper $type]_CHAR (sizeof(${type}CharTable)/sizeof(chr))\n" } else { |