summaryrefslogtreecommitdiffstats
path: root/examples/small_demos/key.stp
diff options
context:
space:
mode:
authorhunt <hunt>2006-03-20 16:05:24 +0000
committerhunt <hunt>2006-03-20 16:05:24 +0000
commite1d96810d0c2c1da6ec36eb81c642bcc6cf420c8 (patch)
tree19f67a6fb6f6d2573484192eb651a9ff70408c39 /examples/small_demos/key.stp
parent743e6b49d92c1ef9c6d3a174be8130731b60019e (diff)
downloadsystemtap-steved-e1d96810d0c2c1da6ec36eb81c642bcc6cf420c8.tar.gz
systemtap-steved-e1d96810d0c2c1da6ec36eb81c642bcc6cf420c8.tar.xz
systemtap-steved-e1d96810d0c2c1da6ec36eb81c642bcc6cf420c8.zip
*** empty log message ***
Diffstat (limited to 'examples/small_demos/key.stp')
-rwxr-xr-xexamples/small_demos/key.stp22
1 files changed, 22 insertions, 0 deletions
diff --git a/examples/small_demos/key.stp b/examples/small_demos/key.stp
new file mode 100755
index 00000000..0489524a
--- /dev/null
+++ b/examples/small_demos/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")
+ else
+ system("play click.wav")
+ }
+}
+
+probe begin {
+ printf("TYPEWRITER ON\n")
+}
+
+probe end {
+ printf("DONE\n")
+}