1 /* expect_tcl.h - include file for using the expect library, libexpect.a
2 with Tcl (and optionally Tk)
4 Written by: Don Libes, libes@cme.nist.gov, NIST, 12/3/90
6 Design and implementation of this program was paid for by U.S. tax
7 dollars. Therefore it is public domain. However, the author and NIST
8 would appreciate credit if this program or parts of it are used.
16 #include "expect_comm.h"
19 * This is a convenience macro used to initialize a thread local storage ptr.
20 * Stolen from tclInt.h
23 #define TCL_TSD_INIT(keyPtr) (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData))
26 EXTERN int exp_cmdlinecmds;
27 EXTERN int exp_interactive;
28 EXTERN FILE *exp_cmdfile;
29 EXTERN char *exp_cmdfilename;
30 EXTERN int exp_getpid; /* pid of Expect itself */
31 EXTERN int exp_buffer_command_input;
33 EXTERN int exp_strict_write;
35 EXTERN int exp_tcl_debugger_available;
37 EXTERN Tcl_Interp *exp_interp;
39 #define Exp_Init Expect_Init
40 EXTERN int Expect_Init _ANSI_ARGS_((Tcl_Interp *)); /* for Tcl_AppInit apps */
41 EXTERN void exp_parse_argv _ANSI_ARGS_((Tcl_Interp *,int argc,char **argv));
42 EXTERN int exp_interpreter _ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *));
43 EXTERN int exp_interpret_cmdfile _ANSI_ARGS_((Tcl_Interp *,FILE *));
44 EXTERN int exp_interpret_cmdfilename _ANSI_ARGS_((Tcl_Interp *,char *));
45 EXTERN void exp_interpret_rcfiles _ANSI_ARGS_((Tcl_Interp *,int my_rc,int sys_rc));
47 EXTERN char * exp_cook _ANSI_ARGS_((char *s,int *len));
49 EXTERN void expCloseOnExec _ANSI_ARGS_((int));
51 /* app-specific exit handler */
52 EXTERN void (*exp_app_exit)_ANSI_ARGS_((Tcl_Interp *));
53 EXTERN void exp_exit_handlers _ANSI_ARGS_((ClientData));
55 EXTERN void exp_error _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp));
57 #endif /* _EXPECT_TCL_H */