retransmit-table.h
record-l.[ch]
record-y.[ch]
-persist.lock
-persist.data.old
-persist.data
-persist.data.new
-persist.conv.old
-persist.conv
-persist.conv.new
-persist.record
++persist*
++*.log
static FILE *dump_stream= 0;
static int repeat_delay= -1, iterations= -1;
-static const char *serial_port;
+static const char *serial_port= "/dev/railway";
static Nmra buf;
}
}
- if (!serial_port) badusage("need serial port option");
-
if (!arg) badusage("need arg");
#define BARE(f) \
#!/usr/bin/tclsh8.3
# Put loco on track segment X5 ish, facing anticlockwise
-# ./measure-speeds /dev/ttyUSB0 2 0 `seq 1 126` |tee santafe.speeds
+# ./measure-speeds /dev/railway 2 0 `seq 1 126` |tee santafe.speeds
# ^reverse
# debugging:
-# ./measure-speeds /dev/ttyUSB0 1 1 `seq 1 126` 2>&1 | perl -pe '$|=1; s/\r/\n/g' | 3<&0 tclsh8.3 <(echo 'set f [open /dev/fd/3]; proc cm {} { clock clicks -milliseconds }; set z [cm]; while {[gets $f l]>=0} { puts [format "%-10s %s" [expr {[cm]-$z}] $l] }')
+# ./measure-speeds /dev/railway 1 1 `seq 1 126` 2>&1 | perl -pe '$|=1; s/\r/\n/g' | 3<&0 tclsh8.3 <(echo 'set f [open /dev/fd/3]; proc cm {} { clock clicks -milliseconds }; set z [cm]; while {[gets $f l]>=0} { puts [format "%-10s %s" [expr {[cm]-$z}] $l] }')
load chiark_tcl_hbytes-1.so
#include "realtime.h"
-const char *persist_fn= "persist";
+const char *persist_fn= "+persist";
char *persist_record_converted;
static int fd= -1;
CommandInput cmdi;
int picio_send_noise= 1;
-static const char *device= "/dev/ttya0";
-static const char *logcopy_fn= "realtime.log";
+static const char *device= "/dev/railway";
+static const char *logcopy_fn= "+realtime.log";
/*---------- general event handling ----------*/