Changeset 660 for trunk/src

Timestamp:

Apr 3, 2007, 4:27:40 PM (18 years ago)

Author:

dkearney

Message:

repeated the utf re-encoding inside the encode function because binary data could be returned there too if someone wants to gzip a file.

File:

• trunk/src/tcl/src/RpEncodeTclInterface.cc (modified) (1 diff)

trunk/src/tcl/src/RpEncodeTclInterface.cc

@@ -295 +295 @@
     }
 
-    Tcl_AppendToObj(result,buf.bytes(),buf.size());
+    Tcl_DString dstPtr;
+    Tcl_DStringInit(&dstPtr);
+    Tcl_ExternalToUtfDString(NULL,buf.bytes(),buf.size(),&dstPtr);
+    Tcl_AppendToObj(result,Tcl_DStringValue(&dstPtr),Tcl_DStringLength(&dstPtr));
+    Tcl_DStringFree(&dstPtr);
 
     return TCL_OK;