diff options
Diffstat (limited to 'ebus-racket/dumper.rkt')
| -rwxr-xr-x | ebus-racket/dumper.rkt | 3 |
1 files changed, 2 insertions, 1 deletions
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) |