This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add PL_foldable - a list of chars that participate in folds
authorKarl Williamson <public@khwilliamson.com>
Wed, 2 Feb 2011 00:17:14 +0000 (17:17 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 2 Feb 2011 23:31:22 +0000 (16:31 -0700)
embedvar.h
intrpvar.h
sv.c

index 84e0c1e..7b78a5e 100644 (file)
 #define PL_utf8_ascii          (vTHX->Iutf8_ascii)
 #define PL_utf8_cntrl          (vTHX->Iutf8_cntrl)
 #define PL_utf8_digit          (vTHX->Iutf8_digit)
+#define PL_utf8_foldable       (vTHX->Iutf8_foldable)
 #define PL_utf8_foldclosures   (vTHX->Iutf8_foldclosures)
 #define PL_utf8_graph          (vTHX->Iutf8_graph)
 #define PL_utf8_idcont         (vTHX->Iutf8_idcont)
 #define PL_Iutf8_ascii         PL_utf8_ascii
 #define PL_Iutf8_cntrl         PL_utf8_cntrl
 #define PL_Iutf8_digit         PL_utf8_digit
+#define PL_Iutf8_foldable      PL_utf8_foldable
 #define PL_Iutf8_foldclosures  PL_utf8_foldclosures
 #define PL_Iutf8_graph         PL_utf8_graph
 #define PL_Iutf8_idcont                PL_utf8_idcont
index f59da75..febf037 100644 (file)
@@ -771,6 +771,10 @@ PERLVAR(Iblockhooks, AV *)
  * matching */
 PERLVARI(Iutf8_foldclosures,   HV *, NULL)
 
+/* List of characters that participate in folds (except marks, etc in
+ * multi-char folds) */
+PERLVAR(Iutf8_foldable,        HV *)
+
 PERLVAR(Icustom_ops, HV *)      /* custom op registrations */
 
 /* If you are adding a U8 or U16, check to see if there are 'Space' comments
diff --git a/sv.c b/sv.c
index fe096ba..307e1c9 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -13113,6 +13113,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_utf8_tofold     = sv_dup_inc(proto_perl->Iutf8_tofold, param);
     PL_utf8_idstart    = sv_dup_inc(proto_perl->Iutf8_idstart, param);
     PL_utf8_idcont     = sv_dup_inc(proto_perl->Iutf8_idcont, param);
+    PL_utf8_foldable   = sv_dup_inc(proto_perl->Iutf8_foldable, param);
 
     /* Did the locale setup indicate UTF-8? */
     PL_utf8locale      = proto_perl->Iutf8locale;