ikarus/lab/tcp-chargen-client.ss

24 lines
585 B
Scheme
Executable File

#!/usr/bin/env scheme-script
(import (ikarus))
;;; very simple demo for how to connect to a chargen server,
;;; and print everything that it returns.
(define (chargen host)
(let-values ([(op ip) (tcp-connect host "chargen")])
(let ([ip (transcoded-port ip (native-transcoder))])
(close-output-port op)
(call/cc
(lambda (k)
(with-exception-handler
k
(lambda ()
(let f ()
(display (get-string-n ip 72))
(f))))))
(close-input-port ip))))
(chargen "localhost")
(newline)