From: ian <ian>
Date: Thu, 29 Dec 2005 23:32:59 +0000 (+0000)
Subject: nicer default behaviour
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=a8631d6f1abfdcadd5424d08e8d21b61e8eec30a;p=trains.git

nicer default behaviour
---

diff --git a/detpic/display-nmra-decoded b/detpic/display-nmra-decoded
index cf71314..59c67b9 100755
--- a/detpic/display-nmra-decoded
+++ b/detpic/display-nmra-decoded
@@ -240,7 +240,7 @@ sub found_datapoint ($$) {
 
 #---------- datapoint reader ----------
 
-sub read_input_file() {
+sub read_stdin() {
     reset_bit_decoder();
 
     while (<STDIN>) {
@@ -252,5 +252,13 @@ sub read_input_file() {
     die $! if STDIN->error;
 }
 
-read_input_file();
+if (!@ARGV) {
+    exec './display-nmra-decoded <t.nmra.dat - 2>&1 |less';
+    die "$? $!";
+} elsif (@ARGV==1 and $ARGV[0] eq '-') {
+    read_stdin();
+} else {
+    die;
+}
+
 die $! if STDOUT->error;