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
|
#define TCL_EVENT_IMPLEMENT
#ifdef WIN32
#include "../pTk/tclWinNotify.c"
void
Tcl_WatchHandle(HANDLE h, Tcl_HandleProc *proc, ClientData clientData)
{
#if 0
int i = 0;
while (i < notifier.hCount)
{
if (notifier.hArray[i] == h)
break;
i++;
}
if (i == notifier.hCount)
{
if (notifier.hCount < MAXIMUM_WAIT_OBJECTS)
{
notifier.hArray[i] = h;
notifier.hCount++;
}
}
if (i < notifier.hCount)
{
notifier.pArray[i].proc = proc;
notifier.pArray[i].clientData = clientData;
}
#endif
}
#else
#include "../pTk/tclUnixNotfy.c"
#endif
/*
* Keep a record of the original Notifier procedures, created in the
* same compilation unit as the stub tables so we can later do reliable,
* portable comparisons to see whether a Tcl_SetNotifier() call swapped
* new routines into the stub table.
*/
Tcl_NotifierProcs tclOriginalNotifier = {
Tcl_SetTimer,
Tcl_WaitForEvent,
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
Tcl_CreateFileHandler,
Tcl_DeleteFileHandler,
#else
NULL,
NULL,
#endif
NULL,
NULL,
NULL,
NULL
};
|
