Artifact cac11ec6a873765b24a2e0438463a2ac2c6602f8:

• File kitsh/buildsrc/kitsh-0.0/main.c — part of check-in [5dc6b2220b] at 2010-09-26 04:46:35 on branch trunk — Cleaned up winMain

  Updated main to return in failure if Tcl_Main() returns (user: rkeene, size: 275) [annotate] [blame] [check-ins using]

#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