tcl-websh-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From dav...@dedasys.com (David N. Welton)
Subject Re: Websh 3.5 bug
Date Mon, 25 Nov 2002 19:13:20 GMT

See if the following patch works for you.  It passes all the tests on
my system.  I'm not quite sure why I was doing the transformation in
there...

--- generic/weboutint.c 11 Sep 2002 13:54:01 -0000      1.6
+++ generic/weboutint.c 25 Nov 2002 19:07:15 -0000
@@ -517,11 +517,6 @@
        cur ++;
     }
 
-    Tcl_ExternalToUtfDString(NULL,
-                            Tcl_DStringValue(&dstr),
-                            Tcl_DStringLength(&dstr),
-                            &convdstr);
-
     /* build up the web::put with the name of the channel. */
     if (begin) {
        tclo = Tcl_NewStringObj("web::put \"", -1);
@@ -529,15 +524,14 @@
        tclo = Tcl_NewStringObj("", -1);
     }
 
-    Tcl_AppendToObj(tclo, Tcl_DStringValue(&convdstr),
-                   Tcl_DStringLength(&convdstr));
+    Tcl_AppendToObj(tclo, Tcl_DStringValue(&dstr),
+                   Tcl_DStringLength(&dstr));
 
     if (cntOpen < 1) {
        Tcl_AppendToObj(tclo, "\"\n", 2);
     }
 
-    Tcl_DStringFree(&dstr); 
-    Tcl_DStringFree(&convdstr); 
+    Tcl_DStringFree(&dstr);
     res = Tcl_EvalObjEx(interp, tclo, TCL_EVAL_DIRECT);
     return res;
 }


-- 
David N. Welton
   Consulting: http://www.dedasys.com/
     Personal: http://www.dedasys.com/davidw/
Free Software: http://www.dedasys.com/freesoftware/
   Apache Tcl: http://tcl.apache.org/

---------------------------------------------------------------------
To unsubscribe, e-mail: websh-dev-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-dev-help@tcl.apache.org


Mime
View raw message