| 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 */ |