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

fixing make-generated-binary-input-port for non-zero buffer start, including query in http-get (issue #418)

Browse source
This commit is contained in:
Alex Shinn 2017-06-26 23:32:04 +09:00
parent da410523b0
commit 39bf3cecc7
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -62,7 +62,7 @@
((>= (- len offset) n)
(bytevector-copy! bv start buf offset (+ offset n))
(set! offset (+ offset n))
n)
end)
(else
(bytevector-copy! bv start buf offset (+ offset len))
(let lp ((i (+ start (- len offset))))
@ -72,7 +72,7 @@
(set! buf #u8())
(set! len 0)
(set! offset 0)
(- i start))
i)
(else
(set! len (bytevector-length buf))
(set! offset 0)
@ -80,7 +80,7 @@
((>= (- len offset) (- n i))
(bytevector-copy! bv i buf offset (+ offset (- n i)))
(set! offset (+ offset (- n i)))
n)
end)
(else
(bytevector-copy! bv i buf offset len)
(lp (+ i (- len offset)))))))))))))))
@ -172,6 +172,10 @@
(display method out)
(display " " out)
(display (or (uri-path uri) "/") out)
(cond
((uri-query uri)
(display "?" out)
(display (uri-query uri) out)))
(display " HTTP/1.0\r\n" out)
(display "Host: " out) (display host out) (display "\r\n" out)
(cond
@ -334,4 +338,3 @@
query)))
(else
query))))