* generic/tclTest.c:

	* generic/tclIO.c: moved channel test commands from tclIO.c to
	tclTest.c.
	* generic/tclIO.h: new file, split out from tclIO.c to allow test
	commands to be moved to tclTest.c.

	* generic/tclStubInit.c:
	* generic/tclIntDecls.h:
	* generic/tclInt.decls: removed TclTestChannel*Cmd from internal
	stubs table and added TclChannelEventScriptInvoker to the internal
	stubs table so it can be used from the test code.

1 files changed, 14 insertions, 9 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index b9ca659..53f8151 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: tclInt.decls,v 1.20 2000/03/31 08:52:04 hobbs Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.21 2000/05/19 21:30:16 hobbs Exp $
 
 library tcl
 
@@ -577,14 +577,15 @@ declare 153 generic {
     Tcl_Obj *TclGetLibraryPath(void)
 }
 
-declare 154 generic {
-    int TclTestChannelCmd(ClientData clientData,
-    Tcl_Interp *interp, int argc, char **argv)
-}
-declare 155 generic {
-    int TclTestChannelEventCmd(ClientData clientData, \
-	    Tcl_Interp *interp, int argc, char **argv)
-}
+#declare 154 generic {
+#    int TclTestChannelCmd(ClientData clientData,
+#    Tcl_Interp *interp, int argc, char **argv)
+#}
+#declare 155 generic {
+#    int TclTestChannelEventCmd(ClientData clientData, \
+#	     Tcl_Interp *interp, int argc, char **argv)
+#}
+
 declare 156 generic {
     void TclRegError (Tcl_Interp *interp, char *msg, \
 	    int status)
@@ -603,6 +604,10 @@ declare 160 generic {
 	    Tcl_DString *dirPtr, char *pattern, char *tail, GlobTypeData *types)
 }
 
+declare 161 generic {
+    void TclChannelEventScriptInvoker(ClientData clientData, int mask)
+}
+
 ##############################################################################
 
 # Define the platform specific internal Tcl interface. These functions are