From: ian <ian>
Date: Thu, 29 Dec 2005 18:12:09 +0000 (+0000)
Subject: better handshaking during startup of crashread
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=9da5af8ae5ebae5f9b5c8c8ade554ff07595377c;p=trains.git

better handshaking during startup of crashread
---

diff --git a/detpic/crashread b/detpic/crashread
index 3860489..d9a73df 100755
--- a/detpic/crashread
+++ b/detpic/crashread
@@ -175,6 +175,12 @@ proc recv {n} {
     }
     return $l
 }
+proc junkrecv {} {
+    global p
+    fconfigure $p -blocking no
+    while {[string length [read $p 1024]]} { }
+    fconfigure $p -blocking yes
+}
 
 proc selectslave_s {} {
     global slave
@@ -187,7 +193,14 @@ proc xmit_s {b} {
     recv 1
 }
 
-proc setup_m {} { xmit 0; xmit 0; xmit 0 }
+proc pause {t} {
+    global pause_var
+    catch { unset pause_var }
+    after $t {set pause_var y}
+    vwait pause_var
+}
+
+proc setup_m {} { xmit 0; xmit 0; xmit 0; pause 250; junkrecv }
 proc setup_s {} { setup_m; xmit_s 0; xmit_s 0 }
 proc setup_t {} { }