Changeset 15237 in project


Ignore:
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:
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)
    22
     3(import scheme)
     4(import chicken)
     5(import foreign)
    36(use lolevel)
    47
     
    1417(define _free (foreign-lambda void "lzma_free" c-pointer))
    1518
    16 (define (lzma:decompress inblob)
     19(define (decompress inblob)
    1720   (let ((ptr (_decompress inblob (blob-size inblob))))
    1821      (if (null-pointer? ptr)
     
    2427               outblob)))))
    2528
    26 (define (lzma:compress inblob)
     29(define (compress inblob)
    2730   (let ((ptr (_compress inblob (blob-size inblob))))
    2831      (if (null-pointer? ptr)
     
    3235               (move-memory! ptr outblob lzma-return-buffer-len)
    3336               (_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)
    22(compile -c -O2 -d1 lzma.scm -llzma -unit lzma)
     3(compile -s -O2 -d1 lzma.import.scm)
    34;
    45(install-extension
    56  'lzma
    6   '("lzma.o" "lzma.so" "lzma.html")
     7  '("lzma.o" "lzma.so" "lzma.import.so" "lzma.html")
    78  '((version 1.2)
    89    (static "lzma.o") ;; for static linking
Note: See TracChangeset for help on using the changeset viewer.