diff options
author | Norbert Preining <preining@logic.at> | 2010-05-12 16:51:27 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-05-12 16:51:27 +0000 |
commit | b645030efc22e13c2498a1522083634ab91b2de1 (patch) | |
tree | c75c7a71998200d419af56eb755dac2f5115b585 /Master/tlpkg/tlperl.old/lib/Tk/tkGlue.def | |
parent | 44ccd4efc5352f9eb1099ba357708e7b5ff03b83 (diff) |
move tlperl to tlperl.old
git-svn-id: svn://tug.org/texlive/trunk@18209 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl.old/lib/Tk/tkGlue.def')
-rw-r--r-- | Master/tlpkg/tlperl.old/lib/Tk/tkGlue.def | 130 |
1 files changed, 130 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.old/lib/Tk/tkGlue.def b/Master/tlpkg/tlperl.old/lib/Tk/tkGlue.def new file mode 100644 index 00000000000..2f1662c71c2 --- /dev/null +++ b/Master/tlpkg/tlperl.old/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 + |