sync w/ [trunk]

1 files changed, 29 insertions, 1 deletions

diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c
index 21c766e..0f7f021 100644
--- a/generic/tclIORChan.c
+++ b/generic/tclIORChan.c
@@ -30,6 +30,8 @@
 /*
  * Signatures of all functions used in the C layer of the reflection.
  */
+static int		ReflectGetHandle( ClientData instanceData,
+			int direction, ClientData *handlePtr);
 
 static int		ReflectClose(ClientData clientData,
 			    Tcl_Interp *interp);
@@ -68,7 +70,7 @@ static const Tcl_ChannelType tclRChannelType = {
     ReflectSetOption,	   /* Set options.			NULL'able */
     ReflectGetOption,	   /* Get options.			NULL'able */
     ReflectWatch,	   /* Initialize notifier			  */
-    NULL,		   /* Get OS handle from the channel.	NULL'able */
+    ReflectGetHandle,	   /* Get OS handle from the channel.		  */
     NULL,		   /* No close2 support.		NULL'able */
     ReflectBlock,	   /* Set blocking/nonblocking.		NULL'able */
     NULL,		   /* Flush channel. Not used by core.	NULL'able */
@@ -1644,6 +1646,32 @@ ReflectWatch(
 /*
  *----------------------------------------------------------------------
  *
+ * ReflectGetHandle --
+ *
+ *	This function is invoked to return OS channel handles, or EINVAL
+ *	if not applicable or otherwise invalid.
+ *
+ * Results:
+ *	EINVAL.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+ReflectGetHandle(
+    ClientData instanceData,
+    int direction,
+    ClientData *handlePtr)
+{
+  return EINVAL;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
  * ReflectBlock --
  *
  *	This function is invoked to tell the channel which blocking behaviour