Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Tcl_MainEx() (like Tk_MainEx()) |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | rfe-1711975 |
Files: | files | file ages | folders |
SHA1: |
2f0a062d8f65b8b820ca7a78a0f39857 |
User & Date: | jan.nijtmans 2011-08-30 06:33:29 |
Context
2011-09-06
| ||
10:15 | [RFE 1711975]: Tcl_MainEx() (like Tk_MainEx()) check-in: e6695ae7dc user: jan.nijtmans tags: trunk | |
2011-08-30
| ||
06:33 | Tcl_MainEx() (like Tk_MainEx()) Closed-Leaf check-in: 2f0a062d8f user: jan.nijtmans tags: rfe-1711975 | |
00:23 | [Bug 3398794]: Use Tcl errors in scripts, not panics. check-in: 241cdd7be1 user: dkf tags: trunk | |
Changes
Changes to generic/tcl.h.
︙ | ︙ | |||
2369 2370 2371 2372 2373 2374 2375 | */ /* * Public functions that are not accessible via the stubs table. * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] */ | > > | | | 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 | */ /* * Public functions that are not accessible via the stubs table. * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171] */ #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) EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); #endif /* |
︙ | ︙ |
Changes to generic/tclDecls.h.
︙ | ︙ | |||
3787 3788 3789 3790 3791 3792 3793 | #endif #if defined(_WIN32) && defined(UNICODE) # define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg))) # define Tcl_MainEx Tcl_MainExW EXTERN void Tcl_MainExW(int argc, wchar_t **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); | < < | 3787 3788 3789 3790 3791 3792 3793 3794 3795 3796 3797 3798 3799 | #endif #if defined(_WIN32) && defined(UNICODE) # define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg))) # define Tcl_MainEx Tcl_MainExW EXTERN void Tcl_MainExW(int argc, wchar_t **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); #endif #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT #endif /* _TCLDECLS */ |
Changes to generic/tclMain.c.
︙ | ︙ | |||
617 618 619 620 621 622 623 | * redefined, maybe we've blown up because of an exceeded limit. We * still want to cleanup and exit. */ Tcl_Exit(exitCode); } #ifndef UNICODE | > | | 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 | * redefined, maybe we've blown up because of an exceeded limit. We * still want to cleanup and exit. */ Tcl_Exit(exitCode); } #ifndef UNICODE #undef Tcl_Main extern DLLEXPORT void Tcl_Main( int argc, /* Number of arguments. */ TCHAR **argv, /* Array of argument strings. */ Tcl_AppInitProc *appInitProc) /* Application-specific initialization * function to call after most initialization * but before starting to execute commands. */ |
︙ | ︙ |