From: ian <ian>
Date: Mon, 14 Jul 2008 21:07:12 +0000 (+0000)
Subject: do not log await-off ping/pong
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=f7e81c7a575c955eefddda7a951a75a9486f07b2;p=trains.git

do not log await-off ping/pong
---

diff --git a/hostside/multiplex b/hostside/multiplex
index 04b9afb..25b48cd 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -310,7 +310,7 @@ proc realtime-retry-send-ping {} {
     set x [expr "0x$x & 0x077f"]
     set ping [format %04x [expr {0x8800 ^ $x}]]
     set pong [format %04x [expr {0x885a ^ $x}]]
-    puts "<! picioh out await-off $pong  (await $pong)"
+    #puts "<! picioh out await-off $pong  (await $pong)"
     puts -nonewline $serchan [binary format H* $ping]
     set after [after 700 realtime-retry-now-off]
     set realtime_retry [list $serchan $after $pong {}]
@@ -321,7 +321,7 @@ proc realtime-retry-serchan-readable {} {
     manyset $realtime_retry serchan after pong buf
     set x [read $serchan]
     binary scan $x H* x
-    puts "<! picioh in await-off $x"
+    #puts "<! picioh in await-off $x"
     if {![string length $x] && [eof $serchan]} { error "eof on serial port" }
     append buf $x
     while {[regexp {^((?:[89a-f].)*[0-7].)(.*)$} $buf dummy msg buf]} {