Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding http-get-to-file utility.

Browse source
This commit is contained in:
Alex Shinn 2014-06-03 23:10:27 +09:00
parent a21e391f15
commit e88374275d
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/net/http.scm
View file

@ -264,6 +264,16 @@
(close-input-port p)
res)))
(define (http-get-to-file url path)
(call-with-input-url url
(lambda (in)
(let ((out (open-binary-output-file path)))
(let lp ()
(let ((c (read-u8 in)))
(cond ((not (eof-object? c))
(write-u8 c out)
(lp)))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; server utils

2
lib/chibi/net/http.sld
View file

@ -1,6 +1,6 @@
(define-library (chibi net http)
(export http-get http-get/headers
(export http-get http-get/headers http-get-to-file
http-head http-post http-put http-delete
call-with-input-url call-with-input-url/headers
with-input-from-url