tcldbg.h

   1 /* Dbg.h - Tcl Debugger include file
   2
   3 Written by: Don Libes, NIST, 3/23/93
   4
   5 Design and implementation of this program was paid for by U.S. tax
   6 dollars.  Therefore it is public domain.  However, the author and NIST
   7 would appreciate credit if this program or parts of it are used.
   8
   9 */
  10
  11 /* _DEBUG or _DBG is just too likely, use something more unique */
  12 #ifndef _NIST_DBG
  13 #define _NIST_DBG
  14
  15 #include "tcl.h"
  16
  17 typedef int (Dbg_InterProc) _ANSI_ARGS_((Tcl_Interp *interp, ClientData data));
  18 typedef int (Dbg_IgnoreFuncsProc) _ANSI_ARGS_((
  19                         Tcl_Interp *interp,
  20                         char *funcname));
  21 typedef void (Dbg_OutputProc) _ANSI_ARGS_((
  22                         Tcl_Interp *interp,
  23                         char *output,
  24                         ClientData data));
  25
  26 typedef struct {
  27   Dbg_InterProc *func;
  28   ClientData data;
  29 } Dbg_InterStruct;
  30
  31 typedef struct {
  32   Dbg_OutputProc *func;
  33   ClientData data;
  34 } Dbg_OutputStruct;
  35
  36 EXTERN char *Dbg_VarName;
  37 EXTERN char *Dbg_DefaultCmdName;
  38
  39 /* trivial interface, creates a "debug" command in your interp */
  40 EXTERN int Tcldbg_Init _ANSI_ARGS_((Tcl_Interp *));
  41
  42 EXTERN void Dbg_On _ANSI_ARGS_((Tcl_Interp *interp,
  43                                         int immediate));
  44 EXTERN void Dbg_Off _ANSI_ARGS_((Tcl_Interp *interp));
  45 EXTERN char **Dbg_ArgcArgv _ANSI_ARGS_((int argc,char *argv[],
  46                                         int copy));
  47 EXTERN int Dbg_Active _ANSI_ARGS_((Tcl_Interp *interp));
  48 EXTERN Dbg_InterStruct Dbg_Interactor _ANSI_ARGS_((
  49                                         Tcl_Interp *interp,
  50                                         Dbg_InterProc *interactor,
  51                                         ClientData data));
  52 EXTERN Dbg_IgnoreFuncsProc *Dbg_IgnoreFuncs _ANSI_ARGS_((
  53                                         Tcl_Interp *interp,
  54                                         Dbg_IgnoreFuncsProc *));
  55 EXTERN Dbg_OutputStruct Dbg_Output _ANSI_ARGS_((
  56                                         Tcl_Interp *interp,
  57                                         Dbg_OutputProc *,
  58                                         ClientData data));
  59
  60 EXTERN void Dbg_StdinMode _ANSI_ARGS_((int mode));
  61
  62 #endif /* _NIST_DBG */