;; @module zlib.lsp ;; @description Functions for compression/decompression with zlib ;; @version 1.1 - comments redone for automatic documentation ;; @version 1.2 - new library detection routine ;; @version 1.3 - added lib for opnBSD and tested for 64-bit newLISP ;; @version 1.4 - doc changes ;; @version 1.5 - replaced write-buffer with write ;; @version 1.6 - removed broken squeeze and unsqueeze functions. ;; @version 1.7 - added library for CentOS 6 Linux ;; @version 1.71 - added library for Ubuntu Linux 12.04 and 13.04 ;; @version 1.72 - swap else-less 'if' for 'when' ;; @version 1.73 changes references to /usr/ to /usr/local/ ;; @version 1.74 library path additions ;; @author L.M 2006-2016 ;;

Functions for compression/decompression with zlib

;; For this module a platform sepcific library ;; from @link http://www.zlib.net/ www.zib.net is needed. ;; ;; The module offers two compression/decompression support as ;; GZ compatible file compression and decompression. ;; ;; Before using the module it must be loaded: ;;
;; (load "/usr/local/share/newlisp/modules/zlib.lsp")
;; ; or shorter
;; (module "zlib.lsp")
;; 
(when (< (sys-info -2) 10110) (constant (global 'write) write-buffer)) (context 'zlib) (set 'files '( "/lib/x86_64-linux-gnu/libz.so.1" ; Ubunto 14.04 64bit, & Debian 8 64bit "/usr/lib/x86_64-linux-gnu/libz.so.1" ; Ubuntu 12.04 LTS 64bit "/lib/i386-linux-gnu/libz.so.1" ; Ubuntu 13.04 "/usr/lib/libz.so" ; Linux, BSD, Solaris "/usr/lib/libz.so.4.1" ; OpenBSD 4.6 "/usr/lib64/libz.so" ; for 64Bit CentOS 6 Linux "/usr/lib/libz.dylib" ; Mac OSX / Darwin "libz1.dll" ; MS Windows )) (set 'library (files (or (find true (map file? files)) (throw-error "cannot find zlib compression library")))) (import library "compress") (import library "uncompress") (import library "gzopen") (import library "gzread") (import library "gzclose") (import library "gzwrite") ;; @syntax (zlib:gz-read-file ) ;; @return A string buffer with the original contents. ;; ;; Uncompresses the GZ compressed file in . ;; @example ;; (set 'buff (zlib:gz-read-file "myfile.gz")) (define (gz-read-file file-name) (let ( (fno (gzopen file-name "rb")) (buff (dup "\000" 0x1000)) (result "")) (when (!= fno 0) (while (> (set 'bytes (gzread fno buff 0x1000)) 0) (write result buff bytes)) (gzclose fno) result) )) ;; @syntax (zlib:gz-write-file ) ;; @return The number of bytes in . ;; ;; Does a GZ compatible comrpression of a buffer in and ;; writes it to the file in . ;; @example ;; (zlib:gz-write-file "myfile.gz" buff) (define (gz-write-file file-name buff) (let ( (fno (gzopen file-name "wb")) (result nil)) (when (!= fno 0) (set 'result (gzwrite fno buff (length buff))) (gzclose fno) result) )) (context MAIN) ; eof