|
| #define | _aMY_CXT |
| |
| #define | _dpppDEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10)) |
| |
| #define | _P_P_PORTABILITY_H_ |
| |
| #define | _pMY_CXT |
| |
| #define | aMY_CXT |
| |
| #define | aMY_CXT_ |
| |
| #define | aTHX |
| |
| #define | aTHX_ |
| |
| #define | aTHXR |
| |
| #define | aTHXR_ |
| |
| #define | AvFILLp AvFILL |
| |
| #define | boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no) |
| |
| #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 | ckWARN(a) PL_dowarn |
| |
| #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 | D_PPP_CONSTPV_ARG(x) ((char *) (x)) |
| |
| #define | D_PPP_PERL_SIGNALS_INIT PERL_SIGNALS_UNSAFE_FLAG |
| |
| #define | dAX I32 ax = MARK - PL_stack_base + 1 |
| |
| #define | dAXMARK |
| |
| #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 extern int Perl___notused PERL_UNUSED_DECL |
| |
| #define | DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name) |
| |
| #define | DPPP_CAT2(x, y) CAT2(x,y) |
| |
| #define | DPPP_NAMESPACE DPPP_ |
| |
| #define | DPPP_SVPV_NOLEN_LP_ARG &PL_na |
| |
| #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_pv(a, b) DPPP_(my_eval_pv)(aTHX_ a,b) |
| |
| #define | eval_sv perl_eval_sv |
| |
| #define | EXTERN_C extern |
| |
| #define | G_METHOD 64 |
| |
| #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_bin(a, b, c, d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d) |
| |
| #define | grok_hex(a, b, c, d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d) |
| |
| #define | grok_number(a, b, c) DPPP_(my_grok_number)(aTHX_ a,b,c) |
| |
| #define | GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send) |
| |
| #define | grok_numeric_radix(a, b) DPPP_(my_grok_numeric_radix)(aTHX_ a,b) |
| |
| #define | grok_oct(a, b, c, d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d) |
| |
| #define | gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt) |
| |
| #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_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 | 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 | 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 | isALNUMC(c) (isALPHA(c) || isDIGIT(c)) |
| |
| #define | isASCII(c) ((WIDEST_UTYPE) (c) <= 127) |
| |
| #define | isBLANK(c) ((c) == ' ' || (c) == '\t') |
| |
| #define | isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127) |
| |
| #define | isGRAPH(c) (isALNUM(c) || isPUNCT(c)) |
| |
| #define | isGV_with_GP(gv) isGV(gv) |
| |
| #define | isPRINT(c) (((c) >= 32 && (c) < 127)) |
| |
| #define | isPSXSPC(c) (isSPACE(c) || (c) == '\v') |
| |
| #define | isPUNCT(c) (((c) >= 33 && (c) <= 47) || ((c) >= 58 && (c) <= 64) || ((c) >= 91 && (c) <= 96) || ((c) >= 123 && (c) <= 126)) |
| |
| #define | isXDIGIT(c) (isDIGIT(c) || ((c) >= 'a' && (c) <= 'f') || ((c) >= 'A' && (c) <= 'F')) |
| |
| #define | IV_MAX PERL_LONG_MAX |
| |
| #define | IV_MIN PERL_LONG_MIN |
| |
| #define | IVdf "ld" |
| |
| #define | IVSIZE LONGSIZE |
| |
| #define | IVTYPE long |
| |
| #define | load_module DPPP_(my_load_module) |
| |
| #define | LONGSIZE 4 |
| |
| #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 | mg_findext DPPP_(my_mg_findext) |
| |
| #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_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 | my_snprintf DPPP_(my_my_snprintf) |
| |
| #define | my_sprintf DPPP_(my_my_sprintf) |
| |
| #define | my_strlcat DPPP_(my_my_strlcat) |
| |
| #define | my_strlcpy DPPP_(my_my_strlcpy) |
| |
| #define | newCONSTSUB(a, b, c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c) |
| |
| #define | newRV_inc(sv) newRV(sv) |
| |
| #define | newRV_noinc(a) DPPP_(my_newRV_noinc)(aTHX_ a) |
| |
| #define | newSV_type(a) DPPP_(my_newSV_type)(aTHX_ a) |
| |
| #define | newSVpvn(data, len) |
| |
| #define | newSVpvn_flags(a, b, c) DPPP_(my_newSVpvn_flags)(aTHX_ a,b,c) |
| |
| #define | newSVpvn_share(a, b, c) DPPP_(my_newSVpvn_share)(aTHX_ a,b,c) |
| |
| #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 | 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 | NUM2PTR(any, d) (any)PTR2nat(d) |
| |
| #define | NVef "e" |
| |
| #define | NVff "f" |
| |
| #define | NVgf "g" |
| |
| #define | NVTYPE double |
| |
| #define | packWARN(a) (a) |
| |
| #define | PERL_ABS(x) ((x) < 0 ? -(x) : (x)) |
| |
| #define | PERL_BCDVERSION ((_dpppDEC2BCD(PERL_REVISION)<<24)|(_dpppDEC2BCD(PERL_VERSION)<<12)|_dpppDEC2BCD(PERL_SUBVERSION)) |
| |
| #define | Perl_eval_pv DPPP_(my_eval_pv) |
| |
| #define | Perl_grok_bin DPPP_(my_grok_bin) |
| |
| #define | Perl_grok_hex DPPP_(my_grok_hex) |
| |
| #define | Perl_grok_number DPPP_(my_grok_number) |
| |
| #define | Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix) |
| |
| #define | Perl_grok_oct DPPP_(my_grok_oct) |
| |
| #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_load_module DPPP_(my_load_module) |
| |
| #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_mg_findext DPPP_(my_mg_findext) |
| |
| #define | Perl_my_snprintf DPPP_(my_my_snprintf) |
| |
| #define | Perl_my_sprintf DPPP_(my_my_sprintf) |
| |
| #define | Perl_my_strlcat DPPP_(my_my_strlcat) |
| |
| #define | Perl_my_strlcpy DPPP_(my_my_strlcpy) |
| |
| #define | Perl_newCONSTSUB DPPP_(my_newCONSTSUB) |
| |
| #define | Perl_newRV_noinc DPPP_(my_newRV_noinc) |
| |
| #define | Perl_newSV_type DPPP_(my_newSV_type) |
| |
| #define | Perl_newSVpvn_flags DPPP_(my_newSVpvn_flags) |
| |
| #define | Perl_newSVpvn_share DPPP_(my_newSVpvn_share) |
| |
| #define | PERL_PATCHLEVEL_H_IMPLICIT |
| |
| #define | Perl_pv_display DPPP_(my_pv_display) |
| |
| #define | Perl_pv_escape DPPP_(my_pv_escape) |
| |
| #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 DPPP_(my_pv_pretty) |
| |
| #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_REVISION (5) |
| |
| #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_SUBVERSION SUBVERSION |
| |
| #define | Perl_sv_2pv_flags DPPP_(my_sv_2pv_flags) |
| |
| #define | Perl_sv_pvn_force_flags DPPP_(my_sv_pvn_force_flags) |
| |
| #define | Perl_sv_unmagicext DPPP_(my_sv_unmagicext) |
| |
| #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_VAR(x) ((void)x) |
| |
| #define | PERL_USHORT_MAX ((unsigned short)~(unsigned)0) |
| |
| #define | PERL_USHORT_MIN ((unsigned short)0) |
| |
| #define | PERL_VERSION PATCHLEVEL |
| |
| #define | Perl_vload_module DPPP_(my_vload_module) |
| |
| #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_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 | 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 | pv_display(a, b, c, d, e) DPPP_(my_pv_display)(aTHX_ a,b,c,d,e) |
| |
| #define | pv_escape(a, b, c, d, e, f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f) |
| |
| #define | pv_pretty(a, b, c, d, e, f, g) DPPP_(my_pv_pretty)(aTHX_ a,b,c,d,e,f,g) |
| |
| #define | SAVE_DEFSV SAVESPTR(GvSV(PL_defgv)) |
| |
| #define | START_EXTERN_C |
| |
| #define | START_MY_CXT static my_cxt_t my_cxt; |
| |
| #define | STMT_END while (0) |
| |
| #define | STMT_START do |
| |
| #define | STR_WITH_LEN(s) (s ""), (sizeof(s)-1) |
| |
| #define | sv_2pv_flags(a, b, c) DPPP_(my_sv_2pv_flags)(aTHX_ a,b,c) |
| |
| #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_MUTABLE_RETURN 0 |
| |
| #define | SV_NOSTEAL 0 |
| |
| #define | sv_pvn_force_flags(a, b, c) DPPP_(my_sv_pvn_force_flags)(aTHX_ a,b,c) |
| |
| #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_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_unmagicext(a, b, c) DPPP_(my_sv_unmagicext)(aTHX_ a,b,c) |
| |
| #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) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END |
| |
| #define | SvIV_nomg SvIV |
| |
| #define | SvMAGIC_set(sv, val) |
| |
| #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 | SvPVX_const(sv) ((const char*) (0 + SvPVX(sv))) |
| |
| #define | SvPVX_mutable(sv) (0 + SvPVX(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 | SvSHARED_HASH(sv) (0 + SvUVX(sv)) |
| |
| #define | SvSTASH_set(sv, val) |
| |
| #define | SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv)) |
| |
| #define | SvUV_nomg SvUV |
| |
| #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 | UNDERBAR DEFSV |
| |
| #define | UTF8_MAXBYTES UTF8_MAXLEN |
| |
| #define | UV_MAX PERL_ULONG_MAX |
| |
| #define | UV_MIN PERL_ULONG_MIN |
| |
| #define | UVof "lo" |
| |
| #define | UVSIZE IVSIZE |
| |
| #define | UVTYPE unsigned IVTYPE |
| |
| #define | UVuf "lu" |
| |
| #define | UVxf "lx" |
| |
| #define | UVXf "lX" |
| |
| #define | vload_module(a, b, c, d) DPPP_(my_vload_module)(aTHX_ a,b,c,d) |
| |
| #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_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_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 | 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) |
| |