chiark / gitweb /
do not log await-off ping/pong
authorian <ian>
Mon, 14 Jul 2008 21:07:12 +0000 (21:07 +0000)
committerian <ian>
Mon, 14 Jul 2008 21:07:12 +0000 (21:07 +0000)
hostside/multiplex

index 04b9afb4cbb496c61af19c4596e45d72b2435618..25b48cd4084b5934044ae6f62ef49623a62903be 100755 (executable)
@@ -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]} {