[micropolis] / src / tclx / tkucbsrc / main.sed

/#include "tkint.h"/a\
#define TK_EXTENDED\
#ifdef TK_EXTENDED\
#    include "tclxtend.h"\
     Tcl_Interp *tk_mainInterp;  /* Need to process signals */\
#endif

/^char initCmd/c\
#ifdef TK_EXTENDED\
char initCmd[] = "load wishx.tcl";\
#else\
char initCmd[] = "source $tk_library/wish.tcl";\
#endif

/    interp = Tcl_CreateInterp();/c\
#ifdef TK_EXTENDED\
    tk_mainInterp = interp = Tcl_CreateExtendedInterp();\
#else\
    interp = Tcl_CreateInterp();\
#endif

/result = Tcl_Eval(interp, initCmd/i\
#ifdef TK_EXTENDED\
    tclAppName     = "Wish";\
    tclAppLongname = "Wish - Tk Shell";\
    tclAppVersion  = TK_VERSION;\
    Tcl_ShellEnvInit (interp, TCLSH_ABORT_STARTUP_ERR,\
                      name,\
                      0, NULL,           /* argv var already set  */\
                      fileName == NULL,  /* interactive?          */\
                      NULL);             /* Standard default file */\
#endif
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