From fe7edfbc9f0548f4d2c43efb21fb2b3eb9215649 Mon Sep 17 00:00:00 2001 From: nishi Date: Thu, 8 Feb 2024 15:22:37 +0000 Subject: [PATCH] fixing the tcl binding git-svn-id: file:///raid/svn-main/nishi-libw3/trunk@188 d27a3e52-49c5-7645-884c-6793ebffc270 --- Library/Tcl.c | 9 +++++++++ W3Version.h.p | 2 +- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/Library/Tcl.c b/Library/Tcl.c index 9faf8da..7ebc6a1 100644 --- a/Library/Tcl.c +++ b/Library/Tcl.c @@ -389,6 +389,15 @@ int Tcl_W3Cmd(ClientData dummy, Tcl_Interp* interp, int objc, Tcl_Obj* CONST obj const char* errmsg = "argument error: a client named that does not exist"; Tcl_SetObjResult(interp, Tcl_NewStringObj(errmsg, strlen(errmsg))); } + } else if(strcasecmp(subcommand, "debug") == 0) { + if(objc != 3) { + const char* errmsg = "argument error: arguments should be \"w3 debug bool\""; + Tcl_SetObjResult(interp, Tcl_NewStringObj(errmsg, strlen(errmsg))); + return TCL_ERROR; + } + W3_Do_Debug(atoi(Tcl_GetString(argv[2])); + Tcl_SetObjResult(interp, Tcl_NewIntObj(0)); + return TCL_OK; } else { const char* errmsg = "argument error: invalid subcommand"; Tcl_SetObjResult(interp, Tcl_NewStringObj(errmsg, strlen(errmsg))); diff --git a/W3Version.h.p b/W3Version.h.p index 76cefd2..5bfe6ec 100644 --- a/W3Version.h.p +++ b/W3Version.h.p @@ -6,7 +6,7 @@ extern "C" { #endif -#define LIBW3_VERSION "2.4" \ +#define LIBW3_VERSION "2.4A" \ SUFFIX #ifdef __cplusplus -- 2.43.0