Initial revision

Dbg.h

@@ -0,0 +1,46 @@
+/* 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 */