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]