From: nishi <nishi@d27a3e52-49c5-7645-884c-6793ebffc270>
Date: Thu, 8 Feb 2024 15:22:37 +0000 (+0000)
Subject: fixing the tcl binding
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=fe7edfbc9f0548f4d2c43efb21fb2b3eb9215649;p=libw3.git

fixing the tcl binding

git-svn-id: file:///raid/svn-main/nishi-libw3/trunk@188 d27a3e52-49c5-7645-884c-6793ebffc270
---

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