diff options
| author | Yves Fischer <yvesf-git@xapek.org> | 2012-03-04 22:22:51 +0100 |
|---|---|---|
| committer | Yves Fischer <yvesf-git@xapek.org> | 2012-03-04 22:22:51 +0100 |
| commit | 78908906a5ebedba5762cb6ac392bfed651c7c7c (patch) | |
| tree | 1f2323f458282d888efec1d2af4f7a98f0a8ad0f /ebus-racket/dumper.rkt | |
| parent | 9a9b5befc963b32d91a85e14efb04d7ac4ca592f (diff) | |
| download | ebus-alt-78908906a5ebedba5762cb6ac392bfed651c7c7c.tar.gz ebus-alt-78908906a5ebedba5762cb6ac392bfed651c7c7c.zip | |
ebus-racket: inserter.rkt , overall improvements
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) |