Tcl Source Code

Artifact 175129f3aca6c8bab01c53af82f796b491154ae1:

Attachment "crazyALT1.c" to ticket [1055668fff] added by davygrvy 2004-10-28 23:31:32.

---

#include <windows.h>
#define USE_TCL_STUBS
#include "tcl.h"

int
Tcl_AppInit (Tcl_Interp *interp)
{
    if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
	return TCL_ERROR;
    }
    if (Tcl_Init(interp) == TCL_ERROR) {
	return TCL_ERROR;
    }
    return TCL_OK;
}

int
main (int argc, char *argv[])
{
    Tcl_Main(argc, argv, Tcl_AppInit);
    return 0;  // not reached
}