projects / micropolis / blame
| Commit | Line | Data |
|---|---|---|
| 6a5fa4e0 MG |
1 | /#include "tkint.h"/a\ |
| 2 | #define TK_EXTENDED\ | |
| 3 | #ifdef TK_EXTENDED\ | |
| 4 | # include "tclxtend.h"\ | |
| 5 | Tcl_Interp *tk_mainInterp; /* Need to process signals */\ | |
| 6 | #endif | |
| 7 | ||
| 8 | /^char initCmd/c\ | |
| 9 | #ifdef TK_EXTENDED\ | |
| 10 | char initCmd[] = "load wishx.tcl";\ | |
| 11 | #else\ | |
| 12 | char initCmd[] = "source $tk_library/wish.tcl";\ | |
| 13 | #endif | |
| 14 | ||
| 15 | / interp = Tcl_CreateInterp();/c\ | |
| 16 | #ifdef TK_EXTENDED\ | |
| 17 | tk_mainInterp = interp = Tcl_CreateExtendedInterp();\ | |
| 18 | #else\ | |
| 19 | interp = Tcl_CreateInterp();\ | |
| 20 | #endif | |
| 21 | ||
| 22 | /result = Tcl_Eval(interp, initCmd/i\ | |
| 23 | #ifdef TK_EXTENDED\ | |
| 24 | tclAppName = "Wish";\ | |
| 25 | tclAppLongname = "Wish - Tk Shell";\ | |
| 26 | tclAppVersion = TK_VERSION;\ | |
| 27 | Tcl_ShellEnvInit (interp, TCLSH_ABORT_STARTUP_ERR,\ | |
| 28 | name,\ | |
| 29 | 0, NULL, /* argv var already set */\ | |
| 30 | fileName == NULL, /* interactive? */\ | |
| 31 | NULL); /* Standard default file */\ | |
| 32 | #endif |