From 78908906a5ebedba5762cb6ac392bfed651c7c7c Mon Sep 17 00:00:00 2001 From: Yves Fischer Date: Sun, 4 Mar 2012 22:22:51 +0100 Subject: ebus-racket: inserter.rkt , overall improvements --- ebus-racket/dumper.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'ebus-racket/dumper.rkt') diff --git a/ebus-racket/dumper.rkt b/ebus-racket/dumper.rkt index 7ffd556..cc31a16 100755 --- a/ebus-racket/dumper.rkt +++ b/ebus-racket/dumper.rkt @@ -23,13 +23,14 @@ (connect-port? (string->number port)) ])) -; Connect +;; Connect, replacing input with tcp connection (if (or (null? (connect-host?)) (null? (connect-port?))) (display "Using stdin\n") (let-values ([(cin cout) (tcp-connect (connect-host?) (connect-port?))]) (display (format "Connected to ~s ~s ~n" (connect-host?) (connect-port?))) (current-input-port cin))) + (define (read-ebus-loop2 input-port) (let ([paket (layer2-read-ebus (current-input-port))]) (pretty-print paket) -- cgit v1.2.1