From 0d1f2a5794e7b5e1a91ea7fce06a2177861d40db Mon Sep 17 00:00:00 2001 From: escoffon Date: Wed, 29 Jul 1998 13:12:12 +0000 Subject: Merged changes between child workspace "/home/escoffon/ws/tcl8.0" and parent workspace "/export/home/ws/tcl8.0". --- generic/tclInt.h | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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_(( -- cgit v0.12