diff options
author | welch <welch@noemail.net> | 1999-07-02 06:04:26 (GMT) |
---|---|---|
committer | welch <welch@noemail.net> | 1999-07-02 06:04:26 (GMT) |
commit | ed6576220f9993ad609d50cbdf0b0bde24fe1284 (patch) | |
tree | bb0eb2e8443b9c77795a05524c0b47ea91d556ca /generic/tcl.h | |
parent | e259f078ac8343a1eea8eeeeeb8f66a67770b36f (diff) | |
download | tcl-ed6576220f9993ad609d50cbdf0b0bde24fe1284.zip tcl-ed6576220f9993ad609d50cbdf0b0bde24fe1284.tar.gz tcl-ed6576220f9993ad609d50cbdf0b0bde24fe1284.tar.bz2 |
Added Tcl_SetNotifier and associated typedef.
This lets you hook the notifier procs.
FossilOrigin-Name: 6889d4e289112d21015fd43e4bf166b0982356e3
Diffstat (limited to 'generic/tcl.h')
-rw-r--r-- | generic/tcl.h | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 7b929f2..4d1ad50 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.50 1999/06/28 19:02:52 wart Exp $ + * RCS: @(#) $Id: tcl.h,v 1.51 1999/07/02 06:04:26 welch Exp $ */ #ifndef _TCL @@ -540,6 +540,9 @@ typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, char *part1, char *part2, int flags)); +typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, + Tcl_FileProc *proc, ClientData clientData)); +typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); /* * The following structure represents a type of object, which is a @@ -1053,6 +1056,9 @@ typedef struct Tcl_Time { long usec; /* Microseconds. */ } Tcl_Time; +typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr)); +typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr)); + /* * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler * to indicate what sorts of events are of interest: @@ -1218,6 +1224,18 @@ typedef enum Tcl_PathType { } Tcl_PathType; /* + * The following structure represents the Notifier functions that + * you can override with the Tcl_SetNotifier call. + */ + +typedef struct Tcl_NotifierProcs { + Tcl_SetTimerProc *setTimerProc; + Tcl_WaitForEventProc *waitForEventProc; + Tcl_CreateFileHandlerProc *createFileHandlerProc; + Tcl_DeleteFileHandlerProc *deleteFileHandlerProc; +} Tcl_NotifierProcs; + +/* * The following structure represents a user-defined encoding. It collects * together all the functions that are used by the specific encoding. */ |