From 9da5af8ae5ebae5f9b5c8c8ade554ff07595377c Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Thu, 29 Dec 2005 18:12:09 +0000
Subject: [PATCH] better handshaking during startup of crashread

---
 detpic/crashread | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

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 {} { }
 
-- 
2.30.2