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