Posted to tcl by kbk at Tue Apr 12 14:11:18 GMT 2011view raw

  1. method nextresults {} {
  2. set have 0
  3. while {${-Cursor} < [llength ${-results}]} {
  4. if {[lindex ${-results} ${-Cursor}] eq {statement}} {
  5. set have 1
  6. incr -Cursor 2
  7. break
  8. }
  9. incr -Cursor 2
  10. }
  11. if {${-Cursor} >= [llength ${-results}]} {
  12. set -columns {}
  13. set -END {}
  14. } elseif {[lindex ${-results} ${-Cursor}] eq {columns}} {
  15. incr -Cursor
  16. set -columns [lindex ${-results} ${-Cursor}]
  17. incr -Cursor
  18. } else {
  19. set -columns {}
  20. }
  21. return $have
  22. }