22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
-
-
+
+
|
extern Tcl_PackageInitProc Procbodytest_SafeInit;
extern Tcl_PackageInitProc TclObjTest_Init;
extern Tcl_PackageInitProc Tcltest_Init;
#endif /* TCL_TEST */
#ifdef TCL_XT_TEST
extern void XtToolkitInitialize _ANSI_ARGS_((void));
extern int Tclxttest_Init _ANSI_ARGS_((Tcl_Interp *interp));
extern void XtToolkitInitialize (void);
extern int Tclxttest_Init (Tcl_Interp *interp);
#endif
/*
*----------------------------------------------------------------------
*
* main --
*
|
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
-
+
-
+
|
* file. The #if checks for that #define and uses Tcl_AppInit if it does
* not exist.
*/
#ifndef TCL_LOCAL_APPINIT
#define TCL_LOCAL_APPINIT Tcl_AppInit
#endif
extern int TCL_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp));
extern int TCL_LOCAL_APPINIT (Tcl_Interp *interp);
/*
* The following #if block allows you to change how Tcl finds the startup
* script, prime the library or encoding paths, fiddle with the argv,
* etc., without needing to rewrite Tcl_Main()
*/
#ifdef TCL_LOCAL_MAIN_HOOK
extern int TCL_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv));
extern int TCL_LOCAL_MAIN_HOOK (int *argc, char ***argv);
#endif
#ifdef TCL_XT_TEST
XtToolkitInitialize();
#endif
#ifdef TCL_LOCAL_MAIN_HOOK
|