1
2
3
4
5
6
7
8
9
10
11
|
#! /usr/bin/env tclsh
lappend auto_path [file join [file dirname [info script]] lib]
lappend auto_path [file join [file dirname [info script]] test-lib]
|
<
|
1
2
3
4
5
6
7
8
9
10
|
#! /usr/bin/env tclsh
lappend auto_path [file join [file dirname [info script]] lib]
lappend auto_path [file join [file dirname [info script]] ..]
package require tsmf
proc maxlen {list} {
set maxlen 0
foreach item $list {
set len [string length $item]
|