http://core.tcl.tk/tcllib/doc/trunk/embedded/www/tcllib/files/modules/control/control.html

do is available in the [tcllib] [control] structure module.

Example:
======
control::do {
    lappend lines [gets stdin]
} while {![eof stdin]}
======

<<categories>> Package | Tcllib | Control Structure