65 lines
1.1 KiB
C
65 lines
1.1 KiB
C
/* Dbg_cmd.c - Tcl Debugger default command, used if app writer wants a
|
|
quick and reasonable default.
|
|
|
|
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.
|
|
|
|
*/
|
|
|
|
#include "tclInt.h"
|
|
#include "Dbg.h"
|
|
|
|
char *Dbg_DefaultCmdName = "debug";
|
|
|
|
/*ARGSUSED*/
|
|
static int
|
|
App_DebugCmd(clientData, interp, argc, argv)
|
|
ClientData clientData;
|
|
Tcl_Interp *interp;
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
int now = 0; /* soon if 0, now if 1 */
|
|
|
|
if (argc > 3) goto usage;
|
|
|
|
argv++;
|
|
|
|
while (*argv) {
|
|
if (0 == strcmp(*argv,"-now")) {
|
|
now = 1;
|
|
argv++;
|
|
}
|
|
else break;
|
|
}
|
|
|
|
if (!*argv) {
|
|
if (now) {
|
|
Dbg_On(interp,1);
|
|
} else {
|
|
goto usage;
|
|
}
|
|
} else if (0 == strcmp(*argv,"0")) {
|
|
Dbg_Off(interp);
|
|
} else {
|
|
Dbg_On(interp,now);
|
|
}
|
|
return(TCL_OK);
|
|
usage:
|
|
interp->result = "usage: [[-now] 1|0]";
|
|
return TCL_ERROR;
|
|
}
|
|
|
|
int
|
|
Dbg_Init(interp)
|
|
Tcl_Interp *interp;
|
|
{
|
|
Tcl_CreateCommand(interp,Dbg_DefaultCmdName,App_DebugCmd,
|
|
(ClientData)0,(void (*)())0);
|
|
return TCL_OK;
|
|
}
|
|
|