diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-01-13 21:23:46 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-01-13 22:55:54 -0700 |
| commit | 8cb75cc8ea95e17623a8b9b08cd293630b48508d (patch) | |
| tree | 7edf9f33b5f0fae54244955d70f3aaae0b2de0a7 /utf8.h | |
| parent | 0e019ad6e74196f697d451c846c4af8778bd2a51 (diff) | |
| download | perl-8cb75cc8ea95e17623a8b9b08cd293630b48508d.tar.gz | |
utf8.h: Add define for max fold expansion in chars
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -224,6 +224,9 @@ Perl's extended UTF-8 means we can have start bytes up to FF. * SpecialCasing.txt. */ #define UTF8_MAXBYTES_CASE 6 +/* A Unicode character can fold to up to 3 characters */ +#define UTF8_MAX_FOLD_CHAR_EXPAND 3 + #define IN_BYTES (CopHINTS_get(PL_curcop) & HINT_BYTES) #define DO_UTF8(sv) (SvUTF8(sv) && !IN_BYTES) #define IN_UNI_8_BIT ( (CopHINTS_get(PL_curcop) & HINT_UNI_8_BIT) \ |