@@ 361,38 361,38 @@ define : server-serve-file range-request
if : not : or range-requested (> filesize 2MiB)
. #f
or
- cdr begin-end
- ;; if no size is requested, optimize for streaming video
- min : - filesize 1
- + range-begin
- cond
- : zero? range-begin
- . 32KiB
- : < range-begin 2MiB
- . 256KiB
- else 2MiB
+ cdr begin-end
+ ;; if no size is requested, optimize for streaming video
+ min : - filesize 1
+ + range-begin
+ cond
+ : zero? range-begin
+ . 32KiB
+ : < range-begin 2MiB
+ . 256KiB
+ else 2MiB
define code : if (not served-file) 404 : if range-end 206 : if (zero? filesize) 204 200
define base-headers `((content-type . ,(or (and served-file (content-type (served-mimetype (cdr served-file)))) '(application/octet-stream)))
(accept-ranges . (bytes))
(X-Alt . ,(xalt->header xalt)))
define file-size : if (not served-file) 0 : served-sizebytes : cdr served-file
define data
- if : not served-file
- . "File not found"
- get-file-chunk
- served-accesspath (cdr served-file)
- . range-begin
- . range-end
+ if : not served-file
+ . "File not found"
+ get-file-chunk
+ served-accesspath (cdr served-file)
+ . range-begin
+ . range-end
define headers
- if : and range-end (not (zero? filesize))
- cons `(content-range . ,(format #f "bytes ~d-~d/~d" range-begin range-end file-size))
- . base-headers
- . base-headers
+ if : and range-end (not (zero? filesize))
+ cons `(content-range . ,(format #f "bytes ~d-~d/~d" range-begin range-end file-size))
+ . base-headers
+ . base-headers
values
- build-response
- . #:headers headers
- . #:code code
- . data
+ build-response
+ . #:headers headers
+ . #:code code
+ . data
define : server-list-files
values