diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-30 06:33:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-30 06:33:29 (GMT) |
| commit | c14c0cb9b1f94390b3e110a359a5506c892cda44 (patch) | |
| tree | 0ad16dbe6a4d877af7093a1eca2902f8116f8da6 /generic/tcl.h | |
| parent | b8db328a5dc663435c02e2b2a67f3d66e16602c9 (diff) | |
| download | tcl-c14c0cb9b1f94390b3e110a359a5506c892cda44.zip tcl-c14c0cb9b1f94390b3e110a359a5506c892cda44.tar.gz tcl-c14c0cb9b1f94390b3e110a359a5506c892cda44.tar.bz2 | |
Tcl_MainEx() (like Tk_MainEx())rfe_1711975
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 54bfedc..177126a 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2373,8 +2373,10 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] */ -EXTERN void Tcl_Main(int argc, char **argv, - Tcl_AppInitProc *appInitProc); +#define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ + (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) +EXTERN void Tcl_MainEx(int argc, char **argv, + Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, const char *version, int exact); #if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC) |