#include "expect_cf.h"
#include <stdio.h>
#include "tcl.h"
#ifdef USE_ITCL
#include "itcl.h"
#endif
#include "expect_tcl.h"
int
main(argc, argv)
int argc;
char *argv[];
{
int rc = 0;
Tcl_Interp *interp = Tcl_CreateInterp();
Tcl_FindExecutable (argv[0]);
if (Tcl_Init(interp) == TCL_ERROR) {
fprintf(stderr,"Tcl_Init failed: %s\n",interp->result);
exit(1);
}
if (Expect_Init(interp) == TCL_ERROR) {
fprintf(stderr,"Expect_Init failed: %s\n",interp->result);
exit(1);
}
#ifdef USE_ITCL
if (Itcl_Init(interp) == TCL_ERROR) {
fprintf(stderr,"Itcl_Init failed: %s\n",interp->result);
exit(1);
}
#endif
exp_parse_argv(interp,argc,argv);
if (exp_interactive)
(void) exp_interpreter(interp);
else if (exp_cmdfile)
rc = exp_interpret_cmdfile(interp,exp_cmdfile);
else if (exp_cmdfilename)
rc = exp_interpret_cmdfilename(interp,exp_cmdfilename);
exp_exit(interp,rc);
return 0;
}