Posted to tcl by mjanssen at Mon Jan 29 16:24:42 GMT 2018view raw

  1. package require tdom
  2.  
  3. proc yield_one {name attr} {
  4. yield $name $attr
  5. }
  6.  
  7. proc event_iterator {} {
  8. yield
  9. expat parser
  10. parser configure -elementstartcommand yield_one
  11. parser parsefile catalog-full-pps-23012018.part3
  12. }
  13.  
  14. coroutine nextEvent event_iterator
  15. puts [nextEvent]