1 files changed, 130 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/tkGlue.def b/Master/tlpkg/tlperl/lib/Tk/tkGlue.def
new file mode 100644
index 00000000000..2f1662c71c2
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Tk/tkGlue.def
@@ -0,0 +1,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
+