wip adapting to evdev-manip

diff --git a/hostside/eventrun b/hostside/eventrun
index 515e7bbb40adf562162ce1a56f8bec766b48ce2c..0914fbbcb7b472a9af69b87caddb776bbf341cd6 100755 (executable)
--- 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"