tclxml-users

[oliver <oli...@gm...>]

Hi list,

I don't get this additional argument '-empty boolean' when reading an xml
source:
What am I doing wrong?

Regards Oliver

XML-Source:
<?xml version="1.0"?>
<menue>
 <menu/>
 <menu/>
 <menu/>
</menue>

TCL-Source:
package require xml

proc ElementEndCmd {name_ args} {
    puts "$name_ $args"
}

proc ElementStartCmd {name_ attList_ args} {
    puts "$name_ $attList_ $args"
}

set parser [::xml::parser\
 -elementendcommand ElementEndCmd\
 -elementstartcommand ElementStartCmd]
set file [file join c:/ pia menutest.xml]
set fh [open $file r]
$parser parse [read $fh]
close $fh