add more staps

Author: x2c3z4

README.md

@@ -33,7 +33,7 @@ Debian
 	```
 
 	![callgraph of scsi_request_fn](/examples/images/scsi_request_fn.cg.png)
-	![callgraph of scsi_requscsi_execute_req_flagsest_fn](/examples/images/scsi_execute_req_flags.cg.png)
+	![backtrace of scsi_request_fn](/examples/images/scsi_request_fn.bt.png)
 
 
 Solaris
@@ -50,7 +50,7 @@ Solaris
 
 	![callgraph of sdioctl](/examples/images/sdioctl.cg.png)
 
-	![callgraph of sdioctl](/examples/images/sdioctl.bt.png)
+	![backtrace of sdioctl](/examples/images/sdioctl.bt.png)
 
 Other Graphs
 ============

staps/scsi.stp

@@ -0,0 +1,72 @@
+#! /bin/sh
+
+# Copyright 2015 vonnyfly(lifeng1519@gmail.com)
+
+# suppress some run-time errors here for cleaner output
+//bin/true && exec stap  --all-modules --suppress-handler-errors --skip-badvars $0 ${1+"$@"}
+
+
+/* configuration options; set these with stap -G */
+global g_extra = 1
+global black_lists
+global g_incalls
+function trace(entry_p, extra) {
+    if (g_extra == 0) extra = ""
+    if (tid() in g_incalls)
+      printf("%s%s%s %s\n",
+         thread_indent (entry_p),
+         (entry_p>0?"->":"<-"),
+         ppfunc (),
+         extra)
+}
+
+
+/*probe module("scsi_mod").function("*").call,
+      module("sg").function("*").call,
+      module("scsi_transport_spi").function("*").call,
+      module("libata").function("*").call,
+      module("mptspi").function("*").call,
+      module("vmw_pvscsi").function("*").call,
+      module("sd_mod").function("*").call,
+      module("sr_mod").function("*").call,
+      module("mptscsih").function("*").call*/
+probe module("scsi_mod").function("*").call,
+      module("sg").function("*").call,
+      module("sd_mod").function("*").call
+{
+  if (execname() in black_lists) next
+  trace(1, $$parms)
+}
+
+/*probe module("scsi_mod").function("*").return,
+      module("sg").function("*").return,
+      module("scsi_transport_spi").function("*").return,
+      module("libata").function("*").return,
+      module("mptspi").function("*").return,
+      module("vmw_pvscsi").function("*").return,
+      module("sd_mod").function("*").return,
+      module("sr_mod").function("*").return,
+      module("mptscsih").function("*").return*/
+probe module("scsi_mod").function("*").return,
+      module("sg").function("*").return,
+      module("sd_mod").function("*").return
+{
+  if (execname() in black_lists) next
+  trace(-1, $$return)
+}
+
+//probe kernel.function($1).call   {
+//probe module("scsi_mod").function($1).call   {
+probe $1.call   {
+  printf("\nkernel backtrace:\n")
+  print_backtrace()
+  black_lists["stapio"] = 1
+  black_lists["swapper/0"] = 1
+  g_incalls[tid()] = 1
+  trace(1, $$parms)
+}
+probe $1.return {
+  trace(-1, $$return)
+  delete g_incalls[tid()]
+  printf("---------------------------------------------------------\n")
+}

staps/scsi_debug.stp

@@ -0,0 +1,38 @@
+function trace(entry_p, extra) {
+      printf("%s%s%s %s\n",
+         thread_indent (entry_p),
+         (entry_p>0?"->":"<-"),
+         ppfunc (),
+         extra)
+}
+
+
+/*probe module("scsi_mod").function("*").call,
+      module("sg").function("*").call,
+      module("scsi_transport_spi").function("*").call,
+      module("libata").function("*").call,
+      module("mptspi").function("*").call,
+      module("vmw_pvscsi").function("*").call,
+      module("sd_mod").function("*").call,
+      module("sr_mod").function("*").call,
+      module("mptscsih").function("*").call*/
+probe module("scsi_debug").function("scsi_debug_queuecommand").call
+{
+  print_backtrace()
+  trace(1, $$parms)
+}
+
+/*probe module("scsi_mod").function("*").return,
+      module("sg").function("*").return,
+      module("scsi_transport_spi").function("*").return,
+      module("libata").function("*").return,
+      module("mptspi").function("*").return,
+      module("vmw_pvscsi").function("*").return,
+      module("sd_mod").function("*").return,
+      module("sr_mod").function("*").return,
+      module("mptscsih").function("*").return*/
+probe module("scsi_debug").function("scsi_debug_queuecommand").return
+{
+  trace(-1, $$return)
+}
+