git.zerfleddert.de Git - micropolis/blob - 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