From 831adc93ab837996958e25545bef7df6df12feeb Mon Sep 17 00:00:00 2001 From: suresh Date: Fri, 12 Jun 1998 16:49:33 +0000 Subject: Added prototype for the new public routine 'Tcl_GetNameOfExecutable(...)'. --- generic/tcl.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/generic/tcl.h b/generic/tcl.h index c2f28e9..ed4676d 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -11,7 +11,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: tcl.h,v 1.3 1998/06/10 12:30:43 escoffon Exp $ + * SCCS: %Z% $Id: tcl.h,v 1.4 1998/06/12 16:49:33 suresh Exp $ */ #ifndef _TCL @@ -1254,6 +1254,7 @@ EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp *interp, EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr)); EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp *interp)); +EXTERN CONST char * Tcl_GetNameOfExecutable(); EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((char *typeName)); EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp *interp, -- cgit v0.12