2006-03-09 Martin Hunt <hunt@redhat.com>

	* key.stp: Toy example.
	* prof.stp: Example profiler.
	* top.stp: Print the top 20 syscalls.

1 files changed, 22 insertions, 0 deletions

diff --git a/examples/key.stp b/examples/key.stp
new file mode 100755
index 00000000..6334cbbf
--- /dev/null
+++ b/examples/key.stp
@@ -0,0 +1,22 @@
+#! /usr/bin/env stap
+
+# Useless, but amusing. Based on an idea I saw on a
+# dtrace site. (wav files are from emacs).
+
+// KEY_ENTER = 28
+probe kernel.function("kbd_keycode") {
+	if ($down) {
+		if ($keycode == 28)
+			system("play return.wav")
+		else
+			system("play click.wav")
+	}
+}
+
+probe begin {
+	printf("TYPEWRITER ON\n")
+}
+
+probe end {
+	printf("DONE\n")
+}