]> git.zerfleddert.de Git - micropolis/blob - src/tclx/tkucbsrc/main.sed
Avoid SIGLOST==SIGPWR namespace collision on sparc (LP: #505080).
[micropolis] / src / tclx / tkucbsrc / main.sed
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
Impressum, Datenschutz