2007-08-16 Frank Ch. Eigler <fche@elastic.org>

	PR 1315.
	* target_set.stp: New tapset file.

	* stapfuncs.5.in: Document new target_set tapset.

	* buildok/fortyfive.stp: New test.

1 files changed, 27 insertions, 0 deletions

diff --git a/tapset/target_set.stp b/tapset/target_set.stp
new file mode 100644
index 00000000..c7878c52
--- /dev/null
+++ b/tapset/target_set.stp
@@ -0,0 +1,27 @@
+
+global _target_set # map: target-set-pid -> ancestor-pid
+
+function target_set_pid (pid)
+{
+  return ([pid] in _target_set)	 
+}
+
+probe begin
+{
+  if (target()) _target_set [target()] = stp_pid()
+}
+
+probe syscall.fork.return
+{
+  pid=pid()
+  if (pid in _target_set) next
+  ppid=ppid()
+  if (ppid in _target_set) _target_set[pid]=ppid
+}
+
+function target_set_report ()
+{
+  printf("target set:\n")
+  foreach (pid in _target_set+)
+    printf("%d begat %d\n", _target_set[pid], pid)
+}