diff options
Diffstat (limited to 'tools/uniParse.tcl')
| -rw-r--r-- | tools/uniParse.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index a7cc1ee..86f6d04 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -337,6 +337,12 @@ static CONST int groups\[\] = {" puts $f $line puts -nonewline $f "}; +#if UTF_MAX_LEN > 3 +# define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1fffff) >= [format 0x%x $next]) +#else +# define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1f0000) != 0) +#endif + /* * The following constants are used to determine the category of a * Unicode character. |