diff options
Diffstat (limited to 'Master/tlpkg/tlperl.straw/lib/Tk/tkGlue.def')
-rwxr-xr-x | Master/tlpkg/tlperl.straw/lib/Tk/tkGlue.def | 130 |
1 files changed, 130 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Tk/tkGlue.def b/Master/tlpkg/tlperl.straw/lib/Tk/tkGlue.def new file mode 100755 index 00000000000..2f1662c71c2 --- /dev/null +++ b/Master/tlpkg/tlperl.straw/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 + |