A-M baby

Task/Metaprogramming/Tcl/metaprogramming-1.tcl

@@ -0,0 +1,14 @@
+proc loopVar {var from lower to upper script} {
+    if {$from ne "from" || $to ne "to"} {error "syntax error"}
+    upvar 1 $var v
+    if {$lower <= $upper} {
+        for {set v $lower} {$v <= $upper} {incr v} {
+            uplevel 1 $script
+        }
+    } else {
+        # $upper and $lower really the other way round here
+        for {set v $lower} {$v >= $upper} {incr v -1} {
+            uplevel 1 $script
+        }
+    }
+}

Task/Metaprogramming/Tcl/metaprogramming-2.tcl

@@ -0,0 +1,6 @@
+loopVar x from 1 to 4 {
+    loopVar y from $x to 6 {
+        puts "pair is ($x,$y)"
+        if {$y >= 4} break
+    }
+}

Task/Metaprogramming/Tcl/metaprogramming-3.tcl

@@ -0,0 +1 @@
+set set set