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
|
