Changeset 15237 in project

Timestamp:

07/18/09 13:21:27 (10 years ago)

Author:

Alaric Snell-Pym

Message:

C-Keen's first patch

Location:

release/4/lzma/trunk

Files:

• lzma.scm (modified) (4 diffs)
• lzma.setup (modified) (1 diff)

release/4/lzma/trunk/lzma.scm

@@ -1 @@
-(declare (export lzma:compress lzma:decompress))
+(module lzma (compress decompress)
 
+(import scheme)
+(import chicken)
+(import foreign)
 (use lolevel)
 
@@ -14 +17 @@
 (define _free (foreign-lambda void "lzma_free" c-pointer))
 
-(define (lzma:decompress inblob)
+(define (decompress inblob)
    (let ((ptr (_decompress inblob (blob-size inblob))))
       (if (null-pointer? ptr)
@@ -24 +27 @@
                outblob)))))
 
-(define (lzma:compress inblob)
+(define (compress inblob)
    (let ((ptr (_compress inblob (blob-size inblob))))
       (if (null-pointer? ptr)
@@ -32 +35 @@
                (move-memory! ptr outblob lzma-return-buffer-len)
                (_free ptr)
-               outblob)))))
+               outblob))))))

release/4/lzma/trunk/lzma.setup

@@ -1 @@
-(compile -s -O2 -d1 lzma.scm -llzma)
+(compile -s -O2 -d1 lzma.scm -llzma -j lzma)
 (compile -c -O2 -d1 lzma.scm -llzma -unit lzma)
+(compile -s -O2 -d1 lzma.import.scm)
 ;
 (install-extension
   'lzma
-  '("lzma.o" "lzma.so" "lzma.html")
+  '("lzma.o" "lzma.so" "lzma.import.so" "lzma.html")
   '((version 1.2)
     (static "lzma.o") ;; for static linking