From: ian <ian>
Date: Sat, 31 Dec 2005 19:00:18 +0000 (+0000)
Subject: can display output from stopgap-controller
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=031e20f8deb142d8dcc1788c01a2cde24b878820;p=trains.git

can display output from stopgap-controller
---

diff --git a/hostside/gui-displayer b/hostside/gui-displayer
index 7a66bf3..e00265d 100755
--- a/hostside/gui-displayer
+++ b/hostside/gui-displayer
@@ -44,10 +44,10 @@ proc P {onoff} { # power
     update_push
 }
 
-proc R {args} { # reverse segnames
+proc R {now args} { # reverse segnames
     foreach segname $args {
 	upvar #0 segrev($segname) r
-	set r [expr {!$r}]
+	set r $now
 	update_seg $segname
     }
     update_push
@@ -93,7 +93,8 @@ proc update_seg {segname} {
 #puts stderr "update_seg $segname"
 
     if {!$power} {
-	set command off
+	setsegbyname $segname off
+	return
     } else {
 	set command [expr {$d ? "det" : "on"}]
 	if {$r} { set command "i$command" }
@@ -143,3 +144,12 @@ proc main {} {
 }
 
 main
+
+while {[gets stdin l]} {
+    if {[regexp {^GUI ([A-Z][0-9a-zA-Z ]*)$} $l dummy cmd]} {
+	puts " * $cmd"
+	eval $cmd
+    } else {
+	puts $l
+    }
+}