nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

substitute: Optimize HTTP pipelining over TLS. 

* guix/scripts/substitute.scm (http-multiple-get): Write the requests
to a bytevector output port before sending them.
This commit is contained in:
Ludovic Courtès 2016-03-10 13:53:23 +01:00
parent 9b7bd1b160
commit ec278439f3
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
guix/scripts/substitute.scm
View File

@ -495,8 +495,17 @@ read the response body, and the previous result, starting with SEED, à la
(setvbuf p _IOFBF (expt 2 16))) (setvbuf p _IOFBF (expt 2 16)))
;; Send all of REQUESTS in a row. ;; Send all of REQUESTS in a row.
(for-each (cut write-request <> p) requests) ;; XXX: Do our own caching to work around inefficiencies when
(force-output p) ;; communicating over TLS: <http://bugs.gnu.org/22966>.
(let-values (((buffer get) (open-bytevector-output-port)))
;; On Guile > 2.0.9, inherit the HTTP proxying property from P.
(when (module-variable (resolve-interface '(web http))
'http-proxy-port?)
(set-http-proxy-port?! buffer (http-proxy-port? p)))
(for-each (cut write-request <> buffer) requests)
(put-bytevector p (get))
(force-output p))
;; Now start processing responses. ;; Now start processing responses.
(let loop ((requests requests) (let loop ((requests requests)