runtime/probes/build


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
33
34
35
36
37
38
39
40

#!/usr/bin/tclsh
# -*- tcl -*-

# simple script to build each probe directory

proc usage {} {
  puts "Usage: build \[-v\] \[clean\] \[debug\]"
  exit
}

set clean ""
set verbose ""
set debug ""

foreach arg $argv {
  if {$arg == "clean"} {
    set clean $arg
  } elseif {$arg == "-v"} {
    set verbose $arg
  } elseif {$arg == "debug"} {
    set debug $arg
  } else {
    usage
  }
}

set cmd "exec ../build_probe $verbose $clean"

foreach filename [lsort [glob *]] {
  if {$filename != "CVS" && [file isdirectory $filename]} {
    cd $filename
    if {[catch {exec ../build_probe $verbose $clean $debug} res]} {
      puts $res
      exit
    }
    puts $res
    cd ..
  }
}