41 lines
1.6 KiB
C
41 lines
1.6 KiB
C
/* Dbg.h - Tcl Debugger include file
|
|
|
|
Written by: Don Libes, NIST, 3/23/93
|
|
|
|
Design and implementation of this program was paid for by U.S. tax
|
|
dollars. Therefore it is public domain. However, the author and NIST
|
|
would appreciate credit if this program or parts of it are used.
|
|
|
|
*/
|
|
|
|
/* _DEBUG or _DBG is just too likely, use something more unique */
|
|
#ifndef _NIST_DBG
|
|
#define _NIST_DBG
|
|
|
|
#include "tcl.h"
|
|
|
|
typedef int (Dbg_InterProc) _ANSI_ARGS_((Tcl_Interp * interp));
|
|
typedef int (Dbg_IgnoreFuncsProc) _ANSI_ARGS_((Tcl_Interp * interp,
|
|
char *funcname));
|
|
typedef void (Dbg_OutputProc) _ANSI_ARGS_((Tcl_Interp * interp,
|
|
char *output));
|
|
|
|
EXTERN char *Dbg_VarName;
|
|
EXTERN char *Dbg_DefaultCmdName;
|
|
|
|
/* trivial interface, creates a "debug" command in your interp */
|
|
EXTERN int Dbg_Init _ANSI_ARGS_((Tcl_Interp *));
|
|
|
|
EXTERN void Dbg_On _ANSI_ARGS_((Tcl_Interp * interp, int immediate));
|
|
EXTERN void Dbg_Off _ANSI_ARGS_((Tcl_Interp * interp));
|
|
EXTERN char **Dbg_ArgcArgv _ANSI_ARGS_((int argc, char *argv[], int copy));
|
|
EXTERN int Dbg_Active _ANSI_ARGS_((Tcl_Interp * interp));
|
|
EXTERN Dbg_InterProc *Dbg_Interactor _ANSI_ARGS_((Tcl_Interp * interp,
|
|
Dbg_InterProc *
|
|
interactor));
|
|
EXTERN Dbg_IgnoreFuncsProc *Dbg_IgnoreFuncs
|
|
_ANSI_ARGS_((Tcl_Interp * interp, Dbg_IgnoreFuncsProc *));
|
|
EXTERN Dbg_OutputProc *Dbg_Output
|
|
_ANSI_ARGS_((Tcl_Interp * interp, Dbg_OutputProc *));
|
|
#endif /* _NIST_DBG */
|