Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +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) ((>= (- len offset) n)
(bytevector-copy! bv start buf offset (+ offset n)) (bytevector-copy! bv start buf offset (+ offset n))
(set! offset (+ offset n)) (set! offset (+ offset n))
n) end)
(else (else
(bytevector-copy! bv start buf offset (+ offset len)) (bytevector-copy! bv start buf offset (+ offset len))
(let lp ((i (+ start (- len offset)))) (let lp ((i (+ start (- len offset))))
@ -72,7 +72,7 @@
(set! buf #u8()) (set! buf #u8())
(set! len 0) (set! len 0)
(set! offset 0) (set! offset 0)
(- i start)) i)
(else (else
(set! len (bytevector-length buf)) (set! len (bytevector-length buf))
(set! offset 0) (set! offset 0)
@ -80,7 +80,7 @@
((>= (- len offset) (- n i)) ((>= (- len offset) (- n i))
(bytevector-copy! bv i buf offset (+ offset (- n i))) (bytevector-copy! bv i buf offset (+ offset (- n i)))
(set! offset (+ offset (- n i))) (set! offset (+ offset (- n i)))
n) end)
(else (else
(bytevector-copy! bv i buf offset len) (bytevector-copy! bv i buf offset len)
(lp (+ i (- len offset))))))))))))))) (lp (+ i (- len offset)))))))))))))))
@ -172,6 +172,10 @@
(display method out) (display method out)
(display " " out) (display " " out)
(display (or (uri-path uri) "/") 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 " HTTP/1.0\r\n" out)
(display "Host: " out) (display host out) (display "\r\n" out) (display "Host: " out) (display host out) (display "\r\n" out)
(cond (cond
@ -334,4 +338,3 @@
query))) query)))
(else (else
query)))) query))))