A-M baby

Task/Flow-control-structures/Tcl/flow-control-structures-1.tcl

@@ -0,0 +1 @@
+after 1000 {myroutine x}

Task/Flow-control-structures/Tcl/flow-control-structures-2.tcl

@@ -0,0 +1 @@
+after cancel myroutine

Task/Flow-control-structures/Tcl/flow-control-structures-3.tcl

@@ -0,0 +1,8 @@
+package require Tk
+proc update {} {
+    .clockface configure -text [clock format [clock seconds]]
+    after 1000 update ; # call yourself in a second
+}
+# now just create the 'clockface' and call ;update' once:
+pack [label .clockface]
+update

Task/Flow-control-structures/Tcl/flow-control-structures-4.tcl

@@ -0,0 +1,5 @@
+if {[catch { ''... code that might give error ...'' } result]} {
+    puts "Error was $result"
+} else {
+    ''... process $result ...''
+}

Task/Flow-control-structures/Tcl/flow-control-structures-5.tcl

@@ -0,0 +1,10 @@
+try {
+    # Just a silly example...
+    set f [open $filename]
+    expr 1/0
+    string length [read $f]
+} trap {ARITH DIVZERO} {} {
+    puts "divided by zero"
+} finally {
+    close $f
+}

Task/Flow-control-structures/Tcl/flow-control-structures-6.tcl

@@ -0,0 +1,8 @@
+proc forfilelines {linevar filename code} {
+    upvar $linevar line ; # connect local variable line to caller's variable
+    set filechan [open $filename]
+    while {[gets $filechan line] != -1} {
+      uplevel 1 $code   ; # Run supplied code in caller's scope
+    }
+    close $filechan
+}

Task/Flow-control-structures/Tcl/flow-control-structures-7.tcl

@@ -0,0 +1,3 @@
+forfilelines myline mydata.txt {
+    puts [string length $myline]
+}