Script bracelevel.tcl:
# prefix the current brace level on each line -jcw
proc bracelevel {str} {
set lev 0
set out ""
foreach l [split $str \n] {
append out $lev \t
foreach c [split $l ""] {
append out $c
switch -- $c \{ { incr lev } \} { incr lev -1 }
}
append out \n
}
return $out}
puts [bracelevel [read stdin]
Output of tclsh bracelevel.tcl <braclevel.tcl:
0 # prefix the current brace level on each line -[jcw]
0
0 proc bracelevel {str} {
1 set lev 0
1 set out ""
1 foreach l [split $str \n] {
2 append out $lev \t
2 foreach c [split $l ""] {
3 append out $c
3 switch -- $c \{ { incr lev } \} { incr lev -1 }
3 }
2 append out \n
2 }
1 return $out
1 }
0
0 puts [bracelevel [read stdin]]
0