/usr/lib/perl5/Tk/tkGlue.def is in perl-tk 1:804.031-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 | #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
|