diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-02-02 21:13:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-02-02 21:13:49 (GMT) |
| commit | d74f96bc7ecefc9ba8c5a6ab61a34569c1d2de02 (patch) | |
| tree | d2dbe02975bd0c001903ca86040300ff58af641b /tools | |
| parent | e17fb0a5a4f78d448aaacdccc2e97410e43b2256 (diff) | |
| parent | 4c72498e39acb8c9846f67f0f054ba5246418310 (diff) | |
| download | tcl-d74f96bc7ecefc9ba8c5a6ab61a34569c1d2de02.zip tcl-d74f96bc7ecefc9ba8c5a6ab61a34569c1d2de02.tar.gz tcl-d74f96bc7ecefc9ba8c5a6ab61a34569c1d2de02.tar.bz2 | |
[Frq 3464401] Support Unicode 6.1
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/uniClass.tcl | 4 | ||||
| -rw-r--r-- | tools/uniParse.tcl | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tools/uniClass.tcl b/tools/uniClass.tcl index db5e8c9..32b40e9 100644 --- a/tools/uniClass.tcl +++ b/tools/uniClass.tcl @@ -20,7 +20,7 @@ proc emitRange {first last} { set extranges 1 set numranges 0 set ranges [string trimright $ranges " \n\r\t,"] - append ranges "\n#if MAX_UTF_CHAR > 4\n ," + append ranges "\n#if TCL_UTF_MAX > 4\n ," } append ranges [format "{0x%x, 0x%x}, " \ $first $last] @@ -33,7 +33,7 @@ proc emitRange {first last} { set extchars 1 set numchars 0 set chars [string trimright $chars " \n\r\t,"] - append chars "\n#if MAX_UTF_CHAR > 4\n ," + append chars "\n#if TCL_UTF_MAX > 4\n ," } append chars [format "0x%x, " $first] incr numchars diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index baf8a4b..e33b3c7 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -337,7 +337,7 @@ static const int groups\[\] = {" puts $f $line puts -nonewline $f "}; -#if UTF_MAX_LEN > 3 +#if TCL_UTF_MAX > 3 # define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1fffff) >= [format 0x%x $next]) #else # define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1f0000) != 0) |