From: ian <ian>
Date: Sat, 7 Jun 2008 19:19:21 +0000 (+0000)
Subject: warn about missing context chars in register-event
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=a37ad650c430638c011607b00c3dc2f9e0ea4d13;p=trains.git

warn about missing context chars in register-event
---

diff --git a/hostside/gui b/hostside/gui
index c0ecf25..4dbe01a 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -49,7 +49,16 @@ proc register-event {selections args re body} {
     global event_dispatch_body event_selections
 
     eval lappend event_selections $selections
-	
+
+    foreach selection $selections {
+	if {[regexp {^\w} $selection]} {
+	    error "selection $selection lacks context char"
+	}
+    }
+    if {[regexp {^\^\w} $re]} {
+	error "re $re never matches context char"
+    }
+
     regsub -all {\W+} $re - proc
     set proc "event/$proc/[join $args -]"
     set suffix {}
@@ -463,7 +472,7 @@ proc train-event-eof {args} {
     error "lost connection to train set"
 }
 
-register-event stastate {state} \
+register-event ?stastate {state} \
 	{^.stastate (\w+|\-) } {
     global ctrain trains statstate