From 1bd9dc9102c3f4c19980ec24a2e7a20f03921636 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 1 Feb 2011 17:17:14 -0700 Subject: [PATCH] Add PL_foldable - a list of chars that participate in folds --- embedvar.h | 2 ++ intrpvar.h | 4 ++++ sv.c | 1 + 3 files changed, 7 insertions(+) diff --git a/embedvar.h b/embedvar.h index 84e0c1e..7b78a5e 100644 --- a/embedvar.h +++ b/embedvar.h @@ -342,6 +342,7 @@ #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) @@ -673,6 +674,7 @@ #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 diff --git a/intrpvar.h b/intrpvar.h index f59da75..febf037 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -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 --- 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; -- 1.8.3.1