diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-12-15 15:48:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-12-15 15:48:33 (GMT) |
| commit | f846544ae625a6ea36e4a75e8f5f6caf47d6242c (patch) | |
| tree | 64730fb8e40e8e03e2e6c15b333bf5dba194866e /generic/tcl.h | |
| parent | a9acaa7613d6dc4d271a5af9d80f4a36b647b898 (diff) | |
| download | tcl-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.h | 5 |
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) |