This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Add define for max fold expansion in chars
authorKarl Williamson <public@khwilliamson.com>
Fri, 14 Jan 2011 04:23:46 +0000 (21:23 -0700)
committerKarl Williamson <public@khwilliamson.com>
Fri, 14 Jan 2011 05:55:54 +0000 (22:55 -0700)
utf8.h

diff --git a/utf8.h b/utf8.h
index 80a682d..9fa9e90 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -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) \