Changeset 15237 in project
- Timestamp:
- 07/18/09 13:21:27 (10 years ago)
- Location:
- release/4/lzma/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/lzma/trunk/lzma.scm
r15236 r15237 1 ( declare (export lzma:compress lzma:decompress))1 (module lzma (compress decompress) 2 2 3 (import scheme) 4 (import chicken) 5 (import foreign) 3 6 (use lolevel) 4 7 … … 14 17 (define _free (foreign-lambda void "lzma_free" c-pointer)) 15 18 16 (define ( lzma:decompress inblob)19 (define (decompress inblob) 17 20 (let ((ptr (_decompress inblob (blob-size inblob)))) 18 21 (if (null-pointer? ptr) … … 24 27 outblob))))) 25 28 26 (define ( lzma:compress inblob)29 (define (compress inblob) 27 30 (let ((ptr (_compress inblob (blob-size inblob)))) 28 31 (if (null-pointer? ptr) … … 32 35 (move-memory! ptr outblob lzma-return-buffer-len) 33 36 (_free ptr) 34 outblob))))) 37 outblob)))))) -
release/4/lzma/trunk/lzma.setup
r15236 r15237 1 (compile -s -O2 -d1 lzma.scm -llzma )1 (compile -s -O2 -d1 lzma.scm -llzma -j lzma) 2 2 (compile -c -O2 -d1 lzma.scm -llzma -unit lzma) 3 (compile -s -O2 -d1 lzma.import.scm) 3 4 ; 4 5 (install-extension 5 6 'lzma 6 '("lzma.o" "lzma.so" "lzma. html")7 '("lzma.o" "lzma.so" "lzma.import.so" "lzma.html") 7 8 '((version 1.2) 8 9 (static "lzma.o") ;; for static linking
Note: See TracChangeset
for help on using the changeset viewer.