summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/tkGlue.def
blob: 2f1662c71c2547957ce8a844af5bca1587f416a5 (plain)
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