main.c at [66c3398628]

File kitsh/buildsrc/kitsh-0.0/main.c artifact cac11ec6a8 part of check-in 66c3398628


#ifndef KITSH_NEED_WINMAIN
#include <tcl.h>

int TclKit_AppInit(Tcl_Interp *interp);

int main(int argc, char **argv) {
	Tcl_Interp *x;

	x = Tcl_CreateInterp();

	Tcl_Main(argc, argv, TclKit_AppInit);

	/* If Tcl_Main() returns, something went wrong */
	return(1);
}
#endif