POSIX [[:character class:]] support for standard, locale,

and utf8.  If both utf8 and locale are on, utf8 wins.
I don't fully understand why so many tables changed in
lib/unicode because of "make" -- maybe it was just overdue.

p4raw-id: //depot/cfgperl@3624

MANIFEST

@@ -826,6 +826,7 @@ lib/unicode/Is/So.pl				Unicode character database
 lib/unicode/Is/Space.pl				Unicode character database
 lib/unicode/Is/Syllable.pl			Unicode character database
 lib/unicode/Is/Upper.pl				Unicode character database
+lib/unicode/Is/Word.pl				Unicode character database
 lib/unicode/Is/Z.pl				Unicode character database
 lib/unicode/Is/Zl.pl				Unicode character database
 lib/unicode/Is/Zp.pl				Unicode character database

Todo-5.005

@@ -36,8 +36,8 @@ Locales
     decimal separator (3,1415927 is Europeanese for an approximation of pi)
 
 Regexen
-   POSIX [:foo:] character classes
-	([=bar=] and [.zap.] would nice too but there's no API for them)
+   POSIX [=bar=] and [.zap.] would nice too but there's no API for them
+   (=bar= could be done with Unicode, though)
    approximate matching
 
 Reliable Signals

embed.h

@@ -203,35 +203,53 @@
 #define io_close		Perl_io_close
 #define invert			Perl_invert
 #define is_uni_alnum		Perl_is_uni_alnum
+#define is_uni_alnumc		Perl_is_uni_alnumc
 #define is_uni_idfirst		Perl_is_uni_idfirst
 #define is_uni_alpha		Perl_is_uni_alpha
+#define is_uni_ascii		Perl_is_uni_ascii
 #define is_uni_space		Perl_is_uni_space
+#define is_uni_cntrl		Perl_is_uni_cntrl
+#define is_uni_graph		Perl_is_uni_graph
 #define is_uni_digit		Perl_is_uni_digit
 #define is_uni_upper		Perl_is_uni_upper
 #define is_uni_lower		Perl_is_uni_lower
 #define is_uni_print		Perl_is_uni_print
+#define is_uni_punct		Perl_is_uni_punct
+#define is_uni_xdigit		Perl_is_uni_xdigit
 #define to_uni_upper		Perl_to_uni_upper
 #define to_uni_title		Perl_to_uni_title
 #define to_uni_lower		Perl_to_uni_lower
 #define is_uni_alnum_lc		Perl_is_uni_alnum_lc
+#define is_uni_alnumc_lc	Perl_is_uni_alnumc_lc
 #define is_uni_idfirst_lc	Perl_is_uni_idfirst_lc
 #define is_uni_alpha_lc		Perl_is_uni_alpha_lc
+#define is_uni_ascii_lc		Perl_is_uni_ascii_lc
 #define is_uni_space_lc		Perl_is_uni_space_lc
+#define is_uni_cntrl_lc		Perl_is_uni_cntrl_lc
+#define is_uni_graph_lc		Perl_is_uni_graph_lc
 #define is_uni_digit_lc		Perl_is_uni_digit_lc
 #define is_uni_upper_lc		Perl_is_uni_upper_lc
 #define is_uni_lower_lc		Perl_is_uni_lower_lc
 #define is_uni_print_lc		Perl_is_uni_print_lc
+#define is_uni_punct_lc		Perl_is_uni_punct_lc
+#define is_uni_xdigit_lc	Perl_is_uni_xdigit_lc
 #define to_uni_upper_lc		Perl_to_uni_upper_lc
 #define to_uni_title_lc		Perl_to_uni_title_lc
 #define to_uni_lower_lc		Perl_to_uni_lower_lc
 #define is_utf8_alnum		Perl_is_utf8_alnum
+#define is_utf8_alnumc		Perl_is_utf8_alnumc
 #define is_utf8_idfirst		Perl_is_utf8_idfirst
 #define is_utf8_alpha		Perl_is_utf8_alpha
+#define is_utf8_ascii		Perl_is_utf8_ascii
 #define is_utf8_space		Perl_is_utf8_space
+#define is_utf8_cntrl		Perl_is_utf8_cntrl
 #define is_utf8_digit		Perl_is_utf8_digit
+#define is_utf8_graph		Perl_is_utf8_graph
 #define is_utf8_upper		Perl_is_utf8_upper
 #define is_utf8_lower		Perl_is_utf8_lower
 #define is_utf8_print		Perl_is_utf8_print
+#define is_utf8_punct		Perl_is_utf8_punct
+#define is_utf8_xdigit		Perl_is_utf8_xdigit
 #define is_utf8_mark		Perl_is_utf8_mark
 #define jmaybe			Perl_jmaybe
 #define keyword			Perl_keyword
@@ -846,6 +864,7 @@
 #define add_data		S_add_data
 #define re_croak2		S_re_croak2
 #define regpposixcc		S_regpposixcc
+#define checkposixcc		S_checkposixcc
 #define clear_re		S_clear_re
 #endif
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
@@ -986,6 +1005,7 @@
 #define ck_require		Perl_ck_require
 #define ck_rfun			Perl_ck_rfun
 #define ck_rvconst		Perl_ck_rvconst
+#define ck_sassign		Perl_ck_sassign
 #define ck_scmp			Perl_ck_scmp
 #define ck_select		Perl_ck_select
 #define ck_shift		Perl_ck_shift
@@ -1520,35 +1540,53 @@
 #define io_close(a)		Perl_io_close(aTHX_ a)
 #define invert(a)		Perl_invert(aTHX_ a)
 #define is_uni_alnum(a)		Perl_is_uni_alnum(aTHX_ a)
+#define is_uni_alnumc(a)	Perl_is_uni_alnumc(aTHX_ a)
 #define is_uni_idfirst(a)	Perl_is_uni_idfirst(aTHX_ a)
 #define is_uni_alpha(a)		Perl_is_uni_alpha(aTHX_ a)
+#define is_uni_ascii(a)		Perl_is_uni_ascii(aTHX_ a)
 #define is_uni_space(a)		Perl_is_uni_space(aTHX_ a)
+#define is_uni_cntrl(a)		Perl_is_uni_cntrl(aTHX_ a)
+#define is_uni_graph(a)		Perl_is_uni_graph(aTHX_ a)
 #define is_uni_digit(a)		Perl_is_uni_digit(aTHX_ a)
 #define is_uni_upper(a)		Perl_is_uni_upper(aTHX_ a)
 #define is_uni_lower(a)		Perl_is_uni_lower(aTHX_ a)
 #define is_uni_print(a)		Perl_is_uni_print(aTHX_ a)
+#define is_uni_punct(a)		Perl_is_uni_punct(aTHX_ a)
+#define is_uni_xdigit(a)	Perl_is_uni_xdigit(aTHX_ a)
 #define to_uni_upper(a)		Perl_to_uni_upper(aTHX_ a)
 #define to_uni_title(a)		Perl_to_uni_title(aTHX_ a)
 #define to_uni_lower(a)		Perl_to_uni_lower(aTHX_ a)
 #define is_uni_alnum_lc(a)	Perl_is_uni_alnum_lc(aTHX_ a)
+#define is_uni_alnumc_lc(a)	Perl_is_uni_alnumc_lc(aTHX_ a)
 #define is_uni_idfirst_lc(a)	Perl_is_uni_idfirst_lc(aTHX_ a)
 #define is_uni_alpha_lc(a)	Perl_is_uni_alpha_lc(aTHX_ a)
+#define is_uni_ascii_lc(a)	Perl_is_uni_ascii_lc(aTHX_ a)
 #define is_uni_space_lc(a)	Perl_is_uni_space_lc(aTHX_ a)
+#define is_uni_cntrl_lc(a)	Perl_is_uni_cntrl_lc(aTHX_ a)
+#define is_uni_graph_lc(a)	Perl_is_uni_graph_lc(aTHX_ a)
 #define is_uni_digit_lc(a)	Perl_is_uni_digit_lc(aTHX_ a)
 #define is_uni_upper_lc(a)	Perl_is_uni_upper_lc(aTHX_ a)
 #define is_uni_lower_lc(a)	Perl_is_uni_lower_lc(aTHX_ a)
 #define is_uni_print_lc(a)	Perl_is_uni_print_lc(aTHX_ a)
+#define is_uni_punct_lc(a)	Perl_is_uni_punct_lc(aTHX_ a)
+#define is_uni_xdigit_lc(a)	Perl_is_uni_xdigit_lc(aTHX_ a)
 #define to_uni_upper_lc(a)	Perl_to_uni_upper_lc(aTHX_ a)
 #define to_uni_title_lc(a)	Perl_to_uni_title_lc(aTHX_ a)
 #define to_uni_lower_lc(a)	Perl_to_uni_lower_lc(aTHX_ a)
 #define is_utf8_alnum(a)	Perl_is_utf8_alnum(aTHX_ a)
+#define is_utf8_alnumc(a)	Perl_is_utf8_alnumc(aTHX_ a)
 #define is_utf8_idfirst(a)	Perl_is_utf8_idfirst(aTHX_ a)
 #define is_utf8_alpha(a)	Perl_is_utf8_alpha(aTHX_ a)
+#define is_utf8_ascii(a)	Perl_is_utf8_ascii(aTHX_ a)
 #define is_utf8_space(a)	Perl_is_utf8_space(aTHX_ a)
+#define is_utf8_cntrl(a)	Perl_is_utf8_cntrl(aTHX_ a)
 #define is_utf8_digit(a)	Perl_is_utf8_digit(aTHX_ a)
+#define is_utf8_graph(a)	Perl_is_utf8_graph(aTHX_ a)
 #define is_utf8_upper(a)	Perl_is_utf8_upper(aTHX_ a)
 #define is_utf8_lower(a)	Perl_is_utf8_lower(aTHX_ a)
 #define is_utf8_print(a)	Perl_is_utf8_print(aTHX_ a)
+#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)
 #define jmaybe(a)		Perl_jmaybe(aTHX_ a)
 #define keyword(a,b)		Perl_keyword(aTHX_ a,b)
@@ -2153,6 +2191,7 @@
 #define study_chunk(a,b,c,d,e)	S_study_chunk(aTHX_ a,b,c,d,e)
 #define add_data(a,b)		S_add_data(aTHX_ a,b)
 #define regpposixcc(a)		S_regpposixcc(aTHX_ a)
+#define checkposixcc()		S_checkposixcc(aTHX)
 #define clear_re(a)		S_clear_re(aTHX_ a)
 #endif
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
@@ -2293,6 +2332,7 @@
 #define ck_require(a)		Perl_ck_require(aTHX_ a)
 #define ck_rfun(a)		Perl_ck_rfun(aTHX_ a)
 #define ck_rvconst(a)		Perl_ck_rvconst(aTHX_ a)
+#define ck_sassign(a)		Perl_ck_sassign(aTHX_ a)
 #define ck_scmp(a)		Perl_ck_scmp(aTHX_ a)
 #define ck_select(a)		Perl_ck_select(aTHX_ a)
 #define ck_shift(a)		Perl_ck_shift(aTHX_ a)
@@ -3014,12 +3054,20 @@
 #define invert			Perl_invert
 #define Perl_is_uni_alnum	CPerlObj::Perl_is_uni_alnum
 #define is_uni_alnum		Perl_is_uni_alnum
+#define Perl_is_uni_alnumc	CPerlObj::Perl_is_uni_alnumc
+#define is_uni_alnumc		Perl_is_uni_alnumc
 #define Perl_is_uni_idfirst	CPerlObj::Perl_is_uni_idfirst
 #define is_uni_idfirst		Perl_is_uni_idfirst
 #define Perl_is_uni_alpha	CPerlObj::Perl_is_uni_alpha
 #define is_uni_alpha		Perl_is_uni_alpha
+#define Perl_is_uni_ascii	CPerlObj::Perl_is_uni_ascii
+#define is_uni_ascii		Perl_is_uni_ascii
 #define Perl_is_uni_space	CPerlObj::Perl_is_uni_space
 #define is_uni_space		Perl_is_uni_space
+#define Perl_is_uni_cntrl	CPerlObj::Perl_is_uni_cntrl
+#define is_uni_cntrl		Perl_is_uni_cntrl
+#define Perl_is_uni_graph	CPerlObj::Perl_is_uni_graph
+#define is_uni_graph		Perl_is_uni_graph
 #define Perl_is_uni_digit	CPerlObj::Perl_is_uni_digit
 #define is_uni_digit		Perl_is_uni_digit
 #define Perl_is_uni_upper	CPerlObj::Perl_is_uni_upper
@@ -3028,6 +3076,10 @@
 #define is_uni_lower		Perl_is_uni_lower
 #define Perl_is_uni_print	CPerlObj::Perl_is_uni_print
 #define is_uni_print		Perl_is_uni_print
+#define Perl_is_uni_punct	CPerlObj::Perl_is_uni_punct
+#define is_uni_punct		Perl_is_uni_punct
+#define Perl_is_uni_xdigit	CPerlObj::Perl_is_uni_xdigit
+#define is_uni_xdigit		Perl_is_uni_xdigit
 #define Perl_to_uni_upper	CPerlObj::Perl_to_uni_upper
 #define to_uni_upper		Perl_to_uni_upper
 #define Perl_to_uni_title	CPerlObj::Perl_to_uni_title
@@ -3036,12 +3088,20 @@
 #define to_uni_lower		Perl_to_uni_lower
 #define Perl_is_uni_alnum_lc	CPerlObj::Perl_is_uni_alnum_lc
 #define is_uni_alnum_lc		Perl_is_uni_alnum_lc
+#define Perl_is_uni_alnumc_lc	CPerlObj::Perl_is_uni_alnumc_lc
+#define is_uni_alnumc_lc	Perl_is_uni_alnumc_lc
 #define Perl_is_uni_idfirst_lc	CPerlObj::Perl_is_uni_idfirst_lc
 #define is_uni_idfirst_lc	Perl_is_uni_idfirst_lc
 #define Perl_is_uni_alpha_lc	CPerlObj::Perl_is_uni_alpha_lc
 #define is_uni_alpha_lc		Perl_is_uni_alpha_lc
+#define Perl_is_uni_ascii_lc	CPerlObj::Perl_is_uni_ascii_lc
+#define is_uni_ascii_lc		Perl_is_uni_ascii_lc
 #define Perl_is_uni_space_lc	CPerlObj::Perl_is_uni_space_lc
 #define is_uni_space_lc		Perl_is_uni_space_lc
+#define Perl_is_uni_cntrl_lc	CPerlObj::Perl_is_uni_cntrl_lc
+#define is_uni_cntrl_lc		Perl_is_uni_cntrl_lc
+#define Perl_is_uni_graph_lc	CPerlObj::Perl_is_uni_graph_lc
+#define is_uni_graph_lc		Perl_is_uni_graph_lc
 #define Perl_is_uni_digit_lc	CPerlObj::Perl_is_uni_digit_lc
 #define is_uni_digit_lc		Perl_is_uni_digit_lc
 #define Perl_is_uni_upper_lc	CPerlObj::Perl_is_uni_upper_lc
@@ -3050,6 +3110,10 @@
 #define is_uni_lower_lc		Perl_is_uni_lower_lc
 #define Perl_is_uni_print_lc	CPerlObj::Perl_is_uni_print_lc
 #define is_uni_print_lc		Perl_is_uni_print_lc
+#define Perl_is_uni_punct_lc	CPerlObj::Perl_is_uni_punct_lc
+#define is_uni_punct_lc		Perl_is_uni_punct_lc
+#define Perl_is_uni_xdigit_lc	CPerlObj::Perl_is_uni_xdigit_lc
+#define is_uni_xdigit_lc	Perl_is_uni_xdigit_lc
 #define Perl_to_uni_upper_lc	CPerlObj::Perl_to_uni_upper_lc
 #define to_uni_upper_lc		Perl_to_uni_upper_lc
 #define Perl_to_uni_title_lc	CPerlObj::Perl_to_uni_title_lc
@@ -3058,20 +3122,32 @@
 #define to_uni_lower_lc		Perl_to_uni_lower_lc
 #define Perl_is_utf8_alnum	CPerlObj::Perl_is_utf8_alnum
 #define is_utf8_alnum		Perl_is_utf8_alnum
+#define Perl_is_utf8_alnumc	CPerlObj::Perl_is_utf8_alnumc
+#define is_utf8_alnumc		Perl_is_utf8_alnumc
 #define Perl_is_utf8_idfirst	CPerlObj::Perl_is_utf8_idfirst
 #define is_utf8_idfirst		Perl_is_utf8_idfirst
 #define Perl_is_utf8_alpha	CPerlObj::Perl_is_utf8_alpha
 #define is_utf8_alpha		Perl_is_utf8_alpha
+#define Perl_is_utf8_ascii	CPerlObj::Perl_is_utf8_ascii
+#define is_utf8_ascii		Perl_is_utf8_ascii
 #define Perl_is_utf8_space	CPerlObj::Perl_is_utf8_space
 #define is_utf8_space		Perl_is_utf8_space
+#define Perl_is_utf8_cntrl	CPerlObj::Perl_is_utf8_cntrl
+#define is_utf8_cntrl		Perl_is_utf8_cntrl
 #define Perl_is_utf8_digit	CPerlObj::Perl_is_utf8_digit
 #define is_utf8_digit		Perl_is_utf8_digit
+#define Perl_is_utf8_graph	CPerlObj::Perl_is_utf8_graph
+#define is_utf8_graph		Perl_is_utf8_graph
 #define Perl_is_utf8_upper	CPerlObj::Perl_is_utf8_upper
 #define is_utf8_upper		Perl_is_utf8_upper
 #define Perl_is_utf8_lower	CPerlObj::Perl_is_utf8_lower
 #define is_utf8_lower		Perl_is_utf8_lower
 #define Perl_is_utf8_print	CPerlObj::Perl_is_utf8_print
 #define is_utf8_print		Perl_is_utf8_print
+#define Perl_is_utf8_punct	CPerlObj::Perl_is_utf8_punct
+#define is_utf8_punct		Perl_is_utf8_punct
+#define Perl_is_utf8_xdigit	CPerlObj::Perl_is_utf8_xdigit
+#define is_utf8_xdigit		Perl_is_utf8_xdigit
 #define Perl_is_utf8_mark	CPerlObj::Perl_is_utf8_mark
 #define is_utf8_mark		Perl_is_utf8_mark
 #define Perl_jmaybe		CPerlObj::Perl_jmaybe
@@ -4235,6 +4311,8 @@
 #define re_croak2		S_re_croak2
 #define S_regpposixcc		CPerlObj::S_regpposixcc
 #define regpposixcc		S_regpposixcc
+#define S_checkposixcc		CPerlObj::S_checkposixcc
+#define checkposixcc		S_checkposixcc
 #define S_clear_re		CPerlObj::S_clear_re
 #define clear_re		S_clear_re
 #endif
@@ -4489,6 +4567,8 @@
 #define ck_rfun			Perl_ck_rfun
 #define Perl_ck_rvconst		CPerlObj::Perl_ck_rvconst
 #define ck_rvconst		Perl_ck_rvconst
+#define Perl_ck_sassign		CPerlObj::Perl_ck_sassign
+#define ck_sassign		Perl_ck_sassign
 #define Perl_ck_scmp		CPerlObj::Perl_ck_scmp
 #define ck_scmp			Perl_ck_scmp
 #define Perl_ck_select		CPerlObj::Perl_ck_select

embed.pl

@@ -947,35 +947,53 @@ END
 p	|bool	|io_close	|IO* io
 p	|OP*	|invert		|OP* cmd
 p	|bool	|is_uni_alnum	|U32 c
+p	|bool	|is_uni_alnumc	|U32 c
 p	|bool	|is_uni_idfirst	|U32 c
 p	|bool	|is_uni_alpha	|U32 c
+p	|bool	|is_uni_ascii	|U32 c
 p	|bool	|is_uni_space	|U32 c
+p	|bool	|is_uni_cntrl	|U32 c
+p	|bool	|is_uni_graph	|U32 c
 p	|bool	|is_uni_digit	|U32 c
 p	|bool	|is_uni_upper	|U32 c
 p	|bool	|is_uni_lower	|U32 c
 p	|bool	|is_uni_print	|U32 c
+p	|bool	|is_uni_punct	|U32 c
+p	|bool	|is_uni_xdigit	|U32 c
 p	|U32	|to_uni_upper	|U32 c
 p	|U32	|to_uni_title	|U32 c
 p	|U32	|to_uni_lower	|U32 c
 p	|bool	|is_uni_alnum_lc|U32 c
+p	|bool	|is_uni_alnumc_lc|U32 c
 p	|bool	|is_uni_idfirst_lc|U32 c
 p	|bool	|is_uni_alpha_lc|U32 c
+p	|bool	|is_uni_ascii_lc|U32 c
 p	|bool	|is_uni_space_lc|U32 c
+p	|bool	|is_uni_cntrl_lc|U32 c
+p	|bool	|is_uni_graph_lc|U32 c
 p	|bool	|is_uni_digit_lc|U32 c
 p	|bool	|is_uni_upper_lc|U32 c
 p	|bool	|is_uni_lower_lc|U32 c
 p	|bool	|is_uni_print_lc|U32 c
+p	|bool	|is_uni_punct_lc|U32 c
+p	|bool	|is_uni_xdigit_lc|U32 c
 p	|U32	|to_uni_upper_lc|U32 c
 p	|U32	|to_uni_title_lc|U32 c
 p	|U32	|to_uni_lower_lc|U32 c
 p	|bool	|is_utf8_alnum	|U8 *p
+p	|bool	|is_utf8_alnumc	|U8 *p
 p	|bool	|is_utf8_idfirst|U8 *p
 p	|bool	|is_utf8_alpha	|U8 *p
+p	|bool	|is_utf8_ascii	|U8 *p
 p	|bool	|is_utf8_space	|U8 *p
+p	|bool	|is_utf8_cntrl	|U8 *p
 p	|bool	|is_utf8_digit	|U8 *p
+p	|bool	|is_utf8_graph	|U8 *p
 p	|bool	|is_utf8_upper	|U8 *p
 p	|bool	|is_utf8_lower	|U8 *p
 p	|bool	|is_utf8_print	|U8 *p
+p	|bool	|is_utf8_punct	|U8 *p
+p	|bool	|is_utf8_xdigit	|U8 *p
 p	|bool	|is_utf8_mark	|U8 *p
 p	|OP*	|jmaybe		|OP* arg
 p	|I32	|keyword	|char* d|I32 len
@@ -1646,7 +1664,8 @@ END
 				|regnode *last|scan_data_t *data|U32 flags
 s	|I32	|add_data	|I32 n|char *s
 rs	|void|re_croak2	|const char* pat1|const char* pat2|...
-s	|char*|regpposixcc	|I32 value
+s	|I32	|regpposixcc	|I32 value
+s	|void	|checkposixcc
 s	|void	|clear_re	|void *r
 #endif
 

embedvar.h

@@ -508,16 +508,22 @@
 #define PL_uid			(PL_curinterp->Iuid)
 #define PL_unsafe		(PL_curinterp->Iunsafe)
 #define PL_utf8_alnum		(PL_curinterp->Iutf8_alnum)
+#define PL_utf8_alnumc		(PL_curinterp->Iutf8_alnumc)
 #define PL_utf8_alpha		(PL_curinterp->Iutf8_alpha)
+#define PL_utf8_ascii		(PL_curinterp->Iutf8_ascii)
+#define PL_utf8_cntrl		(PL_curinterp->Iutf8_cntrl)
 #define PL_utf8_digit		(PL_curinterp->Iutf8_digit)
+#define PL_utf8_graph		(PL_curinterp->Iutf8_graph)
 #define PL_utf8_lower		(PL_curinterp->Iutf8_lower)
 #define PL_utf8_mark		(PL_curinterp->Iutf8_mark)
 #define PL_utf8_print		(PL_curinterp->Iutf8_print)
+#define PL_utf8_punct		(PL_curinterp->Iutf8_punct)
 #define PL_utf8_space		(PL_curinterp->Iutf8_space)
 #define PL_utf8_tolower		(PL_curinterp->Iutf8_tolower)
 #define PL_utf8_totitle		(PL_curinterp->Iutf8_totitle)
 #define PL_utf8_toupper		(PL_curinterp->Iutf8_toupper)
 #define PL_utf8_upper		(PL_curinterp->Iutf8_upper)
+#define PL_utf8_xdigit		(PL_curinterp->Iutf8_xdigit)
 #define PL_uudmap		(PL_curinterp->Iuudmap)
 #define PL_warnhook		(PL_curinterp->Iwarnhook)
 #define PL_xiv_arenaroot	(PL_curinterp->Ixiv_arenaroot)
@@ -765,16 +771,22 @@
 #define PL_Iuid			PL_uid
 #define PL_Iunsafe		PL_unsafe
 #define PL_Iutf8_alnum		PL_utf8_alnum
+#define PL_Iutf8_alnumc		PL_utf8_alnumc
 #define PL_Iutf8_alpha		PL_utf8_alpha
+#define PL_Iutf8_ascii		PL_utf8_ascii
+#define PL_Iutf8_cntrl		PL_utf8_cntrl
 #define PL_Iutf8_digit		PL_utf8_digit
+#define PL_Iutf8_graph		PL_utf8_graph
 #define PL_Iutf8_lower		PL_utf8_lower
 #define PL_Iutf8_mark		PL_utf8_mark
 #define PL_Iutf8_print		PL_utf8_print
+#define PL_Iutf8_punct		PL_utf8_punct
 #define PL_Iutf8_space		PL_utf8_space
 #define PL_Iutf8_tolower	PL_utf8_tolower
 #define PL_Iutf8_totitle	PL_utf8_totitle
 #define PL_Iutf8_toupper	PL_utf8_toupper
 #define PL_Iutf8_upper		PL_utf8_upper
+#define PL_Iutf8_xdigit		PL_utf8_xdigit
 #define PL_Iuudmap		PL_uudmap
 #define PL_Iwarnhook		PL_warnhook
 #define PL_Ixiv_arenaroot	PL_xiv_arenaroot