Try replacing:
foreach item "{$xml}" {
with
foreach item [list $xml] {
Lio.
----- Original Message From: "Jonne Zutt" -----
> Hi all,
>
> Created a new bug this morning #61.
> It has 32 wild reports connected, so does not occur that much.
> I thought it was easy to fix, but it turned out quite tricky.
> There's supposed to be no quoting hell in Tcl (so I've read), but wait
> until you use xml hehe.
>
> Below is the code fragment with the problem in it. One of the wild
> reports looks like this:
>
> list element in braces followed by "}" instead of space
> while executing
> "foreach item "{$xml}" {
> switch -regexp -- $item {
> ^# {append res "{[lrange $item 0 end]} " ; #text item}
> ^/ {
> regexp {/(.+)} $item -> tagn..."
> (procedure "xml2list" line 8)
>
> Something like this causes the error I guess:
>
> % set xml "}" ; foreach item "{$xml}" { puts "Res: $item" }
> list element in braces followed by "}" instead of space
>
> Perhaps it should be foreach item $xml { ... }
> but there's probably a reason for "{$xml}" isn't it ?
>
> If you look at the code fragment below, I guess the string map replaces
> too much > and that's why the { } do not always match.
>
> And, by the way, bug report statistics just implemented by Youness seem
> messed up (at least for this bug). I'll have a look at that later.
>
> JeeBee.
>
>
> Piece of sxml.tcl:
>
> proc xml2list xml {
> ...
> set xml [string map {> "\} \{#text \{" < "\}\} \{"} $xml]
>
> ...
> foreach item "{$xml}" {
> switch -regexp -- $item {
> ^# {append res "{[lrange $item 0 end]} " ; #text item}
>
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
