diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-12 20:05:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-12 20:05:29 +0000 |
| commit | e0f9d4a8607e11c8ec6d3c60018f5ccbfea703e6 (patch) | |
| tree | fc5b70022b30a53e73a84e5eedceb80c6d5f784a /utf8.h | |
| parent | 3eaf8b6c1d0c4afb63259fb51f4f3670a1f5ed2c (diff) | |
| download | perl-e0f9d4a8607e11c8ec6d3c60018f5ccbfea703e6.tar.gz | |
Sharp S as a special treat for our German UTF-8 testers :-)
p4raw-id: //depot/perl@14222
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -189,6 +189,7 @@ END_EXTERN_C #define UTF8_IS_ASCII(c) UTF8_IS_INVARIANT(c) +#define UNICODE_LATIN_SMALL_LETTER_SHARP_S 0x00DF #define UNICODE_GREEK_CAPITAL_LETTER_SIGMA 0x03A3 #define UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA 0x03C2 #define UNICODE_GREEK_SMALL_LETTER_SIGMA 0x03C3 @@ -198,3 +199,10 @@ END_EXTERN_C #define UNI_DISPLAY_QQ (UNI_DISPLAY_ISPRINT|UNI_DISPLAY_BACKSLASH) #define UNI_DISPLAY_REGEX (UNI_DISPLAY_ISPRINT|UNI_DISPLAY_BACKSLASH) +#define ANYOF_UNICODE_FOLD_SHARP_S(n, s, e) \ + (ANYOF_BITMAP_TEST(n, UNICODE_LATIN_SMALL_LETTER_SHARP_S) && \ + ANYOF_FLAGS(n) & ANYOF_UNICODE && \ + ANYOF_FLAGS(n) & ANYOF_FOLD && \ + ((e) > (s) + 1) && \ + toLOWER((s)[0]) == 's' && \ + toLOWER((s)[1]) == 's') |