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

t.scm

(use rfc.http)
(use gauche.generator)

(define (http-hook-receiver proc) 
  (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) )
           (let loop-rb [(data (read-block size port) ) 
                         (req-size  size) ]
             (let1 nrest (- req-size (string-length data))
               ;#?= (string-length data)
               ;#?= req-size
               ;#?= nrest
               (proc data)
               (if (= nrest 0)
                 (loop)
                 (loop-rb (read-block nrest port) nrest ) ) ) ) ]
          ) ) ) ) )

(define (http-get-generator host path)
  (generate 
    (^ (yield)
      (http-get host path 
                :receiver (http-hook-receiver
                            (^x 
                              #?= x
                              (yield x) )) )
      ) ) )


(define (main args)
  (do-generator (p (http-get-generator "www.google.com" "/")) 
    (debug-print p)
    ))