Skip to content

Instantly share code, notes, and snippets.

@yamasushi

yamasushi/call-with-input-http.scm

Created July 27, 2012 06:31
Show Gist options
  • Save yamasushi/3186464 to your computer and use it in GitHub Desktop.
Save yamasushi/3186464 to your computer and use it in GitHub Desktop.
Download ZIP
call-with-input-httpを「ポートの反転」で書く。
Raw
call-with-input-http.scm
; http-getのパラメタ指定してhttp-get、procに仮想ポートを渡す。
(define (call-with-input-http http-param proc :key (queue-size 100) (buffer-size 8000) )
(let1 inverter (mtport-inverter :queue-size queue-size :buffer-size buffer-size)
(inverter
(^[outp] (apply http-get (append http-param `(:sink ,outp :flusher ,(^ _ (flush outp) #t) ))))
(^[inp] (proc inp) ) ) ) )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment