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