run things on bessar

diff --git a/hostside/bessar-invoke-multiplex b/hostside/bessar-invoke-multiplex
new file mode 100755 (executable)
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 c36c2f7956d5c09b6678cbebd697a18a475bb303..9d9ac786ab0d9f8a0cefea84832ca53343565b71 100755 (executable)
--- 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 1e9ca2244cfe935c93c39701390c475fea8cb743..a91eceba327179478d4861433c7cb422c99f8ce4 100755 (executable)
--- 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