diff options
author | Pietro Cerutti <gahr@gahr.ch> | 2021-12-06 07:56:17 +0000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2021-12-13 19:51:02 +1000 |
commit | ececa1d3b24dc4298b831675f597a4a84a14e69a (patch) | |
tree | 6b8708a9ce3039a83a98085153340f613cefdd86 | |
parent | 669f097ad84cfa090e3852b0bc82f5f238f960c0 (diff) | |
download | jimtcl-ececa1d3b24dc4298b831675f597a4a84a14e69a.zip jimtcl-ececa1d3b24dc4298b831675f597a4a84a14e69a.tar.gz jimtcl-ececa1d3b24dc4298b831675f597a4a84a14e69a.tar.bz2 |
Handle fullwidth characters
-rw-r--r-- | parse-unidata.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parse-unidata.tcl b/parse-unidata.tcl index 17e2e30..c87cc64 100644 --- a/parse-unidata.tcl +++ b/parse-unidata.tcl @@ -119,7 +119,7 @@ if {$do_width} { while {[gets $f buf] >= 0} { # Remove any trailing whitespace, especially errant CR set buf [string trim $buf] - if {[regexp {^([0-9A-Fa-f.]+);W} $buf -> range]} { + if {[regexp {^([0-9A-Fa-f.]+);[FW]} $buf -> range]} { set range [string tolower $range] lassign [split $range .] lower - upper if {$upper eq ""} { |