From 313cfc85e435b93bfa9110cda3e3f930de066643 Mon Sep 17 00:00:00 2001
From: ddomingo <ddomingo@redhat.com>
Date: Mon, 27 Oct 2008 13:11:27 +1000
Subject: [PATCH] added simplified, working para-callgraph

---
 .../general/para-callgraph-simple.meta        |  7 ++++
 .../general/para-callgraph-simple.stp         | 40 +++++++++++++++++++
 2 files changed, 47 insertions(+)
 create mode 100644 testsuite/systemtap.examples/general/para-callgraph-simple.meta
 create mode 100755 testsuite/systemtap.examples/general/para-callgraph-simple.stp

diff --git a/testsuite/systemtap.examples/general/para-callgraph-simple.meta b/testsuite/systemtap.examples/general/para-callgraph-simple.meta
new file mode 100644
index 000000000..4a0bb251f
--- /dev/null
+++ b/testsuite/systemtap.examples/general/para-callgraph-simple.meta
@@ -0,0 +1,7 @@
+title: Callgraph tracing with arguments
+name: para-callgraph.stp
+keywords: trace callgraph
+subsystem: general
+description: Print a timed per-thread callgraph, complete with function parameters and return values.  The first parameter names the function probe points to trace.  The optional second parameter names the probe points for trigger functions, which acts to enable tracing for only those functions that occur while the current thread is nested within the trigger.
+test_check: stap -p4 para-callgraph.stp sys_read '*@fs/*.c'
+test_installcheck: TBD
diff --git a/testsuite/systemtap.examples/general/para-callgraph-simple.stp b/testsuite/systemtap.examples/general/para-callgraph-simple.stp
new file mode 100755
index 000000000..17cf50a5e
--- /dev/null
+++ b/testsuite/systemtap.examples/general/para-callgraph-simple.stp
@@ -0,0 +1,40 @@
+function trace(entry_p) {
+   if(tid() in trace)
+       printf("%s%s%s\n",thread_indent(entry_p),
+                         (entry_p>0?"->":"<-"),
+                         probefunc())
+}
+
+global trace
+probe kernel.function(@1).call {
+   if (execname() == "stapio") next # skip our own helper process
+   trace[tid()] = 1
+   trace(1)
+}
+probe kernel.function(@1).return {
+   trace(-1)
+   delete trace[tid()]
+}
+
+probe kernel.function(@2).call { trace(1) }
+probe kernel.function(@2).return { trace(-1) }
+function trace(entry_p) {
+   if(tid() in trace)
+       printf("%s%s%s\n",thread_indent(entry_p),
+                         (entry_p>0?"->":"<-"),
+                         probefunc())
+}
+
+global trace
+probe kernel.function(@1).call {
+   if (execname() == "stapio") next # skip our own helper process
+   trace[tid()] = 1
+   trace(1)
+}
+probe kernel.function(@1).return {
+   trace(-1)
+   delete trace[tid()]
+}
+
+probe kernel.function(@2).call { trace(1) }
+probe kernel.function(@2).return { trace(-1) }
-- 
2.43.5