Fossil SCM
|
1
|
<th1> |
|
2
|
set i 0 |
|
3
|
set max 6 |
|
4
|
for {} {$i < $max} {incr i} { |
|
5
|
ob start |
|
6
|
puts "this is level " [ob level] |
|
7
|
set buf($i) [ob get] |
|
8
|
} |
|
9
|
|
|
10
|
for {set i [expr $max-1]} {$i >= 0} {incr i -1} { |
|
11
|
ob pop |
|
12
|
} |
|
13
|
for {set i [expr $max-1]} {$i >= 0} {incr i -1} { |
|
14
|
puts buf($i) = $buf($i) "\n" |
|
15
|
} |
|
16
|
puts "buffering level = " [ob level] \n |
|
17
|
</th1> |
|
18
|
|