tcl-websh-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Ronnie Brunner <ron...@netcetera.ch>
Subject Re: Websh 3.5 bug
Date Mon, 25 Nov 2002 19:30:47 GMT
Seems to work, but I haven't really tested it yet. I'll play around
with some variants (calling files, inline, interactive, using putx
only and the like) to see whether it is stable.

So far so good. Thx. I'll keep you posted. 

Ronnie

BTW: I couldn't apply the patch you sent. Maybe the pasting to the
mail changed some whitespace ... anyway: It was easy enough to
do by hand.

> 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 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;
>  }
> 
> 

------------------------------------------------------------------------
Ronnie Brunner                               ronnie.brunner@netcetera.ch
Netcetera AG, 8040 Zuerich     phone +41 1 247 79 79 fax +41 1 247 70 75

---------------------------------------------------------------------
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