From 8ea1b9e09c51e7fb4b31ebe9d3f5f103fc71b676 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Thu, 5 Jan 2006 20:19:52 +0000
Subject: [PATCH] fixes from testing session

---
 hostside/eventrun.procs     | 12 +++++++-----
 hostside/gui-displayer      |  1 +
 hostside/stopgap-controller |  5 +++--
 3 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/hostside/eventrun.procs b/hostside/eventrun.procs
index 168a856..fa2739a 100644
--- a/hostside/eventrun.procs
+++ b/hostside/eventrun.procs
@@ -6,28 +6,30 @@ exec xsetroot -solid #00000f
 set trainscmd {
     set -x
     savelog -c 7 bessar.log
-#    (set -ex
+    (set -ex
     cd /u/ian/things/trains-bessar/hostside
     ./stopgap-controller | ./gui-displayer -
-#    ) 2>&1 | tee bessar.log
+    ) 2>&1 | tee >(tail -10000 >bessar.log)
 }
 
 proc trains_start {} {
     global trainsf trainscmd
     trains_stop
-    set cmdl [list sh -ec $trainscmd 2>@ stderr]
+    set cmdl [list bash -ec $trainscmd 2>@ stderr]
     set trainsf [open |$cmdl w]
     fconfigure $trainsf -buffering none -blocking no
 }
 
-proc tw {s} {
+proc tw {args} {
     global trainsf
     if {![info exists trainsf]} return
     if {[catch {
-	puts $trainsf $s
+	puts $trainsf $args
     } emsg]} {
 	puts stderr "tw: $emsg"
 	trains_stop
+    } else {
+	puts "tw: $args"
     }
 }
 
diff --git a/hostside/gui-displayer b/hostside/gui-displayer
index eadac7d..30751b3 100755
--- a/hostside/gui-displayer
+++ b/hostside/gui-displayer
@@ -117,6 +117,7 @@ proc setup {} {
     global power segrev segdet segown movpos
     set power 0
     set f [open ../layout/ours.dgram-bot.segcmap]
+    fconfigure stdout -buffering none
     while {[gets $f l] >= 0} {
 	if {[regexp {^S (\w+) (\w+)$} $l dummy segname num]} {
 	    set segnum($segname) $num
diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index 45de0e8..607609d 100755
--- a/hostside/stopgap-controller
+++ b/hostside/stopgap-controller
@@ -188,7 +188,7 @@ proc pt_maybe {point oneisright} {
 	}
 	set pointasked M
     } elseif {![string compare $pointasked M]} {
-	debug "leave point $point pos=$pos manual"
+	debug "leave point $point manual"
 	return
     } else {
 	set pos $pointasked
@@ -445,6 +445,7 @@ proc onreadcmd {} {
 
 proc setup {} {
     global port p testonly
+    fconfigure stdout -buffering none
     if {!$testonly} {
 	set p [open $port {RDWR NONBLOCK} 0]
     
@@ -494,7 +495,7 @@ proc ask_randspeed {} {
 }    
 
 proc ask_manual {rightp} { global pointasked; set pointasked M$rightp }
-proc ask_figureeightt {} { global pointasked; set pointasked 0 }
+proc ask_figureeight {} { global pointasked; set pointasked 0 }
 proc ask_loop {} { global pointasked; set pointasked 1 }
 proc ask_randpath {} { global pointasked; catch { unset pointasked } }
 
-- 
2.30.2