45#ifndef _P_P_PORTABILITY_H_
46#define _P_P_PORTABILITY_H_
48#define DPPP_NAMESPACE DPPP_
50#define DPPP_CAT2(x,y) CAT2(x,y)
51#define DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name)
52#define D_PPP_RELEASE_DATE 1647561600
53#if ! defined(PERL_REVISION) && ! defined(PERL_VERSION_MAJOR)
54#if ! defined(__PATCHLEVEL_H_INCLUDED__) \
55&& ! ( defined(PATCHLEVEL) && defined(SUBVERSION))
56#define PERL_PATCHLEVEL_H_IMPLICIT
57#include <patchlevel.h>
59#if ! defined(PERL_VERSION) \
60&& ! defined(PERL_VERSION_MAJOR) \
61&& ( ! defined(SUBVERSION) || ! defined(PATCHLEVEL) )
62#include <could_not_find_Perl_patchlevel.h>
65#ifdef PERL_VERSION_MAJOR
66#define D_PPP_MAJOR PERL_VERSION_MAJOR
67#elif defined(PERL_REVISION)
68#define D_PPP_MAJOR PERL_REVISION
72#ifdef PERL_VERSION_MINOR
73#define D_PPP_MINOR PERL_VERSION_MINOR
74#elif defined(PERL_VERSION)
75#define D_PPP_MINOR PERL_VERSION
76#elif defined(PATCHLEVEL)
77#define D_PPP_MINOR PATCHLEVEL
78#define PERL_VERSION PATCHLEVEL
80#error Could not find a source for PERL_VERSION_MINOR
82#ifdef PERL_VERSION_PATCH
83#define D_PPP_PATCH PERL_VERSION_PATCH
84#elif defined(PERL_SUBVERSION)
85#define D_PPP_PATCH PERL_SUBVERSION
86#elif defined(SUBVERSION)
87#define D_PPP_PATCH SUBVERSION
88#define PERL_SUBVERSION SUBVERSION
90#error Could not find a source for PERL_VERSION_PATCH
92#if D_PPP_MAJOR < 5 || D_PPP_MAJOR == 6
93#error Devel::PPPort works only on Perl 5, Perl 7, ...
98#define D_PPP_REVISION 5
99#define D_PPP_VERSION 201
100#define D_PPP_SUBVERSION 201
101#if (defined(__clang__) \
102&& ( (defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) \
103|| defined(_STDC_C99) \
105#define D_PPP_STRINGIFY(x) #x
106#define D_PPP_deprecate(xyz) _Pragma(D_PPP_STRINGIFY(GCC warning(D_PPP_STRINGIFY(xyz) " is deprecated")))
107#define PERL_REVISION (D_PPP_REVISION D_PPP_deprecate(PERL_REVISION))
108#define PERL_VERSION (D_PPP_REVISION D_PPP_deprecate(PERL_VERSION))
109#define PERL_SUBVERSION (D_PPP_SUBVERSION D_PPP_deprecate(PERL_SUBVERSION))
111#define PERL_REVISION D_PPP_REVISION
112#define PERL_VERSION D_PPP_REVISION
113#define PERL_SUBVERSION D_PPP_SUBVERSION
116#define D_PPP_DEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
117#define D_PPP_JNP_TO_BCD(j,n,p) ((D_PPP_DEC2BCD(j)<<24)|(D_PPP_DEC2BCD(n)<<12)|D_PPP_DEC2BCD(p))
118#define PERL_BCDVERSION D_PPP_JNP_TO_BCD(D_PPP_MAJOR, \
121#undef PERL_VERSION_EQ
122#undef PERL_VERSION_NE
123#undef PERL_VERSION_LT
124#undef PERL_VERSION_GE
125#undef PERL_VERSION_LE
126#undef PERL_VERSION_GT
127#ifndef PERL_VERSION_EQ
128#define PERL_VERSION_EQ(j,n,p) \
129(((p) == '*') ? ( (j) == D_PPP_VERSION_MAJOR \
130&& (n) == D_PPP_VERSION_MINOR) \
131: (PERL_BCDVERSION == D_PPP_JNP_TO_BCD(j,n,p)))
133#ifndef PERL_VERSION_NE
134#define PERL_VERSION_NE(j,n,p) (! PERL_VERSION_EQ(j,n,p))
136#ifndef PERL_VERSION_LT
137#define PERL_VERSION_LT(j,n,p) \
138(PERL_BCDVERSION < D_PPP_JNP_TO_BCD( (j), \
140(((p) == '*') ? 0 : (p))))
142#ifndef PERL_VERSION_GE
143#define PERL_VERSION_GE(j,n,p) (! PERL_VERSION_LT(j,n,p))
145#ifndef PERL_VERSION_LE
146#define PERL_VERSION_LE(j,n,p) \
147(PERL_BCDVERSION < D_PPP_JNP_TO_BCD( (j), \
148(((p) == '*') ? ((n)+1) : (n)), \
149(((p) == '*') ? 0 : (p))))
151#ifndef PERL_VERSION_GT
152#define PERL_VERSION_GT(j,n,p) (! PERL_VERSION_LE(j,n,p))
161#define dTHXa(x) dNOOP
175#if (PERL_BCDVERSION < 0x5006000)
190#define dTHXoa(x) dTHXa(x)
195#ifndef PERL_UCHAR_MIN
196#define PERL_UCHAR_MIN ((unsigned char)0)
198#ifndef PERL_UCHAR_MAX
200#define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
203#define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
205#define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
209#ifndef PERL_USHORT_MIN
210#define PERL_USHORT_MIN ((unsigned short)0)
212#ifndef PERL_USHORT_MAX
214#define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
217#define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
220#define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
222#define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
227#ifndef PERL_SHORT_MAX
229#define PERL_SHORT_MAX ((short)SHORT_MAX)
232#define PERL_SHORT_MAX ((short)MAXSHORT)
235#define PERL_SHORT_MAX ((short)SHRT_MAX)
237#define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
242#ifndef PERL_SHORT_MIN
244#define PERL_SHORT_MIN ((short)SHORT_MIN)
247#define PERL_SHORT_MIN ((short)MINSHORT)
250#define PERL_SHORT_MIN ((short)SHRT_MIN)
252#define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
259#define PERL_UINT_MAX ((unsigned int)UINT_MAX)
262#define PERL_UINT_MAX ((unsigned int)MAXUINT)
264#define PERL_UINT_MAX (~(unsigned int)0)
269#define PERL_UINT_MIN ((unsigned int)0)
273#define PERL_INT_MAX ((int)INT_MAX)
276#define PERL_INT_MAX ((int)MAXINT)
278#define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
284#define PERL_INT_MIN ((int)INT_MIN)
287#define PERL_INT_MIN ((int)MININT)
289#define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
293#ifndef PERL_ULONG_MAX
295#define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
298#define PERL_ULONG_MAX ((unsigned long)MAXULONG)
300#define PERL_ULONG_MAX (~(unsigned long)0)
304#ifndef PERL_ULONG_MIN
305#define PERL_ULONG_MIN ((unsigned long)0L)
309#define PERL_LONG_MAX ((long)LONG_MAX)
312#define PERL_LONG_MAX ((long)MAXLONG)
314#define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
320#define PERL_LONG_MIN ((long)LONG_MIN)
323#define PERL_LONG_MIN ((long)MINLONG)
325#define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
329#if defined(HAS_QUAD) && (defined(convex) || defined(uts))
330#ifndef PERL_UQUAD_MAX
332#define PERL_UQUAD_MAX ((unsigned long long)ULONGLONG_MAX)
335#define PERL_UQUAD_MAX ((unsigned long long)MAXULONGLONG)
337#define PERL_UQUAD_MAX (~(unsigned long long)0)
341#ifndef PERL_UQUAD_MIN
342#define PERL_UQUAD_MIN ((unsigned long long)0L)
346#define PERL_QUAD_MAX ((long long)LONGLONG_MAX)
349#define PERL_QUAD_MAX ((long long)MAXLONGLONG)
351#define PERL_QUAD_MAX ((long long) (PERL_UQUAD_MAX >> 1))
357#define PERL_QUAD_MIN ((long long)LONGLONG_MIN)
360#define PERL_QUAD_MIN ((long long)MINLONGLONG)
362#define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
373#define IV_MIN PERL_INT_MIN
376#define IV_MAX PERL_INT_MAX
379#define UV_MIN PERL_UINT_MIN
382#define UV_MAX PERL_UINT_MAX
386#define IVSIZE INTSIZE
390#if defined(convex) || defined(uts)
392#define IVTYPE long long
395#define IV_MIN PERL_QUAD_MIN
398#define IV_MAX PERL_QUAD_MAX
401#define UV_MIN PERL_UQUAD_MIN
404#define UV_MAX PERL_UQUAD_MAX
408#define IVSIZE LONGLONGSIZE
416#define IV_MIN PERL_LONG_MIN
419#define IV_MAX PERL_LONG_MAX
422#define UV_MIN PERL_ULONG_MIN
425#define UV_MAX PERL_ULONG_MAX
429#define IVSIZE LONGSIZE
441#define PERL_QUAD_MIN IV_MIN
444#define PERL_QUAD_MAX IV_MAX
446#ifndef PERL_UQUAD_MIN
447#define PERL_UQUAD_MIN UV_MIN
449#ifndef PERL_UQUAD_MAX
450#define PERL_UQUAD_MAX UV_MAX
460#define IV_MIN PERL_LONG_MIN
463#define IV_MAX PERL_LONG_MAX
466#define UV_MIN PERL_ULONG_MIN
469#define UV_MAX PERL_ULONG_MAX
474#define IVSIZE LONGSIZE
480#define UVTYPE unsigned IVTYPE
485#ifndef PERL_SIGNALS_UNSAFE_FLAG
486#define PERL_SIGNALS_UNSAFE_FLAG 0x0001
487#if (PERL_BCDVERSION < 0x5008000)
488#define D_PPP_PERL_SIGNALS_INIT PERL_SIGNALS_UNSAFE_FLAG
490#define D_PPP_PERL_SIGNALS_INIT 0
492#if defined(NEED_PL_signals)
494#elif defined(NEED_PL_signals_GLOBAL)
499#define PL_signals DPPP_(my_PL_signals)
501#if (PERL_BCDVERSION <= 0x5005005)
502#define PL_ppaddr ppaddr
503#define PL_no_modify no_modify
505#if (PERL_BCDVERSION <= 0x5004005)
506#define PL_DBsignal DBsignal
507#define PL_DBsingle DBsingle
508#define PL_DBsub DBsub
509#define PL_DBtrace DBtrace
512#define PL_bufend bufend
513#define PL_bufptr bufptr
514#define PL_compiling compiling
515#define PL_copline copline
516#define PL_curcop curcop
517#define PL_curstash curstash
518#define PL_debstash debstash
519#define PL_defgv defgv
520#define PL_diehook diehook
521#define PL_dirty dirty
522#define PL_dowarn dowarn
523#define PL_errgv errgv
524#define PL_error_count error_count
525#define PL_expect expect
526#define PL_hexdigit hexdigit
527#define PL_hints hints
528#define PL_in_my in_my
529#define PL_laststatval laststatval
530#define PL_lex_state lex_state
531#define PL_lex_stuff lex_stuff
532#define PL_linestr linestr
534#define PL_perl_destruct_level perl_destruct_level
535#define PL_perldb perldb
536#define PL_rsfp_filters rsfp_filters
538#define PL_stack_base stack_base
539#define PL_stack_sp stack_sp
540#define PL_statcache statcache
541#define PL_stdingv stdingv
542#define PL_sv_arenaroot sv_arenaroot
543#define PL_sv_no sv_no
544#define PL_sv_undef sv_undef
545#define PL_sv_yes sv_yes
546#define PL_tainted tainted
547#define PL_tainting tainting
548#define PL_tokenbuf tokenbuf
549#define PL_mess_sv mess_sv
551#if (PERL_BCDVERSION >= 0x5009005)
552#ifdef DPPP_PL_parser_NO_DUMMY
553#define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \
554(croak("panic: PL_parser == NULL in %s:%d", \
555__FILE__, __LINE__), (yy_parser *) NULL))->var)
557#ifdef DPPP_PL_parser_NO_DUMMY_WARNING
558#define D_PPP_parser_dummy_warning(var)
560#define D_PPP_parser_dummy_warning(var) \
561warn("warning: dummy PL_" #var " used in %s:%d", __FILE__, __LINE__),
563#define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \
564(D_PPP_parser_dummy_warning(var) &DPPP_(dummy_PL_parser)))->var)
565#if defined(NEED_PL_parser)
566static yy_parser
DPPP_(dummy_PL_parser);
567#elif defined(NEED_PL_parser_GLOBAL)
568yy_parser
DPPP_(dummy_PL_parser);
570extern yy_parser
DPPP_(dummy_PL_parser);
573#define PL_expect D_PPP_my_PL_parser_var(expect)
574#define PL_copline D_PPP_my_PL_parser_var(copline)
575#define PL_rsfp D_PPP_my_PL_parser_var(rsfp)
576#define PL_rsfp_filters D_PPP_my_PL_parser_var(rsfp_filters)
577#define PL_linestr D_PPP_my_PL_parser_var(linestr)
578#define PL_bufptr D_PPP_my_PL_parser_var(bufptr)
579#define PL_bufend D_PPP_my_PL_parser_var(bufend)
580#define PL_lex_state D_PPP_my_PL_parser_var(lex_state)
581#define PL_lex_stuff D_PPP_my_PL_parser_var(lex_stuff)
582#define PL_tokenbuf D_PPP_my_PL_parser_var(tokenbuf)
583#define PL_in_my D_PPP_my_PL_parser_var(in_my)
584#define PL_in_my_stash D_PPP_my_PL_parser_var(in_my_stash)
585#define PL_error_count D_PPP_my_PL_parser_var(error_count)
587#define PL_parser ((void *) 1)
589#if (PERL_BCDVERSION <= 0x5003022)
591#if (PERL_BCDVERSION < 0x5003022)
592#ifndef start_subparse
593#define start_subparse(a, b) Perl_start_subparse()
596#ifndef start_subparse
597#define start_subparse(a, b) Perl_start_subparse(b)
600#if (PERL_BCDVERSION < 0x5003007)
604#if (PERL_BCDVERSION < 0x5004063) && (PERL_BCDVERSION != 0x5004005)
605#define NEED_newCONSTSUB
606#if defined(NEED_newCONSTSUB)
612#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
616#define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c)
617#define Perl_newCONSTSUB DPPP_(my_newCONSTSUB)
618#define D_PPP_PL_copline PL_copline
633newSVOP(OP_CONST, 0, newSVpv((
char *) name, 0)),
635newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
646#define PERL_MAGIC_sv '\0'
648#ifndef PERL_MAGIC_overload
649#define PERL_MAGIC_overload 'A'
651#ifndef PERL_MAGIC_overload_elem
652#define PERL_MAGIC_overload_elem 'a'
654#ifndef PERL_MAGIC_overload_table
655#define PERL_MAGIC_overload_table 'c'
658#define PERL_MAGIC_bm 'B'
660#ifndef PERL_MAGIC_regdata
661#define PERL_MAGIC_regdata 'D'
663#ifndef PERL_MAGIC_regdatum
664#define PERL_MAGIC_regdatum 'd'
666#ifndef PERL_MAGIC_env
667#define PERL_MAGIC_env 'E'
669#ifndef PERL_MAGIC_envelem
670#define PERL_MAGIC_envelem 'e'
673#define PERL_MAGIC_fm 'f'
675#ifndef PERL_MAGIC_regex_global
676#define PERL_MAGIC_regex_global 'g'
678#ifndef PERL_MAGIC_isa
679#define PERL_MAGIC_isa 'I'
681#ifndef PERL_MAGIC_isaelem
682#define PERL_MAGIC_isaelem 'i'
684#ifndef PERL_MAGIC_nkeys
685#define PERL_MAGIC_nkeys 'k'
687#ifndef PERL_MAGIC_dbfile
688#define PERL_MAGIC_dbfile 'L'
690#ifndef PERL_MAGIC_dbline
691#define PERL_MAGIC_dbline 'l'
693#ifndef PERL_MAGIC_mutex
694#define PERL_MAGIC_mutex 'm'
696#ifndef PERL_MAGIC_shared
697#define PERL_MAGIC_shared 'N'
699#ifndef PERL_MAGIC_shared_scalar
700#define PERL_MAGIC_shared_scalar 'n'
702#ifndef PERL_MAGIC_collxfrm
703#define PERL_MAGIC_collxfrm 'o'
705#ifndef PERL_MAGIC_tied
706#define PERL_MAGIC_tied 'P'
708#ifndef PERL_MAGIC_tiedelem
709#define PERL_MAGIC_tiedelem 'p'
711#ifndef PERL_MAGIC_tiedscalar
712#define PERL_MAGIC_tiedscalar 'q'
715#define PERL_MAGIC_qr 'r'
717#ifndef PERL_MAGIC_sig
718#define PERL_MAGIC_sig 'S'
720#ifndef PERL_MAGIC_sigelem
721#define PERL_MAGIC_sigelem 's'
723#ifndef PERL_MAGIC_taint
724#define PERL_MAGIC_taint 't'
726#ifndef PERL_MAGIC_uvar
727#define PERL_MAGIC_uvar 'U'
729#ifndef PERL_MAGIC_uvar_elem
730#define PERL_MAGIC_uvar_elem 'u'
732#ifndef PERL_MAGIC_vstring
733#define PERL_MAGIC_vstring 'V'
735#ifndef PERL_MAGIC_vec
736#define PERL_MAGIC_vec 'v'
738#ifndef PERL_MAGIC_utf8
739#define PERL_MAGIC_utf8 'w'
741#ifndef PERL_MAGIC_substr
742#define PERL_MAGIC_substr 'x'
744#ifndef PERL_MAGIC_defelem
745#define PERL_MAGIC_defelem 'y'
747#ifndef PERL_MAGIC_glob
748#define PERL_MAGIC_glob '*'
750#ifndef PERL_MAGIC_arylen
751#define PERL_MAGIC_arylen '#'
753#ifndef PERL_MAGIC_pos
754#define PERL_MAGIC_pos '.'
756#ifndef PERL_MAGIC_backref
757#define PERL_MAGIC_backref '<'
759#ifndef PERL_MAGIC_ext
760#define PERL_MAGIC_ext '~'
762#if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
763#ifndef PERL_STATIC_INLINE
764#define PERL_STATIC_INLINE static inline
767#ifndef PERL_STATIC_INLINE
768#define PERL_STATIC_INLINE static
772#define cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0)
775#define OpHAS_SIBLING(o) (cBOOL((o)->op_sibling))
778#define OpSIBLING(o) (0 + (o)->op_sibling)
781#define OpMORESIB_set(o, sib) ((o)->op_sibling = (sib))
784#define OpLASTSIB_set(o, parent) ((o)->op_sibling = NULL)
786#ifndef OpMAYBESIB_set
787#define OpMAYBESIB_set(o, sib, parent) ((o)->op_sibling = (sib))
792#if defined(DEBUGGING) && !defined(__COVERITY__)
794#define __ASSERT_(statement) assert(statement),
798#define __ASSERT_(statement)
802#define __has_builtin(x) 0
804#if __has_builtin(__builtin_unreachable)
805#define D_PPP_HAS_BUILTIN_UNREACHABLE
806#elif (defined(__GNUC__) && ( __GNUC__ > 4 \
807|| __GNUC__ == 4 && __GNUC_MINOR__ >= 5))
808#define D_PPP_HAS_BUILTIN_UNREACHABLE
812#define ASSUME(x) assert(x)
813#elif defined(_MSC_VER)
814#define ASSUME(x) __assume(x)
815#elif defined(__ARMCC_VERSION)
816#define ASSUME(x) __promise(x)
817#elif defined(D_PPP_HAS_BUILTIN_UNREACHABLE)
818#define ASSUME(x) ((x) ? (void) 0 : __builtin_unreachable())
820#define ASSUME(x) assert(x)
824#ifdef D_PPP_HAS_BUILTIN_UNREACHABLE
827ASSUME(!"UNREACHABLE"); __builtin_unreachable(); \
829#elif ! defined(__GNUC__) && (defined(__sun) || defined(__hpux))
832#define NOT_REACHED ASSUME(!"UNREACHABLE")
838#define WIDEST_UTYPE U64TYPE
840#define WIDEST_UTYPE unsigned Quad_t
843#define WIDEST_UTYPE U32
847#define withinCOUNT(c, l, n) \
848(((WIDEST_UTYPE) (((c)) - ((l) | 0))) <= (((WIDEST_UTYPE) ((n) | 0))))
851#define inRANGE(c, l, u) \
852( (sizeof(c) == sizeof(U8)) ? withinCOUNT(((U8) (c)), (l), ((u) - (l))) \
853: (sizeof(c) == sizeof(U32)) ? withinCOUNT(((U32) (c)), (l), ((u) - (l))) \
854: (withinCOUNT(((WIDEST_UTYPE) (c)), (l), ((u) - (l)))))
857#ifndef FITS_IN_8_BITS
858#define FITS_IN_8_BITS(c) ( (sizeof(c) == 1) \
859|| !(((WIDEST_UTYPE)((c) | 0)) & ~0xFF))
861#define D_PPP_IS_GENERIC_UTF8_SAFE(s, e, macro) \
864: UTF8_IS_INVARIANT((s)[0]) \
865? is ## macro ## _L1((s)[0]) \
866: (((e) - (s)) < UTF8SKIP(s)) \
868: UTF8_IS_DOWNGRADEABLE_START((s)[0]) \
870? is ## macro ## _L1((WIDEST_UTYPE) LATIN1_TO_NATIVE( \
871UTF8_ACCUMULATE(NATIVE_UTF8_TO_I8((s)[0]) \
872& UTF_START_MASK(2), \
874: is ## macro ## _utf8(s))
875#define D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, macro) \
878: UTF8_IS_INVARIANT((s)[0]) \
879? is ## macro ## _LC((s)[0]) \
880: (((e) - (s)) < UTF8SKIP(s)) \
882: UTF8_IS_DOWNGRADEABLE_START((s)[0]) \
884? is ## macro ## _LC((WIDEST_UTYPE) LATIN1_TO_NATIVE( \
885UTF8_ACCUMULATE(NATIVE_UTF8_TO_I8((s)[0]) \
886& UTF_START_MASK(2), \
888: is ## macro ## _utf8(s))
889#define D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, macro) \
892: UTF8_IS_INVARIANT((s)[0]) \
893? is ## macro ## _LC((s)[0]) \
894: (((e) - (s)) < UTF8SKIP(s)) \
896: UTF8_IS_DOWNGRADEABLE_START((s)[0]) \
898? is ## macro ## _LC((WIDEST_UTYPE) LATIN1_TO_NATIVE( \
899UTF8_ACCUMULATE(NATIVE_UTF8_TO_I8((s)[0]) \
900& UTF_START_MASK(2), \
902: is ## macro ## _utf8_safe(s, e))
904#define SvRX(rv) (SvROK((rv)) ? (SvMAGICAL(SvRV((rv))) ? (mg_find(SvRV((rv)), PERL_MAGIC_qr) ? mg_find(SvRV((rv)), PERL_MAGIC_qr)->mg_obj : NULL) : NULL) : NULL)
907#define SvRXOK(sv) (!!SvRX(sv))
909#ifndef PERL_UNUSED_DECL
911#if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
912#define PERL_UNUSED_DECL
914#define PERL_UNUSED_DECL __attribute__((unused))
917#define PERL_UNUSED_DECL
920#ifndef PERL_UNUSED_ARG
921#if defined(lint) && defined(S_SPLINT_S)
923#define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
925#define PERL_UNUSED_ARG(x) ((void)x)
928#ifndef PERL_UNUSED_VAR
929#define PERL_UNUSED_VAR(x) ((void)x)
931#ifndef PERL_UNUSED_CONTEXT
933#define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl)
935#define PERL_UNUSED_CONTEXT
938#ifndef PERL_UNUSED_RESULT
939#if defined(__GNUC__) && defined(HASATTRIBUTE_WARN_UNUSED_RESULT)
940#define PERL_UNUSED_RESULT(v) STMT_START { __typeof__(v) z = (v); (void)sizeof(z); } STMT_END
942#define PERL_UNUSED_RESULT(v) ((void)(v))
948#if (PERL_BCDVERSION < 0x5006001) && (PERL_BCDVERSION < 0x5027007)
951#define dNOOP struct Perl___notused_struct
955#if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
956#define NVTYPE long double
963#if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
965#define INT2PTR(any,d) (any)(d)
967#if PTRSIZE == LONGSIZE
968#define PTRV unsigned long
972#define INT2PTR(any,d) (any)(PTRV)(d)
976#if PTRSIZE == LONGSIZE
977#define PTR2ul(p) (unsigned long)(p)
979#define PTR2ul(p) INT2PTR(unsigned long,p)
983#define PTR2nat(p) (PTRV)(p)
986#define NUM2PTR(any,d) (any)PTR2nat(d)
989#define PTR2IV(p) INT2PTR(IV,p)
992#define PTR2UV(p) INT2PTR(UV,p)
995#define PTR2NV(p) NUM2PTR(NV,p)
1001#define START_EXTERN_C extern "C" {
1002#define END_EXTERN_C }
1003#define EXTERN_C extern "C"
1005#define START_EXTERN_C
1007#define EXTERN_C extern
1009#if (PERL_BCDVERSION < 0x5004000) || defined(PERL_GCC_PEDANTIC)
1010#ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN
1011#ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN
1012#define PERL_GCC_BRACE_GROUPS_FORBIDDEN
1016#if ! defined(__GNUC__) || defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) || defined(__cplusplus)
1017#undef PERL_USE_GCC_BRACE_GROUPS
1019#ifndef PERL_USE_GCC_BRACE_GROUPS
1020#define PERL_USE_GCC_BRACE_GROUPS
1025#if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) || defined(__sun__)) && !defined(__GNUC__)
1026#define STMT_START if (1)
1027#define STMT_END else (void)0
1029#define STMT_START do
1030#define STMT_END while (0)
1033#define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no)
1036#define DEFSV GvSV(PL_defgv)
1039#define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv))
1042#define DEFSV_set(sv) (DEFSV = (sv))
1045#define AvFILLp AvFILL
1048#define av_tindex AvFILL
1051#define av_top_index AvFILL
1054#define av_count(av) (AvFILL(av)+1)
1057#define ERRSV get_sv("@",FALSE)
1060#define gv_stashpvn(str,len,create) gv_stashpv(str,create)
1063#define get_cv perl_get_cv
1066#define get_sv perl_get_sv
1069#define get_av perl_get_av
1072#define get_hv perl_get_hv
1075#define dUNDERBAR dNOOP
1078#define UNDERBAR DEFSV
1081#define dAX I32 ax = MARK - PL_stack_base + 1
1084#define dITEMS I32 items = SP - MARK
1087#define dXSTARG SV * targ = sv_newmortal()
1090#define dAXMARK I32 ax = POPMARK; \
1091SV ** const mark = PL_stack_base + ax++
1094#define XSprePUSH (sp = PL_stack_base + ax - 1)
1096#if (PERL_BCDVERSION < 0x5005000)
1098#define XSRETURN(off) \
1100PL_stack_sp = PL_stack_base + ax + ((off) - 1); \
1105#define XSPROTO(name) void name(pTHX_ CV* cv)
1108#define SVfARG(p) ((void*)(p))
1111#define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
1120#define CPERLscope(x) x
1123#define PERL_HASH(hash,str,len) \
1125const char *s_PeRlHaSh = str; \
1126I32 i_PeRlHaSh = len; \
1127U32 hash_PeRlHaSh = 0; \
1128while (i_PeRlHaSh--) \
1129hash_PeRlHaSh = hash_PeRlHaSh * 33 + *s_PeRlHaSh++; \
1130(hash) = hash_PeRlHaSh; \
1133#ifndef PERLIO_FUNCS_DECL
1134#ifdef PERLIO_FUNCS_CONST
1135#define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs
1136#define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs)
1138#define PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs
1139#define PERLIO_FUNCS_CAST(funcs) (funcs)
1142#if (PERL_BCDVERSION < 0x5009003)
1150#if defined(EBCDIC) && defined(NATIVE_TO_ASCI)
1151#ifndef NATIVE_TO_LATIN1
1152#define NATIVE_TO_LATIN1(c) NATIVE_TO_ASCII(c)
1154#ifndef LATIN1_TO_NATIVE
1155#define LATIN1_TO_NATIVE(c) ASCII_TO_NATIVE(c)
1157#ifndef NATIVE_TO_UNI
1158#define NATIVE_TO_UNI(c) ((c) > 255 ? (c) : NATIVE_TO_LATIN1(c))
1160#ifndef UNI_TO_NATIVE
1161#define UNI_TO_NATIVE(c) ((c) > 255 ? (c) : LATIN1_TO_NATIVE(c))
1164#ifndef NATIVE_TO_LATIN1
1165#define NATIVE_TO_LATIN1(c) (c)
1167#ifndef LATIN1_TO_NATIVE
1168#define LATIN1_TO_NATIVE(c) (c)
1170#ifndef NATIVE_TO_UNI
1171#define NATIVE_TO_UNI(c) (c)
1173#ifndef UNI_TO_NATIVE
1174#define UNI_TO_NATIVE(c) (c)
1181#if (PERL_BCDVERSION < 0x5022000)
1191#undef isALPHANUMERIC
1192#undef isALPHANUMERIC_A
1193#undef isALPHANUMERIC_L1
1241#define isASCII(c) (isCNTRL(c) || isPRINT(c))
1244#define isCNTRL(c) ( (c) == '\0' || (c) == '\a' || (c) == '\b' \
1245|| (c) == '\f' || (c) == '\n' || (c) == '\r' \
1246|| (c) == '\t' || (c) == '\v' \
1247|| ((c) <= 3 && (c) >= 1) \
1249|| ((c) <= 0x13 && (c) >= 0x0E) \
1253|| ((c) <= 0x1F && (c) >= 0x1C) \
1266#define D_PPP_OUTLIER_CONTROL 0x5F
1268#define D_PPP_OUTLIER_CONTROL 0xFF
1271#define isCNTRL_L1(c) ((WIDEST_UTYPE) (c) < ' ' \
1272|| (WIDEST_UTYPE) (c) == D_PPP_OUTLIER_CONTROL)
1275#define isLOWER(c) ( (c) >= 'a' && (c) <= 'z' \
1277|| ((c) >= 'j' && (c) <= 'r') \
1281#define isUPPER(c) ( (c) >= 'A' && (c) <= 'Z' \
1283|| ((c) >= 'J' && (c) <= 'R') \
1287#if (PERL_BCDVERSION < 0x5004000)
1301#if (PERL_BCDVERSION == 0x5007000)
1304#if (PERL_BCDVERSION < 0x5008000)
1307#if (PERL_BCDVERSION < 0x5010000)
1311#if (PERL_BCDVERSION < 0x5014000)
1315#if (PERL_BCDVERSION < 0x5017008)
1318#if (PERL_BCDVERSION < 0x5013007)
1321#if (PERL_BCDVERSION < 0x5020000)
1327#define isASCII(c) ((WIDEST_UTYPE) (c) <= 127)
1330#define isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127)
1333#define isCNTRL_L1(c) ( (WIDEST_UTYPE) (c) < ' ' \
1334|| inRANGE((c), 0x7F, 0x9F))
1337#define isLOWER(c) inRANGE((c), 'a', 'z')
1340#define isUPPER(c) inRANGE((c), 'A', 'Z')
1344#define isASCII_L1(c) isASCII(c)
1347#define isASCII_LC(c) isASCII(c)
1350#define isALNUM(c) isWORDCHAR(c)
1353#define isALNUMC(c) isALPHANUMERIC(c)
1356#define isALNUMC_L1(c) isALPHANUMERIC_L1(c)
1359#define isALPHA(c) (isUPPER(c) || isLOWER(c))
1362#define isALPHA_L1(c) (isUPPER_L1(c) || isLOWER_L1(c))
1364#ifndef isALPHANUMERIC
1365#define isALPHANUMERIC(c) (isALPHA(c) || isDIGIT(c))
1367#ifndef isALPHANUMERIC_L1
1368#define isALPHANUMERIC_L1(c) (isALPHA_L1(c) || isDIGIT(c))
1370#ifndef isALPHANUMERIC_LC
1371#define isALPHANUMERIC_LC(c) (isALPHA_LC(c) || isDIGIT_LC(c))
1374#define isBLANK(c) ((c) == ' ' || (c) == '\t')
1377#define isBLANK_L1(c) ( isBLANK(c) \
1378|| ( FITS_IN_8_BITS(c) \
1379&& NATIVE_TO_LATIN1((U8) c) == 0xA0))
1382#define isBLANK_LC(c) isBLANK(c)
1385#define isDIGIT(c) inRANGE(c, '0', '9')
1388#define isDIGIT_L1(c) isDIGIT(c)
1391#define isGRAPH(c) (isWORDCHAR(c) || isPUNCT(c))
1394#define isGRAPH_L1(c) ( isPRINT_L1(c) \
1396&& NATIVE_TO_LATIN1((U8) c) != 0xA0)
1399#define isIDCONT(c) isWORDCHAR(c)
1402#define isIDCONT_L1(c) isWORDCHAR_L1(c)
1405#define isIDCONT_LC(c) isWORDCHAR_LC(c)
1408#define isIDFIRST(c) (isALPHA(c) || (c) == '_')
1411#define isIDFIRST_L1(c) (isALPHA_L1(c) || (U8) (c) == '_')
1414#define isIDFIRST_LC(c) (isALPHA_LC(c) || (U8) (c) == '_')
1417#define isLOWER_L1(c) ( isLOWER(c) \
1418|| ( FITS_IN_8_BITS(c) \
1419&& ( ( NATIVE_TO_LATIN1((U8) c) >= 0xDF \
1420&& NATIVE_TO_LATIN1((U8) c) != 0xF7) \
1421|| NATIVE_TO_LATIN1((U8) c) == 0xAA \
1422|| NATIVE_TO_LATIN1((U8) c) == 0xBA \
1423|| NATIVE_TO_LATIN1((U8) c) == 0xB5)))
1426#define isOCTAL(c) (((WIDEST_UTYPE)((c)) & ~7) == '0')
1429#define isOCTAL_L1(c) isOCTAL(c)
1432#define isPRINT(c) (isGRAPH(c) || (c) == ' ')
1435#define isPRINT_L1(c) (FITS_IN_8_BITS(c) && ! isCNTRL_L1(c))
1438#define isPSXSPC(c) isSPACE(c)
1441#define isPSXSPC_L1(c) isSPACE_L1(c)
1444#define isPUNCT(c) ( (c) == '-' || (c) == '!' || (c) == '"' \
1445|| (c) == '#' || (c) == '$' || (c) == '%' \
1446|| (c) == '&' || (c) == '\'' || (c) == '(' \
1447|| (c) == ')' || (c) == '*' || (c) == '+' \
1448|| (c) == ',' || (c) == '.' || (c) == '/' \
1449|| (c) == ':' || (c) == ';' || (c) == '<' \
1450|| (c) == '=' || (c) == '>' || (c) == '?' \
1451|| (c) == '@' || (c) == '[' || (c) == '\\' \
1452|| (c) == ']' || (c) == '^' || (c) == '_' \
1453|| (c) == '`' || (c) == '{' || (c) == '|' \
1454|| (c) == '}' || (c) == '~')
1457#define isPUNCT_L1(c) ( isPUNCT(c) \
1458|| ( FITS_IN_8_BITS(c) \
1459&& ( NATIVE_TO_LATIN1((U8) c) == 0xA1 \
1460|| NATIVE_TO_LATIN1((U8) c) == 0xA7 \
1461|| NATIVE_TO_LATIN1((U8) c) == 0xAB \
1462|| NATIVE_TO_LATIN1((U8) c) == 0xB6 \
1463|| NATIVE_TO_LATIN1((U8) c) == 0xB7 \
1464|| NATIVE_TO_LATIN1((U8) c) == 0xBB \
1465|| NATIVE_TO_LATIN1((U8) c) == 0xBF)))
1468#define isSPACE(c) ( isBLANK(c) || (c) == '\n' || (c) == '\r' \
1469|| (c) == '\v' || (c) == '\f')
1472#define isSPACE_L1(c) ( isSPACE(c) \
1473|| (FITS_IN_8_BITS(c) \
1474&& ( NATIVE_TO_LATIN1((U8) c) == 0x85 \
1475|| NATIVE_TO_LATIN1((U8) c) == 0xA0)))
1478#define isUPPER_L1(c) ( isUPPER(c) \
1479|| (FITS_IN_8_BITS(c) \
1480&& ( NATIVE_TO_LATIN1((U8) c) >= 0xC0 \
1481&& NATIVE_TO_LATIN1((U8) c) <= 0xDE \
1482&& NATIVE_TO_LATIN1((U8) c) != 0xD7)))
1485#define isWORDCHAR(c) (isALPHANUMERIC(c) || (c) == '_')
1487#ifndef isWORDCHAR_L1
1488#define isWORDCHAR_L1(c) (isIDFIRST_L1(c) || isDIGIT(c))
1490#ifndef isWORDCHAR_LC
1491#define isWORDCHAR_LC(c) (isIDFIRST_LC(c) || isDIGIT_LC(c))
1494#define isXDIGIT(c) ( isDIGIT(c) \
1495|| inRANGE((c), 'a', 'f') \
1496|| inRANGE((c), 'A', 'F'))
1499#define isXDIGIT_L1(c) isXDIGIT(c)
1502#define isXDIGIT_LC(c) isxdigit(c)
1505#define isALNUM_A(c) isALNUM(c)
1508#define isALNUMC_A(c) isALNUMC(c)
1511#define isALPHA_A(c) isALPHA(c)
1513#ifndef isALPHANUMERIC_A
1514#define isALPHANUMERIC_A(c) isALPHANUMERIC(c)
1517#define isASCII_A(c) isASCII(c)
1520#define isBLANK_A(c) isBLANK(c)
1523#define isCNTRL_A(c) isCNTRL(c)
1526#define isDIGIT_A(c) isDIGIT(c)
1529#define isGRAPH_A(c) isGRAPH(c)
1532#define isIDCONT_A(c) isIDCONT(c)
1535#define isIDFIRST_A(c) isIDFIRST(c)
1538#define isLOWER_A(c) isLOWER(c)
1541#define isOCTAL_A(c) isOCTAL(c)
1544#define isPRINT_A(c) isPRINT(c)
1547#define isPSXSPC_A(c) isPSXSPC(c)
1550#define isPUNCT_A(c) isPUNCT(c)
1553#define isSPACE_A(c) isSPACE(c)
1556#define isUPPER_A(c) isUPPER(c)
1559#define isWORDCHAR_A(c) isWORDCHAR(c)
1562#define isXDIGIT_A(c) isXDIGIT(c)
1564#ifndef isASCII_utf8_safe
1565#define isASCII_utf8_safe(s,e) (((e) - (s)) <= 0 ? 0 : isASCII(*(s)))
1567#ifndef isASCII_uvchr
1568#define isASCII_uvchr(c) (FITS_IN_8_BITS(c) ? isASCII_L1(c) : 0)
1570#if (PERL_BCDVERSION >= 0x5006000)
1572#define D_PPP_is_ctype(upper, lower, c) \
1574? is ## upper ## _L1(c) \
1575: is ## upper ## _uni((UV) (c)))
1577#define D_PPP_is_ctype(upper, lower, c) \
1579? is ## upper ## _L1(c) \
1580: is_uni_ ## lower((UV) (c)))
1582#ifndef isALPHA_uvchr
1583#define isALPHA_uvchr(c) D_PPP_is_ctype(ALPHA, alpha, c)
1585#ifndef isALPHANUMERIC_uvchr
1586#define isALPHANUMERIC_uvchr(c) (isALPHA_uvchr(c) || isDIGIT_uvchr(c))
1589#ifndef isBLANK_uvchr
1590#define isBLANK_uvchr(c) D_PPP_is_ctype(BLANK, blank, c)
1593#ifndef isBLANK_uvchr
1594#define isBLANK_uvchr(c) (FITS_IN_8_BITS(c) \
1596: ( (UV) (c) == 0x1680 \
1597|| inRANGE((UV) (c), 0x2000, 0x200A) \
1598|| (UV) (c) == 0x202F \
1599|| (UV) (c) == 0x205F \
1600|| (UV) (c) == 0x3000))
1603#ifndef isCNTRL_uvchr
1604#define isCNTRL_uvchr(c) D_PPP_is_ctype(CNTRL, cntrl, c)
1606#ifndef isDIGIT_uvchr
1607#define isDIGIT_uvchr(c) D_PPP_is_ctype(DIGIT, digit, c)
1609#ifndef isGRAPH_uvchr
1610#define isGRAPH_uvchr(c) D_PPP_is_ctype(GRAPH, graph, c)
1612#ifndef isIDCONT_uvchr
1613#define isIDCONT_uvchr(c) isWORDCHAR_uvchr(c)
1615#ifndef isIDFIRST_uvchr
1616#define isIDFIRST_uvchr(c) D_PPP_is_ctype(IDFIRST, idfirst, c)
1618#ifndef isLOWER_uvchr
1619#define isLOWER_uvchr(c) D_PPP_is_ctype(LOWER, lower, c)
1621#ifndef isPRINT_uvchr
1622#define isPRINT_uvchr(c) D_PPP_is_ctype(PRINT, print, c)
1624#ifndef isPSXSPC_uvchr
1625#define isPSXSPC_uvchr(c) isSPACE_uvchr(c)
1627#ifndef isPUNCT_uvchr
1628#define isPUNCT_uvchr(c) D_PPP_is_ctype(PUNCT, punct, c)
1630#ifndef isSPACE_uvchr
1631#define isSPACE_uvchr(c) D_PPP_is_ctype(SPACE, space, c)
1633#ifndef isUPPER_uvchr
1634#define isUPPER_uvchr(c) D_PPP_is_ctype(UPPER, upper, c)
1636#ifndef isXDIGIT_uvchr
1637#define isXDIGIT_uvchr(c) D_PPP_is_ctype(XDIGIT, xdigit, c)
1639#ifndef isWORDCHAR_uvchr
1640#define isWORDCHAR_uvchr(c) (FITS_IN_8_BITS(c) \
1641? isWORDCHAR_L1(c) : isALPHANUMERIC_uvchr(c))
1643#ifndef isALPHA_utf8_safe
1644#define isALPHA_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, ALPHA)
1646#ifdef isALPHANUMERIC_utf8
1647#ifndef isALPHANUMERIC_utf8_safe
1648#define isALPHANUMERIC_utf8_safe(s,e) \
1649D_PPP_IS_GENERIC_UTF8_SAFE(s, e, ALPHANUMERIC)
1652#ifndef isALPHANUMERIC_utf8_safe
1653#define isALPHANUMERIC_utf8_safe(s,e) \
1654(isALPHA_utf8_safe(s,e) || isDIGIT_utf8_safe(s,e))
1658#ifndef isBLANK_utf8_safe
1659#define isBLANK_utf8_safe(s,e) \
1660( ( LIKELY((e) > (s)) ) ? \
1661( ( 0x09 == ((const U8*)s)[0] || 0x20 == ((const U8*)s)[0] ) ? 1 \
1662: ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) ? \
1663( ( 0xC2 == ((const U8*)s)[0] ) ? \
1664( ( 0xA0 == ((const U8*)s)[1] ) ? 2 : 0 ) \
1665: ( 0xE1 == ((const U8*)s)[0] ) ? \
1666( ( ( 0x9A == ((const U8*)s)[1] ) && ( 0x80 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1667: ( 0xE2 == ((const U8*)s)[0] ) ? \
1668( ( 0x80 == ((const U8*)s)[1] ) ? \
1669( ( inRANGE(((const U8*)s)[2], 0x80, 0x8A ) || 0xAF == ((const U8*)s)[2] ) ? 3 : 0 )\
1670: ( ( 0x81 == ((const U8*)s)[1] ) && ( 0x9F == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1671: ( ( ( 0xE3 == ((const U8*)s)[0] ) && ( 0x80 == ((const U8*)s)[1] ) ) && ( 0x80 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1675#elif 'A' == 193 && '^' == 95
1676#ifndef isBLANK_utf8_safe
1677#define isBLANK_utf8_safe(s,e) \
1678( ( LIKELY((e) > (s)) ) ? \
1679( ( 0x05 == ((const U8*)s)[0] || 0x40 == ((const U8*)s)[0] ) ? 1 \
1680: ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) ? \
1681( ( 0x80 == ((const U8*)s)[0] ) ? \
1682( ( 0x41 == ((const U8*)s)[1] ) ? 2 : 0 ) \
1683: ( 0xBC == ((const U8*)s)[0] ) ? \
1684( ( ( 0x63 == ((const U8*)s)[1] ) && ( 0x41 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1685: ( 0xCA == ((const U8*)s)[0] ) ? \
1686( ( 0x41 == ((const U8*)s)[1] ) ? \
1687( ( inRANGE(((const U8*)s)[2], 0x41, 0x4A ) || 0x51 == ((const U8*)s)[2] ) ? 3 : 0 )\
1688: ( 0x42 == ((const U8*)s)[1] ) ? \
1689( ( 0x56 == ((const U8*)s)[2] ) ? 3 : 0 ) \
1690: ( ( 0x43 == ((const U8*)s)[1] ) && ( 0x73 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1691: ( ( ( 0xCE == ((const U8*)s)[0] ) && ( 0x41 == ((const U8*)s)[1] ) ) && ( 0x41 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1695#elif 'A' == 193 && '^' == 176
1696#ifndef isBLANK_utf8_safe
1697#define isBLANK_utf8_safe(s,e) \
1698( ( LIKELY((e) > (s)) ) ? \
1699( ( 0x05 == ((const U8*)s)[0] || 0x40 == ((const U8*)s)[0] ) ? 1 \
1700: ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) ? \
1701( ( 0x78 == ((const U8*)s)[0] ) ? \
1702( ( 0x41 == ((const U8*)s)[1] ) ? 2 : 0 ) \
1703: ( 0xBD == ((const U8*)s)[0] ) ? \
1704( ( ( 0x62 == ((const U8*)s)[1] ) && ( 0x41 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1705: ( 0xCA == ((const U8*)s)[0] ) ? \
1706( ( 0x41 == ((const U8*)s)[1] ) ? \
1707( ( inRANGE(((const U8*)s)[2], 0x41, 0x4A ) || 0x51 == ((const U8*)s)[2] ) ? 3 : 0 )\
1708: ( 0x42 == ((const U8*)s)[1] ) ? \
1709( ( 0x56 == ((const U8*)s)[2] ) ? 3 : 0 ) \
1710: ( ( 0x43 == ((const U8*)s)[1] ) && ( 0x72 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1711: ( ( ( 0xCE == ((const U8*)s)[0] ) && ( 0x41 == ((const U8*)s)[1] ) ) && ( 0x41 == ((const U8*)s)[2] ) ) ? 3 : 0 )\
1716#error Unknown character set
1718#ifndef isCNTRL_utf8_safe
1719#define isCNTRL_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, CNTRL)
1721#ifndef isDIGIT_utf8_safe
1722#define isDIGIT_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, DIGIT)
1724#ifndef isGRAPH_utf8_safe
1725#define isGRAPH_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, GRAPH)
1728#ifndef isIDCONT_utf8_safe
1729#define isIDCONT_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, IDCONT)
1732#ifndef isIDCONT_utf8_safe
1733#define isIDCONT_utf8_safe(s,e) isWORDCHAR_utf8_safe(s,e)
1736#ifndef isIDFIRST_utf8_safe
1737#define isIDFIRST_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, IDFIRST)
1739#ifndef isLOWER_utf8_safe
1740#define isLOWER_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, LOWER)
1742#ifndef isPRINT_utf8_safe
1743#define isPRINT_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, PRINT)
1745#undef isPSXSPC_utf8_safe
1746#ifndef isPSXSPC_utf8_safe
1747#define isPSXSPC_utf8_safe(s,e) isSPACE_utf8_safe(s,e)
1749#ifndef isPUNCT_utf8_safe
1750#define isPUNCT_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, PUNCT)
1752#ifndef isSPACE_utf8_safe
1753#define isSPACE_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, SPACE)
1755#ifndef isUPPER_utf8_safe
1756#define isUPPER_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, UPPER)
1758#ifdef isWORDCHAR_utf8
1759#ifndef isWORDCHAR_utf8_safe
1760#define isWORDCHAR_utf8_safe(s,e) D_PPP_IS_GENERIC_UTF8_SAFE(s, e, WORDCHAR)
1763#ifndef isWORDCHAR_utf8_safe
1764#define isWORDCHAR_utf8_safe(s,e) \
1765(isALPHANUMERIC_utf8_safe(s,e) || (*(s)) == '_')
1769#ifndef isXDIGIT_utf8_safe
1770#define isXDIGIT_utf8_safe(s,e) \
1771( ( LIKELY((e) > (s)) ) ? \
1772( ( inRANGE(((const U8*)s)[0], 0x30, 0x39 ) || inRANGE(((const U8*)s)[0], 0x41, 0x46 ) || inRANGE(((const U8*)s)[0], 0x61, 0x66 ) ) ? 1\
1773: ( ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) && ( 0xEF == ((const U8*)s)[0] ) ) ? ( ( 0xBC == ((const U8*)s)[1] ) ?\
1774( ( inRANGE(((const U8*)s)[2], 0x90, 0x99 ) || inRANGE(((const U8*)s)[2], 0xA1, 0xA6 ) ) ? 3 : 0 )\
1775: ( ( 0xBD == ((const U8*)s)[1] ) && ( inRANGE(((const U8*)s)[2], 0x81, 0x86 ) ) ) ? 3 : 0 ) : 0 )\
1778#elif 'A' == 193 && '^' == 95
1779#ifndef isXDIGIT_utf8_safe
1780#define isXDIGIT_utf8_safe(s,e) \
1781( ( LIKELY((e) > (s)) ) ? \
1782( ( inRANGE(((const U8*)s)[0], 0x81, 0x86 ) || inRANGE(((const U8*)s)[0], 0xC1, 0xC6 ) || inRANGE(((const U8*)s)[0], 0xF0, 0xF9 ) ) ? 1\
1783: ( ( ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) && ( 0xDD == ((const U8*)s)[0] ) ) && ( 0x73 == ((const U8*)s)[1] ) ) ? ( ( 0x67 == ((const U8*)s)[2] ) ?\
1784( ( inRANGE(((const U8*)s)[3], 0x57, 0x59 ) || inRANGE(((const U8*)s)[3], 0x62, 0x68 ) ) ? 4 : 0 )\
1785: ( ( inRANGE(((const U8*)s)[2], 0x68, 0x69 ) ) && ( inRANGE(((const U8*)s)[3], 0x42, 0x47 ) ) ) ? 4 : 0 ) : 0 )\
1788#elif 'A' == 193 && '^' == 176
1789#ifndef isXDIGIT_utf8_safe
1790#define isXDIGIT_utf8_safe(s,e) \
1791( ( LIKELY((e) > (s)) ) ? \
1792( ( inRANGE(((const U8*)s)[0], 0x81, 0x86 ) || inRANGE(((const U8*)s)[0], 0xC1, 0xC6 ) || inRANGE(((const U8*)s)[0], 0xF0, 0xF9 ) ) ? 1\
1793: ( ( ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) && ( 0xDD == ((const U8*)s)[0] ) ) && ( 0x72 == ((const U8*)s)[1] ) ) ? ( ( 0x66 == ((const U8*)s)[2] ) ?\
1794( ( inRANGE(((const U8*)s)[3], 0x57, 0x59 ) || 0x5F == ((const U8*)s)[3] || inRANGE(((const U8*)s)[3], 0x62, 0x67 ) ) ? 4 : 0 )\
1795: ( ( inRANGE(((const U8*)s)[2], 0x67, 0x68 ) ) && ( inRANGE(((const U8*)s)[3], 0x42, 0x47 ) ) ) ? 4 : 0 ) : 0 )\
1799#error Unknown character set
1801#ifndef isALPHA_LC_utf8_safe
1802#define isALPHA_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, ALPHA)
1804#ifdef isALPHANUMERIC_utf8
1805#ifndef isALPHANUMERIC_LC_utf8_safe
1806#define isALPHANUMERIC_LC_utf8_safe(s,e) \
1807D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, ALPHANUMERIC)
1810#ifndef isALPHANUMERIC_LC_utf8_safe
1811#define isALPHANUMERIC_LC_utf8_safe(s,e) \
1812(isALPHA_LC_utf8_safe(s,e) || isDIGIT_LC_utf8_safe(s,e))
1815#ifndef isBLANK_LC_utf8_safe
1816#define isBLANK_LC_utf8_safe(s,e) \
1817D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, BLANK)
1819#ifndef isCNTRL_LC_utf8_safe
1820#define isCNTRL_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, CNTRL)
1822#ifndef isDIGIT_LC_utf8_safe
1823#define isDIGIT_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, DIGIT)
1825#ifndef isGRAPH_LC_utf8_safe
1826#define isGRAPH_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, GRAPH)
1829#ifndef isIDCONT_LC_utf8_safe
1830#define isIDCONT_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, IDCONT)
1833#ifndef isIDCONT_LC_utf8_safe
1834#define isIDCONT_LC_utf8_safe(s,e) isWORDCHAR_LC_utf8_safe(s,e)
1837#ifndef isIDFIRST_LC_utf8_safe
1838#define isIDFIRST_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, IDFIRST)
1840#ifndef isLOWER_LC_utf8_safe
1841#define isLOWER_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, LOWER)
1843#ifndef isPRINT_LC_utf8_safe
1844#define isPRINT_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, PRINT)
1846#undef isPSXSPC_LC_utf8_safe
1847#ifndef isPSXSPC_LC_utf8_safe
1848#define isPSXSPC_LC_utf8_safe(s,e) isSPACE_LC_utf8_safe(s,e)
1850#ifndef isPUNCT_LC_utf8_safe
1851#define isPUNCT_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, PUNCT)
1853#ifndef isSPACE_LC_utf8_safe
1854#define isSPACE_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, SPACE)
1856#ifndef isUPPER_LC_utf8_safe
1857#define isUPPER_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, UPPER)
1859#ifdef isWORDCHAR_utf8
1860#ifndef isWORDCHAR_LC_utf8_safe
1861#define isWORDCHAR_LC_utf8_safe(s,e) D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, WORDCHAR)
1864#ifndef isWORDCHAR_LC_utf8_safe
1865#define isWORDCHAR_LC_utf8_safe(s,e) \
1866(isALPHANUMERIC_LC_utf8_safe(s,e) || (*(s)) == '_')
1869#ifndef isXDIGIT_LC_utf8_safe
1870#define isXDIGIT_LC_utf8_safe(s,e) \
1871D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, XDIGIT)
1874#define D_PPP_TOO_SHORT_MSG "Malformed UTF-8 character starting with:" \
1875" \\x%02x (too short; %d bytes available, need" \
1877#if (PERL_BCDVERSION >= 0x5007003)
1878#ifndef toLOWER_uvchr
1879#define toLOWER_uvchr(c, s, l) UNI_TO_NATIVE(to_uni_lower(NATIVE_TO_UNI(c), s, l))
1881#ifndef toUPPER_uvchr
1882#define toUPPER_uvchr(c, s, l) UNI_TO_NATIVE(to_uni_upper(NATIVE_TO_UNI(c), s, l))
1884#ifndef toTITLE_uvchr
1885#define toTITLE_uvchr(c, s, l) UNI_TO_NATIVE(to_uni_title(NATIVE_TO_UNI(c), s, l))
1888#define toFOLD_uvchr(c, s, l) UNI_TO_NATIVE(to_uni_fold( NATIVE_TO_UNI(c), s, l))
1890#if (PERL_BCDVERSION != 0x5015006)
1891#if defined toLOWER_utf8
1892#define D_PPP_TO_LOWER_CALLEE(s,r,l) toLOWER_utf8(s,r,l)
1894#define D_PPP_TO_LOWER_CALLEE(s,r,l) to_utf8_lower(s,r,l)
1896#if defined toTITLE_utf8
1897#define D_PPP_TO_TITLE_CALLEE(s,r,l) toTITLE_utf8(s,r,l)
1899#define D_PPP_TO_TITLE_CALLEE(s,r,l) to_utf8_title(s,r,l)
1901#if defined toUPPER_utf8
1902#define D_PPP_TO_UPPER_CALLEE(s,r,l) toUPPER_utf8(s,r,l)
1904#define D_PPP_TO_UPPER_CALLEE(s,r,l) to_utf8_upper(s,r,l)
1906#if defined toFOLD_utf8
1907#define D_PPP_TO_FOLD_CALLEE(s,r,l) toFOLD_utf8(s,r,l)
1909#define D_PPP_TO_FOLD_CALLEE(s,r,l) to_utf8_fold(s,r,l)
1912#define D_PPP_TO_LOWER_CALLEE(s,r,l) \
1913Perl__to_utf8_lower_flags(aTHX_ s, r, l, 0, NULL)
1914#define D_PPP_TO_TITLE_CALLEE(s,r,l) \
1915Perl__to_utf8_title_flags(aTHX_ s, r, l, 0, NULL)
1916#define D_PPP_TO_UPPER_CALLEE(s,r,l) \
1917Perl__to_utf8_upper_flags(aTHX_ s, r, l, 0, NULL)
1918#define D_PPP_TO_FOLD_CALLEE(s,r,l) \
1919Perl__to_utf8_fold_flags(aTHX_ s, r, l, FOLD_FLAGS_FULL, NULL)
1921#define D_PPP_GENERIC_MULTI_ARG_TO(name, s, e,r,l) \
1922(((((e) - (s)) <= 0) \
1924? (croak("Attempting case change on zero length string"), \
1926: ((e) - (s)) < UTF8SKIP(s)) \
1927? (croak(D_PPP_TOO_SHORT_MSG, \
1928s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
1930: D_PPP_TO_ ## name ## _CALLEE(s,r,l))
1931#ifndef toUPPER_utf8_safe
1932#define toUPPER_utf8_safe(s,e,r,l) \
1933D_PPP_GENERIC_MULTI_ARG_TO(UPPER,s,e,r,l)
1935#ifndef toLOWER_utf8_safe
1936#define toLOWER_utf8_safe(s,e,r,l) \
1937D_PPP_GENERIC_MULTI_ARG_TO(LOWER,s,e,r,l)
1939#ifndef toTITLE_utf8_safe
1940#define toTITLE_utf8_safe(s,e,r,l) \
1941D_PPP_GENERIC_MULTI_ARG_TO(TITLE,s,e,r,l)
1943#ifndef toFOLD_utf8_safe
1944#define toFOLD_utf8_safe(s,e,r,l) \
1945D_PPP_GENERIC_MULTI_ARG_TO(FOLD,s,e,r,l)
1947#elif (PERL_BCDVERSION >= 0x5006000)
1949#define D_PPP_UV_TO_UTF8 uvchr_to_utf8
1951#define D_PPP_UV_TO_UTF8 uv_to_utf8
1953#define D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(name, c, s, l) \
1954(*(l) = (D_PPP_UV_TO_UTF8(s, \
1955UNI_TO_NATIVE(to_uni_ ## name(NATIVE_TO_UNI(c)))) - (s)), \
1956UNI_TO_NATIVE(to_uni_ ## name(NATIVE_TO_UNI(c))))
1957#ifndef toLOWER_uvchr
1958#define toLOWER_uvchr(c, s, l) \
1959D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(lower, c, s, l)
1961#ifndef toUPPER_uvchr
1962#define toUPPER_uvchr(c, s, l) \
1963D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(upper, c, s, l)
1965#ifndef toTITLE_uvchr
1966#define toTITLE_uvchr(c, s, l) \
1967D_PPP_GENERIC_SINGLE_ARG_TO_UVCHR(title, c, s, l)
1970#define toFOLD_uvchr(c, s, l) toLOWER_uvchr(c, s, l)
1972#define D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(name, s, e, r, l) \
1973(((((e) - (s)) <= 0) \
1974? (croak("Attempting case change on zero length string"), \
1976: ((e) - (s)) < UTF8SKIP(s)) \
1977? (croak(D_PPP_TOO_SHORT_MSG, \
1978s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
1981: D_PPP_UV_TO_UTF8(r, to_utf8_ ## name(s)), \
1983*(l) = UTF8SKIP(r), to_utf8_ ## name(r))
1984#ifndef toUPPER_utf8_safe
1985#define toUPPER_utf8_safe(s,e,r,l) \
1986D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(upper, s, e, r, l)
1988#ifndef toLOWER_utf8_safe
1989#define toLOWER_utf8_safe(s,e,r,l) \
1990D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(lower, s, e, r, l)
1992#ifndef toTITLE_utf8_safe
1993#define toTITLE_utf8_safe(s,e,r,l) \
1994D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(title, s, e, r, l)
1996#ifndef toFOLD_utf8_safe
1997#define toFOLD_utf8_safe(s,e,r,l) toLOWER_utf8_safe(s,e,r,l)
2000#if (PERL_BCDVERSION >= 0x5008000)
2002#define HeUTF8(he) ((HeKLEN(he) == HEf_SVKEY) ? \
2003SvUTF8(HeKEY_sv(he)) : \
2007#ifndef C_ARRAY_LENGTH
2008#define C_ARRAY_LENGTH(a) (sizeof(a)/sizeof((a)[0]))
2011#define C_ARRAY_END(a) ((a) + C_ARRAY_LENGTH(a))
2014#define LIKELY(x) (x)
2017#define UNLIKELY(x) (x)
2020#if defined(PERL_USE_GCC_BRACE_GROUPS)
2021#define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
2023#define MUTABLE_PTR(p) ((void *) (p))
2027#define MUTABLE_AV(p) ((AV *)MUTABLE_PTR(p))
2030#define MUTABLE_CV(p) ((CV *)MUTABLE_PTR(p))
2033#define MUTABLE_GV(p) ((GV *)MUTABLE_PTR(p))
2036#define MUTABLE_HV(p) ((HV *)MUTABLE_PTR(p))
2039#define MUTABLE_IO(p) ((IO *)MUTABLE_PTR(p))
2042#define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p))
2044#if (PERL_BCDVERSION >= 0x5004000) && !defined(vnewSVpvf)
2045#if defined(PERL_USE_GCC_BRACE_GROUPS)
2046#define vnewSVpvf(pat, args) ({ SV *_sv = newSV(0); sv_vsetpvfn(_sv, (pat), strlen((pat)), (args), Null(SV**), 0, Null(bool*)); _sv; })
2048#define vnewSVpvf(pat, args) ((PL_Sv = newSV(0)), sv_vsetpvfn(PL_Sv, (pat), strlen((pat)), (args), Null(SV**), 0, Null(bool*)), PL_Sv)
2051#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf)
2052#define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
2054#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf)
2055#define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
2057#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg)
2058#if defined(NEED_sv_catpvf_mg)
2059static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...);
2062extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...);
2064#if defined(NEED_sv_catpvf_mg) || defined(NEED_sv_catpvf_mg_GLOBAL)
2065#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)
2067DPPP_(my_sv_catpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...)
2071sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
2077#ifdef PERL_IMPLICIT_CONTEXT
2078#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg_nocontext)
2079#if defined(NEED_sv_catpvf_mg_nocontext)
2080static void DPPP_(my_sv_catpvf_mg_nocontext)(SV * const sv, const char * const pat, ...);
2083extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV * const sv, const char * const pat, ...);
2085#if defined(NEED_sv_catpvf_mg_nocontext) || defined(NEED_sv_catpvf_mg_nocontext_GLOBAL)
2086#define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
2087#define Perl_sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
2089DPPP_(my_sv_catpvf_mg_nocontext)(SV * const sv, const char * const pat, ...)
2094sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
2102#ifdef PERL_IMPLICIT_CONTEXT
2103#define sv_catpvf_mg Perl_sv_catpvf_mg_nocontext
2105#define sv_catpvf_mg Perl_sv_catpvf_mg
2108#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf_mg)
2109#define sv_vcatpvf_mg(sv, pat, args) \
2111sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \
2115#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg)
2116#if defined(NEED_sv_setpvf_mg)
2117static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...);
2120extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...);
2122#if defined(NEED_sv_setpvf_mg) || defined(NEED_sv_setpvf_mg_GLOBAL)
2123#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)
2125DPPP_(my_sv_setpvf_mg)(pTHX_ SV * const sv, const char * const pat, ...)
2129sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
2135#ifdef PERL_IMPLICIT_CONTEXT
2136#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg_nocontext)
2137#if defined(NEED_sv_setpvf_mg_nocontext)
2138static void DPPP_(my_sv_setpvf_mg_nocontext)(SV * const sv, const char * const pat, ...);
2141extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV * const sv, const char * const pat, ...);
2143#if defined(NEED_sv_setpvf_mg_nocontext) || defined(NEED_sv_setpvf_mg_nocontext_GLOBAL)
2144#define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
2145#define Perl_sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
2147DPPP_(my_sv_setpvf_mg_nocontext)(SV * const sv, const char * const pat, ...)
2152sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
2160#ifdef PERL_IMPLICIT_CONTEXT
2161#define sv_setpvf_mg Perl_sv_setpvf_mg_nocontext
2163#define sv_setpvf_mg Perl_sv_setpvf_mg
2166#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf_mg)
2167#define sv_vsetpvf_mg(sv, pat, args) \
2169sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); \
2174#define sv_2pv_nolen(sv) SvPV_nolen(sv)
2177#if (PERL_BCDVERSION < 0x5007000)
2179#define sv_2pvbyte(sv, lp) (sv_utf8_downgrade((sv), 0), SvPV((sv), *(lp)))
2182#define SvPVbyte(sv, lp) \
2183((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \
2184? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp))
2187#define SvPVbyte SvPV
2188#define sv_2pvbyte sv_2pv
2190#ifndef sv_2pvbyte_nolen
2191#define sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv)
2193#ifndef SV_IMMEDIATE_UNREF
2194#define SV_IMMEDIATE_UNREF 0
2199#ifndef SV_COW_DROP_PV
2200#define SV_COW_DROP_PV 0
2202#ifndef SV_UTF8_NO_ENCODING
2203#define SV_UTF8_NO_ENCODING 0
2205#ifndef SV_CONST_RETURN
2206#define SV_CONST_RETURN 0
2208#ifndef SV_MUTABLE_RETURN
2209#define SV_MUTABLE_RETURN 0
2214#ifndef SV_HAS_TRAILING_NUL
2215#define SV_HAS_TRAILING_NUL 0
2217#ifndef SV_COW_SHARED_HASH_KEYS
2218#define SV_COW_SHARED_HASH_KEYS 0
2220#if defined(PERL_USE_GCC_BRACE_GROUPS)
2222#define sv_2pv_flags(sv, lp, flags) ({ SV *_sv = (sv); const I32 _flags = (flags); STRLEN *_lp = lp; _lp = _lp ? : &PL_na; (!(_flags & SV_GMAGIC) && SvGMAGICAL(_sv)) ? ({ char *_pv; SvGMAGICAL_off(_sv); _pv = sv_2pv(_sv, _lp); SvGMAGICAL_on(_sv); _pv; }) : sv_2pv(_sv, _lp); })
2224#ifndef sv_pvn_force_flags
2225#define sv_pvn_force_flags(sv, lp, flags) ({ SV *_sv = (sv); const I32 _flags = (flags); STRLEN *_lp = lp; _lp = _lp ? : &PL_na; (!(_flags & SV_GMAGIC) && SvGMAGICAL(_sv)) ? ({ char *_pv; SvGMAGICAL_off(_sv); _pv = sv_pvn_force(_sv, _lp); SvGMAGICAL_on(_sv); _pv; }) : sv_pvn_force(_sv, _lp); })
2229#define sv_2pv_flags(sv, lp, flags) ((PL_Sv = (sv)), (!((flags) & SV_GMAGIC) && SvGMAGICAL(PL_Sv)) ? (SvGMAGICAL_off(PL_Sv), (PL_Xpv = (XPV *)sv_2pv(PL_Sv, (lp) ? (lp) : &PL_na)), SvGMAGICAL_on(PL_Sv), (char *)PL_Xpv) : sv_2pv(PL_Sv, (lp) ? (lp) : &PL_na))
2231#ifndef sv_pvn_force_flags
2232#define sv_pvn_force_flags(sv, lp, flags) ((PL_Sv = (sv)), (!((flags) & SV_GMAGIC) && SvGMAGICAL(PL_Sv)) ? (SvGMAGICAL_off(PL_Sv), (PL_Xpv = (XPV *)sv_pvn_force(PL_Sv, (lp) ? (lp) : &PL_na)), SvGMAGICAL_on(PL_Sv), (char *)PL_Xpv) : sv_pvn_force(PL_Sv, (lp) ? (lp) : &PL_na))
2235#if (PERL_BCDVERSION < 0x5008008) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5009003) )
2236#define D_PPP_SVPV_NOLEN_LP_ARG &PL_na
2238#define D_PPP_SVPV_NOLEN_LP_ARG 0
2241#define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC)
2244#define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC)
2247#define SvPV_flags(sv, lp, flags) \
2248((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
2249? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags))
2251#ifndef SvPV_flags_const
2252#define SvPV_flags_const(sv, lp, flags) \
2253((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
2254? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
2255(const char*) sv_2pv_flags(sv, &lp, flags|SV_CONST_RETURN))
2257#ifndef SvPV_flags_const_nolen
2258#define SvPV_flags_const_nolen(sv, flags) \
2259((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
2260? SvPVX_const(sv) : \
2261(const char*) sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, flags|SV_CONST_RETURN))
2263#ifndef SvPV_flags_mutable
2264#define SvPV_flags_mutable(sv, lp, flags) \
2265((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
2266? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
2267sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
2270#define SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC)
2272#ifndef SvPV_force_nolen
2273#define SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv, SV_GMAGIC)
2275#ifndef SvPV_force_mutable
2276#define SvPV_force_mutable(sv, lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC)
2278#ifndef SvPV_force_nomg
2279#define SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp, 0)
2281#ifndef SvPV_force_nomg_nolen
2282#define SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0)
2284#ifndef SvPV_force_flags
2285#define SvPV_force_flags(sv, lp, flags) \
2286((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
2287? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, flags))
2289#ifndef SvPV_force_flags_nolen
2290#define SvPV_force_flags_nolen(sv, flags) \
2291((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
2292? SvPVX(sv) : sv_pvn_force_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, flags))
2294#ifndef SvPV_force_flags_mutable
2295#define SvPV_force_flags_mutable(sv, lp, flags) \
2296((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
2297? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
2298: sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
2301#define SvPV_nolen(sv) \
2302((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
2303? SvPVX(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC))
2305#ifndef SvPV_nolen_const
2306#define SvPV_nolen_const(sv) \
2307((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
2308? SvPVX_const(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC|SV_CONST_RETURN))
2310#if defined(PERL_USE_GCC_BRACE_GROUPS)
2311#ifndef SvPVx_nolen_const
2312#define SvPVx_nolen_const(sv) ({SV *sV_ = (sv); SvPV_nolen_const(sV_); })
2315#ifndef SvPVx_nolen_const
2316#define SvPVx_nolen_const(sv) (PL_Sv = sv, SvPV_nolen_const(PL_Sv))
2320#define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
2322#ifndef SvPV_nomg_const
2323#define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0)
2325#ifndef SvPV_nomg_const_nolen
2326#define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0)
2328#ifndef SvPV_nomg_nolen
2329#define SvPV_nomg_nolen(sv) ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
2330? SvPVX(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, 0))
2333#define SvPV_renew(sv,n) STMT_START { SvLEN_set(sv, n); \
2334SvPV_set((sv), (char *) saferealloc( \
2335(Malloc_t)SvPVX(sv), (MEM_SIZE)((n)))); \
2339#define SvPVCLEAR(sv) sv_setpvs((sv), "")
2345#define WARN_CLOSURE 1
2347#ifndef WARN_DEPRECATED
2348#define WARN_DEPRECATED 2
2351#define WARN_EXITING 3
2360#define WARN_CLOSED 6
2369#define WARN_NEWLINE 9
2374#ifndef WARN_UNOPENED
2375#define WARN_UNOPENED 11
2381#define WARN_NUMERIC 13
2386#ifndef WARN_OVERFLOW
2387#define WARN_OVERFLOW 15
2392#ifndef WARN_PORTABLE
2393#define WARN_PORTABLE 17
2395#ifndef WARN_RECURSION
2396#define WARN_RECURSION 18
2398#ifndef WARN_REDEFINE
2399#define WARN_REDEFINE 19
2402#define WARN_REGEXP 20
2405#define WARN_SEVERE 21
2407#ifndef WARN_DEBUGGING
2408#define WARN_DEBUGGING 22
2411#define WARN_INPLACE 23
2413#ifndef WARN_INTERNAL
2414#define WARN_INTERNAL 24
2417#define WARN_MALLOC 25
2420#define WARN_SIGNAL 26
2423#define WARN_SUBSTR 27
2426#define WARN_SYNTAX 28
2428#ifndef WARN_AMBIGUOUS
2429#define WARN_AMBIGUOUS 29
2431#ifndef WARN_BAREWORD
2432#define WARN_BAREWORD 30
2435#define WARN_DIGIT 31
2437#ifndef WARN_PARENTHESIS
2438#define WARN_PARENTHESIS 32
2440#ifndef WARN_PRECEDENCE
2441#define WARN_PRECEDENCE 33
2444#define WARN_PRINTF 34
2446#ifndef WARN_PROTOTYPE
2447#define WARN_PROTOTYPE 35
2452#ifndef WARN_RESERVED
2453#define WARN_RESERVED 37
2455#ifndef WARN_SEMICOLON
2456#define WARN_SEMICOLON 38
2459#define WARN_TAINT 39
2462#define WARN_THREADS 40
2464#ifndef WARN_UNINITIALIZED
2465#define WARN_UNINITIALIZED 41
2468#define WARN_UNPACK 42
2471#define WARN_UNTIE 43
2479#ifndef WARN_ASSERTIONS
2480#define WARN_ASSERTIONS 46
2483#define packWARN(a) (a)
2486#define packWARN2(a,b) (packWARN(a) << 8 | (b))
2489#define packWARN3(a,b,c) (packWARN2(a,b) << 8 | (c))
2492#define packWARN4(a,b,c,d) (packWARN3(a,b,c) << 8 | (d))
2496#define ckWARN(a) (PL_dowarn & G_WARN_ON)
2498#define ckWARN(a) PL_dowarn
2502#define ckWARN2(a,b) (ckWARN(a) || ckWARN(b))
2505#define ckWARN3(a,b,c) (ckWARN(c) || ckWARN2(a,b))
2508#define ckWARN4(a,b,c,d) (ckWARN(d) || ckWARN3(a,b,c))
2512#define ckWARN_d(a) (isLEXWARN_off || ckWARN(a))
2514#define ckWARN_d(a) 1
2518#define ckWARN2_d(a,b) (ckWARN_d(a) || ckWARN_d(b))
2521#define ckWARN3_d(a,b,c) (ckWARN_d(c) || ckWARN2_d(a,b))
2524#define ckWARN4_d(a,b,c,d) (ckWARN_d(d) || ckWARN3_d(a,b,c))
2527#define vwarner(err, pat, argsp) \
2528STMT_START { SV *sv; \
2529PERL_UNUSED_ARG(err); \
2530sv = vnewSVpvf(pat, argsp); \
2532warn("%s", SvPV_nolen(sv)); \
2535#if (PERL_BCDVERSION >= 0x5004000) && !defined(warner)
2536#if defined(NEED_warner)
2537static void DPPP_(my_warner)(U32 err, const char * pat, ...);
2540extern void DPPP_(my_warner)(U32 err, const char * pat, ...);
2542#if defined(NEED_warner) || defined(NEED_warner_GLOBAL)
2543#define Perl_warner DPPP_(my_warner)
2545DPPP_(my_warner)(U32 err, const char *pat, ...)
2549vwarner(err, pat, &args);
2552#define warner Perl_warner
2553#define Perl_warner_nocontext Perl_warner
2556#if (PERL_BCDVERSION >= 0x5004000) && !defined(ck_warner)
2557#if defined(NEED_ck_warner)
2558static void DPPP_(my_ck_warner)(pTHX_ U32 err, const char * pat, ...);
2561extern void DPPP_(my_ck_warner)(pTHX_ U32 err, const char * pat, ...);
2563#if defined(NEED_ck_warner) || defined(NEED_ck_warner_GLOBAL)
2564#define Perl_ck_warner DPPP_(my_ck_warner)
2566DPPP_(my_ck_warner)(pTHX_ U32 err, const char *pat, ...)
2569if ( ! ckWARN((err ) & 0xFF)
2570&& ! ckWARN((err >> 8) & 0xFF)
2571&& ! ckWARN((err >> 16) & 0xFF)
2572&& ! ckWARN((err >> 24) & 0xFF))
2577vwarner(err, pat, &args);
2580#define ck_warner Perl_ck_warner
2583#if (PERL_BCDVERSION >= 0x5004000) && !defined(ck_warner_d)
2584#if defined(NEED_ck_warner_d)
2585static void DPPP_(my_ck_warner_d)(pTHX_ U32 err, const char * pat, ...);
2588extern void DPPP_(my_ck_warner_d)(pTHX_ U32 err, const char * pat, ...);
2590#if defined(NEED_ck_warner_d) || defined(NEED_ck_warner_d_GLOBAL)
2591#define Perl_ck_warner_d DPPP_(my_ck_warner_d)
2593DPPP_(my_ck_warner_d)(pTHX_ U32 err, const char *pat, ...)
2596if ( ! ckWARN_d((err ) & 0xFF)
2597&& ! ckWARN_d((err >> 8) & 0xFF)
2598&& ! ckWARN_d((err >> 16) & 0xFF)
2599&& ! ckWARN_d((err >> 24) & 0xFF))
2604vwarner(err, pat, &args);
2607#define ck_warner_d Perl_ck_warner_d
2611#if IVSIZE == LONGSIZE
2617#elif IVSIZE == INTSIZE
2624#error "cannot define IV/UV formats"
2628#if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
2629defined(PERL_PRIfldbl) && (PERL_BCDVERSION != 0x5006000)
2630#define NVef PERL_PRIeldbl
2631#define NVff PERL_PRIfldbl
2632#define NVgf PERL_PRIgldbl
2640#define sv_setuv(sv, uv) \
2643if (TeMpUv <= IV_MAX) \
2644sv_setiv(sv, TeMpUv); \
2646sv_setnv(sv, (double)TeMpUv); \
2650#define newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv))
2652#if defined(PERL_USE_GCC_BRACE_GROUPS)
2654#define sv_2uv(sv) ({ SV *_sv = (sv); (UV) (SvNOK(_sv) ? SvNV(_sv) : sv_2nv(_sv)); })
2658#define sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv)))
2662#define SvUVX(sv) ((UV)SvIVX(sv))
2665#define SvUVXx(sv) SvUVX(sv)
2668#define SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv))
2670#if defined(PERL_USE_GCC_BRACE_GROUPS)
2672#define SvUVx(sv) ({ SV *_sv = (sv)); SvUV(_sv); })
2676#define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv))
2680#define sv_uv(sv) SvUVx(sv)
2682#if !defined(SvUOK) && defined(SvIOK_UV)
2683#define SvUOK(sv) SvIOK_UV(sv)
2686#define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) )
2689#define XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1); } STMT_END
2692#define PUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); PUSHTARG; } STMT_END
2695#define XPUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END
2697#if !defined(my_strnlen)
2698#if defined(NEED_my_strnlen)
2699static Size_t DPPP_(my_my_strnlen)(const char * str, Size_t maxlen);
2702extern Size_t DPPP_(my_my_strnlen)(const char * str, Size_t maxlen);
2704#if defined(NEED_my_strnlen) || defined(NEED_my_strnlen_GLOBAL)
2705#define my_strnlen DPPP_(my_my_strnlen)
2706#define Perl_my_strnlen DPPP_(my_my_strnlen)
2708DPPP_(my_my_strnlen)(const char *str, Size_t maxlen)
2711while(maxlen-- && *p)
2719#define memNE(s1,s2,l) (memcmp(s1,s2,l))
2722#define memEQ(s1,s2,l) (!memcmp(s1,s2,l))
2726#define memNE(s1,s2,l) (bcmp(s1,s2,l))
2729#define memEQ(s1,s2,l) (!bcmp(s1,s2,l))
2733#define memEQs(s1, l, s2) \
2734(sizeof(s2)-1 == l && memEQ(s1, (s2 ""), (sizeof(s2)-1)))
2737#define memNEs(s1, l, s2) !memEQs(s1, l, s2)
2740#define memCHRs(s, c) ((const char *) memchr("" s "" , c, sizeof(s)-1))
2743#define MoveD(s,d,n,t) memmove((char*)(d),(char*)(s), (n) * sizeof(t))
2746#define CopyD(s,d,n,t) memcpy((char*)(d),(char*)(s), (n) * sizeof(t))
2750#define ZeroD(d,n,t) memzero((char*)(d), (n) * sizeof(t))
2754#define ZeroD(d,n,t) ((void)memzero((char*)(d), (n) * sizeof(t)), d)
2758#define PoisonWith(d,n,t,b) (void)memset((char*)(d), (U8)(b), (n) * sizeof(t))
2761#define PoisonNew(d,n,t) PoisonWith(d,n,t,0xAB)
2764#define PoisonFree(d,n,t) PoisonWith(d,n,t,0xEF)
2767#define Poison(d,n,t) PoisonFree(d,n,t)
2770#define Newx(v,n,t) New(0,v,n,t)
2773#define Newxc(v,n,t,c) Newc(0,v,n,t,c)
2776#define Newxz(v,n,t) Newz(0,v,n,t)
2782#define NEED_mess_nocontext
2786#if (PERL_BCDVERSION >= 0x5007003) || ( (PERL_BCDVERSION >= 0x5006001) && (PERL_BCDVERSION < 0x5007000) )
2787#if ( (PERL_BCDVERSION >= 0x5008000) && (PERL_BCDVERSION < 0x5008009) ) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5010001) )
2788#define D_PPP_FIX_UTF8_ERRSV_FOR_SV(sv) \
2790SV *_errsv = ERRSV; \
2791SvFLAGS(_errsv) = (SvFLAGS(_errsv) & ~SVf_UTF8) | \
2792(SvFLAGS(sv) & SVf_UTF8); \
2795#define D_PPP_FIX_UTF8_ERRSV_FOR_SV(sv) STMT_START {} STMT_END
2797PERL_STATIC_INLINE void D_PPP_croak_sv(SV *sv) {
2801sv_setsv(ERRSV, _sv);
2804D_PPP_FIX_UTF8_ERRSV_FOR_SV(_sv);
2805croak("%" SVf, SVfARG(_sv));
2808#define croak_sv(sv) D_PPP_croak_sv(sv)
2809#elif (PERL_BCDVERSION >= 0x5004000)
2810#define croak_sv(sv) croak("%" SVf, SVfARG(sv))
2812#define croak_sv(sv) croak("%s", SvPV_nolen(sv))
2816#if defined(NEED_die_sv)
2817static OP * DPPP_(my_die_sv)(pTHX_ SV * baseex);
2820extern OP * DPPP_(my_die_sv)(pTHX_ SV * baseex);
2822#if defined(NEED_die_sv) || defined(NEED_die_sv_GLOBAL)
2826#define die_sv(a) DPPP_(my_die_sv)(aTHX_ a)
2827#define Perl_die_sv DPPP_(my_die_sv)
2829DPPP_(my_die_sv)(pTHX_ SV *baseex)
2837#if (PERL_BCDVERSION >= 0x5004000)
2838#define warn_sv(sv) warn("%" SVf, SVfARG(sv))
2840#define warn_sv(sv) warn("%s", SvPV_nolen(sv))
2843#if ! defined vmess && (PERL_BCDVERSION >= 0x5004000)
2844#if defined(NEED_vmess)
2845static SV * DPPP_(my_vmess)(pTHX_ const char * pat, va_list * args);
2848extern SV * DPPP_(my_vmess)(pTHX_ const char * pat, va_list * args);
2850#if defined(NEED_vmess) || defined(NEED_vmess_GLOBAL)
2854#define vmess(a,b) DPPP_(my_vmess)(aTHX_ a,b)
2855#define Perl_vmess DPPP_(my_vmess)
2857DPPP_(my_vmess)(pTHX_ const char* pat, va_list* args)
2864#if (PERL_BCDVERSION < 0x5006000) && (PERL_BCDVERSION >= 0x5004000)
2867#if !defined(mess_nocontext) && !defined(Perl_mess_nocontext) && (PERL_BCDVERSION >= 0x5004000)
2868#if defined(NEED_mess_nocontext)
2869static SV * DPPP_(my_mess_nocontext)(const char * pat, ...);
2872extern SV * DPPP_(my_mess_nocontext)(const char * pat, ...);
2874#if defined(NEED_mess_nocontext) || defined(NEED_mess_nocontext_GLOBAL)
2875#define mess_nocontext DPPP_(my_mess_nocontext)
2876#define Perl_mess_nocontext DPPP_(my_mess_nocontext)
2878DPPP_(my_mess_nocontext)(const char* pat, ...)
2884sv = vmess(pat, &args);
2891#if defined(NEED_mess)
2892static SV * DPPP_(my_mess)(pTHX_ const char * pat, ...);
2895extern SV * DPPP_(my_mess)(pTHX_ const char * pat, ...);
2897#if defined(NEED_mess) || defined(NEED_mess_GLOBAL)
2898#define Perl_mess DPPP_(my_mess)
2900DPPP_(my_mess)(pTHX_ const char* pat, ...)
2905sv = vmess(pat, &args);
2909#ifdef mess_nocontext
2910#define mess mess_nocontext
2912#define mess Perl_mess_nocontext
2916#if ! defined mess_sv && (PERL_BCDVERSION >= 0x5004000)
2917#if defined(NEED_mess_sv)
2918static SV * DPPP_(my_mess_sv)(pTHX_ SV * basemsg, bool consume);
2921extern SV * DPPP_(my_mess_sv)(pTHX_ SV * basemsg, bool consume);
2923#if defined(NEED_mess_sv) || defined(NEED_mess_sv_GLOBAL)
2927#define mess_sv(a,b) DPPP_(my_mess_sv)(aTHX_ a,b)
2928#define Perl_mess_sv DPPP_(my_mess_sv)
2930DPPP_(my_mess_sv)(pTHX_ SV *basemsg, bool consume)
2934if (SvPOK(basemsg) && SvCUR(basemsg) && *(SvEND(basemsg)-1) == '\n') {
2938SvSetSV_nosteal(ret, basemsg);
2942sv_catsv(basemsg, mess(""));
2947SvSetSV_nosteal(ret, basemsg);
2954#ifndef warn_nocontext
2955#define warn_nocontext warn
2957#ifndef croak_nocontext
2958#define croak_nocontext croak
2960#ifndef croak_no_modify
2961#define croak_no_modify() croak_nocontext("%s", PL_no_modify)
2962#define Perl_croak_no_modify() croak_no_modify()
2964#ifndef croak_memory_wrap
2965#if (PERL_BCDVERSION >= 0x5009002) || ( (PERL_BCDVERSION >= 0x5008006) && (PERL_BCDVERSION < 0x5009000) )
2966#define croak_memory_wrap() croak_nocontext("%s", PL_memory_wrap)
2968#define croak_memory_wrap() croak_nocontext("panic: memory wrap")
2971#ifndef croak_xs_usage
2972#if defined(NEED_croak_xs_usage)
2973static void DPPP_(my_croak_xs_usage)(const CV * const cv, const char * const params);
2976extern void DPPP_(my_croak_xs_usage)(const CV * const cv, const char * const params);
2978#if defined(NEED_croak_xs_usage) || defined(NEED_croak_xs_usage_GLOBAL)
2979#define croak_xs_usage DPPP_(my_croak_xs_usage)
2980#define Perl_croak_xs_usage DPPP_(my_croak_xs_usage)
2981#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
2982#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)
2984DPPP_(my_croak_xs_usage)(const CV *const cv, const char *const params)
2987const GV *const gv = CvGV(cv);
2988PERL_ARGS_ASSERT_CROAK_XS_USAGE;
2990const char *const gvname = GvNAME(gv);
2991const HV *const stash = GvSTASH(gv);
2992const char *const hvname = stash ? HvNAME(stash) : NULL;
2994croak("Usage: %s::%s(%s)", hvname, gvname, params);
2996croak("Usage: %s(%s)", gvname, params);
2998croak("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params);
3005#define mPUSHs(s) PUSHs(sv_2mortal(s))
3008#define PUSHmortal PUSHs(sv_newmortal())
3011#define mPUSHp(p,l) sv_setpvn(PUSHmortal, (p), (l))
3014#define mPUSHn(n) sv_setnv(PUSHmortal, (NV)(n))
3017#define mPUSHi(i) sv_setiv(PUSHmortal, (IV)(i))
3020#define mPUSHu(u) sv_setuv(PUSHmortal, (UV)(u))
3023#define mXPUSHs(s) XPUSHs(sv_2mortal(s))
3026#define XPUSHmortal XPUSHs(sv_newmortal())
3029#define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn(PUSHmortal, (p), (l)); } STMT_END
3032#define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END
3035#define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END
3038#define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END
3041#define call_sv perl_call_sv
3044#define call_pv perl_call_pv
3047#define call_argv perl_call_argv
3050#define call_method perl_call_method
3053#define eval_sv perl_eval_sv
3055#if (PERL_BCDVERSION >= 0x5003098) && (PERL_BCDVERSION < 0x5006000)
3057#define eval_pv perl_eval_pv
3060#if (PERL_BCDVERSION < 0x5006000)
3062#define Perl_eval_sv perl_eval_sv
3064#if (PERL_BCDVERSION >= 0x5003098)
3066#define Perl_eval_pv perl_eval_pv
3071#define G_LIST G_ARRAY
3073#ifndef PERL_LOADMOD_DENY
3074#define PERL_LOADMOD_DENY 0x1
3076#ifndef PERL_LOADMOD_NOIMPORT
3077#define PERL_LOADMOD_NOIMPORT 0x2
3079#ifndef PERL_LOADMOD_IMPORT_OPS
3080#define PERL_LOADMOD_IMPORT_OPS 0x4
3082#if defined(PERL_USE_GCC_BRACE_GROUPS)
3083#define D_PPP_CROAK_IF_ERROR(cond) ({ \
3086&& (_errsv = ERRSV) \
3087&& (SvROK(_errsv) || SvTRUE(_errsv)) \
3088&& (croak_sv(_errsv), 1)); \
3091PERL_STATIC_INLINE void D_PPP_CROAK_IF_ERROR(int cond) {
3096if (SvROK(errsv) || SvTRUE(errsv)) croak_sv(errsv);
3098#define D_PPP_CROAK_IF_ERROR(cond) D_PPP_CROAK_IF_ERROR(cond)
3105#if (PERL_BCDVERSION < 0x5006000)
3106#define call_sv(sv, flags) ((flags) & G_METHOD ? perl_call_method((char *) SvPV_nolen_const(sv), \
3107(flags) & ~G_METHOD) : perl_call_sv(sv, flags))
3109#define call_sv(sv, flags) ((flags) & G_METHOD ? Perl_call_method(aTHX_ (char *) SvPV_nolen_const(sv), \
3110(flags) & ~G_METHOD) : Perl_call_sv(aTHX_ sv, flags))
3114#define G_RETHROW 8192
3118#if defined(PERL_USE_GCC_BRACE_GROUPS)
3119#define eval_sv(sv, flags) ({ I32 _flags = (flags); I32 _ret = Perl_eval_sv(aTHX_ sv, (_flags & ~G_RETHROW)); D_PPP_CROAK_IF_ERROR(_flags & G_RETHROW); _ret; })
3121#define eval_sv(sv, flags) ((PL_na = Perl_eval_sv(aTHX_ sv, ((flags) & ~G_RETHROW))), D_PPP_CROAK_IF_ERROR((flags) & G_RETHROW), (I32)PL_na)
3124#if (PERL_BCDVERSION < 0x5031002)
3127#if defined(PERL_USE_GCC_BRACE_GROUPS)
3128#define eval_pv(p, croak_on_error) ({ SV *_sv = Perl_eval_pv(aTHX_ p, 0); D_PPP_CROAK_IF_ERROR(croak_on_error); _sv; })
3130#define eval_pv(p, croak_on_error) ((PL_Sv = Perl_eval_pv(aTHX_ p, 0)), D_PPP_CROAK_IF_ERROR(croak_on_error), PL_Sv)
3135#if defined(NEED_eval_pv)
3136static SV * DPPP_(my_eval_pv)(const char * p, I32 croak_on_error);
3139extern SV * DPPP_(my_eval_pv)(const char * p, I32 croak_on_error);
3141#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)
3145#define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b)
3146#define Perl_eval_pv DPPP_(my_eval_pv)
3148DPPP_(my_eval_pv)(const char *p, I32 croak_on_error)
3151SV* sv = newSVpv(p, 0);
3153eval_sv(sv, G_SCALAR);
3158D_PPP_CROAK_IF_ERROR(croak_on_error);
3163#if ! defined(vload_module) && defined(start_subparse)
3164#if defined(NEED_vload_module)
3165static void DPPP_(my_vload_module)(U32 flags, SV * name, SV * ver, va_list * args);
3168extern void DPPP_(my_vload_module)(U32 flags, SV * name, SV * ver, va_list * args);
3170#if defined(NEED_vload_module) || defined(NEED_vload_module_GLOBAL)
3174#define vload_module(a,b,c,d) DPPP_(my_vload_module)(aTHX_ a,b,c,d)
3175#define Perl_vload_module DPPP_(my_vload_module)
3177DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args)
3182OP * const modname = newSVOP(OP_CONST, 0, name);
3183SvREADONLY_off(((SVOP*)modname)->op_sv);
3184modname->op_private |= OPpCONST_BARE;
3186veop = newSVOP(OP_CONST, 0, ver);
3190if (flags & PERL_LOADMOD_NOIMPORT) {
3191imop = sawparens(newNULLLIST());
3193else if (flags & PERL_LOADMOD_IMPORT_OPS) {
3194imop = va_arg(*args, OP*);
3199sv = va_arg(*args, SV*);
3201imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0, sv));
3202sv = va_arg(*args, SV*);
3206const line_t ocopline = PL_copline;
3207COP * const ocurcop = PL_curcop;
3208const int oexpect = PL_expect;
3209utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
3210#if (PERL_BCDVERSION > 0x5003000)
3215PL_copline = ocopline;
3222#if defined(NEED_load_module)
3223static void DPPP_(my_load_module)(U32 flags, SV * name, SV * ver, ...);
3226extern void DPPP_(my_load_module)(U32 flags, SV * name, SV * ver, ...);
3228#if defined(NEED_load_module) || defined(NEED_load_module_GLOBAL)
3232#define load_module DPPP_(my_load_module)
3233#define Perl_load_module DPPP_(my_load_module)
3235DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...)
3239vload_module(flags, name, ver, &args);
3245#define newRV_inc(sv) newRV(sv)
3248#if defined(PERL_USE_GCC_BRACE_GROUPS)
3249#define newRV_noinc(sv) ({ SV *_sv = (SV *)newRV((sv)); SvREFCNT_dec((sv)); _sv; })
3251#define newRV_noinc(sv) ((PL_Sv = (SV *)newRV((sv))), SvREFCNT_dec((sv)), PL_Sv)
3254#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \
3255defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
3258#if (PERL_BCDVERSION < 0x5004068)
3260SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE)
3263SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \
3264sizeof(MY_CXT_KEY)-1, TRUE)
3268my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv))
3269#define MY_CXT_INIT \
3272my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
3273Zero(my_cxtp, 1, my_cxt_t); \
3274sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
3275#define MY_CXT (*my_cxtp)
3276#define pMY_CXT my_cxt_t *my_cxtp
3277#define pMY_CXT_ pMY_CXT,
3278#define _pMY_CXT ,pMY_CXT
3279#define aMY_CXT my_cxtp
3280#define aMY_CXT_ aMY_CXT,
3281#define _aMY_CXT ,aMY_CXT
3284#define MY_CXT_CLONE \
3286my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
3287Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t);\
3288sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
3292#define START_MY_CXT static my_cxt_t my_cxt;
3293#define dMY_CXT_SV dNOOP
3294#define dMY_CXT dNOOP
3295#define MY_CXT_INIT NOOP
3296#define MY_CXT my_cxt
3305#define MY_CXT_CLONE NOOP
3309#ifdef PERL_USE_GCC_BRACE_GROUPS
3310#define SvREFCNT_inc(sv) \
3312SV * const _sv = (SV*)(sv); \
3318#define SvREFCNT_inc(sv) \
3319((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
3322#ifndef SvREFCNT_inc_simple
3323#ifdef PERL_USE_GCC_BRACE_GROUPS
3324#define SvREFCNT_inc_simple(sv) \
3331#define SvREFCNT_inc_simple(sv) \
3332((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL)
3335#ifndef SvREFCNT_inc_NN
3336#ifdef PERL_USE_GCC_BRACE_GROUPS
3337#define SvREFCNT_inc_NN(sv) \
3339SV * const _sv = (SV*)(sv); \
3344#define SvREFCNT_inc_NN(sv) \
3345(PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv)
3348#ifndef SvREFCNT_inc_void
3349#ifdef PERL_USE_GCC_BRACE_GROUPS
3350#define SvREFCNT_inc_void(sv) \
3352SV * const _sv = (SV*)(sv); \
3354(void)(SvREFCNT(_sv)++); \
3357#define SvREFCNT_inc_void(sv) \
3358(void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0)
3361#ifndef SvREFCNT_inc_simple_void
3362#define SvREFCNT_inc_simple_void(sv) STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END
3364#ifndef SvREFCNT_inc_simple_NN
3365#define SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv), (SV*)(sv))
3367#ifndef SvREFCNT_inc_void_NN
3368#define SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
3370#ifndef SvREFCNT_inc_simple_void_NN
3371#define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
3374#if defined(PERL_USE_GCC_BRACE_GROUPS)
3375#define newSV_type(t) ({ SV *_sv = newSV(0); sv_upgrade(_sv, (t)); _sv; })
3377#define newSV_type(t) ((PL_Sv = newSV(0)), sv_upgrade(PL_Sv, (t)), PL_Sv)
3380#if (PERL_BCDVERSION < 0x5006000)
3381#define D_PPP_CONSTPV_ARG(x) ((char *) (x))
3383#define D_PPP_CONSTPV_ARG(x) (x)
3386#define newSVpvn(data,len) ((data) \
3387? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
3390#ifndef newSVpvn_utf8
3391#define newSVpvn_utf8(s, len, u) newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0)
3396#ifndef newSVpvn_flags
3397#if defined(PERL_USE_GCC_BRACE_GROUPS)
3398#define newSVpvn_flags(s, len, flags) \
3400SV * sv = newSVpvn(D_PPP_CONSTPV_ARG(s), (len)); \
3401SvFLAGS(sv) |= ((flags) & SVf_UTF8); \
3402if ((flags) & SVs_TEMP) sv = sv_2mortal(sv); \
3406PERL_STATIC_INLINE SV* D_PPP_newSVpvn_flags(const char *const s, const STRLEN len, const U32 flags)
3409SV * sv = newSVpvn(s, len);
3410SvFLAGS(sv) |= (flags & SVf_UTF8);
3411if (flags & SVs_TEMP) return sv_2mortal(sv);
3414#define newSVpvn_flags(s, len, flags) D_PPP_newSVpvn_flags((s), (len), (flags))
3418#define SV_NOSTEAL 16
3420#if ( (PERL_BCDVERSION >= 0x5007003) && (PERL_BCDVERSION < 0x5008007) ) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5009002) )
3421#undef sv_setsv_flags
3422#if defined(PERL_USE_GCC_BRACE_GROUPS)
3423#define sv_setsv_flags(dstr, sstr, flags) \
3425if (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) { \
3426SvTEMP_off((SV *)(sstr)); \
3427Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \
3428SvTEMP_on((SV *)(sstr)); \
3430Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL); \
3434#define sv_setsv_flags(dstr, sstr, flags) \
3436(((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) ? ( \
3437SvTEMP_off((SV *)(sstr)), \
3438Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL), \
3439SvTEMP_on((SV *)(sstr)), \
3442Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL), \
3448#if defined(PERL_USE_GCC_BRACE_GROUPS)
3449#ifndef sv_setsv_flags
3450#define sv_setsv_flags(dstr, sstr, flags) \
3452if (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) { \
3453SvTEMP_off((SV *)(sstr)); \
3454if (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) { \
3455SvGMAGICAL_off((SV *)(sstr)); \
3456sv_setsv((dstr), (sstr)); \
3457SvGMAGICAL_on((SV *)(sstr)); \
3459sv_setsv((dstr), (sstr)); \
3461SvTEMP_on((SV *)(sstr)); \
3463if (!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) { \
3464SvGMAGICAL_off((SV *)(sstr)); \
3465sv_setsv((dstr), (sstr)); \
3466SvGMAGICAL_on((SV *)(sstr)); \
3468sv_setsv((dstr), (sstr)); \
3474#ifndef sv_setsv_flags
3475#define sv_setsv_flags(dstr, sstr, flags) \
3477(((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) ? ( \
3478SvTEMP_off((SV *)(sstr)), \
3479(!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) ? ( \
3480SvGMAGICAL_off((SV *)(sstr)), \
3481sv_setsv((dstr), (sstr)), \
3482SvGMAGICAL_on((SV *)(sstr)), \
3485sv_setsv((dstr), (sstr)), \
3488SvTEMP_on((SV *)(sstr)), \
3491(!((flags) & SV_GMAGIC) && (sstr) && SvGMAGICAL((SV *)(sstr))) ? ( \
3492SvGMAGICAL_off((SV *)(sstr)), \
3493sv_setsv((dstr), (sstr)), \
3494SvGMAGICAL_on((SV *)(sstr)), \
3497sv_setsv((dstr), (sstr)), \
3504#ifndef newSVsv_flags
3505#if defined(PERL_USE_GCC_BRACE_GROUPS)
3506#define newSVsv_flags(sv, flags) \
3509sv_setsv_flags(n, (sv), (flags)); \
3513PERL_STATIC_INLINE SV* D_PPP_newSVsv_flags(SV *const old, I32 flags)
3517sv_setsv_flags(n, old, flags);
3520#define newSVsv_flags(sv, flags) D_PPP_newSVsv_flags(sv, flags)
3524#define newSVsv_nomg(sv) newSVsv_flags((sv), SV_NOSTEAL)
3526#if (PERL_BCDVERSION >= 0x5017005)
3527#ifndef sv_mortalcopy_flags
3528#define sv_mortalcopy_flags(sv, flags) Perl_sv_mortalcopy_flags(aTHX_ (sv), (flags))
3531#ifndef sv_mortalcopy_flags
3532#define sv_mortalcopy_flags(sv, flags) sv_2mortal(newSVsv_flags((sv), (flags)))
3536#define SvMAGIC_set(sv, val) \
3537STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
3538(((XPVMG*) SvANY(sv))->xmg_magic = (val)); } STMT_END
3540#if (PERL_BCDVERSION < 0x5009003)
3542#define SvPVX_const(sv) ((const char*) (0 + SvPVX(sv)))
3544#ifndef SvPVX_mutable
3545#define SvPVX_mutable(sv) (0 + SvPVX(sv))
3548#define SvRV_set(sv, val) \
3549STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
3550(((XRV*) SvANY(sv))->xrv_rv = (val)); } STMT_END
3554#define SvPVX_const(sv) ((const char*)((sv)->sv_u.svu_pv))
3556#ifndef SvPVX_mutable
3557#define SvPVX_mutable(sv) ((sv)->sv_u.svu_pv)
3560#define SvRV_set(sv, val) \
3561STMT_START { assert(SvTYPE(sv) >= SVt_RV); \
3562((sv)->sv_u.svu_rv = (val)); } STMT_END
3566#define SvSTASH_set(sv, val) \
3567STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
3568(((XPVMG*) SvANY(sv))->xmg_stash = (val)); } STMT_END
3570#if (PERL_BCDVERSION < 0x5004000)
3572#define SvUV_set(sv, val) \
3573STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
3574(((XPVIV*) SvANY(sv))->xiv_iv = (IV) (val)); } STMT_END
3578#define SvUV_set(sv, val) \
3579STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
3580(((XPVUV*) SvANY(sv))->xuv_uv = (val)); } STMT_END
3583#ifndef newSVpvn_share
3584#if defined(NEED_newSVpvn_share)
3585static SV * DPPP_(my_newSVpvn_share)(pTHX_ const char * s, I32 len, U32 hash);
3588extern SV * DPPP_(my_newSVpvn_share)(pTHX_ const char * s, I32 len, U32 hash);
3590#if defined(NEED_newSVpvn_share) || defined(NEED_newSVpvn_share_GLOBAL)
3591#ifdef newSVpvn_share
3592#undef newSVpvn_share
3594#define newSVpvn_share(a,b,c) DPPP_(my_newSVpvn_share)(aTHX_ a,b,c)
3595#define Perl_newSVpvn_share DPPP_(my_newSVpvn_share)
3597DPPP_(my_newSVpvn_share)(pTHX_ const char *s, I32 len, U32 hash)
3603PERL_HASH(hash, (char*) s, len);
3604sv = newSVpvn((char *) s, len);
3605sv_upgrade(sv, SVt_PVIV);
3613#ifndef SvSHARED_HASH
3614#define SvSHARED_HASH(sv) (0 + SvUVX(sv))
3617#define HvNAME_get(hv) HvNAME(hv)
3619#ifndef HvNAMELEN_get
3620#define HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0)
3622#if (PERL_BCDVERSION >= 0x5009002) && (PERL_BCDVERSION <= 0x5009003)
3623#undef gv_fetchpvn_flags
3626#define D_PPP_GV_NOADD_MASK GV_NOADD_MASK
3628#define D_PPP_GV_NOADD_MASK 0xE0
3630#ifndef gv_fetchpvn_flags
3631#define gv_fetchpvn_flags(name, len, flags, sv_type) gv_fetchpv(SvPVX(sv_2mortal(newSVpvn((name), (len)))), ((flags) & D_PPP_GV_NOADD_MASK) ? FALSE : TRUE, (I32)(sv_type))
3634#define GvSVn(gv) GvSV(gv)
3637#define isGV_with_GP(gv) isGV(gv)
3640#define gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flags, svt)
3642#ifndef get_cvn_flags
3643#define get_cvn_flags(name, namelen, flags) get_cv(name, flags)
3646#define gv_init_pvn(gv, stash, ptr, len, flags) gv_init(gv, stash, ptr, len, flags & GV_ADDMULTI ? TRUE : FALSE)
3649#define STR_WITH_LEN(s) (s ""), (sizeof(s)-1)
3652#define newSVpvs(str) newSVpvn(str "", sizeof(str) - 1)
3654#ifndef newSVpvs_flags
3655#define newSVpvs_flags(str, flags) newSVpvn_flags(str "", sizeof(str) - 1, flags)
3657#ifndef newSVpvs_share
3658#define newSVpvs_share(str) newSVpvn_share(str "", sizeof(str) - 1, 0)
3661#define sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1)
3664#define sv_setpvs(sv, str) sv_setpvn(sv, str "", sizeof(str) - 1)
3667#define hv_fetchs(hv, key, lval) hv_fetch(hv, key "", sizeof(key) - 1, lval)
3670#define hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0)
3673#define gv_fetchpvs(name, flags, svt) gv_fetchpvn_flags(name "", sizeof(name) - 1, flags, svt)
3676#define gv_stashpvs(name, flags) gv_stashpvn(name "", sizeof(name) - 1, flags)
3679#define get_cvs(name, flags) get_cvn_flags(name "", sizeof(name)-1, flags)
3683#define SvGETMAGIC(x) ((void)(UNLIKELY(SvGMAGICAL(x)) && mg_get(x)))
3685#ifndef sv_catpvn_nomg
3686#define sv_catpvn_nomg sv_catpvn
3688#ifndef sv_catsv_nomg
3689#define sv_catsv_nomg sv_catsv
3691#ifndef sv_setsv_nomg
3692#define sv_setsv_nomg sv_setsv
3695#define sv_pvn_nomg sv_pvn
3698#if defined(PERL_USE_GCC_BRACE_GROUPS)
3700#define SvIV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : ({ SV *_sviv = sv_mortalcopy_flags((sv), SV_NOSTEAL); IV _iv = SvIV(_sviv); SvFLAGS((sv)) = (SvFLAGS((sv)) & ~SVf_IVisUV) | (SvFLAGS(_sviv) & SVf_IVisUV); _iv; }))
3703#define SvUV_nomg(sv) (!SvGMAGICAL((sv)) ? SvUV((sv)) : ({ SV *_svuv = sv_mortalcopy_flags((sv), SV_NOSTEAL); UV _uv = SvUV(_svuv); SvFLAGS((sv)) = (SvFLAGS((sv)) & ~SVf_IVisUV) | (SvFLAGS(_svuv) & SVf_IVisUV); _uv; }))
3707#define SvIV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : ((PL_Sv = sv_mortalcopy_flags((sv), SV_NOSTEAL)), sv_upgrade(PL_Sv, SVt_PVIV), (SvIVX(PL_Sv) = SvIV(PL_Sv)), (SvFLAGS((sv)) = (SvFLAGS((sv)) & ~SVf_IVisUV) | (SvFLAGS(PL_Sv) & SVf_IVisUV)), SvIVX(PL_Sv)))
3710#define SvUV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : ((PL_Sv = sv_mortalcopy_flags((sv), SV_NOSTEAL)), sv_upgrade(PL_Sv, SVt_PVIV), (SvUVX(PL_Sv) = SvUV(PL_Sv)), (SvFLAGS((sv)) = (SvFLAGS((sv)) & ~SVf_IVisUV) | (SvFLAGS(PL_Sv) & SVf_IVisUV)), SvUVX(PL_Sv)))
3715#define SvIV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : SvIVx(sv_mortalcopy_flags((sv), SV_NOSTEAL)))
3718#define SvUV_nomg(sv) (!SvGMAGICAL((sv)) ? SvUV((sv)) : SvUVx(sv_mortalcopy_flags((sv), SV_NOSTEAL)))
3722#define SvNV_nomg(sv) (!SvGMAGICAL((sv)) ? SvNV((sv)) : SvNVx(sv_mortalcopy_flags((sv), SV_NOSTEAL)))
3725#define SvTRUE_nomg(sv) (!SvGMAGICAL((sv)) ? SvTRUE((sv)) : SvTRUEx(sv_mortalcopy_flags((sv), SV_NOSTEAL)))
3728#define sv_catpv_mg(sv, ptr) \
3731sv_catpv(TeMpSv,ptr); \
3732SvSETMAGIC(TeMpSv); \
3736#define sv_catpvn_mg(sv, ptr, len) \
3739sv_catpvn(TeMpSv,ptr,len); \
3740SvSETMAGIC(TeMpSv); \
3744#define sv_catsv_mg(dsv, ssv) \
3747sv_catsv(TeMpSv,ssv); \
3748SvSETMAGIC(TeMpSv); \
3752#define sv_setiv_mg(sv, i) \
3755sv_setiv(TeMpSv,i); \
3756SvSETMAGIC(TeMpSv); \
3760#define sv_setnv_mg(sv, num) \
3763sv_setnv(TeMpSv,num); \
3764SvSETMAGIC(TeMpSv); \
3768#define sv_setpv_mg(sv, ptr) \
3771sv_setpv(TeMpSv,ptr); \
3772SvSETMAGIC(TeMpSv); \
3776#define sv_setpvn_mg(sv, ptr, len) \
3779sv_setpvn(TeMpSv,ptr,len); \
3780SvSETMAGIC(TeMpSv); \
3784#define sv_setsv_mg(dsv, ssv) \
3787sv_setsv(TeMpSv,ssv); \
3788SvSETMAGIC(TeMpSv); \
3792#define sv_setuv_mg(sv, i) \
3795sv_setuv(TeMpSv,i); \
3796SvSETMAGIC(TeMpSv); \
3800#define sv_usepvn_mg(sv, ptr, len) \
3803sv_usepvn(TeMpSv,ptr,len); \
3804SvSETMAGIC(TeMpSv); \
3808#define SvVSTRING_mg(sv) (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring) : NULL)
3810#if (PERL_BCDVERSION < 0x5004000)
3811#elif (PERL_BCDVERSION < 0x5008000)
3812#define sv_magic_portable(sv, obj, how, name, namlen) \
3814SV *SvMp_sv = (sv); \
3815char *SvMp_name = (char *) (name); \
3816I32 SvMp_namlen = (namlen); \
3817if (SvMp_name && SvMp_namlen == 0) \
3820sv_magic(SvMp_sv, obj, how, 0, 0); \
3821mg = SvMAGIC(SvMp_sv); \
3823mg->mg_ptr = SvMp_name; \
3827sv_magic(SvMp_sv, obj, how, SvMp_name, SvMp_namlen); \
3831#define sv_magic_portable(a, b, c, d, e) sv_magic(a, b, c, d, e)
3833#if !defined(mg_findext)
3834#if defined(NEED_mg_findext)
3835static MAGIC * DPPP_(my_mg_findext)(const SV * sv, int type, const MGVTBL * vtbl);
3838extern MAGIC * DPPP_(my_mg_findext)(const SV * sv, int type, const MGVTBL * vtbl);
3840#if defined(NEED_mg_findext) || defined(NEED_mg_findext_GLOBAL)
3841#define mg_findext DPPP_(my_mg_findext)
3842#define Perl_mg_findext DPPP_(my_mg_findext)
3844DPPP_(my_mg_findext)(const SV * sv, int type, const MGVTBL *vtbl) {
3847#ifdef AvPAD_NAMELIST
3848assert(!(SvTYPE(sv) == SVt_PVAV && AvPAD_NAMELIST(sv)));
3850for (mg = SvMAGIC (sv); mg; mg = mg->mg_moremagic) {
3851if (mg->mg_type == type && mg->mg_virtual == vtbl)
3859#if !defined(sv_unmagicext)
3860#if defined(NEED_sv_unmagicext)
3861static int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, const MGVTBL * vtbl);
3864extern int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, const MGVTBL * vtbl);
3866#if defined(NEED_sv_unmagicext) || defined(NEED_sv_unmagicext_GLOBAL)
3870#define sv_unmagicext(a,b,c) DPPP_(my_sv_unmagicext)(aTHX_ a,b,c)
3871#define Perl_sv_unmagicext DPPP_(my_sv_unmagicext)
3873DPPP_(my_sv_unmagicext)(pTHX_ SV *const sv, const int type, const MGVTBL *vtbl)
3877if (SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv))
3879mgp = &(SvMAGIC(sv));
3880for (mg = *mgp; mg; mg = *mgp) {
3881const MGVTBL* const virt = mg->mg_virtual;
3882if (mg->mg_type == type && virt == vtbl) {
3883*mgp = mg->mg_moremagic;
3884if (virt && virt->svt_free)
3885virt->svt_free(aTHX_ sv, mg);
3886if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
3888Safefree(mg->mg_ptr);
3889else if (mg->mg_len == HEf_SVKEY)
3890SvREFCNT_dec(MUTABLE_SV(mg->mg_ptr));
3891else if (mg->mg_type == PERL_MAGIC_utf8)
3892Safefree(mg->mg_ptr);
3894if (mg->mg_flags & MGf_REFCOUNTED)
3895SvREFCNT_dec(mg->mg_obj);
3899mgp = &mg->mg_moremagic;
3907SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
3915#define CopFILE(c) ((c)->cop_file)
3918#define CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
3921#define CopFILE_set(c,pv) ((c)->cop_file = savepv(pv))
3924#define CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
3927#define CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
3930#define CopSTASHPV(c) ((c)->cop_stashpv)
3932#ifndef CopSTASHPV_set
3933#define CopSTASHPV_set(c,pv) ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
3936#define CopSTASH(c) (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
3939#define CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
3942#define CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
3943|| (CopSTASHPV(c) && HvNAME(hv) \
3944&& strEQ(CopSTASHPV(c), HvNAME(hv)))))
3948#define CopFILEGV(c) ((c)->cop_filegv)
3950#ifndef CopFILEGV_set
3951#define CopFILEGV_set(c,gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
3954#define CopFILE_set(c,pv) CopFILEGV_set((c), gv_fetchfile(pv))
3957#define CopFILESV(c) (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
3960#define CopFILEAV(c) (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
3963#define CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
3966#define CopSTASH(c) ((c)->cop_stash)
3969#define CopSTASH_set(c,hv) ((c)->cop_stash = (hv))
3972#define CopSTASHPV(c) (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
3974#ifndef CopSTASHPV_set
3975#define CopSTASHPV_set(c,pv) CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
3978#define CopSTASH_eq(c,hv) (CopSTASH(c) == (hv))
3981#if (PERL_BCDVERSION >= 0x5006000)
3983#if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
3985DPPP_dopoptosub_at(const PERL_CONTEXT *cxstk, I32 startingblock)
3988for (i = startingblock; i >= 0; i--) {
3989const PERL_CONTEXT * const cx = &cxstk[i];
3990switch (CxTYPE(cx)) {
4002#if defined(NEED_caller_cx)
4003static const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 level, const PERL_CONTEXT * * dbcxp);
4006extern const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 level, const PERL_CONTEXT * * dbcxp);
4008#if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
4012#define caller_cx(a,b) DPPP_(my_caller_cx)(aTHX_ a,b)
4013#define Perl_caller_cx DPPP_(my_caller_cx)
4015DPPP_(my_caller_cx)(pTHX_ I32 level, const PERL_CONTEXT **dbcxp)
4017I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix);
4018const PERL_CONTEXT *cx;
4019const PERL_CONTEXT *ccstack = cxstack;
4020const PERL_SI *top_si = PL_curstackinfo;
4022while (cxix < 0 && top_si->si_type != PERLSI_MAIN) {
4023top_si = top_si->si_prev;
4024ccstack = top_si->si_cxstack;
4025cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix);
4029if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&
4030ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub))
4034cxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
4037if (dbcxp) *dbcxp = cx;
4038if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {
4039const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
4040if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 && ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))
4041cx = &ccstack[dbcxix];
4048#ifndef IN_PERL_COMPILETIME
4049#define IN_PERL_COMPILETIME (PL_curcop == &PL_compiling)
4051#ifndef IN_LOCALE_RUNTIME
4052#define IN_LOCALE_RUNTIME (PL_curcop->op_private & HINT_LOCALE)
4054#ifndef IN_LOCALE_COMPILETIME
4055#define IN_LOCALE_COMPILETIME (PL_hints & HINT_LOCALE)
4058#define IN_LOCALE (IN_PERL_COMPILETIME ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
4060#ifndef IS_NUMBER_IN_UV
4061#define IS_NUMBER_IN_UV 0x01
4063#ifndef IS_NUMBER_GREATER_THAN_UV_MAX
4064#define IS_NUMBER_GREATER_THAN_UV_MAX 0x02
4066#ifndef IS_NUMBER_NOT_INT
4067#define IS_NUMBER_NOT_INT 0x04
4069#ifndef IS_NUMBER_NEG
4070#define IS_NUMBER_NEG 0x08
4072#ifndef IS_NUMBER_INFINITY
4073#define IS_NUMBER_INFINITY 0x10
4075#ifndef IS_NUMBER_NAN
4076#define IS_NUMBER_NAN 0x20
4078#ifndef GROK_NUMERIC_RADIX
4079#define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send)
4081#ifndef PERL_SCAN_GREATER_THAN_UV_MAX
4082#define PERL_SCAN_GREATER_THAN_UV_MAX 0x02
4084#ifndef PERL_SCAN_SILENT_ILLDIGIT
4085#define PERL_SCAN_SILENT_ILLDIGIT 0x04
4087#ifndef PERL_SCAN_ALLOW_UNDERSCORES
4088#define PERL_SCAN_ALLOW_UNDERSCORES 0x01
4090#ifndef PERL_SCAN_DISALLOW_PREFIX
4091#define PERL_SCAN_DISALLOW_PREFIX 0x02
4093#ifndef grok_numeric_radix
4094#if defined(NEED_grok_numeric_radix)
4095static bool DPPP_(my_grok_numeric_radix)(pTHX_ const char * * sp, const char * send);
4098extern bool DPPP_(my_grok_numeric_radix)(pTHX_ const char * * sp, const char * send);
4100#if defined(NEED_grok_numeric_radix) || defined(NEED_grok_numeric_radix_GLOBAL)
4101#ifdef grok_numeric_radix
4102#undef grok_numeric_radix
4104#define grok_numeric_radix(a,b) DPPP_(my_grok_numeric_radix)(aTHX_ a,b)
4105#define Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix)
4107DPPP_(my_grok_numeric_radix)(pTHX_ const char **sp, const char *send)
4109#ifdef USE_LOCALE_NUMERIC
4110#ifdef PL_numeric_radix_sv
4111if (PL_numeric_radix_sv && IN_LOCALE) {
4113char* radix = SvPV(PL_numeric_radix_sv, len);
4114if (*sp + len <= send && memEQ(*sp, radix, len)) {
4122struct lconv *lc = localeconv();
4123char *radix = lc->decimal_point;
4124if (radix && IN_LOCALE) {
4125STRLEN len = strlen(radix);
4126if (*sp + len <= send && memEQ(*sp, radix, len)) {
4133if (*sp < send && **sp == '.') {
4142#if defined(NEED_grok_number)
4143static int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep);
4146extern int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep);
4148#if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL)
4152#define grok_number(a,b,c) DPPP_(my_grok_number)(aTHX_ a,b,c)
4153#define Perl_grok_number DPPP_(my_grok_number)
4155DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
4158const char *send = pv + len;
4159const UV max_div_10 = UV_MAX / 10;
4160const char max_mod_10 = UV_MAX % 10;
4164while (s < send && isSPACE(*s))
4168} else if (*s == '-') {
4170numtype = IS_NUMBER_NEG;
4179int digit = *s - '0';
4180if (digit >= 0 && digit <= 9) {
4181value = value * 10 + digit;
4184if (digit >= 0 && digit <= 9) {
4185value = value * 10 + digit;
4188if (digit >= 0 && digit <= 9) {
4189value = value * 10 + digit;
4192if (digit >= 0 && digit <= 9) {
4193value = value * 10 + digit;
4196if (digit >= 0 && digit <= 9) {
4197value = value * 10 + digit;
4200if (digit >= 0 && digit <= 9) {
4201value = value * 10 + digit;
4204if (digit >= 0 && digit <= 9) {
4205value = value * 10 + digit;
4208if (digit >= 0 && digit <= 9) {
4209value = value * 10 + digit;
4212while (digit >= 0 && digit <= 9
4213&& (value < max_div_10
4214|| (value == max_div_10
4215&& digit <= max_mod_10))) {
4216value = value * 10 + digit;
4222if (digit >= 0 && digit <= 9
4226} while (s < send && isDIGIT(*s));
4228IS_NUMBER_GREATER_THAN_UV_MAX;
4248numtype |= IS_NUMBER_IN_UV;
4252if (GROK_NUMERIC_RADIX(&s, send)) {
4253numtype |= IS_NUMBER_NOT_INT;
4254while (s < send && isDIGIT(*s))
4258else if (GROK_NUMERIC_RADIX(&s, send)) {
4259numtype |= IS_NUMBER_NOT_INT | IS_NUMBER_IN_UV;
4260if (s < send && isDIGIT(*s)) {
4263} while (s < send && isDIGIT(*s));
4270} else if (*s == 'I' || *s == 'i') {
4271s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
4272s++; if (s == send || (*s != 'F' && *s != 'f')) return 0;
4273s++; if (s < send && (*s == 'I' || *s == 'i')) {
4274s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
4275s++; if (s == send || (*s != 'I' && *s != 'i')) return 0;
4276s++; if (s == send || (*s != 'T' && *s != 't')) return 0;
4277s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
4281} else if (*s == 'N' || *s == 'n') {
4282s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
4283s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
4289numtype &= IS_NUMBER_NEG;
4290numtype |= IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT;
4292numtype &= IS_NUMBER_NEG;
4293numtype |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT;
4294} else if (s < send) {
4295if (*s == 'e' || *s == 'E') {
4296numtype &= IS_NUMBER_NEG;
4297numtype |= IS_NUMBER_NOT_INT;
4299if (s < send && (*s == '-' || *s == '+'))
4301if (s < send && isDIGIT(*s)) {
4304} while (s < send && isDIGIT(*s));
4310while (s < send && isSPACE(*s))
4314if (len == 10 && memEQ(pv, "0 but true", 10)) {
4317return IS_NUMBER_IN_UV;
4324#if defined(NEED_grok_bin)
4325static UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
4328extern UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
4330#if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL)
4334#define grok_bin(a,b,c,d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d)
4335#define Perl_grok_bin DPPP_(my_grok_bin)
4337DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
4339const char *s = start;
4343const UV max_div_2 = UV_MAX / 2;
4344bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
4345bool overflowed = FALSE;
4346if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {
4352else if (len >= 2 && s[0] == '0' && s[1] == 'b') {
4358for (; len-- && *s; s++) {
4360if (bit == '0' || bit == '1') {
4363if (value <= max_div_2) {
4364value = (value << 1) | (bit - '0');
4367warn("Integer overflow in binary number");
4369value_nv = (NV) value;
4372value_nv += (NV)(bit - '0');
4375if (bit == '_' && len && allow_underscores && (bit = s[1])
4376&& (bit == '0' || bit == '1'))
4382if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
4383warn("Illegal binary digit '%c' ignored", *s);
4386if ( ( overflowed && value_nv > 4294967295.0)
4388|| (!overflowed && value > 0xffffffff )
4391warn("Binary number > 0b11111111111111111111111111111111 non-portable");
4398*flags = PERL_SCAN_GREATER_THAN_UV_MAX;
4406#if defined(NEED_grok_hex)
4407static UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
4410extern UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
4412#if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL)
4416#define grok_hex(a,b,c,d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d)
4417#define Perl_grok_hex DPPP_(my_grok_hex)
4419DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
4421const char *s = start;
4425const UV max_div_16 = UV_MAX / 16;
4426bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
4427bool overflowed = FALSE;
4429if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {
4435else if (len >= 2 && s[0] == '0' && s[1] == 'x') {
4441for (; len-- && *s; s++) {
4442xdigit = strchr((char *) PL_hexdigit, *s);
4446if (value <= max_div_16) {
4447value = (value << 4) | ((xdigit - PL_hexdigit) & 15);
4450warn("Integer overflow in hexadecimal number");
4452value_nv = (NV) value;
4455value_nv += (NV)((xdigit - PL_hexdigit) & 15);
4458if (*s == '_' && len && allow_underscores && s[1]
4459&& (xdigit = strchr((char *) PL_hexdigit, s[1])))
4465if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
4466warn("Illegal hexadecimal digit '%c' ignored", *s);
4469if ( ( overflowed && value_nv > 4294967295.0)
4471|| (!overflowed && value > 0xffffffff )
4474warn("Hexadecimal number > 0xffffffff non-portable");
4481*flags = PERL_SCAN_GREATER_THAN_UV_MAX;
4489#if defined(NEED_grok_oct)
4490static UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
4493extern UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
4495#if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL)
4499#define grok_oct(a,b,c,d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d)
4500#define Perl_grok_oct DPPP_(my_grok_oct)
4502DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
4504const char *s = start;
4508const UV max_div_8 = UV_MAX / 8;
4509bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
4510bool overflowed = FALSE;
4511for (; len-- && *s; s++) {
4512int digit = *s - '0';
4513if (digit >= 0 && digit <= 7) {
4516if (value <= max_div_8) {
4517value = (value << 3) | digit;
4520warn("Integer overflow in octal number");
4522value_nv = (NV) value;
4525value_nv += (NV)digit;
4528if (digit == ('_' - '0') && len && allow_underscores
4529&& (digit = s[1] - '0') && (digit >= 0 && digit <= 7))
4535if (digit == 8 || digit == 9) {
4536if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
4537warn("Illegal octal digit '%c' ignored", *s);
4541if ( ( overflowed && value_nv > 4294967295.0)
4543|| (!overflowed && value > 0xffffffff )
4546warn("Octal number > 037777777777 non-portable");
4553*flags = PERL_SCAN_GREATER_THAN_UV_MAX;
4560#if !defined(my_snprintf)
4561#if defined(NEED_my_snprintf)
4562static int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * format, ...);
4565extern int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * format, ...);
4567#if defined(NEED_my_snprintf) || defined(NEED_my_snprintf_GLOBAL)
4568#define my_snprintf DPPP_(my_my_snprintf)
4569#define Perl_my_snprintf DPPP_(my_my_snprintf)
4571DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...)
4576va_start(ap, format);
4578retval = vsnprintf(buffer, len, format, ap);
4580retval = vsprintf(buffer, format, ap);
4583if (retval < 0 || (len > 0 && (Size_t)retval >= len))
4584Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
4589#if !defined(my_sprintf)
4590#if defined(NEED_my_sprintf)
4591static int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...);
4594extern int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...);
4596#if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)
4597#define my_sprintf DPPP_(my_my_sprintf)
4599DPPP_(my_my_sprintf)(char *buffer, const char* pat, ...)
4603vsprintf(buffer, pat, args);
4605return strlen(buffer);
4611#define dXCPT dJMPENV; int rEtV = 0
4612#define XCPT_TRY_START JMPENV_PUSH(rEtV); if (rEtV == 0)
4613#define XCPT_TRY_END JMPENV_POP;
4614#define XCPT_CATCH if (rEtV != 0)
4615#define XCPT_RETHROW JMPENV_JUMP(rEtV)
4617#define dXCPT Sigjmp_buf oldTOP; int rEtV = 0
4618#define XCPT_TRY_START Copy(top_env, oldTOP, 1, Sigjmp_buf); rEtV = Sigsetjmp(top_env, 1); if (rEtV == 0)
4619#define XCPT_TRY_END Copy(oldTOP, top_env, 1, Sigjmp_buf);
4620#define XCPT_CATCH if (rEtV != 0)
4621#define XCPT_RETHROW Siglongjmp(top_env, rEtV)
4624#if !defined(my_strlcat)
4625#if defined(NEED_my_strlcat)
4626static Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size);
4629extern Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size);
4631#if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)
4632#define my_strlcat DPPP_(my_my_strlcat)
4633#define Perl_my_strlcat DPPP_(my_my_strlcat)
4635DPPP_(my_my_strlcat)(char *dst, const char *src, Size_t size)
4637Size_t used, length, copy;
4639length = strlen(src);
4640if (size > 0 && used < size - 1) {
4641copy = (length >= size - used) ? size - used - 1 : length;
4642memcpy(dst + used, src, copy);
4643dst[used + copy] = '\0';
4645return used + length;
4649#if !defined(my_strlcpy)
4650#if defined(NEED_my_strlcpy)
4651static Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
4654extern Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
4656#if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)
4657#define my_strlcpy DPPP_(my_my_strlcpy)
4658#define Perl_my_strlcpy DPPP_(my_my_strlcpy)
4660DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size)
4663length = strlen(src);
4665copy = (length >= size) ? size - 1 : length;
4666memcpy(dst, src, copy);
4675#define SvUTF8(sv) (SvFLAGS(sv) & SVf_UTF8)
4678#if (PERL_BCDVERSION == 0x5019001)
4686#define UTF8fARG(u,l,p) newSVpvn_flags((p), (l), ((u) ? SVf_UTF8 : 0) | SVs_TEMP)
4689#define D_PPP_MIN(a,b) (((a) <= (b)) ? (a) : (b))
4690#ifndef UNICODE_REPLACEMENT
4691#define UNICODE_REPLACEMENT 0xFFFD
4694#ifndef UTF8_MAXBYTES
4695#define UTF8_MAXBYTES UTF8_MAXLEN
4698#ifndef UTF_START_MARK
4699#define UTF_START_MARK(len) \
4700(((len) > 7) ? 0xFF : (0xFF & (0xFE << (7-(len)))))
4702#if (PERL_BCDVERSION < 0x5018000)
4703#undef UTF8_MAXBYTES_CASE
4706#define D_PPP_BYTE_INFO_BITS 6
4707#ifndef UTF8_MAXBYTES_CASE
4708#define UTF8_MAXBYTES_CASE 13
4711#define D_PPP_BYTE_INFO_BITS 5
4712#ifndef UTF8_MAXBYTES_CASE
4713#define UTF8_MAXBYTES_CASE 15
4716#ifndef UTF_ACCUMULATION_SHIFT
4717#define UTF_ACCUMULATION_SHIFT D_PPP_BYTE_INFO_BITS
4720#ifndef NATIVE_UTF8_TO_I8
4721#define NATIVE_UTF8_TO_I8(c) NATIVE_TO_UTF(c)
4724#ifndef NATIVE_UTF8_TO_I8
4725#define NATIVE_UTF8_TO_I8(c) (c)
4729#ifndef I8_TO_NATIVE_UTF8
4730#define I8_TO_NATIVE_UTF8(c) UTF_TO_NATIVE(c)
4733#ifndef I8_TO_NATIVE_UTF8
4734#define I8_TO_NATIVE_UTF8(c) (c)
4737#ifndef UTF_START_MASK
4738#define UTF_START_MASK(len) \
4739(((len) >= 7) ? 0x00 : (0x1F >> ((len)-2)))
4741#ifndef UTF_IS_CONTINUATION_MASK
4742#define UTF_IS_CONTINUATION_MASK \
4743((U8) (0xFF << UTF_ACCUMULATION_SHIFT))
4745#ifndef UTF_CONTINUATION_MARK
4746#define UTF_CONTINUATION_MARK \
4747(UTF_IS_CONTINUATION_MASK & 0xB0)
4749#ifndef UTF_MIN_START_BYTE
4750#define UTF_MIN_START_BYTE \
4751((UTF_CONTINUATION_MARK >> UTF_ACCUMULATION_SHIFT) | UTF_START_MARK(2))
4753#ifndef UTF_MIN_ABOVE_LATIN1_BYTE
4754#define UTF_MIN_ABOVE_LATIN1_BYTE \
4755((0x100 >> UTF_ACCUMULATION_SHIFT) | UTF_START_MARK(2))
4757#if (PERL_BCDVERSION < 0x5007000)
4758#undef UTF8_IS_DOWNGRADEABLE_START
4760#ifndef UTF8_IS_DOWNGRADEABLE_START
4761#define UTF8_IS_DOWNGRADEABLE_START(c) \
4762inRANGE(NATIVE_UTF8_TO_I8(c), \
4763UTF_MIN_START_BYTE, UTF_MIN_ABOVE_LATIN1_BYTE - 1)
4765#ifndef UTF_CONTINUATION_MASK
4766#define UTF_CONTINUATION_MASK \
4767((U8) ((1U << UTF_ACCUMULATION_SHIFT) - 1))
4769#ifndef UTF8_ACCUMULATE
4770#define UTF8_ACCUMULATE(base, added) \
4771(((base) << UTF_ACCUMULATION_SHIFT) \
4772| ((NATIVE_UTF8_TO_I8(added)) \
4773& UTF_CONTINUATION_MASK))
4775#ifndef UTF8_ALLOW_ANYUV
4776#define UTF8_ALLOW_ANYUV 0
4778#ifndef UTF8_ALLOW_EMPTY
4779#define UTF8_ALLOW_EMPTY 0x0001
4781#ifndef UTF8_ALLOW_CONTINUATION
4782#define UTF8_ALLOW_CONTINUATION 0x0002
4784#ifndef UTF8_ALLOW_NON_CONTINUATION
4785#define UTF8_ALLOW_NON_CONTINUATION 0x0004
4787#ifndef UTF8_ALLOW_SHORT
4788#define UTF8_ALLOW_SHORT 0x0008
4790#ifndef UTF8_ALLOW_LONG
4791#define UTF8_ALLOW_LONG 0x0010
4793#ifndef UTF8_ALLOW_OVERFLOW
4794#define UTF8_ALLOW_OVERFLOW 0x0080
4796#ifndef UTF8_ALLOW_ANY
4797#define UTF8_ALLOW_ANY ( UTF8_ALLOW_CONTINUATION \
4798|UTF8_ALLOW_NON_CONTINUATION \
4801|UTF8_ALLOW_OVERFLOW)
4804#undef UTF8_SAFE_SKIP
4806#ifndef UTF8_SAFE_SKIP
4807#define UTF8_SAFE_SKIP(s, e) ( \
4808((((e) - (s)) <= 0) \
4810: D_PPP_MIN(((e) - (s)), UTF8SKIP(s))))
4812#ifndef UTF8_CHK_SKIP
4813#define UTF8_CHK_SKIP(s) \
4814(s[0] == '\0' ? 1 : ((U8) D_PPP_MIN(my_strnlen((char *) (s), UTF8SKIP(s)), \
4818#define UTF8_SKIP(s) UTF8SKIP(s)
4822#ifndef UTF8_IS_INVARIANT
4823#define UTF8_IS_INVARIANT(c) isASCII(c)
4826#ifndef UTF8_IS_INVARIANT
4827#define UTF8_IS_INVARIANT(c) (isASCII(c) || isCNTRL_L1(c))
4830#ifndef UVCHR_IS_INVARIANT
4831#define UVCHR_IS_INVARIANT(c) UTF8_IS_INVARIANT(c)
4833#ifdef UVCHR_IS_INVARIANT
4834#if 'A' != 65 || UVSIZE < 8
4835#define D_PPP_UVCHR_SKIP_UPPER(c) 7
4837#define D_PPP_UVCHR_SKIP_UPPER(c) \
4838(((WIDEST_UTYPE) (c)) < \
4839(((WIDEST_UTYPE) 1) << (6 * D_PPP_BYTE_INFO_BITS)) ? 7 : 13)
4842#define UVCHR_SKIP(c) \
4843UVCHR_IS_INVARIANT(c) ? 1 : \
4844(WIDEST_UTYPE) (c) < (32 * (1U << ( D_PPP_BYTE_INFO_BITS))) ? 2 : \
4845(WIDEST_UTYPE) (c) < (16 * (1U << (2 * D_PPP_BYTE_INFO_BITS))) ? 3 : \
4846(WIDEST_UTYPE) (c) < ( 8 * (1U << (3 * D_PPP_BYTE_INFO_BITS))) ? 4 : \
4847(WIDEST_UTYPE) (c) < ( 4 * (1U << (4 * D_PPP_BYTE_INFO_BITS))) ? 5 : \
4848(WIDEST_UTYPE) (c) < ( 2 * (1U << (5 * D_PPP_BYTE_INFO_BITS))) ? 6 : \
4849D_PPP_UVCHR_SKIP_UPPER(c)
4852#ifdef is_ascii_string
4853#ifndef is_invariant_string
4854#define is_invariant_string(s,l) is_ascii_string(s,l)
4856#ifndef is_utf8_invariant_string
4857#define is_utf8_invariant_string(s,l) is_ascii_string(s,l)
4862#define foldEQ_utf8(s1,pe1,l1,u1,s2,pe2,l2,u2) \
4863cBOOL(! ibcmp_utf8(s1,pe1,l1,u1,s2,pe2,l2,u2))
4866#if defined(is_utf8_string) && defined(UTF8SKIP)
4868#define isUTF8_CHAR(s, e) ( \
4869(e) <= (s) || ! is_utf8_string(s, UTF8_SAFE_SKIP(s, e)) \
4876#define BOM_UTF8 "\xEF\xBB\xBF"
4878#ifndef REPLACEMENT_CHARACTER_UTF8
4879#define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
4883#define BOM_UTF8 "\xDD\x73\x66\x73"
4885#ifndef REPLACEMENT_CHARACTER_UTF8
4886#define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
4890#define BOM_UTF8 "\xDD\x72\x65\x72"
4892#ifndef REPLACEMENT_CHARACTER_UTF8
4893#define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
4896#error Unknown character set
4898#if (PERL_BCDVERSION < 0x5035010)
4899#undef utf8_to_uvchr_buf
4901#if (PERL_BCDVERSION >= 0x5006001) && ! defined(utf8_to_uvchr_buf)
4902#if defined(utf8n_to_uvchr) || defined(utf8_to_uvchr) || defined(utf8_to_uv)
4903#if defined(utf8n_to_uvchr)
4904#define D_PPP_utf8_to_uvchr_buf_callee utf8n_to_uvchr
4906defined(utf8_to_uv) && defined(utf8_to_uv_simple)
4907#define D_PPP_utf8_to_uvchr_buf_callee utf8_to_uv
4908#elif defined(utf8_to_uvchr)
4909#define D_PPP_utf8_to_uvchr_buf_callee(s, curlen, retlen, flags) \
4910utf8_to_uvchr((U8 *)(s), (retlen))
4912#define D_PPP_utf8_to_uvchr_buf_callee(s, curlen, retlen, flags) \
4913utf8_to_uv((U8 *)(s), (retlen))
4916#if defined(NEED_utf8_to_uvchr_buf)
4917static UV DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 * s, const U8 * send, STRLEN * retlen);
4920extern UV DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 * s, const U8 * send, STRLEN * retlen);
4922#if defined(NEED_utf8_to_uvchr_buf) || defined(NEED_utf8_to_uvchr_buf_GLOBAL)
4923#ifdef utf8_to_uvchr_buf
4924#undef utf8_to_uvchr_buf
4926#define utf8_to_uvchr_buf(a,b,c) DPPP_(my_utf8_to_uvchr_buf)(aTHX_ a,b,c)
4927#define Perl_utf8_to_uvchr_buf DPPP_(my_utf8_to_uvchr_buf)
4929DPPP_(my_utf8_to_uvchr_buf)(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen)
4931#if (PERL_BCDVERSION >= 0x5031004)
4932#if (PERL_BCDVERSION != 0x5035009)
4933if (send <= s) s = send = (U8 *) "?";
4934return Perl_utf8_to_uvchr_buf_helper(aTHX_ s, send, retlen);
4936if (send > s) return Perl_utf8_to_uvchr_buf_helper(aTHX_ s, send, retlen);
4937if (! ckWARN_d(WARN_UTF8)) {
4938if (retlen) *retlen = 0;
4939return UNICODE_REPLACEMENT;
4942s = send = (U8 *) "?";
4943(void) Perl__utf8n_to_uvchr_msgs_helper(s, 0, NULL, 0, NULL, NULL);
4944if (retlen) *retlen = (STRLEN) -1;
4953const bool do_warnings = ckWARN_d(WARN_UTF8);
4954#if (PERL_BCDVERSION < 0x5026000) && ! defined(EBCDIC)
4955STRLEN overflow_length = 0;
4964if (retlen) *retlen = 0;
4965return UNICODE_REPLACEMENT;
4968#if (PERL_BCDVERSION < 0x5026000) && ! defined(EBCDIC)
4969if (curlen > 0 && UNLIKELY(*s >= 0xFE)) {
4970if (sizeof(ret) < 8) {
4972overflow_length = (*s == 0xFE) ? 7 : 13;
4976"\xFF\x80\x87\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF\xBF";
4977const U8 *cur_h = highest;
4978for (cur_s = s; cur_s < send; cur_s++, cur_h++) {
4979if (UNLIKELY(*cur_s == *cur_h)) {
4982overflows = *cur_s > *cur_h;
4985overflow_length = 13;
4988if (UNLIKELY(overflows)) {
4990if (! do_warnings && retlen) {
4991*retlen = overflow_length;
4996ret = D_PPP_utf8_to_uvchr_buf_callee(
4998s, curlen, retlen, (UTF8_ALLOW_ANYUV
4999& ~(UTF8_ALLOW_LONG|UTF8_ALLOW_EMPTY)));
5000#if (PERL_BCDVERSION >= 0x5026000) && (PERL_BCDVERSION < 0x5028000)
5001if (UNLIKELY(ret > IV_MAX)) {
5005if (UNLIKELY(overflows)) {
5008*retlen = D_PPP_MIN(*retlen, UTF8SKIP(s));
5009*retlen = D_PPP_MIN(*retlen, curlen);
5011return UNICODE_REPLACEMENT;
5014Perl_warner(aTHX_ packWARN(WARN_UTF8),
5015"Malformed UTF-8 character (overflow at 0x%" UVxf
5016", byte 0x%02x, after start byte 0x%02x)",
5019*retlen = (STRLEN) -1;
5024if (UNLIKELY(ret == 0 && (curlen == 0 || *s != '\0'))) {
5027*retlen = (STRLEN) -1;
5031ret = D_PPP_utf8_to_uvchr_buf_callee(
5033s, curlen, retlen, UTF8_ALLOW_ANY);
5034ret = UNICODE_REPLACEMENT;
5035#if (PERL_BCDVERSION < 0x5016000)
5036if (retlen && (IV) *retlen >= 0) {
5038*retlen = D_PPP_MIN(*retlen, curlen);
5039*retlen = D_PPP_MIN(*retlen, UTF8SKIP(s));
5041#ifdef UTF8_IS_CONTINUATION
5042if (! UTF8_IS_CONTINUATION(s[i]))
5044if (s[i] < 0x80 || s[i] > 0xBF)
5050} while (++i < *retlen);
5060#if defined(UTF8SKIP) && defined(utf8_to_uvchr_buf)
5062#ifndef utf8_to_uvchr
5063#define utf8_to_uvchr(s, lp) \
5065? utf8_to_uvchr_buf(s,((s)+1), lp) \
5066: utf8_to_uvchr_buf(s, (s) + UTF8_CHK_SKIP(s), (lp)))
5070#if (PERL_BCDVERSION >= 0x5017005)
5071#ifndef sv_len_utf8_nomg
5072#if defined(PERL_USE_GCC_BRACE_GROUPS)
5073#define sv_len_utf8_nomg(sv) \
5076sv_len_utf8(!SvGMAGICAL(sv_) \
5078: sv_mortalcopy_flags(sv_, SV_NOSTEAL)); \
5081PERL_STATIC_INLINE STRLEN D_PPP_sv_len_utf8_nomg(SV * sv)
5085return sv_len_utf8(sv_mortalcopy_flags(sv,
5087else return sv_len_utf8(sv);
5089#define sv_len_utf8_nomg(sv) D_PPP_sv_len_utf8_nomg(sv)
5094#if defined(PERL_USE_GCC_BRACE_GROUPS)
5095#define sv_len_utf8_nomg(sv) \
5100if (SvGMAGICAL(sv2)) \
5101len = Perl_sv_len_utf8(aTHX_ \
5102sv_mortalcopy_flags(sv2, \
5105len = Perl_sv_len_utf8(aTHX_ sv2); \
5107else SvPV_nomg(sv2, len); \
5110#define sv_len_utf8(sv) ({ SV *_sv1 = (sv); \
5112sv_len_utf8_nomg(_sv1); \
5115PERL_STATIC_INLINE STRLEN D_PPP_sv_len_utf8_nomg(SV * sv)
5121len = Perl_sv_len_utf8(aTHX_
5122sv_mortalcopy_flags(sv,
5125len = Perl_sv_len_utf8(aTHX_ sv);
5127else SvPV_nomg(sv, len);
5130#define sv_len_utf8_nomg(sv) D_PPP_sv_len_utf8_nomg(sv)
5131PERL_STATIC_INLINE STRLEN D_PPP_sv_len_utf8(SV * sv)
5135return sv_len_utf8_nomg(sv);
5137#define sv_len_utf8(sv) D_PPP_sv_len_utf8(sv)
5141#ifndef PERL_PV_ESCAPE_QUOTE
5142#define PERL_PV_ESCAPE_QUOTE 0x0001
5144#ifndef PERL_PV_PRETTY_QUOTE
5145#define PERL_PV_PRETTY_QUOTE PERL_PV_ESCAPE_QUOTE
5147#ifndef PERL_PV_PRETTY_ELLIPSES
5148#define PERL_PV_PRETTY_ELLIPSES 0x0002
5150#ifndef PERL_PV_PRETTY_LTGT
5151#define PERL_PV_PRETTY_LTGT 0x0004
5153#ifndef PERL_PV_ESCAPE_FIRSTCHAR
5154#define PERL_PV_ESCAPE_FIRSTCHAR 0x0008
5156#ifndef PERL_PV_ESCAPE_UNI
5157#define PERL_PV_ESCAPE_UNI 0x0100
5159#ifndef PERL_PV_ESCAPE_UNI_DETECT
5160#define PERL_PV_ESCAPE_UNI_DETECT 0x0200
5162#ifndef PERL_PV_ESCAPE_ALL
5163#define PERL_PV_ESCAPE_ALL 0x1000
5165#ifndef PERL_PV_ESCAPE_NOBACKSLASH
5166#define PERL_PV_ESCAPE_NOBACKSLASH 0x2000
5168#ifndef PERL_PV_ESCAPE_NOCLEAR
5169#define PERL_PV_ESCAPE_NOCLEAR 0x4000
5171#ifndef PERL_PV_ESCAPE_RE
5172#define PERL_PV_ESCAPE_RE 0x8000
5174#ifndef PERL_PV_PRETTY_NOCLEAR
5175#define PERL_PV_PRETTY_NOCLEAR PERL_PV_ESCAPE_NOCLEAR
5177#ifndef PERL_PV_PRETTY_DUMP
5178#define PERL_PV_PRETTY_DUMP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE
5180#ifndef PERL_PV_PRETTY_REGPROP
5181#define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
5184#if defined(NEED_pv_escape)
5185static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
5188extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
5190#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
5194#define pv_escape(a,b,c,d,e,f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f)
5195#define Perl_pv_escape DPPP_(my_pv_escape)
5197DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
5198const STRLEN count, const STRLEN max,
5199STRLEN * const escaped, const U32 flags)
5201const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\\';
5202const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
5203char octbuf[32] =
"%123456789ABCDF";
5207#if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
5210const char *pv = str;
5211const char *
const end = pv + count;
5215#if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
5219for (; pv <
end && (!max || wrote < max) ; pv += readsize) {
5221#if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
5222isuni ? utf8_to_uvchr_buf((U8*)pv,
end, &readsize) :
5225const U8 c = (U8)
u & 0xFF;
5228chsize = my_snprintf(octbuf,
sizeof octbuf,
5231chsize = my_snprintf(octbuf,
sizeof octbuf,
5232"%cx{%" UVxf "}", esc,
u);
5236if (c == dq || c == esc || !
isPRINT(c)) {
5240case '%' :
if (c == esc)
5245case '\v' : octbuf[1] =
'v';
break;
5246case '\t' : octbuf[1] =
't';
break;
5247case '\r' : octbuf[1] =
'r';
break;
5248case '\n' : octbuf[1] =
'n';
break;
5249case '\f' : octbuf[1] =
'f';
break;
5250case '"' :
if (dq ==
'"')
5255default: chsize = my_snprintf(octbuf,
sizeof octbuf,
5257?
"%c%03o" :
"%c%o", esc, c);
5263if (max && wrote + chsize > max) {
5265}
else if (chsize > 1) {
5266sv_catpvn(dsv, octbuf, chsize);
5270my_snprintf(tmp,
sizeof tmp,
"%c", c);
5271sv_catpvn(dsv, tmp, 1);
5284#if defined(NEED_pv_pretty)
5285static char *
DPPP_(
my_pv_pretty)(
pTHX_ SV * dsv,
char const *
const str,
const STRLEN count,
const STRLEN max,
char const *
const start_color,
char const *
const end_color,
const U32 flags);
5288extern char *
DPPP_(
my_pv_pretty)(
pTHX_ SV * dsv,
char const *
const str,
const STRLEN count,
const STRLEN max,
char const *
const start_color,
char const *
const end_color,
const U32 flags);
5290#if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)
5294#define pv_pretty(a,b,c,d,e,f,g) DPPP_(my_pv_pretty)(aTHX_ a,b,c,d,e,f,g)
5295#define Perl_pv_pretty DPPP_(my_pv_pretty)
5298const STRLEN max,
char const *
const start_color,
char const *
const end_color,
5309if (start_color != NULL)
5312if (end_color != NULL)
5325#if defined(NEED_pv_display)
5331#if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)
5335#define pv_display(a,b,c,d,e) DPPP_(my_pv_display)(aTHX_ a,b,c,d,e)
5336#define Perl_pv_display DPPP_(my_pv_display)
5341if (len > cur && pv[cur] ==
'\0')
5347#if PERL_VERSION_LT(5,27,9)
5348#ifndef LC_NUMERIC_LOCK
5349#define LC_NUMERIC_LOCK
5351#ifndef LC_NUMERIC_UNLOCK
5352#define LC_NUMERIC_UNLOCK
5354#if PERL_VERSION_LT(5,19,0)
5355#undef STORE_LC_NUMERIC_SET_STANDARD
5356#undef RESTORE_LC_NUMERIC
5357#undef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
5359#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
5360#define DECLARATION_FOR_LC_NUMERIC_MANIPULATION char *LoC_
5362#ifndef STORE_NUMERIC_SET_STANDARD
5363#define STORE_NUMERIC_SET_STANDARD() \
5364LoC_ = savepv(setlocale(LC_NUMERIC, NULL)); \
5366setlocale(LC_NUMERIC, "C");
5368#ifndef RESTORE_LC_NUMERIC
5369#define RESTORE_LC_NUMERIC() \
5370setlocale(LC_NUMERIC, LoC_);
5373#ifndef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
5374#define DECLARATION_FOR_LC_NUMERIC_MANIPULATION
5376#ifndef STORE_LC_NUMERIC_SET_STANDARD
5377#define STORE_LC_NUMERIC_SET_STANDARD()
5379#ifndef RESTORE_LC_NUMERIC
5380#define RESTORE_LC_NUMERIC()
5385#ifndef LOCK_NUMERIC_STANDARD
5386#define LOCK_NUMERIC_STANDARD()
5388#ifndef UNLOCK_NUMERIC_STANDARD
5389#define UNLOCK_NUMERIC_STANDARD()
5391#ifndef LOCK_LC_NUMERIC_STANDARD
5392#define LOCK_LC_NUMERIC_STANDARD LOCK_NUMERIC_STANDARD
5394#ifndef UNLOCK_LC_NUMERIC_STANDARD
5395#define UNLOCK_LC_NUMERIC_STANDARD UNLOCK_NUMERIC_STANDARD
5397#ifndef switch_to_global_locale
5398#define switch_to_global_locale()
5401#if (PERL_BCDVERSION < 0x5027009)
5402#if (PERL_BCDVERSION >= 0x5021003)
5404#define sync_locale() (Perl_sync_locale(aTHX), 1)
5405#elif defined(sync_locale)
5407#define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), \
5408new_collate(setlocale(LC_COLLATE, NULL)), \
5409set_numeric_local(), \
5410new_numeric(setlocale(LC_NUMERIC, NULL)), \
5412#elif defined(new_ctype) && defined(LC_CTYPE)
5413#define sync_locale() (new_ctype(setlocale(LC_CTYPE, NULL)), 1)
5418#define sync_locale() 1
KviPtrListIterator< T > end(KviPointerList< T > *ptrList)
Definition KviPtrListIterator.h:68
#define u
Definition detector.cpp:86
#define UVxf
Definition ppport.h:2615
NVTYPE NV
Definition ppport.h:960
#define pTHX
Definition ppport.h:164
#define CPERLscope(x)
Definition ppport.h:1120
#define PERL_PV_PRETTY_QUOTE
Definition ppport.h:5145
#define D_PPP_CONSTPV_ARG(x)
Definition ppport.h:3381
#define sv_catpvs(sv, str)
Definition ppport.h:3661
#define PERL_PV_ESCAPE_ALL
Definition ppport.h:5163
OP *CPERLscope Perl_ppaddr_t(pTHX)
Definition ppport.h:1146
char *DPPP_ my_pv_pretty(pTHX_ SV *dsv, char const *const str, const STRLEN count, const STRLEN max, char const *const start_color, char const *const end_color, const U32 flags)
#define PERL_PV_PRETTY_DUMP
Definition ppport.h:5178
#define PERL_PV_ESCAPE_UNI
Definition ppport.h:5157
char *DPPP_ my_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
#define D_PPP_PERL_SIGNALS_INIT
Definition ppport.h:488
OP *CPERLscope Perl_check_t(pTHX_ OP *)
Definition ppport.h:1148
#define PL_hints
Definition ppport.h:527
#define PERL_PV_PRETTY_ELLIPSES
Definition ppport.h:5148
#define PERL_PV_ESCAPE_FIRSTCHAR
Definition ppport.h:5154
#define start_subparse(a, b)
Definition ppport.h:593
#define PL_curcop
Definition ppport.h:516
#define PERL_PV_PRETTY_LTGT
Definition ppport.h:5151
static CV *DPPP_ my_newCONSTSUB(HV *stash, const char *name, SV *sv)
Definition ppport.h:620
#define isDIGIT(c)
Definition ppport.h:1385
#define PERL_PV_PRETTY_NOCLEAR
Definition ppport.h:5175
#define isPRINT(c)
Definition ppport.h:1432
#define PL_sv_no
Definition ppport.h:543
#define PERL_PV_ESCAPE_NOCLEAR
Definition ppport.h:5169
#define PERL_PV_ESCAPE_UNI_DETECT
Definition ppport.h:5160
#define DPPP_(name)
Definition ppport.h:51
#define pTHX_
Definition ppport.h:167
#define D_PPP_PL_copline
Definition ppport.h:618
#define sv_setpvs(sv, str)
Definition ppport.h:3664
#define PERL_PV_ESCAPE_NOBACKSLASH
Definition ppport.h:5166
#define PL_curstash
Definition ppport.h:517
#define NVTYPE
Definition ppport.h:958