From 1c164f84b19477148f28bee038cb5606f5750e15 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Mon, 14 Jul 2008 23:06:39 +0000
Subject: [PATCH] run things on bessar

---
 hostside/bessar-invoke-multiplex |  5 +++++
 hostside/multiplex               | 15 +++++++++------
 hostside/xsession                | 13 ++-----------
 3 files changed, 16 insertions(+), 17 deletions(-)
 create mode 100755 hostside/bessar-invoke-multiplex

diff --git a/hostside/bessar-invoke-multiplex b/hostside/bessar-invoke-multiplex
new file mode 100755
index 0000000..58a02b7
--- /dev/null
+++ b/hostside/bessar-invoke-multiplex
@@ -0,0 +1,5 @@
+#!/bin/bash
+set -e
+cd /bessar/bessar/playground
+export TRAINS_HOSTSIDE=/bessar/ian/trains/hostside
+$TRAINS_HOSTSIDE/multiplex
diff --git a/hostside/multiplex b/hostside/multiplex
index c36c2f7..9d9ac78 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -49,7 +49,9 @@
 #       picio out polarity ...
 #    70 detect <seg> 0|1
 
-source lib.tcl
+set libdir .
+catch { set libdir $env(TRAINS_HOSTSIDE) }
+source $libdir/lib.tcl
 
 #---------- replay, general utilities, etc. ----------
 
@@ -619,12 +621,13 @@ proc realtime-notrunning {} {
 }
 
 proc realtime-start {xopts} {
-    global realtime records realtime_xopts dev_railway
+    global realtime records realtime_xopts dev_railway libdir
     if {[info exists realtime]} { error "realtime already running" }
     realtime-retry-reset
     set cl [concat \
-	    [list 2> +realtime.stderr ./realtime -v2 -s$dev_railway] \
-	    $realtime_xopts $xopts $records]
+	    [list 2> +realtime.stderr $libdir/realtime -v2 -s$dev_railway] \
+	    $realtime_xopts $xopts]
+    foreach f $records { lappend cl $libdir/$f }
     puts "<> $cl"
     savereplay-clear-re "40 warning realtime-failed"
     if {[catch {
@@ -813,13 +816,13 @@ proc binding {addr blist} {
 
 proc startup {} {
     global queueing executing testmode realtime port urandom serchan
-    global dev_railway
+    global dev_railway libdir
     catch { close $master }; catch { unset master }
 
     setting testmode 0 {[01]}
     parse-argv {}
     
-    uplevel #0 source multiplex-config
+    uplevel #0 source $libdir/multiplex-config
     set queueing {}
     set executing 0
 
diff --git a/hostside/xsession b/hostside/xsession
index 1e9ca22..a91eceb 100755
--- a/hostside/xsession
+++ b/hostside/xsession
@@ -1,13 +1,4 @@
 #!/bin/sh
 set -e
-HOME=/u/ian/things/Bessar/trains
-export HOME
-cd $HOME
-rm -f /tmp/train-state
-mknod /tmp/train-state p
-xterm -rv -fn '-*-*-bold-r-*-*-48-*-*-*-*-*-*-*' -geometry 28x1+0-0 -e sh -c '
-	exec 3<>/tmp/train-state
-	printf "\n%s" "$(date)"
-	cat <&3
-' &
-/etc/eventrun eventrun.events
+cd /bessar/ian/trains/hostside
+./gui
-- 
2.30.2