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

Adding maybe-gunzip utility for optionally compressed inputs.

Browse source
This commit is contained in:
Alex Shinn 2014-06-03 23:09:44 +09:00
parent c3b265f990
commit a21e391f15
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/zlib.scm
View file

@ -35,3 +35,13 @@
(define (gunzip bvec) (define (gunzip bvec)
(process-pipe-bytevector '("gzip" "-c" "-d") bvec)) (process-pipe-bytevector '("gzip" "-c" "-d") bvec))
;;> Gunzip decompress a bytevector in memory if it has been
;;> compressed, or return as-is otherwise.
(define (maybe-gunzip bvec)
(if (and (>= (bytevector-length bvec) 10)
(eqv? #x1f (bytevector-u8-ref bvec 0))
(eqv? #x8b (bytevector-u8-ref bvec 1)))
(gunzip bvec)
bvec))

2
lib/chibi/zlib.sld
View file

@ -1,5 +1,5 @@
(define-library (chibi zlib) (define-library (chibi zlib)
(export gzip-file gunzip-file gzip gunzip) (export gzip-file gunzip-file gzip gunzip maybe-gunzip)
(import (scheme base) (chibi io) (chibi process)) (import (scheme base) (chibi io) (chibi process))
(include "zlib.scm")) (include "zlib.scm"))