http-getから入力ポートをつくりだすための試験場

t.scm

(use rfc.http)

(define (dump-receiver) 
  (lambda (code hdrs total retr)
                           #?= code
                           #?= hdrs
                           (let loop [ ]
                             (receive (port size) (retr) 
                               #?= port
                               #?= size
                               (cond
                                 [ (eqv? size 0) #t]
                                 [ (or (not size) (> size 0) )
                                  (debug-print (read-block size port))
                                  (loop) ]))))) 
(define (main args)
  (debug-print (http-get "www.google.com" "/" 
                         :receiver (dump-receiver) ) ) )