Posted to tcl by mjanssen at Mon Jan 29 16:24:42 GMT 2018view pretty
package require tdom proc yield_one {name attr} { yield $name $attr } proc event_iterator {} { yield expat parser parser configure -elementstartcommand yield_one parser parsefile catalog-full-pps-23012018.part3 } coroutine nextEvent event_iterator puts [nextEvent]