From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Sun, 13 Dec 2009 14:47:45 +0000 (+0100)
Subject: Make new is_utf8_X_* functions public
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5270d770bca421d596c01c6a2ac5038bb781ff93;p=p5sagit%2Fp5-mst-13.2.git

Make new is_utf8_X_* functions public
---

diff --git a/embed.fnc b/embed.fnc
index 6b24d1e..17089ff 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -502,16 +502,16 @@ ApR	|bool	|is_utf8_print	|NN const U8 *p
 ApR	|bool	|is_utf8_punct	|NN const U8 *p
 ApR	|bool	|is_utf8_xdigit	|NN const U8 *p
 ApR	|bool	|is_utf8_mark	|NN const U8 *p
-pR	|bool	|is_utf8_X_begin	|NN const U8 *p
-pR	|bool	|is_utf8_X_extend	|NN const U8 *p
-pR	|bool	|is_utf8_X_prepend	|NN const U8 *p
-pR	|bool	|is_utf8_X_non_hangul	|NN const U8 *p
-pR	|bool	|is_utf8_X_L		|NN const U8 *p
-pR	|bool	|is_utf8_X_LV		|NN const U8 *p
-pR	|bool	|is_utf8_X_LVT		|NN const U8 *p
-pR	|bool	|is_utf8_X_LV_LVT_V	|NN const U8 *p
-pR	|bool	|is_utf8_X_T		|NN const U8 *p
-pR	|bool	|is_utf8_X_V		|NN const U8 *p
+ApR	|bool	|is_utf8_X_begin	|NN const U8 *p
+ApR	|bool	|is_utf8_X_extend	|NN const U8 *p
+ApR	|bool	|is_utf8_X_prepend	|NN const U8 *p
+ApR	|bool	|is_utf8_X_non_hangul	|NN const U8 *p
+ApR	|bool	|is_utf8_X_L		|NN const U8 *p
+ApR	|bool	|is_utf8_X_LV		|NN const U8 *p
+ApR	|bool	|is_utf8_X_LVT		|NN const U8 *p
+ApR	|bool	|is_utf8_X_LV_LVT_V	|NN const U8 *p
+ApR	|bool	|is_utf8_X_T		|NN const U8 *p
+ApR	|bool	|is_utf8_X_V		|NN const U8 *p
 : Used in perly.y
 p	|OP*	|jmaybe		|NN OP *o
 : Used in pp.c 
diff --git a/embed.h b/embed.h
index e30e6f2..c949c5c 100644
--- a/embed.h
+++ b/embed.h
@@ -391,7 +391,6 @@
 #define is_utf8_punct		Perl_is_utf8_punct
 #define is_utf8_xdigit		Perl_is_utf8_xdigit
 #define is_utf8_mark		Perl_is_utf8_mark
-#ifdef PERL_CORE
 #define is_utf8_X_begin		Perl_is_utf8_X_begin
 #define is_utf8_X_extend	Perl_is_utf8_X_extend
 #define is_utf8_X_prepend	Perl_is_utf8_X_prepend
@@ -402,6 +401,7 @@
 #define is_utf8_X_LV_LVT_V	Perl_is_utf8_X_LV_LVT_V
 #define is_utf8_X_T		Perl_is_utf8_X_T
 #define is_utf8_X_V		Perl_is_utf8_X_V
+#ifdef PERL_CORE
 #define jmaybe			Perl_jmaybe
 #define keyword			Perl_keyword
 #endif
@@ -2794,7 +2794,6 @@
 #define is_utf8_punct(a)	Perl_is_utf8_punct(aTHX_ a)
 #define is_utf8_xdigit(a)	Perl_is_utf8_xdigit(aTHX_ a)
 #define is_utf8_mark(a)		Perl_is_utf8_mark(aTHX_ a)
-#ifdef PERL_CORE
 #define is_utf8_X_begin(a)	Perl_is_utf8_X_begin(aTHX_ a)
 #define is_utf8_X_extend(a)	Perl_is_utf8_X_extend(aTHX_ a)
 #define is_utf8_X_prepend(a)	Perl_is_utf8_X_prepend(aTHX_ a)
@@ -2805,6 +2804,7 @@
 #define is_utf8_X_LV_LVT_V(a)	Perl_is_utf8_X_LV_LVT_V(aTHX_ a)
 #define is_utf8_X_T(a)		Perl_is_utf8_X_T(aTHX_ a)
 #define is_utf8_X_V(a)		Perl_is_utf8_X_V(aTHX_ a)
+#ifdef PERL_CORE
 #define jmaybe(a)		Perl_jmaybe(aTHX_ a)
 #define keyword(a,b,c)		Perl_keyword(aTHX_ a,b,c)
 #endif
diff --git a/global.sym b/global.sym
index 6a44049..ae6a48f 100644
--- a/global.sym
+++ b/global.sym
@@ -242,6 +242,16 @@ Perl_is_utf8_print
 Perl_is_utf8_punct
 Perl_is_utf8_xdigit
 Perl_is_utf8_mark
+Perl_is_utf8_X_begin
+Perl_is_utf8_X_extend
+Perl_is_utf8_X_prepend
+Perl_is_utf8_X_non_hangul
+Perl_is_utf8_X_L
+Perl_is_utf8_X_LV
+Perl_is_utf8_X_LVT
+Perl_is_utf8_X_LV_LVT_V
+Perl_is_utf8_X_T
+Perl_is_utf8_X_V
 Perl_leave_scope
 Perl_lex_end
 Perl_lex_bufutf8