2 * IR toolkit for tcl/tk
5 * $Id: tclmain.c,v 1.1 1995-03-06 17:05:34 adam Exp $
12 static char *fileName = NULL;
14 int Tcl_AppInit (Tcl_Interp *interp)
16 if (Tcl_Init(interp) == TCL_ERROR)
18 if (ir_tcl_init(interp) == TCL_ERROR)
23 int main (int argc, char **argv)
28 interp = Tcl_CreateInterp();
32 fprintf (stderr, "Script file expected\n");
38 fprintf (stderr, "No filename specified\n");
41 if (Tcl_AppInit(interp) != TCL_OK) {
42 fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result);
44 code = Tcl_EvalFile (interp, fileName);
45 if (*interp->result != 0)
46 printf ("%s\n", interp->result);