|
#define | _P_P_PORTABILITY_H_ |
|
#define | DPPP_NAMESPACE DPPP_ |
|
#define | DPPP_CAT2(x, y) CAT2(x,y) |
|
#define | DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name) |
|
#define | D_PPP_RELEASE_DATE 1625616000 /* 2021-07-07 */ |
|
#define | PERL_PATCHLEVEL_H_IMPLICIT |
|
#define | D_PPP_MAJOR 5 |
|
#define | D_PPP_DEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10)) |
|
#define | D_PPP_JNP_TO_BCD(j, n, p) ((D_PPP_DEC2BCD(j)<<24)|(D_PPP_DEC2BCD(n)<<12)|D_PPP_DEC2BCD(p)) |
|
#define | PERL_BCDVERSION |
|
#define | PERL_VERSION_EQ(j, n, p) |
|
#define | PERL_VERSION_NE(j, n, p) (! PERL_VERSION_EQ(j,n,p)) |
|
#define | PERL_VERSION_LT(j, n, p) |
|
#define | PERL_VERSION_GE(j, n, p) (! PERL_VERSION_LT(j,n,p)) |
|
#define | PERL_VERSION_LE(j, n, p) |
|
#define | PERL_VERSION_GT(j, n, p) (! PERL_VERSION_LE(j,n,p)) |
|
#define | dTHR dNOOP |
|
#define | dTHX dNOOP |
|
#define | dTHXa(x) dNOOP |
|
#define | pTHX void |
|
#define | pTHX_ |
|
#define | aTHX |
|
#define | aTHX_ |
|
#define | aTHXR |
|
#define | aTHXR_ |
|
#define | dTHXR dTHR |
|
#define | dTHXoa(x) dTHXa(x) |
|
#define | PERL_UCHAR_MIN ((unsigned char)0) |
|
#define | PERL_UCHAR_MAX ((unsigned char)~(unsigned)0) |
|
#define | PERL_USHORT_MIN ((unsigned short)0) |
|
#define | PERL_USHORT_MAX ((unsigned short)~(unsigned)0) |
|
#define | PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1)) |
|
#define | PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3)) |
|
#define | PERL_UINT_MAX (~(unsigned int)0) |
|
#define | PERL_UINT_MIN ((unsigned int)0) |
|
#define | PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1)) |
|
#define | PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3)) |
|
#define | PERL_ULONG_MAX (~(unsigned long)0) |
|
#define | PERL_ULONG_MIN ((unsigned long)0L) |
|
#define | PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1)) |
|
#define | PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3)) |
|
#define | IVTYPE long |
|
#define | LONGSIZE 4 |
|
#define | IV_MIN PERL_LONG_MIN |
|
#define | IV_MAX PERL_LONG_MAX |
|
#define | UV_MIN PERL_ULONG_MIN |
|
#define | UV_MAX PERL_ULONG_MAX |
|
#define | IVSIZE LONGSIZE |
|
#define | UVTYPE unsigned IVTYPE |
|
#define | UVSIZE IVSIZE |
|
#define | PERL_SIGNALS_UNSAFE_FLAG 0x0001 |
|
#define | D_PPP_PERL_SIGNALS_INIT PERL_SIGNALS_UNSAFE_FLAG |
|
#define | PL_signals DPPP_(my_PL_signals) |
|
#define | PL_ppaddr ppaddr |
|
#define | PL_no_modify no_modify |
|
#define | PL_DBsignal DBsignal |
|
#define | PL_DBsingle DBsingle |
|
#define | PL_DBsub DBsub |
|
#define | PL_DBtrace DBtrace |
|
#define | PL_Sv Sv |
|
#define | PL_Xpv Xpv |
|
#define | PL_bufend bufend |
|
#define | PL_bufptr bufptr |
|
#define | PL_compiling compiling |
|
#define | PL_copline copline |
|
#define | PL_curcop curcop |
|
#define | PL_curstash curstash |
|
#define | PL_debstash debstash |
|
#define | PL_defgv defgv |
|
#define | PL_diehook diehook |
|
#define | PL_dirty dirty |
|
#define | PL_dowarn dowarn |
|
#define | PL_errgv errgv |
|
#define | PL_error_count error_count |
|
#define | PL_expect expect |
|
#define | PL_hexdigit hexdigit |
|
#define | PL_hints hints |
|
#define | PL_in_my in_my |
|
#define | PL_laststatval laststatval |
|
#define | PL_lex_state lex_state |
|
#define | PL_lex_stuff lex_stuff |
|
#define | PL_linestr linestr |
|
#define | PL_na na |
|
#define | PL_perl_destruct_level perl_destruct_level |
|
#define | PL_perldb perldb |
|
#define | PL_rsfp_filters rsfp_filters |
|
#define | PL_rsfp rsfp |
|
#define | PL_stack_base stack_base |
|
#define | PL_stack_sp stack_sp |
|
#define | PL_statcache statcache |
|
#define | PL_stdingv stdingv |
|
#define | PL_sv_arenaroot sv_arenaroot |
|
#define | PL_sv_no sv_no |
|
#define | PL_sv_undef sv_undef |
|
#define | PL_sv_yes sv_yes |
|
#define | PL_tainted tainted |
|
#define | PL_tainting tainting |
|
#define | PL_tokenbuf tokenbuf |
|
#define | PL_mess_sv mess_sv |
|
#define | PL_parser ((void *) 1) |
|
#define | start_subparse(a, b) Perl_start_subparse() |
|
#define | NEED_newCONSTSUB |
|
#define | newCONSTSUB(a, b, c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c) |
|
#define | Perl_newCONSTSUB DPPP_(my_newCONSTSUB) |
|
#define | D_PPP_PL_copline PL_copline |
|
#define | PERL_MAGIC_sv '\0' |
|
#define | PERL_MAGIC_overload 'A' |
|
#define | PERL_MAGIC_overload_elem 'a' |
|
#define | PERL_MAGIC_overload_table 'c' |
|
#define | PERL_MAGIC_bm 'B' |
|
#define | PERL_MAGIC_regdata 'D' |
|
#define | PERL_MAGIC_regdatum 'd' |
|
#define | PERL_MAGIC_env 'E' |
|
#define | PERL_MAGIC_envelem 'e' |
|
#define | PERL_MAGIC_fm 'f' |
|
#define | PERL_MAGIC_regex_global 'g' |
|
#define | PERL_MAGIC_isa 'I' |
|
#define | PERL_MAGIC_isaelem 'i' |
|
#define | PERL_MAGIC_nkeys 'k' |
|
#define | PERL_MAGIC_dbfile 'L' |
|
#define | PERL_MAGIC_dbline 'l' |
|
#define | PERL_MAGIC_mutex 'm' |
|
#define | PERL_MAGIC_shared 'N' |
|
#define | PERL_MAGIC_shared_scalar 'n' |
|
#define | PERL_MAGIC_collxfrm 'o' |
|
#define | PERL_MAGIC_tied 'P' |
|
#define | PERL_MAGIC_tiedelem 'p' |
|
#define | PERL_MAGIC_tiedscalar 'q' |
|
#define | PERL_MAGIC_qr 'r' |
|
#define | PERL_MAGIC_sig 'S' |
|
#define | PERL_MAGIC_sigelem 's' |
|
#define | PERL_MAGIC_taint 't' |
|
#define | PERL_MAGIC_uvar 'U' |
|
#define | PERL_MAGIC_uvar_elem 'u' |
|
#define | PERL_MAGIC_vstring 'V' |
|
#define | PERL_MAGIC_vec 'v' |
|
#define | PERL_MAGIC_utf8 'w' |
|
#define | PERL_MAGIC_substr 'x' |
|
#define | PERL_MAGIC_defelem 'y' |
|
#define | PERL_MAGIC_glob '*' |
|
#define | PERL_MAGIC_arylen '#' |
|
#define | PERL_MAGIC_pos '.' |
|
#define | PERL_MAGIC_backref '<' |
|
#define | PERL_MAGIC_ext '~' |
|
#define | cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0) |
|
#define | OpHAS_SIBLING(o) (cBOOL((o)->op_sibling)) |
|
#define | OpSIBLING(o) (0 + (o)->op_sibling) |
|
#define | OpMORESIB_set(o, sib) ((o)->op_sibling = (sib)) |
|
#define | OpLASTSIB_set(o, parent) ((o)->op_sibling = NULL) |
|
#define | OpMAYBESIB_set(o, sib, parent) ((o)->op_sibling = (sib)) |
|
#define | HEf_SVKEY -2 |
|
#define | __ASSERT_(statement) |
|
#define | __has_builtin(x) 0 |
|
#define | ASSUME(x) assert(x) |
|
#define | NOT_REACHED ASSUME(!"UNREACHABLE") |
|
#define | WIDEST_UTYPE U32 |
|
#define | withinCOUNT(c, l, n) (((WIDEST_UTYPE) (((c)) - ((l) | 0))) <= (((WIDEST_UTYPE) ((n) | 0)))) |
|
#define | inRANGE(c, l, u) |
|
#define | FITS_IN_8_BITS(c) |
|
#define | D_PPP_IS_GENERIC_UTF8_SAFE(s, e, macro) |
|
#define | D_PPP_IS_GENERIC_LC_UTF8_SAFE(s, e, macro) |
|
#define | D_PPP_IS_GENERIC_LC_UTF8_SAFE_BROKEN(s, e, macro) |
|
#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) |
|
#define | SvRXOK(sv) (!!SvRX(sv)) |
|
#define | PERL_UNUSED_DECL |
|
#define | PERL_UNUSED_ARG(x) ((void)x) |
|
#define | PERL_UNUSED_VAR(x) ((void)x) |
|
#define | PERL_UNUSED_CONTEXT |
|
#define | PERL_UNUSED_RESULT(v) ((void)(v)) |
|
#define | NOOP /*EMPTY*/(void)0 |
|
#define | dNOOP extern int /*@unused@*/ Perl___notused PERL_UNUSED_DECL |
|
#define | NVTYPE double |
|
#define | PTRV unsigned |
|
#define | INT2PTR(any, d) (any)(PTRV)(d) |
|
#define | PTR2ul(p) INT2PTR(unsigned long,p) |
|
#define | PTR2nat(p) (PTRV)(p) |
|
#define | NUM2PTR(any, d) (any)PTR2nat(d) |
|
#define | PTR2IV(p) INT2PTR(IV,p) |
|
#define | PTR2UV(p) INT2PTR(UV,p) |
|
#define | PTR2NV(p) NUM2PTR(NV,p) |
|
#define | START_EXTERN_C |
|
#define | END_EXTERN_C |
|
#define | EXTERN_C extern |
|
#define | PERL_GCC_BRACE_GROUPS_FORBIDDEN |
|
#define | STMT_START do |
|
#define | STMT_END while (0) |
|
#define | boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no) |
|
#define | DEFSV GvSV(PL_defgv) |
|
#define | SAVE_DEFSV SAVESPTR(GvSV(PL_defgv)) |
|
#define | DEFSV_set(sv) (DEFSV = (sv)) |
|
#define | AvFILLp AvFILL |
|
#define | av_tindex AvFILL |
|
#define | av_top_index AvFILL |
|
#define | av_count(av) (AvFILL(av)+1) |
|
#define | ERRSV get_sv("@",FALSE) |
|
#define | gv_stashpvn(str, len, create) gv_stashpv(str,create) |
|
#define | get_cv perl_get_cv |
|
#define | get_sv perl_get_sv |
|
#define | get_av perl_get_av |
|
#define | get_hv perl_get_hv |
|
#define | dUNDERBAR dNOOP |
|
#define | UNDERBAR DEFSV |
|
#define | dAX I32 ax = MARK - PL_stack_base + 1 |
|
#define | dITEMS I32 items = SP - MARK |
|
#define | dXSTARG SV * targ = sv_newmortal() |
|
#define | dAXMARK |
|
#define | XSprePUSH (sp = PL_stack_base + ax - 1) |
|
#define | XSRETURN(off) |
|
#define | XSPROTO(name) void name(pTHX_ CV* cv) |
|
#define | SVfARG(p) ((void*)(p)) |
|
#define | PERL_ABS(x) ((x) < 0 ? -(x) : (x)) |
|
#define | dVAR dNOOP |
|
#define | SVf "_" |
|
#define | CPERLscope(x) x |
|
#define | PERL_HASH(hash, str, len) |
|
#define | PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs |
|
#define | PERLIO_FUNCS_CAST(funcs) (funcs) |
|
#define | NATIVE_TO_LATIN1(c) (c) |
|
#define | LATIN1_TO_NATIVE(c) (c) |
|
#define | NATIVE_TO_UNI(c) (c) |
|
#define | UNI_TO_NATIVE(c) (c) |
|
#define | isASCII(c) ((WIDEST_UTYPE) (c) <= 127) |
|
#define | isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127) |
|
#define | isCNTRL_L1(c) |
|
#define | isLOWER(c) inRANGE((c), 'a', 'z') |
|
#define | isUPPER(c) inRANGE((c), 'A', 'Z') |
|
#define | isASCII_L1(c) isASCII(c) |
|
#define | isASCII_LC(c) isASCII(c) |
|
#define | isALNUM(c) isWORDCHAR(c) |
|
#define | isALNUMC(c) isALPHANUMERIC(c) |
|
#define | isALNUMC_L1(c) isALPHANUMERIC_L1(c) |
|
#define | isALPHA(c) (isUPPER(c) || isLOWER(c)) |
|
#define | isALPHA_L1(c) (isUPPER_L1(c) || isLOWER_L1(c)) |
|
#define | isALPHANUMERIC(c) (isALPHA(c) || isDIGIT(c)) |
|
#define | isALPHANUMERIC_L1(c) (isALPHA_L1(c) || isDIGIT(c)) |
|
#define | isALPHANUMERIC_LC(c) (isALPHA_LC(c) || isDIGIT_LC(c)) |
|
#define | isBLANK(c) ((c) == ' ' || (c) == '\t') |
|
#define | isBLANK_L1(c) |
|
#define | isBLANK_LC(c) isBLANK(c) |
|
#define | isDIGIT(c) inRANGE(c, '0', '9') |
|
#define | isDIGIT_L1(c) isDIGIT(c) |
|
#define | isGRAPH(c) (isWORDCHAR(c) || isPUNCT(c)) |
|
#define | isGRAPH_L1(c) |
|
#define | isIDCONT(c) isWORDCHAR(c) |
|
#define | isIDCONT_L1(c) isWORDCHAR_L1(c) |
|
#define | isIDCONT_LC(c) isWORDCHAR_LC(c) |
|
#define | isIDFIRST(c) (isALPHA(c) || (c) == '_') |
|
#define | isIDFIRST_L1(c) (isALPHA_L1(c) || (U8) (c) == '_') |
|
#define | isIDFIRST_LC(c) (isALPHA_LC(c) || (U8) (c) == '_') |
|
#define | isLOWER_L1(c) |
|
#define | isOCTAL(c) (((WIDEST_UTYPE)((c)) & ~7) == '0') |
|
#define | isOCTAL_L1(c) isOCTAL(c) |
|
#define | isPRINT(c) (isGRAPH(c) || (c) == ' ') |
|
#define | isPRINT_L1(c) (FITS_IN_8_BITS(c) && ! isCNTRL_L1(c)) |
|
#define | isPSXSPC(c) isSPACE(c) |
|
#define | isPSXSPC_L1(c) isSPACE_L1(c) |
|
#define | isPUNCT(c) |
|
#define | isPUNCT_L1(c) |
|
#define | isSPACE(c) |
|
#define | isSPACE_L1(c) |
|
#define | isUPPER_L1(c) |
|
#define | isWORDCHAR(c) (isALPHANUMERIC(c) || (c) == '_') |
|
#define | isWORDCHAR_L1(c) (isIDFIRST_L1(c) || isDIGIT(c)) |
|
#define | isWORDCHAR_LC(c) (isIDFIRST_LC(c) || isDIGIT_LC(c)) |
|
#define | isXDIGIT(c) |
|
#define | isXDIGIT_L1(c) isXDIGIT(c) |
|
#define | isXDIGIT_LC(c) isxdigit(c) |
|
#define | isALNUM_A(c) isALNUM(c) |
|
#define | isALNUMC_A(c) isALNUMC(c) |
|
#define | isALPHA_A(c) isALPHA(c) |
|
#define | isALPHANUMERIC_A(c) isALPHANUMERIC(c) |
|
#define | isASCII_A(c) isASCII(c) |
|
#define | isBLANK_A(c) isBLANK(c) |
|
#define | isCNTRL_A(c) isCNTRL(c) |
|
#define | isDIGIT_A(c) isDIGIT(c) |
|
#define | isGRAPH_A(c) isGRAPH(c) |
|
#define | isIDCONT_A(c) isIDCONT(c) |
|
#define | isIDFIRST_A(c) isIDFIRST(c) |
|
#define | isLOWER_A(c) isLOWER(c) |
|
#define | isOCTAL_A(c) isOCTAL(c) |
|
#define | isPRINT_A(c) isPRINT(c) |
|
#define | isPSXSPC_A(c) isPSXSPC(c) |
|
#define | isPUNCT_A(c) isPUNCT(c) |
|
#define | isSPACE_A(c) isSPACE(c) |
|
#define | isUPPER_A(c) isUPPER(c) |
|
#define | isWORDCHAR_A(c) isWORDCHAR(c) |
|
#define | isXDIGIT_A(c) isXDIGIT(c) |
|
#define | isASCII_utf8_safe(s, e) (((e) - (s)) <= 0 ? 0 : isASCII(*(s))) |
|
#define | isASCII_uvchr(c) (FITS_IN_8_BITS(c) ? isASCII_L1(c) : 0) |
|
#define | D_PPP_TOO_SHORT_MSG |
|
#define | C_ARRAY_LENGTH(a) (sizeof(a)/sizeof((a)[0])) |
|
#define | C_ARRAY_END(a) ((a) + C_ARRAY_LENGTH(a)) |
|
#define | LIKELY(x) (x) |
|
#define | UNLIKELY(x) (x) |
|
#define | MUTABLE_PTR(p) ((void *) (p)) |
|
#define | MUTABLE_AV(p) ((AV *)MUTABLE_PTR(p)) |
|
#define | MUTABLE_CV(p) ((CV *)MUTABLE_PTR(p)) |
|
#define | MUTABLE_GV(p) ((GV *)MUTABLE_PTR(p)) |
|
#define | MUTABLE_HV(p) ((HV *)MUTABLE_PTR(p)) |
|
#define | MUTABLE_IO(p) ((IO *)MUTABLE_PTR(p)) |
|
#define | MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p)) |
|
#define | sv_catpvf_mg Perl_sv_catpvf_mg |
|
#define | sv_setpvf_mg Perl_sv_setpvf_mg |
|
#define | sv_2pv_nolen(sv) SvPV_nolen(sv) |
|
#define | SvPVbyte SvPV |
|
#define | sv_2pvbyte sv_2pv |
|
#define | sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv) |
|
#define | SV_IMMEDIATE_UNREF 0 |
|
#define | SV_GMAGIC 0 |
|
#define | SV_COW_DROP_PV 0 |
|
#define | SV_UTF8_NO_ENCODING 0 |
|
#define | SV_CONST_RETURN 0 |
|
#define | SV_MUTABLE_RETURN 0 |
|
#define | SV_SMAGIC 0 |
|
#define | SV_HAS_TRAILING_NUL 0 |
|
#define | SV_COW_SHARED_HASH_KEYS 0 |
|
#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)) |
|
#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)) |
|
#define | D_PPP_SVPV_NOLEN_LP_ARG &PL_na |
|
#define | SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC) |
|
#define | SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC) |
|
#define | SvPV_flags(sv, lp, flags) |
|
#define | SvPV_flags_const(sv, lp, flags) |
|
#define | SvPV_flags_const_nolen(sv, flags) |
|
#define | SvPV_flags_mutable(sv, lp, flags) |
|
#define | SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC) |
|
#define | SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv, SV_GMAGIC) |
|
#define | SvPV_force_mutable(sv, lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC) |
|
#define | SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp, 0) |
|
#define | SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0) |
|
#define | SvPV_force_flags(sv, lp, flags) |
|
#define | SvPV_force_flags_nolen(sv, flags) |
|
#define | SvPV_force_flags_mutable(sv, lp, flags) |
|
#define | SvPV_nolen(sv) |
|
#define | SvPV_nolen_const(sv) |
|
#define | SvPVx_nolen_const(sv) (PL_Sv = sv, SvPV_nolen_const(PL_Sv)) |
|
#define | SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0) |
|
#define | SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0) |
|
#define | SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0) |
|
#define | SvPV_nomg_nolen(sv) |
|
#define | SvPV_renew(sv, n) |
|
#define | SvPVCLEAR(sv) sv_setpvs((sv), "") |
|
#define | WARN_ALL 0 |
|
#define | WARN_CLOSURE 1 |
|
#define | WARN_DEPRECATED 2 |
|
#define | WARN_EXITING 3 |
|
#define | WARN_GLOB 4 |
|
#define | WARN_IO 5 |
|
#define | WARN_CLOSED 6 |
|
#define | WARN_EXEC 7 |
|
#define | WARN_LAYER 8 |
|
#define | WARN_NEWLINE 9 |
|
#define | WARN_PIPE 10 |
|
#define | WARN_UNOPENED 11 |
|
#define | WARN_MISC 12 |
|
#define | WARN_NUMERIC 13 |
|
#define | WARN_ONCE 14 |
|
#define | WARN_OVERFLOW 15 |
|
#define | WARN_PACK 16 |
|
#define | WARN_PORTABLE 17 |
|
#define | WARN_RECURSION 18 |
|
#define | WARN_REDEFINE 19 |
|
#define | WARN_REGEXP 20 |
|
#define | WARN_SEVERE 21 |
|
#define | WARN_DEBUGGING 22 |
|
#define | WARN_INPLACE 23 |
|
#define | WARN_INTERNAL 24 |
|
#define | WARN_MALLOC 25 |
|
#define | WARN_SIGNAL 26 |
|
#define | WARN_SUBSTR 27 |
|
#define | WARN_SYNTAX 28 |
|
#define | WARN_AMBIGUOUS 29 |
|
#define | WARN_BAREWORD 30 |
|
#define | WARN_DIGIT 31 |
|
#define | WARN_PARENTHESIS 32 |
|
#define | WARN_PRECEDENCE 33 |
|
#define | WARN_PRINTF 34 |
|
#define | WARN_PROTOTYPE 35 |
|
#define | WARN_QW 36 |
|
#define | WARN_RESERVED 37 |
|
#define | WARN_SEMICOLON 38 |
|
#define | WARN_TAINT 39 |
|
#define | WARN_THREADS 40 |
|
#define | WARN_UNINITIALIZED 41 |
|
#define | WARN_UNPACK 42 |
|
#define | WARN_UNTIE 43 |
|
#define | WARN_UTF8 44 |
|
#define | WARN_VOID 45 |
|
#define | WARN_ASSERTIONS 46 |
|
#define | packWARN(a) (a) |
|
#define | packWARN2(a, b) (packWARN(a) << 8 | (b)) |
|
#define | packWARN3(a, b, c) (packWARN2(a,b) << 8 | (c)) |
|
#define | packWARN4(a, b, c, d) (packWARN3(a,b,c) << 8 | (d)) |
|
#define | ckWARN(a) PL_dowarn |
|
#define | ckWARN2(a, b) (ckWARN(a) || ckWARN(b)) |
|
#define | ckWARN3(a, b, c) (ckWARN(c) || ckWARN2(a,b)) |
|
#define | ckWARN4(a, b, c, d) (ckWARN(d) || ckWARN3(a,b,c)) |
|
#define | ckWARN_d(a) 1 |
|
#define | ckWARN2_d(a, b) (ckWARN_d(a) || ckWARN_d(b)) |
|
#define | ckWARN3_d(a, b, c) (ckWARN_d(c) || ckWARN2_d(a,b)) |
|
#define | ckWARN4_d(a, b, c, d) (ckWARN_d(d) || ckWARN3_d(a,b,c)) |
|
#define | vwarner(err, pat, argsp) |
|
#define | IVdf "ld" |
|
#define | UVuf "lu" |
|
#define | UVof "lo" |
|
#define | UVxf "lx" |
|
#define | UVXf "lX" |
|
#define | NVef "e" |
|
#define | NVff "f" |
|
#define | NVgf "g" |
|
#define | sv_setuv(sv, uv) |
|
#define | newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv)) |
|
#define | sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv))) |
|
#define | SvUVX(sv) ((UV)SvIVX(sv)) |
|
#define | SvUVXx(sv) SvUVX(sv) |
|
#define | SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv)) |
|
#define | SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv)) |
|
#define | sv_uv(sv) SvUVx(sv) |
|
#define | XST_mUV(i, v) (ST(i) = sv_2mortal(newSVuv(v)) ) |
|
#define | XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1); } STMT_END |
|
#define | PUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); PUSHTARG; } STMT_END |
|
#define | XPUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END |
|
#define | memNE(s1, s2, l) (bcmp(s1,s2,l)) |
|
#define | memEQ(s1, s2, l) (!bcmp(s1,s2,l)) |
|
#define | memEQs(s1, l, s2) (sizeof(s2)-1 == l && memEQ(s1, (s2 ""), (sizeof(s2)-1))) |
|
#define | memNEs(s1, l, s2) !memEQs(s1, l, s2) |
|
#define | memCHRs(s, c) ((const char *) memchr("" s "" , c, sizeof(s)-1)) |
|
#define | MoveD(s, d, n, t) memmove((char*)(d),(char*)(s), (n) * sizeof(t)) |
|
#define | CopyD(s, d, n, t) memcpy((char*)(d),(char*)(s), (n) * sizeof(t)) |
|
#define | ZeroD(d, n, t) ((void)memzero((char*)(d), (n) * sizeof(t)), d) |
|
#define | PoisonWith(d, n, t, b) (void)memset((char*)(d), (U8)(b), (n) * sizeof(t)) |
|
#define | PoisonNew(d, n, t) PoisonWith(d,n,t,0xAB) |
|
#define | PoisonFree(d, n, t) PoisonWith(d,n,t,0xEF) |
|
#define | Poison(d, n, t) PoisonFree(d,n,t) |
|
#define | Newx(v, n, t) New(0,v,n,t) |
|
#define | Newxc(v, n, t, c) Newc(0,v,n,t,c) |
|
#define | Newxz(v, n, t) Newz(0,v,n,t) |
|
#define | croak_sv(sv) croak("%s", SvPV_nolen(sv)) |
|
#define | warn_sv(sv) warn("%s", SvPV_nolen(sv)) |
|
#define | warn_nocontext warn |
|
#define | croak_nocontext croak |
|
#define | croak_no_modify() croak_nocontext("%s", PL_no_modify) |
|
#define | Perl_croak_no_modify() croak_no_modify() |
|
#define | croak_memory_wrap() croak_nocontext("panic: memory wrap") |
|
#define | mPUSHs(s) PUSHs(sv_2mortal(s)) |
|
#define | PUSHmortal PUSHs(sv_newmortal()) |
|
#define | mPUSHp(p, l) sv_setpvn(PUSHmortal, (p), (l)) |
|
#define | mPUSHn(n) sv_setnv(PUSHmortal, (NV)(n)) |
|
#define | mPUSHi(i) sv_setiv(PUSHmortal, (IV)(i)) |
|
#define | mPUSHu(u) sv_setuv(PUSHmortal, (UV)(u)) |
|
#define | mXPUSHs(s) XPUSHs(sv_2mortal(s)) |
|
#define | XPUSHmortal XPUSHs(sv_newmortal()) |
|
#define | mXPUSHp(p, l) STMT_START { EXTEND(sp,1); sv_setpvn(PUSHmortal, (p), (l)); } STMT_END |
|
#define | mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END |
|
#define | mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END |
|
#define | mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END |
|
#define | call_sv perl_call_sv |
|
#define | call_pv perl_call_pv |
|
#define | call_argv perl_call_argv |
|
#define | call_method perl_call_method |
|
#define | eval_sv perl_eval_sv |
|
#define | Perl_eval_sv perl_eval_sv |
|
#define | G_LIST G_ARRAY /* Replace */ |
|
#define | PERL_LOADMOD_DENY 0x1 |
|
#define | PERL_LOADMOD_NOIMPORT 0x2 |
|
#define | PERL_LOADMOD_IMPORT_OPS 0x4 |
|
#define | D_PPP_CROAK_IF_ERROR(cond) ((cond) && (SvROK(ERRSV) || SvTRUE(ERRSV)) && (croak_sv(ERRSV), 1)) |
|
#define | G_METHOD 64 |
|
#define | call_sv(sv, flags) |
|
#define | G_RETHROW 8192 |
|
#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) |
|
#define | newRV_inc(sv) newRV(sv) /* Replace */ |
|
#define | newRV_noinc(sv) ((PL_Sv = (SV *)newRV((sv))), SvREFCNT_dec((sv)), PL_Sv) |
|
#define | START_MY_CXT static my_cxt_t my_cxt; |
|
#define | dMY_CXT_SV dNOOP |
|
#define | dMY_CXT dNOOP |
|
#define | MY_CXT_INIT NOOP |
|
#define | MY_CXT my_cxt |
|
#define | pMY_CXT void |
|
#define | pMY_CXT_ |
|
#define | _pMY_CXT |
|
#define | aMY_CXT |
|
#define | aMY_CXT_ |
|
#define | _aMY_CXT |
|
#define | MY_CXT_CLONE NOOP |
|
#define | SvREFCNT_inc(sv) ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL) |
|
#define | SvREFCNT_inc_simple(sv) ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL) |
|
#define | SvREFCNT_inc_NN(sv) (PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv) |
|
#define | SvREFCNT_inc_void(sv) (void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0) |
|
#define | SvREFCNT_inc_simple_void(sv) STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END |
|
#define | SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv), (SV*)(sv)) |
|
#define | SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv))) |
|
#define | SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv))) |
|
#define | newSV_type(t) ((PL_Sv = newSV(0)), sv_upgrade(PL_Sv, (t)), PL_Sv) |
|
#define | D_PPP_CONSTPV_ARG(x) ((char *) (x)) |
|
#define | newSVpvn(data, len) |
|
#define | newSVpvn_utf8(s, len, u) newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0) |
|
#define | SVf_UTF8 0 |
|
#define | newSVpvn_flags(s, len, flags) ((PL_Sv = newSVpvn(D_PPP_CONSTPV_ARG((s)), (len))), SvFLAGS(PL_Sv) |= ((flags) & SVf_UTF8), (((flags) & SVs_TEMP) ? sv_2mortal(PL_Sv) : PL_Sv)) |
|
#define | SV_NOSTEAL 16 |
|
#define | sv_setsv_flags(dstr, sstr, flags) |
|
#define | newSVsv_flags(sv, flags) ((PL_Sv = newSV(0)), sv_setsv_flags(PL_Sv, (sv), (flags)), PL_Sv) |
|
#define | newSVsv_nomg(sv) newSVsv_flags((sv), SV_NOSTEAL) |
|
#define | sv_mortalcopy_flags(sv, flags) sv_2mortal(newSVsv_flags((sv), (flags))) |
|
#define | SvMAGIC_set(sv, val) |
|
#define | SvPVX_const(sv) ((const char*) (0 + SvPVX(sv))) |
|
#define | SvPVX_mutable(sv) (0 + SvPVX(sv)) |
|
#define | SvRV_set(sv, val) |
|
#define | SvSTASH_set(sv, val) |
|
#define | SvUV_set(sv, val) |
|
#define | SvSHARED_HASH(sv) (0 + SvUVX(sv)) |
|
#define | HvNAME_get(hv) HvNAME(hv) |
|
#define | HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0) |
|
#define | D_PPP_GV_NOADD_MASK 0xE0 |
|
#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)) |
|
#define | GvSVn(gv) GvSV(gv) |
|
#define | isGV_with_GP(gv) isGV(gv) |
|
#define | gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flags, svt) |
|
#define | get_cvn_flags(name, namelen, flags) get_cv(name, flags) |
|
#define | gv_init_pvn(gv, stash, ptr, len, flags) gv_init(gv, stash, ptr, len, flags & GV_ADDMULTI ? TRUE : FALSE) |
|
#define | STR_WITH_LEN(s) (s ""), (sizeof(s)-1) |
|
#define | newSVpvs(str) newSVpvn(str "", sizeof(str) - 1) |
|
#define | newSVpvs_flags(str, flags) newSVpvn_flags(str "", sizeof(str) - 1, flags) |
|
#define | newSVpvs_share(str) newSVpvn_share(str "", sizeof(str) - 1, 0) |
|
#define | sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1) |
|
#define | sv_setpvs(sv, str) sv_setpvn(sv, str "", sizeof(str) - 1) |
|
#define | hv_fetchs(hv, key, lval) hv_fetch(hv, key "", sizeof(key) - 1, lval) |
|
#define | hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0) |
|
#define | gv_fetchpvs(name, flags, svt) gv_fetchpvn_flags(name "", sizeof(name) - 1, flags, svt) |
|
#define | gv_stashpvs(name, flags) gv_stashpvn(name "", sizeof(name) - 1, flags) |
|
#define | get_cvs(name, flags) get_cvn_flags(name "", sizeof(name)-1, flags) |
|
#define | SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END |
|
#define | sv_catpvn_nomg sv_catpvn |
|
#define | sv_catsv_nomg sv_catsv |
|
#define | sv_setsv_nomg sv_setsv |
|
#define | sv_pvn_nomg sv_pvn |
|
#define | SvIV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : SvIVx(sv_mortalcopy_flags((sv), SV_NOSTEAL))) |
|
#define | SvUV_nomg(sv) (!SvGMAGICAL((sv)) ? SvUV((sv)) : SvUVx(sv_mortalcopy_flags((sv), SV_NOSTEAL))) |
|
#define | SvNV_nomg(sv) (!SvGMAGICAL((sv)) ? SvNV((sv)) : SvNVx(sv_mortalcopy_flags((sv), SV_NOSTEAL))) |
|
#define | SvTRUE_nomg(sv) (!SvGMAGICAL((sv)) ? SvTRUE((sv)) : SvTRUEx(sv_mortalcopy_flags((sv), SV_NOSTEAL))) |
|
#define | sv_catpv_mg(sv, ptr) |
|
#define | sv_catpvn_mg(sv, ptr, len) |
|
#define | sv_catsv_mg(dsv, ssv) |
|
#define | sv_setiv_mg(sv, i) |
|
#define | sv_setnv_mg(sv, num) |
|
#define | sv_setpv_mg(sv, ptr) |
|
#define | sv_setpvn_mg(sv, ptr, len) |
|
#define | sv_setsv_mg(dsv, ssv) |
|
#define | sv_setuv_mg(sv, i) |
|
#define | sv_usepvn_mg(sv, ptr, len) |
|
#define | SvVSTRING_mg(sv) (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring) : NULL) |
|
#define | CopFILEGV(c) ((c)->cop_filegv) |
|
#define | CopFILEGV_set(c, gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv)) |
|
#define | CopFILE_set(c, pv) CopFILEGV_set((c), gv_fetchfile(pv)) |
|
#define | CopFILESV(c) (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv) |
|
#define | CopFILEAV(c) (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav) |
|
#define | CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch) |
|
#define | CopSTASH(c) ((c)->cop_stash) |
|
#define | CopSTASH_set(c, hv) ((c)->cop_stash = (hv)) |
|
#define | CopSTASHPV(c) (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch) |
|
#define | CopSTASHPV_set(c, pv) CopSTASH_set((c), gv_stashpv(pv,GV_ADD)) |
|
#define | CopSTASH_eq(c, hv) (CopSTASH(c) == (hv)) |
|
#define | IN_PERL_COMPILETIME (PL_curcop == &PL_compiling) |
|
#define | IN_LOCALE_RUNTIME (PL_curcop->op_private & HINT_LOCALE) |
|
#define | IN_LOCALE_COMPILETIME (PL_hints & HINT_LOCALE) |
|
#define | IN_LOCALE (IN_PERL_COMPILETIME ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME) |
|
#define | IS_NUMBER_IN_UV 0x01 |
|
#define | IS_NUMBER_GREATER_THAN_UV_MAX 0x02 |
|
#define | IS_NUMBER_NOT_INT 0x04 |
|
#define | IS_NUMBER_NEG 0x08 |
|
#define | IS_NUMBER_INFINITY 0x10 |
|
#define | IS_NUMBER_NAN 0x20 |
|
#define | GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send) |
|
#define | PERL_SCAN_GREATER_THAN_UV_MAX 0x02 |
|
#define | PERL_SCAN_SILENT_ILLDIGIT 0x04 |
|
#define | PERL_SCAN_ALLOW_UNDERSCORES 0x01 |
|
#define | PERL_SCAN_DISALLOW_PREFIX 0x02 |
|
#define | SvUTF8(sv) (SvFLAGS(sv) & SVf_UTF8) |
|
#define | UTF8f SVf |
|
#define | UTF8fARG(u, l, p) newSVpvn_flags((p), (l), ((u) ? SVf_UTF8 : 0) | SVs_TEMP) |
|
#define | D_PPP_MIN(a, b) (((a) <= (b)) ? (a) : (b)) |
|
#define | UNICODE_REPLACEMENT 0xFFFD |
|
#define | UTF_START_MARK(len) (((len) > 7) ? 0xFF : (0xFF & (0xFE << (7-(len))))) |
|
#define | D_PPP_BYTE_INFO_BITS 6 /* 6 bits meaningful in continuation bytes */ |
|
#define | UTF8_MAXBYTES_CASE 13 |
|
#define | UTF_ACCUMULATION_SHIFT D_PPP_BYTE_INFO_BITS |
|
#define | NATIVE_UTF8_TO_I8(c) (c) |
|
#define | I8_TO_NATIVE_UTF8(c) (c) |
|
#define | UTF_START_MASK(len) (((len) >= 7) ? 0x00 : (0x1F >> ((len)-2))) |
|
#define | UTF_IS_CONTINUATION_MASK ((U8) (0xFF << UTF_ACCUMULATION_SHIFT)) |
|
#define | UTF_CONTINUATION_MARK (UTF_IS_CONTINUATION_MASK & 0xB0) |
|
#define | UTF_MIN_START_BYTE ((UTF_CONTINUATION_MARK >> UTF_ACCUMULATION_SHIFT) | UTF_START_MARK(2)) |
|
#define | UTF_MIN_ABOVE_LATIN1_BYTE ((0x100 >> UTF_ACCUMULATION_SHIFT) | UTF_START_MARK(2)) |
|
#define | UTF8_IS_DOWNGRADEABLE_START(c) |
|
#define | UTF_CONTINUATION_MASK ((U8) ((1U << UTF_ACCUMULATION_SHIFT) - 1)) |
|
#define | UTF8_ACCUMULATE(base, added) |
|
#define | UTF8_ALLOW_ANYUV 0 |
|
#define | UTF8_ALLOW_EMPTY 0x0001 |
|
#define | UTF8_ALLOW_CONTINUATION 0x0002 |
|
#define | UTF8_ALLOW_NON_CONTINUATION 0x0004 |
|
#define | UTF8_ALLOW_SHORT 0x0008 |
|
#define | UTF8_ALLOW_LONG 0x0010 |
|
#define | UTF8_ALLOW_OVERFLOW 0x0080 |
|
#define | UTF8_ALLOW_ANY |
|
#define | UTF8_IS_INVARIANT(c) isASCII(c) |
|
#define | UVCHR_IS_INVARIANT(c) UTF8_IS_INVARIANT(c) |
|
#define | D_PPP_UVCHR_SKIP_UPPER(c) 7 |
|
#define | UVCHR_SKIP(c) |
|
#define | BOM_UTF8 "\xEF\xBB\xBF" |
|
#define | REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD" |
|
#define | PERL_PV_ESCAPE_QUOTE 0x0001 |
|
#define | PERL_PV_PRETTY_QUOTE PERL_PV_ESCAPE_QUOTE |
|
#define | PERL_PV_PRETTY_ELLIPSES 0x0002 |
|
#define | PERL_PV_PRETTY_LTGT 0x0004 |
|
#define | PERL_PV_ESCAPE_FIRSTCHAR 0x0008 |
|
#define | PERL_PV_ESCAPE_UNI 0x0100 |
|
#define | PERL_PV_ESCAPE_UNI_DETECT 0x0200 |
|
#define | PERL_PV_ESCAPE_ALL 0x1000 |
|
#define | PERL_PV_ESCAPE_NOBACKSLASH 0x2000 |
|
#define | PERL_PV_ESCAPE_NOCLEAR 0x4000 |
|
#define | PERL_PV_ESCAPE_RE 0x8000 |
|
#define | PERL_PV_PRETTY_NOCLEAR PERL_PV_ESCAPE_NOCLEAR |
|
#define | PERL_PV_PRETTY_DUMP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE |
|
#define | PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE |
|
#define | LC_NUMERIC_LOCK |
|
#define | LC_NUMERIC_UNLOCK |
|
#define | DECLARATION_FOR_LC_NUMERIC_MANIPULATION |
|
#define | STORE_LC_NUMERIC_SET_STANDARD() |
|
#define | RESTORE_LC_NUMERIC() |
|
#define | LOCK_NUMERIC_STANDARD() |
|
#define | UNLOCK_NUMERIC_STANDARD() |
|
#define | LOCK_LC_NUMERIC_STANDARD LOCK_NUMERIC_STANDARD |
|
#define | UNLOCK_LC_NUMERIC_STANDARD UNLOCK_NUMERIC_STANDARD |
|
#define | switch_to_global_locale() |
|
#define | sync_locale() 1 |
|