3 cd /u/ian/things/Bessar/trains
4 exec xsetroot -solid #00000f
8 savelog -c 7 bessar.log
10 cd /u/ian/things/trains-bessar/hostside
11 ./stopgap-controller | ./gui-displayer -
12 ) 2>&1 | tee >(tail -10000 >bessar.log)
15 proc trains_start {} {
16 global trainsf trainscmd
18 set cmdl [list bash -ec $trainscmd 2>@ stderr]
19 set trainsf [open |$cmdl w]
20 fconfigure $trainsf -buffering none -blocking no
25 if {![info exists trainsf]} return
29 puts stderr "tw: $emsg"
42 global trainsf okagain
43 if {![info exists trainsf]} return
44 catch { close $trainsf }