From: ian <ian>
Date: Mon, 14 Jul 2008 21:04:36 +0000 (+0000)
Subject: do not lputs pings
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=ff10a739d84a0d66cfb09f7a47aff4602bbb6bbb;p=trains.git

do not lputs pings
---

diff --git a/hostside/multiplex b/hostside/multiplex
index c062cba..04b9afb 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -83,6 +83,14 @@ proc nargs {l {n 0}} {
 
 proc cmderr {ecode emsg} { error $emsg "" [list TRAIN CMDERR $ecode] }
 
+proc lputs {m} {
+    if {[regexp \
+ {^\<[<&] picioh (?:in msg|out) 8[09a-f]|^\<[<&] picio (?:in pong|out ping)} \
+            $m]} \
+	return
+    puts $m
+}
+
 proc xmit-relevantly {m} {
     global executing currentconn conns
     if {$executing} {
@@ -93,7 +101,7 @@ proc xmit-relevantly {m} {
 	}
 	set othersm -$m
     } else {
-	puts "<& $m"
+	lputs "<& $m"
 	set myconn {}
 	set othersm &$m
     }
@@ -660,7 +668,7 @@ proc realtime-inputline {dummy l} {
 	return
     }
 
-    puts "<< $l"
+    lputs "<< $l"
 
     if {[regexp {^(detect (\w+)) ([01])$} $l dummy key seg value]} {
 	upvar #0 detect0($seg) d0