1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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
|
-
+
+
+
|
/*
* tclUnixNotify.c --
*
* This file contains the implementation of the select-based
* Unix-specific notifier, which is the lowest-level part
* of the Tcl event loop. This file works together with
* generic/tclNotify.c.
*
* Copyright (c) 1995-1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclUnixNotfy.c,v 1.18.2.3 2005/05/05 17:56:59 kennykb Exp $
* RCS: @(#) $Id: tclUnixNotfy.c,v 1.18.2.4 2005/05/21 15:10:35 kennykb Exp $
*/
#ifndef HAVE_COREFOUNDATION /* Darwin/Mac OS X CoreFoundation notifier
* is in tclMacOSXNotify.c */
#include "tclInt.h"
#include <signal.h>
extern TclStubs tclStubs;
extern Tcl_NotifierProcs tclOriginalNotifier;
/*
|
1076
1077
1078
1079
1080
1081
1082
|
1078
1079
1080
1081
1082
1083
1084
1085
1086
|
+
+
|
triggerPipe = -1;
Tcl_ConditionNotify(¬ifierCV);
Tcl_MutexUnlock(¬ifierMutex);
TclpThreadExit (0);
}
#endif
#endif /* HAVE_COREFOUNDATION */
|