diff options
| author | escoffon <escoffon> | 1998-07-29 13:12:12 (GMT) |
|---|---|---|
| committer | escoffon <escoffon> | 1998-07-29 13:12:12 (GMT) |
| commit | 0d1f2a5794e7b5e1a91ea7fce06a2177861d40db (patch) | |
| tree | 5b6040256c38343f7e32f46ee7fc6aa97d1f3d1d | |
| parent | 108aafca8776741d650fca8440a5331bd8188a98 (diff) | |
| download | tcl-0d1f2a5794e7b5e1a91ea7fce06a2177861d40db.zip tcl-0d1f2a5794e7b5e1a91ea7fce06a2177861d40db.tar.gz tcl-0d1f2a5794e7b5e1a91ea7fce06a2177861d40db.tar.bz2 | |
Merged changes between child workspace "/home/escoffon/ws/tcl8.0" and
parent workspace "/export/home/ws/tcl8.0".
| -rw-r--r-- | generic/tclInt.h | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 92e280b..346a8d8 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -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. * - * SCCS: %Z% $Id: tclInt.h,v 1.11 1998/07/24 15:50:19 stanton Exp $ + * SCCS: %Z% $Id: tclInt.h,v 1.12 1998/07/29 13:12:12 escoffon Exp $ */ #ifndef _TCLINT @@ -1304,6 +1304,11 @@ typedef Tcl_Channel (TclOpenFileChannelProc_) _ANSI_ARGS_((Tcl_Interp *interp, char *fileName, char *modeString, int permissions)); +typedef int (*TclCmdProcType) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int argc, char *argv[])); +typedef int (*TclObjCmdProcType) _ANSI_ARGS_((ClientData clientData, + Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST objv[])); + /* *---------------------------------------------------------------- * Variables shared among Tcl modules but not used by the outside world. @@ -1436,6 +1441,7 @@ EXTERN char * TclGetExtension _ANSI_ARGS_((char *name)); EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp *interp, char *string, CallFrame **framePtrPtr)); EXTERN int TclGetIdleGeneration _ANSI_ARGS_((void)); +EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr)); EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp *interp, @@ -1450,6 +1456,7 @@ EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, char **simpleNamePtr)); +EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp *interp, char *string, int *seekFlagPtr)); EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( |