projects / OpenSPARC-T2-SAM / blame
| Commit | Line | Data |
|---|---|---|
| 920dae64 AT |
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 */ |