diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-12-06 16:14:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-12-06 16:14:31 (GMT) |
| commit | f756f4519bc78def438d90807a1b7c662cfa1cc0 (patch) | |
| tree | cb7f9363166936707e015a4f7b9bc562c87cd2d4 /generic/tclInt.h | |
| parent | 85d4482f18637feeb6418a5935859a7423a2fc03 (diff) | |
| download | tcl-f756f4519bc78def438d90807a1b7c662cfa1cc0.zip tcl-f756f4519bc78def438d90807a1b7c662cfa1cc0.tar.gz tcl-f756f4519bc78def438d90807a1b7c662cfa1cc0.tar.bz2 | |
Simplify code for setting up the [chan] ensemble now that we can leverage
TclMakeEnsemble to do most of the work.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 48e4eac..d63b3d2 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -13,7 +13,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.h,v 1.353 2007/11/26 19:11:12 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.354 2007/12/06 16:14:33 dkf Exp $ */ #ifndef _TCLINT @@ -2424,10 +2424,6 @@ MODULE_SCOPE int TclArraySet(Tcl_Interp *interp, MODULE_SCOPE double TclBignumToDouble(mp_int *bignum); MODULE_SCOPE double TclCeil(mp_int *a); MODULE_SCOPE int TclCheckBadOctal(Tcl_Interp *interp,const char *value); -MODULE_SCOPE int TclChanCreateObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPostEventObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); MODULE_SCOPE int TclChanCaughtErrorBypass(Tcl_Interp *interp, Tcl_Channel chan); MODULE_SCOPE void TclCleanupLiteralTable(Tcl_Interp *interp, @@ -2698,12 +2694,13 @@ MODULE_SCOPE int Tcl_CatchObjCmd(ClientData clientData, MODULE_SCOPE int Tcl_CdObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TclChanPendingObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); /* TIP 287 */ -MODULE_SCOPE int TclChanTruncateObjCmd( - ClientData clientData, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); +MODULE_SCOPE Tcl_Command TclInitChanCmd(Tcl_Interp *interp); +MODULE_SCOPE int TclChanCreateObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[]); +MODULE_SCOPE int TclChanPostEventObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[]); MODULE_SCOPE void TclClockInit(Tcl_Interp *interp); MODULE_SCOPE int TclClockOldscanObjCmd( ClientData clientData, Tcl_Interp *interp, |