summaryrefslogtreecommitdiffstats
path: root/testsuite/provok/one.stp
diff options
context:
space:
mode:
authorfche <fche>2005-05-21 01:35:34 +0000
committerfche <fche>2005-05-21 01:35:34 +0000
commit2b066ec1b8801b08052a68282ce34ef9c425ae8f (patch)
treed0b8aadc2521e2fbf1adde2d330bd7a941587087 /testsuite/provok/one.stp
parenta199030a268b007580b57a83b511f97bbb65996f (diff)
downloadsystemtap-steved-2b066ec1b8801b08052a68282ce34ef9c425ae8f.tar.gz
systemtap-steved-2b066ec1b8801b08052a68282ce34ef9c425ae8f.tar.xz
systemtap-steved-2b066ec1b8801b08052a68282ce34ef9c425ae8f.zip
* at long last, a more full-bodied snapshot
2005-05-20 Frank Ch. Eigler <fche@redhat.com> Many changes throughout. Partial sketch of translation output. * elaborate.*: Elaboration pass. * translate.*: Translation pass. * staptree.*: Simplified for visitor concept. * main.cxx: Translator mainline. * *test.cxx: Removed. * testsuite/*: Some new tests, some changed for newer syntax.
Diffstat (limited to 'testsuite/provok/one.stp')
-rwxr-xr-xtestsuite/provok/one.stp26
1 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/provok/one.stp b/testsuite/provok/one.stp
new file mode 100755
index 00000000..e51ee28a
--- /dev/null
+++ b/testsuite/provok/one.stp
@@ -0,0 +1,26 @@
+#! stap
+
+global ar1, ar2
+
+function string (v) { return "" } # to become built-in
+
+function search (key)
+{
+ if (key in ar1)
+ { ar1[key] ++; return ar2[ar1[key]] }
+ else
+ return "no can do"
+}
+
+probe syscall("zamboni")
+{
+ thread->ar2 = $tgid;
+ search ($pid)
+}
+
+probe end
+{
+ for (key in ar2)
+ # if (key in ar2)
+ printk ("this: " . string (key) . " was " . string (ar2[key]))
+}