File: examples.exp

package info (click to toggle)
systemtap 4.8-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 39,000 kB
  • sloc: cpp: 78,785; ansic: 62,419; xml: 49,443; exp: 42,735; sh: 11,254; python: 3,062; perl: 2,252; tcl: 1,305; makefile: 1,072; lisp: 105; awk: 101; asm: 91; java: 56; sed: 16
file content (12 lines) | stat: -rw-r--r-- 522 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
 
foreach file [lsort [glob -nocomplain $srcdir/../examples/*.stp $srcdir/../examples/small_demos/*.stp]] {
    set test [file tail $file]
    switch $test {
        {iostat-scsi.stp} {set cmd "stap -p4 -g $file 5"}
        {sigmon.stp} {set cmd "stap -p4 -x 1234 $file SIGKILL"}
        {keyhack.stp} {set cmd "stap -p4 -g $file"}
        default {set cmd "stap -p4 $file"}
    }
    verbose -log "Running $cmd"
    set rc [catch {eval "exec $cmd"} baz]
    if {$rc} { fail $test; verbose -log $baz } else { pass $test }
}