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/tclStubInit.c | |
| 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/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index c2ac1e5..93a680c 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.37 2000/05/08 21:59:59 hobbs Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.38 2000/05/19 21:30:16 hobbs Exp $ */ #include "tclInt.h" @@ -229,13 +229,14 @@ TclIntStubs tclIntStubs = { TclRegExpRangeUniChar, /* 151 */ TclSetLibraryPath, /* 152 */ TclGetLibraryPath, /* 153 */ - TclTestChannelCmd, /* 154 */ - TclTestChannelEventCmd, /* 155 */ + NULL, /* 154 */ + NULL, /* 155 */ TclRegError, /* 156 */ TclVarTraceExists, /* 157 */ TclSetStartupScriptFileName, /* 158 */ TclGetStartupScriptFileName, /* 159 */ TclpMatchFilesTypes, /* 160 */ + TclChannelEventScriptInvoker, /* 161 */ }; TclIntPlatStubs tclIntPlatStubs = { |