File: tkGlue.def

package info (click to toggle)
perl-tk 1:800.025-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 18,444 kB
  • ctags: 19,081
  • sloc: ansic: 206,740; perl: 40,187; makefile: 4,371; sh: 2,373; yacc: 762
file content (111 lines) | stat: -rw-r--r-- 2,159 bytes parent folder | download | duplicates (2)
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
#ifdef CAN_PROTOTYPE
#define XSdec(x) XS(x)
#else
#define XSdec(x) void x()
#endif

#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 dTHX dTHR
#endif

#ifndef dTHR
#define dTHR int maybeTHR
#endif

#ifndef ERRSV
#define ERRSV GvSV(errgv)
#endif

#ifndef aTHX_
#define aTHX_
#endif

#ifdef dirty
#undef dirty
#endif
#ifdef bufptr
#undef bufptr
#endif
#ifdef colors
#undef colors
#endif

#ifdef na
#if PATCHLEVEL >= 5
#undef na
#endif
#endif


#define Tcl_Interp     HV
#define LangCallback   SV
#define Arg            SV *
#define Var            SV *
#define LangResultSave AV
#define Tcl_Command    struct Lang_CmdInfo *
#define Tcl_RegExp     regexp *
#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