TIP #511 implementation: Implement Tcl_AsyncMarkFromSignal()

1 files changed, 49 insertions, 0 deletions

diff --git a/win/tclWinNotify.c b/win/tclWinNotify.c
index 068675c..f951acf 100644
--- a/win/tclWinNotify.c
+++ b/win/tclWinNotify.c
@@ -353,6 +353,32 @@ TclpServiceModeHook(
 /*
  *----------------------------------------------------------------------
  *
+ * TclAsyncNotifier --
+ *
+ *	This procedure is a no-op on Windows.
+ *
+ * Result:
+ *	Always true.
+ *
+ * Side effetcs:
+ *	None.
+ *----------------------------------------------------------------------
+ */
+
+int
+TclAsyncNotifier(
+    int sigNumber,		/* Signal number. */
+    Tcl_ThreadId threadId,	/* Target thread. */
+    ClientData clientData,	/* Notifier data. */
+    int *flagPtr,		/* Flag to mark. */
+    int value)			/* Value of mark. */
+{
+    return 0;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
  * NotifierProc --
  *
  *	This procedure is invoked by Windows to process events on the notifier
@@ -396,6 +422,29 @@ NotifierProc(
 /*
  *----------------------------------------------------------------------
  *
+ * TclpNotifierData --
+ *
+ *	This function returns a ClientData pointer to be associated
+ *	with a Tcl_AsyncHandler.
+ *
+ * Results:
+ *	On Windows, returns always NULL.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+ClientData
+TclpNotifierData(void)
+{
+    return NULL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
  * TclpWaitForEvent --
  *
  *	This function is called by Tcl_DoOneEvent to wait for new events on