From a37ad650c430638c011607b00c3dc2f9e0ea4d13 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sat, 7 Jun 2008 19:19:21 +0000
Subject: [PATCH] warn about missing context chars in register-event

---
 hostside/gui | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

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
 
-- 
2.30.2