1 files changed, 77 insertions, 0 deletions
diff --git a/testsuite/systemtap.syscall/coverage.tcl b/testsuite/systemtap.syscall/coverage.tcl
new file mode 100755
index 00000000..559039c1
--- /dev/null
+++ b/testsuite/systemtap.syscall/coverage.tcl
@@ -0,0 +1,77 @@
+#!/usr/bin/env tclsh
+
+# List of systemcalls that may or may not be in kernels. Until we
+# fix PR2645, we cannot implement syscall probes for these.
+
+set badlist { add_key tux }
+
+foreach f $badlist {
+    set funcname($f) -1
+}
+
+set cmd {stap -p2 -e "probe kernel.function(\"sys_*\"), kernel.function(\"sys32_*\") ? \{\}"}
+if {[catch {eval exec $cmd} output]} {
+    puts "ERROR running stap: $output"
+    exit
+}
+
+
+foreach line [split $output "\n"] {
+    if {[regexp {kernel.function\(\"sys_([^@]+)} $line match fn]} {
+	if {![info exists funcname($fn)]} {
+	    set funcname($fn) 0
+	}
+    }
+    if {[regexp {kernel.function\(\"sys32_([^@]+)} $line match fn]} {
+	set fn "32_$fn"
+	if {![info exists funcname($fn)]} {
+	    set funcname($fn) 0
+	}
+    }
+}
+
+foreach filename [glob *.c] {
+    if {[catch {open $filename r} fd]} {
+	puts "ERROR opening $filename: $fd"
+	exit
+    }
+    while {[gets $fd line] >= 0} {
+	if {[regexp {/* COVERAGE: ([^\*]*)\*/} $line match res]} {
+	    foreach f [split $res] {
+		if {[info exists funcname($f)]} {
+		    incr funcname($f)
+		}
+	    }
+	}
+    }
+    close $fd
+}
+
+set covlist {}
+set uncovlist {}
+set covered 0
+set uncovered 0
+foreach {func val} [array get funcname] {
+    if {$val > 0} {
+	incr covered
+	lappend covlist $func
+    } elseif {$val == 0} {
+	incr uncovered
+	lappend uncovlist $func
+    }
+}
+
+set total [expr $covered + $uncovered]
+puts "Covered $covered out of $total. [format "%2.1f" [expr ($covered * 100.0)/$total]]%"
+
+puts "\nUNCOVERED FUNCTIONS"
+set i 0
+foreach f [lsort $uncovlist] {
+    puts -nonewline [format "%-24s" $f]
+    incr i
+    if {$i >= 3} {
+	puts ""
+	set i 0
+    }
+}
+puts "\n"