* generic/tclUtil.c: Updated Tcl_GetNameOfExecutable() to

        * generic/tclEncoding.c:        make use of a ProcessGlobalValue for
        * generic/tclEvent.c:           storing the executable name.
        Added internal routines Tcl(Get|Set)ObjNameOfExecutable() to access
        that storage in Tcl_Obj, rather than string format.

        * unix/tclUnixFile.c:   Rewrote TclpFindExecutable() to use
        * win/tclWinFile.c:     TclSetObjNameOfExecutable to store the
        executable name it computes.

        * generic/tclInt.h:     Added internal stub entries for
        * generic/tclInt.decls: TclpFindExecutable and
        Tcl(Get|Set)ObjNameOfExecutable.

        * generic/tclIntDecls.h:        make genstubs
        * generic/tclStubInit.c:

        * generic/tclCmdIL.c:   Retrieve executable name in Tcl_Obj form
        * win/tclWinPipe.c:     instead of string form.

        * unix/tclUnixTest.c:   Update [testfindexecutable] command to use
        new internal interfaces.

1 files changed, 10 insertions, 1 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index d6cdd1f..e497298 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -12,7 +12,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.decls,v 1.83 2004/11/30 19:34:48 dgp Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.84 2004/12/01 23:18:50 dgp Exp $
 
 library tcl
 
@@ -850,6 +850,15 @@ declare 210 generic {
 declare 211 generic {
     CONST char * TclpGetEncodingNameFromEnvironment(Tcl_DString *bufPtr)
 }
+declare 212 generic {
+    void TclpFindExecutable(CONST char *argv0)
+}
+declare 213 generic {
+    Tcl_Obj * TclGetObjNameOfExecutable(void)
+}
+declare 214 generic {
+    void TclSetObjNameOfExecutable(Tcl_Obj *name, Tcl_Encoding encoding)
+}
 
 ##############################################################################