From: ian <ian>
Date: Mon, 16 Jun 2008 01:30:53 +0000 (+0000)
Subject: wip adapting to evdev-manip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=d0aeee294fec98aaf7d2e280ac0089a95c0b48a5;p=trains.git

wip adapting to evdev-manip
---

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"