diff options
| author | nijtmans <nijtmans> | 2010-10-18 21:47:36 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-10-18 21:47:36 (GMT) |
| commit | 3a833016110a7d20d44d1703966edeebd42209d8 (patch) | |
| tree | a8ebbe0b6706b9d2d7c5a31d7d2d1adb31a31151 /tools | |
| parent | 5fa42ea36eccb5a0806724479ed02ed31eeed067 (diff) | |
| download | tcl-3a833016110a7d20d44d1703966edeebd42209d8.zip tcl-3a833016110a7d20d44d1703966edeebd42209d8.tar.gz tcl-3a833016110a7d20d44d1703966edeebd42209d8.tar.bz2 | |
[Bug 3085863]: tclUniData 9 years old
Added testcases for Unicode 6.0
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/uniParse.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index a7f4237..0ec0848 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -4,12 +4,12 @@ # corresponding tclUniData.c file with compressed character # data tables. The input to this program should be the latest # UnicodeData file from: -# ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData-Latest.txt +# ftp://ftp.unicode.org/Public/UNIDATA/UnicodeData.txt # # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: uniParse.tcl,v 1.8 2010/10/15 15:25:52 nijtmans Exp $ +# RCS: @(#) $Id: uniParse.tcl,v 1.9 2010/10/18 21:47:36 nijtmans Exp $ namespace eval uni { @@ -116,7 +116,11 @@ proc uni::buildTables {data} { set items [split $line \;] - scan [lindex $items 0] %4x index + scan [lindex $items 0] %x index + if {$index > 0xFFFF} then { + # Ignore non-BMP characters, as long as Tcl doesn't support them + continue + } set index [format 0x%0.4x $index] set gIndex [getGroup [getValue $items $index]] |