From 384c5fe974abe35ab11dce4446dc5eed86585a3b Mon Sep 17 00:00:00 2001
From: "Frank Ch. Eigler" <fche@elastic.org>
Date: Thu, 7 Aug 2008 16:47:18 -0400
Subject: samples: separate into subdirectories by subsystem

---
 testsuite/systemtap.examples/general/key.stp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 testsuite/systemtap.examples/general/key.stp

(limited to 'testsuite/systemtap.examples/general/key.stp')

diff --git a/testsuite/systemtap.examples/general/key.stp b/testsuite/systemtap.examples/general/key.stp
new file mode 100755
index 00000000..6d2d6c3f
--- /dev/null
+++ b/testsuite/systemtap.examples/general/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_event") {
+	if ($event_type == 1 && $value) {
+		if ($event_code == 28)
+			system("play return.wav &> /dev/null")
+		else
+			system("play click.wav &> /dev/null")
+	}
+}
+
+probe begin {
+	printf("TYPEWRITER ON\n")
+}
+
+probe end {
+	printf("DONE\n")
+}
-- 
cgit