summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/tkGlue.def
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/tkGlue.def')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/tkGlue.def130
1 files changed, 0 insertions, 130 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/tkGlue.def b/Master/tlpkg/tlperl/lib/Tk/tkGlue.def
deleted file mode 100644
index 2f1662c71c2..00000000000
--- a/Master/tlpkg/tlperl/lib/Tk/tkGlue.def
+++ /dev/null
@@ -1,130 +0,0 @@
-#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
-