Sign in
apache
/
tcl-site
/
81f156c497621fbdcf2245949dd2ff338ec52005
/
.
/
presentations
/
rivet
/
dowhile.tcl
blob: 5623ba1961f4ea94f2a47b447bd155a2d53ccaa0 [
file
] [
log
] [
blame
]
proc
do
{
body
while
expression
}
{
uplevel
$
body
while
{
[
uplevel
expr
$
expression
]
}
{
uplevel
$
body
}
}
set
i
0
do
{
puts
$
i
incr
i
}
while
{
$
i
<
0
}