1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/bin/sh
# -*- tcl -*- \
exec tcl "$0" "$@"
set lay "."
for {set i 3} {$i<53} {incr i} {
if {[clength $i] == 1} { set k 0$i } { set k $i }
set f [open "test$k" w]
for {set j 1} {$j<=$i} {incr j} {
puts $f "Test - line $j"
}
close $f
set cdn laytest$k
set f [open "~/.tkcdlayout/config" w]
puts $f "cdn=$cdn"
puts $f "cddir="
puts $f "lay=$lay"
puts $f "mid=$lay/$cdn.x"
puts $f "lines=test$k"
puts $f "maxdepth="
puts $f "exclude="
puts $f "dironly="
puts $f "Title=\"Test with $k lines\""
puts $f "Warn=no"
puts $f "page=front"
puts $f "layout_type=taf"
close $f
exec >@stdout 2>@stderr "TestLayout"
file delete test$k
}
|
