KVIrc
4.9.2
DeveloperAPIs
|
#include <patchlevel.h>
#include <could_not_find_Perl_patchlevel.h>
Go to the source code of this file.
Macros | |
#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) |
Typedefs | |
typedef NVTYPE | NV |
typedef OP *CPERLscope | Perl_check_t (pTHX_ OP *) |
typedef OP *CPERLscope | Perl_ppaddr_t (pTHX) |
Functions | |
U32 | DPPP_ (my_PL_signals) |
SV *DPPP_() | my_eval_pv (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,...) |
MAGIC *DPPP_() | my_mg_findext (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) |
void DPPP_() | my_newCONSTSUB (HV *stash, const char *name, SV *sv) |
SV *DPPP_() | my_newRV_noinc (SV *sv) |
SV *DPPP_() | my_newSV_type (pTHX_ svtype const t) |
SV *DPPP_() | my_newSVpvn_flags (pTHX_ const char *s, STRLEN len, U32 flags) |
SV *DPPP_() | my_newSVpvn_share (pTHX_ const char *src, 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) |
char *DPPP_() | my_sv_2pv_flags (pTHX_ SV *sv, STRLEN *lp, I32 flags) |
char *DPPP_() | my_sv_pvn_force_flags (pTHX_ SV *sv, STRLEN *lp, I32 flags) |
int DPPP_() | my_sv_unmagicext (pTHX_ SV *const sv, const int type, MGVTBL *vtbl) |
void DPPP_() | my_vload_module (U32 flags, SV *name, SV *ver, va_list *args) |
#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 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 CopFILE_set | ( | c, | |
pv | |||
) | CopFILEGV_set((c), gv_fetchfile(pv)) |
#define CopFILEGV_set | ( | c, | |
gv | |||
) | ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv)) |
#define CopSTASHPV_set | ( | c, | |
pv | |||
) | CopSTASH_set((c), gv_stashpv(pv,GV_ADD)) |
#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_NAMESPACE DPPP_ |
#define DPPP_SVPV_NOLEN_LP_ARG &PL_na |
#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_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_NUMERIC_RADIX | ( | sp, | |
send | |||
) | grok_numeric_radix(sp, send) |
#define grok_numeric_radix | ( | a, | |
b | |||
) | DPPP_(my_grok_numeric_radix)(aTHX_ a,b) |
#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 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 isASCII | ( | c | ) | ((WIDEST_UTYPE) (c) <= 127) |
#define isCNTRL | ( | c | ) | ((WIDEST_UTYPE) (c) < ' ' || (c) == 127) |
#define isGV_with_GP | ( | gv | ) | isGV(gv) |
#define isPUNCT | ( | c | ) | (((c) >= 33 && (c) <= 47) || ((c) >= 58 && (c) <= 64) || ((c) >= 91 && (c) <= 96) || ((c) >= 123 && (c) <= 126)) |
#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 mg_findext DPPP_(my_mg_findext) |
#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_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 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 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 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 NOOP (void)0 |
#define NVef "e" |
#define NVff "f" |
#define NVgf "g" |
#define NVTYPE double |
#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_CONTEXT |
#define PERL_UNUSED_DECL |
#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 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 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 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_MUTABLE_RETURN 0 |
#define SV_NOSTEAL 0 |
#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_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 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_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 SvSHARED_HASH | ( | sv | ) | (0 + SvUVX(sv)) |
#define SvSTASH_set | ( | sv, | |
val | |||
) |
#define SvUV_nomg SvUV |
#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 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 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 | ) |
typedef OP* CPERLscope Perl_check_t(pTHX_ OP *) |
typedef OP* CPERLscope Perl_ppaddr_t(pTHX) |
U32 DPPP_ | ( | my_PL_signals | ) |
SV* DPPP_() my_eval_pv | ( | char * | p, |
I32 | croak_on_error | ||
) |
void DPPP_() my_load_module | ( | U32 | flags, |
SV * | name, | ||
SV * | ver, | ||
... | |||
) |
MAGIC* DPPP_() my_mg_findext | ( | 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 | ||
) |
void DPPP_() my_newCONSTSUB | ( | HV * | stash, |
const char * | name, | ||
SV * | sv | ||
) |
SV* DPPP_() my_newRV_noinc | ( | SV * | sv | ) |
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 | ||
) |
void DPPP_() my_vload_module | ( | U32 | flags, |
SV * | name, | ||
SV * | ver, | ||
va_list * | args | ||
) |