1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130
|
#ifdef CAN_PROTOTYPE
#define XSdec(x) XS(x)
#else
#define XSdec(x) void x()
#endif
#define TKXSRETURN(off) \
STMT_START { \
IV ptkAdj = (off); \
XSRETURN(ptkAdj); \
} STMT_END
#ifndef PATCHLEVEL
#include <patchlevel.h>
#endif
#if defined(PATCHLEVEL) && (PATCHLEVEL < 5)
#define PL_sv_undef sv_undef
#define PL_tainting tainting
#define PL_tainted tainted
#define PL_stack_base stack_base
#define PL_stack_sp stack_sp
#define PL_curcop curcop
#endif
#ifndef CopSTASH
#define CopSTASH(c) c->cop_stash
#define CopSTASH_set(c,h) (CopSTASH(c) = h)
#endif
#ifndef dTHX
#define dTHR int maybeTHR
#endif
#ifndef dTHXs
#ifdef PERL_IMPLICIT_SYS
#define dTHXs dTHX
#else
#define dTHR int maybeTHR
#endif
#endif
#ifndef ERRSV
#define ERRSV GvSV(errgv)
#endif
#ifndef aTHX_
#define aTHX_
#endif
#ifndef pTHX_
#define pTHX_
#endif
#ifdef dirty
#undef dirty
#endif
#ifdef bufptr
#undef bufptr
#endif
#ifdef colors
#undef colors
#endif
#ifdef JOIN
#undef JOIN
#endif
#ifdef na
#if PATCHLEVEL >= 5
#undef na
#endif
#endif
#define Tcl_Interp HV
#define LangCallback SV
#define Var SV *
#define LangResultSave AV
struct Lang_CmdInfo;
#define Tcl_Command struct Lang_CmdInfo *
struct WrappedRegExp;
#define Tcl_RegExp struct WrappedRegExp *
#define Tcl_Obj SV
#define Tcl_DString SV *
#ifndef PerlIO
#define PerlIO FILE
#define PerlIO_stderr() stderr
#define PerlIO_printf fprintf
#define PerlIO_flush(f) Fflush(f)
#define PerlIO_vprintf(f,fmt,a) vfprintf(f,fmt,a)
#define PerlIO_putc(f,c) fputc(c,f)
#define PerlIO_fileno(f) fileno(f)
/* Now our interface to Configure's FILE_xxx macros */
#ifdef USE_STDIO_PTR
#define PerlIO_has_cntptr(f) 1
#define PerlIO_get_ptr(f) FILE_ptr(f)
#define PerlIO_get_cnt(f) FILE_cnt(f)
#ifdef FILE_CNT_LVALUE
#define PerlIO_canset_cnt(f) 1
#ifdef FILE_PTR_LVALUE
#define PerlIO_fast_gets(f) 1
#endif
#define PerlIO_set_cnt(f,c) (FILE_cnt(f) = (c))
#else
#define PerlIO_canset_cnt(f) 0
#define PerlIO_set_cnt(f,c) abort()
#endif
#ifdef FILE_PTR_LVALUE
#define PerlIO_set_ptrcnt(f,p,c) (FILE_ptr(f) = (p), PerlIO_set_cnt(f,c))
#else
#define PerlIO_set_ptrcnt(f,p,c) abort()
#endif
#else /* USE_STDIO_PTR */
#define PerlIO_has_cntptr(f) 0
#define PerlIO_get_cnt(f) (abort(),0)
#define PerlIO_get_ptr(f) (abort(),0)
#define PerlIO_set_cnt(f,c) abort()
#define PerlIO_set_ptrcnt(f,p,c) abort()
#endif /* USE_STDIO_PTR */
#endif
|