Implementation fo do/wile in tcl (fragment)

OSDN2013_8_tcl

proc do {body whileword condition} {
    global errorInfor errorCode
    if {![string equal $whileword while]} {
        error "should be \"do body while condition\""
    }
    while {1} {
        set code [catch {uplevel 1 $body} message]
         if { !ok( $code) } {
              return handleBreak($code, $body, $message)
           }
        }
        if {![uplevel 1 [list expr $condition]]} {break}
    }
}