blob: 24830d5749c98f6444d625f0c5b4b46820f79a45 (
plain)
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
|
#! /usr/bin/env tclsh
proc main {sourcetype source} {
switch $sourcetype {
file {
set chan [open $source]
try {
set data [read $chan]
} finally {
close $chan
}
}
string {
set data $source
}
default {
error [list {wrong # args}]
}
}
set found [regexp -inline -all {blocks are\
(?:(?:(?:definitely|indirectly|possibly) lost)|still reachable)} $data]
if {[llength $found]} {
puts 0
} else {
puts 1
}
flush stdout
}
main {*}$argv
|
