home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / include / expect_tcl.h < prev    next >
Encoding:
C/C++ Source or Header  |  2001-10-22  |  1.7 KB  |  55 lines
  1. /* expect_tcl.h - include file for using the expect library, libexpect.a
  2. with Tcl (and optionally Tk)
  3.  
  4. Written by: Don Libes, libes@cme.nist.gov, NIST, 12/3/90
  5.  
  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.
  9.  
  10. */
  11.  
  12. #ifndef _EXPECT_TCL_H
  13. #define _EXPECT_TCL_H
  14.  
  15. #include "expect_comm.h"
  16.  
  17. /*
  18.  * This is a convenience macro used to initialize a thread local storage ptr.
  19.  * Stolen from tclInt.h
  20.  */
  21. #ifndef TCL_TSD_INIT
  22. #define TCL_TSD_INIT(keyPtr)    (ThreadSpecificData *)Tcl_GetThreadData((keyPtr), sizeof(ThreadSpecificData))
  23. #endif
  24.  
  25. EXTERN int exp_cmdlinecmds;
  26. EXTERN int exp_interactive;
  27. EXTERN FILE *exp_cmdfile;
  28. EXTERN char *exp_cmdfilename;
  29. EXTERN int exp_getpid;    /* pid of Expect itself */
  30. EXTERN int exp_buffer_command_input;
  31.  
  32. EXTERN int exp_tcl_debugger_available;
  33.  
  34. EXTERN Tcl_Interp *exp_interp;
  35.  
  36. #define Exp_Init Expect_Init
  37. EXTERN int    Expect_Init _ANSI_ARGS_((Tcl_Interp *));    /* for Tcl_AppInit apps */
  38. EXTERN void    exp_parse_argv _ANSI_ARGS_((Tcl_Interp *,int argc,char **argv));
  39. EXTERN int    exp_interpreter _ANSI_ARGS_((Tcl_Interp *,Tcl_Obj *));
  40. EXTERN int    exp_interpret_cmdfile _ANSI_ARGS_((Tcl_Interp *,FILE *));
  41. EXTERN int    exp_interpret_cmdfilename _ANSI_ARGS_((Tcl_Interp *,char *));
  42. EXTERN void    exp_interpret_rcfiles _ANSI_ARGS_((Tcl_Interp *,int my_rc,int sys_rc));
  43.  
  44. EXTERN char *    exp_cook _ANSI_ARGS_((char *s,int *len));
  45.  
  46. EXTERN void    expCloseOnExec _ANSI_ARGS_((int));
  47.  
  48.             /* app-specific exit handler */
  49. EXTERN void    (*exp_app_exit)_ANSI_ARGS_((Tcl_Interp *));
  50. EXTERN void    exp_exit_handlers _ANSI_ARGS_((ClientData));
  51.  
  52. EXTERN void    exp_error _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp));
  53.  
  54. #endif /* _EXPECT_TCL_H */
  55.