tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Scope-modifiers/Tcl/scope-modifiers-5.tcl
+++ b/Task/Scope-modifiers/Tcl/scope-modifiers-5.tcl
@ -0,0 +1,15 @@
+proc loop {varName from to body} {
+    upvar 1 $varName var
+    for {set var $from} {$var <= $to} {incr var} {
+        uplevel 1 $body
+    }
+}
+
+loop x 1 10 {
+    puts "x is now $x"
+    if {$x == 5} {
+        puts "breaking out..."
+        break
+    }
+}
+puts "done"