From d0aeee294fec98aaf7d2e280ac0089a95c0b48a5 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Mon, 16 Jun 2008 01:30:53 +0000
Subject: [PATCH] wip adapting to evdev-manip

---
 hostside/eventrun | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/hostside/eventrun b/hostside/eventrun
index 515e7bb..0914fbb 100755
--- a/hostside/eventrun
+++ b/hostside/eventrun
@@ -1,4 +1,8 @@
 #!/usr/bin/tclsh8.3
+# usage:
+#   eventrun <config filename> <command to run evdev-manip>
+
+wip wip
 
 proc do_scancode {sc} {
     upvar #0 evmap($sc) em
@@ -91,8 +95,10 @@ proc parsespecinput {fn} {
     set f [open $fn r]
     while {[gets $f l] >= 0} {
 	set l [string trim $l]
-	if {[regexp {^(\w+)\s+(.*)$} $l dummy scancode action]} {
+	if {[regexp {^_?(\w+)\s+(.*)$} $l dummy scancode action]} {
 	    set evmap($scancode) $action
+
+wip wip
 	} elseif {[regexp {^\#} $l] || ![regexp {\S} $l]} {
 	} else {
 	    error "bad spec line $l"
-- 
2.30.2