diff options
author | hobbs <hobbs@noemail.net> | 2000-05-19 21:30:15 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2000-05-19 21:30:15 (GMT) |
commit | 1f87e5cfaafafd55d59d68c7302ce55511895ca0 (patch) | |
tree | 4fb1f802b2917d98a9bf73ee85bd09237045cfbe /generic/tclInt.decls | |
parent | e38773a8fcf6ddebbd15d855898a06a8e28afc4f (diff) | |
download | tcl-1f87e5cfaafafd55d59d68c7302ce55511895ca0.zip tcl-1f87e5cfaafafd55d59d68c7302ce55511895ca0.tar.gz tcl-1f87e5cfaafafd55d59d68c7302ce55511895ca0.tar.bz2 |
* 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.
FossilOrigin-Name: a0e9b1640e0d5f2134cb6832a4700b9ae0cfc241
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r-- | generic/tclInt.decls | 23 |
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 |