From 016d38f42584cf2e54de279e4948a9168028aff2 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie
Date: Sun, 29 May 2022 16:37:06 -0700
Subject: Tweak con script to do CRLF translation on received stream.

---
 tool/download.tcl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'tool/download.tcl')

diff --git a/tool/download.tcl b/tool/download.tcl
index c0dca55..96fc03b 100755
--- a/tool/download.tcl
+++ b/tool/download.tcl
@@ -14,11 +14,13 @@ if {$::argc > 1} {
 
 spawn tool/connect
 
-send "@[format %x [expr $core * 32768 / $wordsperline]]\n"
+set atline "@[format %x [expr $core * 32768 / $wordsperline]]"
+send "$atline\n"
+expect -ex "$atline\r\n"
 
 while {[gets stdin line] >= 0} {
     send "$line\n"
-    expect -ex "$line\n"
+    expect -ex "$line\r\n"
 }
 
 # It's likely we ended with a very large zero-memory operation. We want to see
-- 
cgit v1.2.3