A file used to test TagmaDebugger.

test_debugger.tcl

# FIXME add external package, and then call into package

proc qux {} {
  set s 0
  for {set i 0} {$i < 3} {incr i} {
    set m [expr 2*$i]
    incr s $m
  }
  return $s
}

proc baz {x} {
  set y 5
  return [expr $x-$y+[qux]]
}

proc bar {x} {
  return [baz $x]
}

proc foo {x} {
    return [expr {[bar [expr $x+1]] + [bar $x]}]
}

set x [foo 2]
puts [string repeat [foo 1] $x]