diff options
| author | hobbs <hobbs> | 2007-12-06 19:23:39 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2007-12-06 19:23:39 (GMT) |
| commit | c805eb186280c216c7f727254ec8e555a30c0b62 (patch) | |
| tree | 8c16369853e466a7351ee5f47116a994d25ed103 /generic/tclInt.h | |
| parent | b0990991c985516a9feb932b8f96a8508a2e8ca3 (diff) | |
| download | tcl-c805eb186280c216c7f727254ec8e555a30c0b62.zip tcl-c805eb186280c216c7f727254ec8e555a30c0b62.tar.gz tcl-c805eb186280c216c7f727254ec8e555a30c0b62.tar.bz2 | |
add TclGetChannelFromObj decl
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index d63b3d2..cc57a09 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.354 2007/12/06 16:14:33 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.355 2007/12/06 19:23:40 hobbs Exp $ */ #ifndef _TCLINT @@ -2468,6 +2468,9 @@ MODULE_SCOPE int TclFSFileAttrIndex(Tcl_Obj *pathPtr, const char *attributeName, int *indexPtr); MODULE_SCOPE int * TclGetAsyncReadyPtr(void); MODULE_SCOPE Tcl_Obj * TclGetBgErrorHandler(Tcl_Interp *interp); +MODULE_SCOPE int TclGetChannelFromObj(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_Channel *chanPtr, + int *modePtr, int flags); MODULE_SCOPE int TclGetNumberFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, ClientData *clientDataPtr, int *typePtr); |