| 58 | */ |
| 59 | |
| 60 | int |
| 61 | main(int argc, char **argv) |
| 62 | { |
| 63 | /* |
| 64 | * The following #if block allows you to change the AppInit |
| 65 | * function by using a #define of TCL_LOCAL_APPINIT instead |
| 66 | * of rewriting this entire file. The #if checks for that |
| 67 | * #define and uses Tcl_AppInit if it doesn't exist. |
| 68 | */ |
| 69 | |
| 70 | #ifndef TK_LOCAL_APPINIT |
| 71 | #define TK_LOCAL_APPINIT Tcl_AppInit |
| 72 | #endif |
| 73 | /* |
| 74 | extern int TK_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp)); |
| 75 | */ |
| 76 | |
| 77 | /* |
| 78 | * The following #if block allows you to change how Tcl finds the startup |
| 79 | * script, prime the library or encoding paths, fiddle with the argv, |
| 80 | * etc., without needing to rewrite Tk_Main() |
| 81 | */ |
| 82 | |
| 83 | #ifdef TK_LOCAL_MAIN_HOOK |
| 84 | extern int TK_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv)); |
| 85 | TK_LOCAL_MAIN_HOOK(&argc, &argv); |
| 86 | #endif |
| 87 | |
| 88 | Tk_MainOpenSees(argc, argv, TK_LOCAL_APPINIT, Tcl_CreateInterp()); |
| 89 | return 0; /* Needed only to prevent compiler warning. */ |
| 90 | } |
| 91 | |
| 92 | /* |
| 93 | *---------------------------------------------------------------------- |
nothing calls this directly
no test coverage detected