3def239916
conforms with chicken "egg" standard. Got rid of ##csi#run for relinking the Scheme interpreter as no longer needed. Changed all documentation to reflect both changes. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4411 626c5289-ae23-0410-ae9c-e8d60b6d4f22
42 lines
1.5 KiB
Scheme
42 lines
1.5 KiB
Scheme
;; run with './zlib test-zlib.scm'
|
|
|
|
;; Init zstream
|
|
(define s (zlib:new-z-stream))
|
|
(zlib:z-stream-zalloc-set s #f)
|
|
(zlib:z-stream-zfree-set s #f)
|
|
(zlib:z-stream-opaque-set s #f)
|
|
(zlib:deflate-init s (zlib:z-default-compression))
|
|
|
|
;; Deflate something small so we don't need to loop/stream data
|
|
(define in "some pony et jumping et jack et flash et had a jack pony")
|
|
(define out (make-string 1000))
|
|
(format #t "to be compressed: ~A~%to be compressed bytes: ~D~%~%" in (string-length in))
|
|
(zlib:z-stream-next-in-set s in)
|
|
(zlib:z-stream-avail-in-set s (string-length in))
|
|
(zlib:z-stream-next-out-set s out)
|
|
(zlib:z-stream-avail-out-set s (string-length out))
|
|
(let*
|
|
((saved-out (zlib:z-stream-save-next-out s))
|
|
(ret (zlib:deflate s (zlib:z-finish))))
|
|
(cond
|
|
((= ret (zlib:z-stream-end))
|
|
(format #t "deflated properly!~%compressed bytes: ~D~%compressed stream: ~S~%"
|
|
(zlib:z-stream-total-out-get s) (zlib:z-stream-get-next-chunk s saved-out)))
|
|
((= ret (zlib:z-ok))
|
|
(display "only partial deflation ... not enough output space\n"))
|
|
(else
|
|
(format #t "deflate error(~D): ~A ~%" ret (zlib:z-stream-msg-get s)))))
|
|
|
|
;; Use simple compress routine, and set max output size to 100
|
|
(define c (zlib:compress 100 in))
|
|
(newline)
|
|
(let
|
|
((ret (car c))
|
|
(compressed (cadr c)))
|
|
(cond
|
|
((= ret (zlib:z-ok))
|
|
(format #t "compressed properly!~%compressed bytes: ~D~%compressed stream: ~S~%"
|
|
(string-length compressed) compressed))
|
|
(else
|
|
(format #t "compress error(~D): ~A ~%" ret (zlib:z-error ret)))))
|
|
|