summaryrefslogtreecommitdiffstats
path: root/generic/tcl.h
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-12-15 15:48:33 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-12-15 15:48:33 (GMT)
commitf846544ae625a6ea36e4a75e8f5f6caf47d6242c (patch)
tree64730fb8e40e8e03e2e6c15b333bf5dba194866e /generic/tcl.h
parenta9acaa7613d6dc4d271a5af9d80f4a36b647b898 (diff)
downloadtcl-f846544ae625a6ea36e4a75e8f5f6caf47d6242c.zip
tcl-f846544ae625a6ea36e4a75e8f5f6caf47d6242c.tar.gz
tcl-f846544ae625a6ea36e4a75e8f5f6caf47d6242c.tar.bz2
TIP #338 IMPLEMENTATION
* doc/AppInit.c: Made routines Tcl_SetStartupScript and * doc/Tcl_Main.3: Tcl_GetStartupScript public. Removed all * generic/tcl.h: internal stub access to Tcl*Startup* routines, * generic/tclInt.decls: and removed their implementations. Their * generic/tclMain.c: function can now be completely performed with the new public interface. *** POTENTIAL INCOMPATIBILITY for callers of the internal Tcl*Startup* routines. *** * generic/tclIntDecls.h: make genstubs * generic/tclStubInit.c:
Diffstat (limited to 'generic/tcl.h')
-rw-r--r--generic/tcl.h5
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h
index 7ff25c7..844dbcb 100644
--- a/generic/tcl.h
+++ b/generic/tcl.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: tcl.h,v 1.281 2008/12/11 01:21:52 dkf Exp $
+ * RCS: @(#) $Id: tcl.h,v 1.282 2008/12/15 15:48:33 dgp Exp $
*/
#ifndef _TCL
@@ -2339,6 +2339,9 @@ EXTERN const char * TclTomMathInitializeStubs (Tcl_Interp *interp,
EXTERN void Tcl_Main (int argc, char **argv,
Tcl_AppInitProc *appInitProc);
+EXTERN void Tcl_SetStartupScript(Tcl_Obj *path,
+ const char *encoding);
+EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr);
EXTERN const char * Tcl_PkgInitStubsCheck (Tcl_Interp *interp,
const char *version, int exact);
#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC)