/usr/lib/perl5/Tk/pTk/tkEvent.h is in perl-tk 1:804.030-1.
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 | #ifndef _TKEVENT
#define _TKEVENT
#define LangCallbackArg(x) LangOldCallbackArg(x,__FILE__,__LINE__)
EXTERN int LangCallCallback _ANSI_ARGS_((LangCallback *cb, int flags));
EXTERN Tcl_Obj * LangCallbackObj _ANSI_ARGS_((LangCallback *));
EXTERN int LangCmpCallback _ANSI_ARGS_((LangCallback *a,Tcl_Obj * b));
EXTERN LangCallback * LangCopyCallback _ANSI_ARGS_((LangCallback *));
EXTERN void LangDebug _ANSI_ARGS_((CONST char *fmt,...));
EXTERN void LangAsyncCheck _ANSI_ARGS_((void));
EXTERN void LangFreeCallback _ANSI_ARGS_((LangCallback *));
EXTERN LangCallback * LangMakeCallback _ANSI_ARGS_((Tcl_Obj *));
EXTERN Tcl_Obj * LangOldCallbackArg _ANSI_ARGS_((LangCallback *,char *,int));
EXTERN void LangPushCallbackArgs _ANSI_ARGS_((LangCallback **svp));
EXTERN long Lang_OSHandle _ANSI_ARGS_((int fd));
EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData));
EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size));
EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc * proc,
ClientData clientData));
EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async));
EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp * interp,
int code));
EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async));
EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void));
EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_((Tcl_IdleProc *idleProc,
ClientData clientData));
EXTERN void Tcl_CreateEventSource _ANSI_ARGS_((
Tcl_EventSetupProc *setupProc,
Tcl_EventCheckProc *checkProc,
ClientData clientData));
EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_((Tcl_ExitProc *proc,
ClientData clientData));
EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((
int fd, int mask, Tcl_FileProc *proc,
ClientData clientData));
EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData));
EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds,
Tcl_TimerProc *proc, ClientData clientData));
EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size,CONST char *file,int line));
EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr, CONST char * file,
int line));
EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char *ptr,
unsigned int size, CONST char *file,int line));
EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_((
Tcl_EventSetupProc *setupProc,
Tcl_EventCheckProc *checkProc,
ClientData clientData));
EXTERN void Tcl_DeleteEvents _ANSI_ARGS_((
Tcl_EventDeleteProc * proc,
ClientData clientData));
EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData));
EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd));
EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData));
EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_((
Tcl_TimerToken token));
EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags));
EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc *proc,
ClientData clientData));
EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((CONST char * fileName));
EXTERN void Tcl_Exit _ANSI_ARGS_((int status));
EXTERN void Tcl_Finalize _ANSI_ARGS_((void));
EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_((
ClientData clientData));
EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void));
EXTERN void Tcl_Free _ANSI_ARGS_((char *ptr));
EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void));
EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void));
EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_((
Tcl_ThreadDataKey * keyPtr, int size));
EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void));
EXTERN void Tcl_Panic _ANSI_ARGS_((CONST char *,...));
EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event *evPtr,
Tcl_QueuePosition position));
EXTERN void Tcl_QueueProcEvent _ANSI_ARGS_((Tcl_EventProc *proc,
Tcl_Event *evPtr,
Tcl_QueuePosition position));
EXTERN char * Tcl_Realloc _ANSI_ARGS_((char *ptr,
unsigned int size));
EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void));
EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags));
EXTERN void Tcl_ServiceModeHook _ANSI_ARGS_((int mode));
EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time *timePtr));
EXTERN void Tcl_SetNotifier _ANSI_ARGS_((
Tcl_NotifierProcs * notifierProcPtr));
EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode));
EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time * timePtr));
EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms));
EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId));
EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_((
Tcl_ThreadId threadId, Tcl_Event* evPtr,
Tcl_QueuePosition position));
EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((CONST char * file,
int line));
EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr));
EXTERN void TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async));
EXTERN void Tcl_GetTime _ANSI_ARGS_((Tcl_Time *time));
EXTERN void * TkInitTimer _ANSI_ARGS_((void));
EXTERN void Lang_NoteOwner _ANSI_ARGS_((void *owner,void *packet,
CONST char *file, int line));
EXTERN char * Tcl_AttemptDbCkalloc _ANSI_ARGS_((unsigned int size,
CONST char * file, int line));
EXTERN void TclpExit _ANSI_ARGS_((int status));
#ifdef TCL_MEM_DEBUG
#define LangNoteOwner(owner,packet) Lang_NoteOwner(owner,packet,__FILE__,__LINE__)
#else
#define LangNoteOwner(owner,packet)
#endif
#ifndef TCL_TSD_INIT
#define TCL_TSD_INIT(keyPtr) (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData))
#endif
#endif /* _TKEVENT */
|