Posted to tcl by kbk at Tue Apr 12 14:11:18 GMT 2011view pretty
method nextresults {} { set have 0 while {${-Cursor} < [llength ${-results}]} { if {[lindex ${-results} ${-Cursor}] eq {statement}} { set have 1 incr -Cursor 2 break } incr -Cursor 2 } if {${-Cursor} >= [llength ${-results}]} { set -columns {} set -END {} } elseif {[lindex ${-results} ${-Cursor}] eq {columns}} { incr -Cursor set -columns [lindex ${-results} ${-Cursor}] incr -Cursor } else { set -columns {} } return $have }