Deprecate is_utf8_char()

[perl5.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 1855487..fc4d64c 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -19,7 +19,7 @@
 
 /* New variables must be added to the very end for binary compatibility. */
 
-/* Don't forget to add your variable also to perl_clone()! */
+/* Don't forget to add your variable also to perl_clone()! (in sv.c) */
 
 /* The 'I' prefix is only needed for vars that need appropriate #defines
  * generated when built with or without MULTIPLICITY.  It is also used
@@ -565,7 +565,57 @@ PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator if not '.' */
 
 #endif /* !USE_LOCALE_NUMERIC */
 
-/* utf8 character classes */
+/* Unicode inversion lists */
+PERLVAR(I, ASCII,      SV *)
+PERLVAR(I, Latin1,     SV *)
+PERLVAR(I, AboveLatin1,        SV *)
+
+PERLVAR(I, PerlSpace,  SV *)
+PERLVAR(I, XPerlSpace, SV *)
+
+PERLVAR(I, L1PosixAlnum,SV *)
+PERLVAR(I, PosixAlnum, SV *)
+
+PERLVAR(I, L1PosixAlpha,SV *)
+PERLVAR(I, PosixAlpha, SV *)
+
+PERLVAR(I, PosixBlank, SV *)
+PERLVAR(I, XPosixBlank,        SV *)
+
+PERLVAR(I, L1Cased,    SV *)
+
+PERLVAR(I, PosixCntrl, SV *)
+PERLVAR(I, XPosixCntrl,        SV *)
+
+PERLVAR(I, PosixDigit, SV *)
+
+PERLVAR(I, L1PosixGraph,SV *)
+PERLVAR(I, PosixGraph, SV *)
+
+PERLVAR(I, L1PosixLower,SV *)
+PERLVAR(I, PosixLower, SV *)
+
+PERLVAR(I, L1PosixPrint,SV *)
+PERLVAR(I, PosixPrint, SV *)
+
+PERLVAR(I, L1PosixPunct,SV *)
+PERLVAR(I, PosixPunct, SV *)
+
+PERLVAR(I, PosixSpace, SV *)
+PERLVAR(I, XPosixSpace,        SV *)
+
+PERLVAR(I, L1PosixUpper,SV *)
+PERLVAR(I, PosixUpper, SV *)
+
+PERLVAR(I, L1PosixWord,        SV *)
+PERLVAR(I, PosixWord,  SV *)
+
+PERLVAR(I, PosixXDigit,        SV *)
+PERLVAR(I, XPosixXDigit, SV *)
+
+PERLVAR(I, VertSpace,   SV *)
+
+/* utf8 character class swashes */
 PERLVAR(I, utf8_alnum, SV *)
 PERLVAR(I, utf8_alpha, SV *)
 PERLVAR(I, utf8_space, SV *)
@@ -734,8 +784,8 @@ PERLVAR(I, reentrant_retint, int)   /* Integer return value from reentrant functio
 #define PERL_LAST_5_16_0_INTERP_MEMBER Ireentrant_retint
 
 #ifdef PERL_IMPLICIT_CONTEXT
-PERLVARI(I, my_cxt_size, int,  0)      /* size of PL_my_cxt_list */
 PERLVARI(I, my_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
+PERLVARI(I, my_cxt_size, int,  0)      /* size of PL_my_cxt_list */
 #  ifdef PERL_GLOBAL_STRUCT_PRIVATE
 PERLVARI(I, my_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
 #  endif