X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fcompress.lisp;h=3b8f12726208f48c79707fee7502d165bbf9c33b;hb=HEAD;hp=3f3e838fc182eced393a61d0ced7ea0c2c712342;hpb=3ade95bab16abe09642554e9cbf56f117f01e507;p=uffi.git

diff --git a/examples/compress.lisp b/examples/compress.lisp
index 3f3e838..3b8f127 100644
--- a/examples/compress.lisp
+++ b/examples/compress.lisp
@@ -7,9 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
 ;;;;
 ;;;; *************************************************************************
 
@@ -17,18 +15,18 @@
 
 (eval-when (:load-toplevel :execute)
   (unless (uffi:load-foreign-library
-	   #-(or macosx darwin)
-	   (uffi:find-foreign-library
-	    "libz"
-	    '("/usr/local/lib/" "/usr/lib/" "/zlib/")
-	    :types '("so" "a"))
-	   #+(or macosx darwin)
-	   (uffi:find-foreign-library "z"
-				      `(,(pathname-directory *load-pathname*)))
-	   :module "zlib" 
-	   :supporting-libraries '("c"))
+           #-(or macosx darwin)
+           (uffi:find-foreign-library
+            "libz"
+            '("/usr/local/lib/" "/usr/lib/" "/zlib/")
+            :types '("so" "a"))
+           #+(or macosx darwin)
+           (uffi:find-foreign-library "z"
+                                      `(,(pathname-directory *load-pathname*)))
+           :module "zlib"
+           :supporting-libraries '("c"))
     (warn "Unable to load zlib")))
-  
+
 (uffi:def-function ("compress" c-compress)
     ((dest (* :unsigned-char))
      (destlen (* :long))
@@ -36,29 +34,29 @@
      (source-len :long))
   :returning :int
   :module "zlib")
-  
+
 (defun compress (source)
   "Returns two values: array of bytes containing the compressed data
  and the numbe of compressed bytes"
   (let* ((sourcelen (length source))
-	 (destsize (+ 12 (ceiling (* sourcelen 1.01))))
-	 (dest (uffi:allocate-foreign-string destsize :unsigned t))
-	 (destlen (uffi:allocate-foreign-object :long)))
+         (destsize (+ 12 (ceiling (* sourcelen 1.01))))
+         (dest (uffi:allocate-foreign-string destsize :unsigned t))
+         (destlen (uffi:allocate-foreign-object :long)))
     (setf (uffi:deref-pointer destlen :long) destsize)
     (uffi:with-cstring (source-native source)
       (let ((result (c-compress dest destlen source-native sourcelen))
-	    (newdestlen (uffi:deref-pointer destlen :long)))
-	(unwind-protect
-	    (if (zerop result)
-		(values (uffi:convert-from-foreign-string 
-			 dest
-			 :length newdestlen
-			 :null-terminated-p nil)
-			newdestlen)
-	      (error "zlib error, code ~D" result))
-	  (progn
-	    (uffi:free-foreign-object destlen)
-	    (uffi:free-foreign-object dest)))))))
+            (newdestlen (uffi:deref-pointer destlen :long)))
+        (unwind-protect
+            (if (zerop result)
+                (values (uffi:convert-from-foreign-string
+                         dest
+                         :length newdestlen
+                         :null-terminated-p nil)
+                        newdestlen)
+              (error "zlib error, code ~D" result))
+          (progn
+            (uffi:free-foreign-object destlen)
+            (uffi:free-foreign-object dest)))))))
 
 (uffi:def-function ("uncompress" c-uncompress)
     ((dest (* :unsigned-char))
@@ -70,31 +68,31 @@
 
 (defun uncompress (source)
   (let* ((sourcelen (length source))
-	 (destsize 200000)  ;adjust as needed
-	 (dest (uffi:allocate-foreign-string destsize :unsigned t))
-	 (destlen (uffi:allocate-foreign-object :long)))
+         (destsize 200000)  ;adjust as needed
+         (dest (uffi:allocate-foreign-string destsize :unsigned t))
+         (destlen (uffi:allocate-foreign-object :long)))
     (setf (uffi:deref-pointer destlen :long) destsize)
     (uffi:with-cstring (source-native source)
       (let ((result (c-uncompress dest destlen source-native sourcelen))
-	    (newdestlen (uffi:deref-pointer destlen :long)))
-	(unwind-protect
-	     (if (zerop result)
-		 (uffi:convert-from-foreign-string 
-		  dest
-		  :length newdestlen
-		  :null-terminated-p nil)
-		 (error "zlib error, code ~D" result))
-	  (progn
-	    (uffi:free-foreign-object destlen)
-	    (uffi:free-foreign-object dest)))))))
+            (newdestlen (uffi:deref-pointer destlen :long)))
+        (unwind-protect
+             (if (zerop result)
+                 (uffi:convert-from-foreign-string
+                  dest
+                  :length newdestlen
+                  :null-terminated-p nil)
+                 (error "zlib error, code ~D" result))
+          (progn
+            (uffi:free-foreign-object destlen)
+            (uffi:free-foreign-object dest)))))))
 
 #+examples-uffi
 (progn
   (flet ((print-results (str)
-	   (multiple-value-bind (compressed len) (compress str)
-	     (let ((*print-length* nil))
-	       (format t "~&(compress ~S) => " str)
-	       (format t "~S~%" (map 'list #'char-code compressed))))))
+           (multiple-value-bind (compressed len) (compress str)
+             (let ((*print-length* nil))
+               (format t "~&(compress ~S) => " str)
+               (format t "~S~%" (map 'list #'char-code compressed))))))
     (print-results "")
     (print-results "test")
     (print-results "test2")))
@@ -102,10 +100,10 @@
 #+test-uffi
 (progn
   (flet ((test-compress (str)
-	   (multiple-value-bind (compressed len) (compress str)
-	     (multiple-value-bind (uncompressed len2) (uncompress compressed)
-	       (util.test:test str uncompressed :test #'string=
-			       :fail-info "Error uncompressing a compressed string")))))
+           (multiple-value-bind (compressed len) (compress str)
+             (multiple-value-bind (uncompressed len2) (uncompress compressed)
+               (util.test:test str uncompressed :test #'string=
+                               :fail-info "Error uncompressing a compressed string")))))
     (test-compress "")
     (test-compress "test")
     (test-compress "test2")))