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
set deps {
Tcl 8.6
Tk 8.6
Thread 2.8
sqlite3 3.37
tls 1.7
logger 0.9
md5 2.0
tcl::chan::random 1.0
tcl::randomseed 1.0
}
set missing {}
foreach {dep ver} $deps {
if [catch {package require $dep $ver}] {
lappend missing $dep $ver
}
}
if {$missing != {}} {
puts stderr "can't boot! missing packages!"
foreach {dep ver} $missing {
puts stderr " need \"$dep\" v$ver+"
}
exit -1
}