OSCL/Deflate
2
0
Fork 0
mirror of https://github.com/pmai/Deflate.git synced 2025-12-22 13:34:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: OSCL:release-1.0.0
Branches Tags
OSCL:master OSCL:fix/deflate-test-portability OSCL:fix/erroneous-type-decl-in-test-code OSCL:gh-pages
OSCL:release-1.0.4 OSCL:release-1.0.3 OSCL:release-1.0.2 OSCL:release-1.0.1 OSCL:release-1.0.0
..
compare: OSCL:release-1.0.2
Branches Tags
OSCL:master OSCL:fix/deflate-test-portability OSCL:fix/erroneous-type-decl-in-test-code OSCL:gh-pages
OSCL:release-1.0.4 OSCL:release-1.0.3 OSCL:release-1.0.2 OSCL:release-1.0.1 OSCL:release-1.0.0

9 Commits
release-1. ... release-1.

Author SHA1 Message Date
Pierre R. Mai
8353354be3 Add version, licence and maintainer to system definition. 2013-11-21 15:35:40 +01:00
Pierre R. Mai
a8dba48d31 Update documentation for 1.0.2 release. 2013-11-21 15:35:23 +01:00
Pierre R. Mai
9f0487e414 Make packaging compatible with ACL "modern-mode". 2013-11-21 15:34:50 +01:00
Pierre R. Mai
bc063b6b98 Adjust copyright years. 2013-11-21 14:51:29 +01:00
Pierre R. Mai
42f1aaab07 Add NEWS file with changes for release 1.0.1. 2010-10-09 03:54:23 +02:00
Pierre R. Mai
3f472585bd Update copyright notices for new year. 2010-10-09 03:53:10 +02:00
Pierre R. Mai
797adba286 Change fix for ecl bug in bit-stream-read-bits for improved performance. 
The previous fix in 929d3f9bc9 has worse
performance than not declaring any type on bits, so we now remove the
declaration completely.
 2010-10-09 03:46:03 +02:00
Pierre R. Mai
929d3f9bc9 Add work-around bit-stream-read-bits for ecl bug in (unsigned-byte 8) negation. 
The compiler in ecl version 10.7.1 generates erroneous code for the negation
of bits in bit-stream-read-bits if bits is declared as an (unsigned-byte 8).
Hence we declare bits as a (signed-byte 8) for ecl, given that ecl does not
generate optimal code in either case, but correct code for the later case.
 2010-10-08 20:14:37 +02:00
Pierre R. Mai
b18f8fa1da Renamed system from Deflate to deflate to aid symbol naming users. 
Whereas asdf system names are strings and hence case-sensitive, many users
of asdf rely on symbol names being treated specially and down-cased to
system names.  That does not work with "Deflate" but does work with "deflate".
NB that this is a non-compatible change for existing users.
 2010-10-08 19:56:09 +02:00
4 changed files with 35 additions and 12 deletions
Expand all files Collapse all files

2
COPYING
View File

@ -1,4 +1,4 @@
Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai Copyright (C) 2000-2013 PMSF IT Consulting Pierre R. Mai
Permission is hereby granted, free of charge, to any person obtaining Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the a copy of this software and associated documentation files (the

20
NEWS Normal file
View File

@ -0,0 +1,20 @@
Release 1.0.2
=============
* Adjust package name specifications to belatedly support ACL in its
"modern-mode".
Release 1.0.1
=============
* Renamed Deflate system from Deflate to deflate to support
convenience references to system by symbol rather than string name.
NOTE: This is an incompatible change from all prior releases, all
references to "Deflate" in system definitions will have to be
changed to "deflate" or :deflate or equivalents.
* Preliminary support for ecl has been added: Due to bugs in current
versions of ecl (10.7.1), prior versions of Deflate do not work out
of the box. This version should work better, once fixnum-specialized
arrays work again on 64bit versions of ecl in an upcoming release of
ecl.

15
Deflate.asd → deflate.asd
View File

@ -1,6 +1,6 @@
;;;; Deflate --- RFC 1951 Deflate Decompression ;;;; Deflate --- RFC 1951 Deflate Decompression
;;;; ;;;;
;;;; Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai. ;;;; Copyright (C) 2000-2013 PMSF IT Consulting Pierre R. Mai.
;;;; ;;;;
;;;; Permission is hereby granted, free of charge, to any person obtaining ;;;; Permission is hereby granted, free of charge, to any person obtaining
;;;; a copy of this software and associated documentation files (the ;;;; a copy of this software and associated documentation files (the
@ -28,7 +28,7 @@
;;;; ;;;;
;;;; $Id$ ;;;; $Id$
(cl:in-package "CL-USER") (cl:in-package #:cl-user)
;;;; %File Description: ;;;; %File Description:
;;;; ;;;;
@ -37,7 +37,10 @@
;;;; ASDF system definition facility. ;;;; ASDF system definition facility.
;;;; ;;;;
(asdf:defsystem "Deflate" (asdf:defsystem "deflate"
:description "Deflate Decompression Library" :description "Deflate Decompression Library"
:author "Pierre R. Mai <pmai@pmsf.de>" :author "Pierre R. Mai <pmai@pmsf.de>"
:components ((:file "deflate"))) :maintainer "Pierre R. Mai <pmai@pmsf.de>"
:licence "MIT/X11"
:version "1.0.2"
:components ((:file "deflate")))

10
deflate.lisp
View File

@ -1,6 +1,6 @@
;;;; Deflate --- RFC 1951 Deflate Decompression ;;;; Deflate --- RFC 1951 Deflate Decompression
;;;; ;;;;
;;;; Copyright (C) 2000-2009 PMSF IT Consulting Pierre R. Mai. ;;;; Copyright (C) 2000-2013 PMSF IT Consulting Pierre R. Mai.
;;;; ;;;;
;;;; Permission is hereby granted, free of charge, to any person obtaining ;;;; Permission is hereby granted, free of charge, to any person obtaining
;;;; a copy of this software and associated documentation files (the ;;;; a copy of this software and associated documentation files (the
@ -28,15 +28,15 @@
;;;; ;;;;
;;;; $Id$ ;;;; $Id$
(cl:defpackage "DEFLATE" (cl:defpackage #:deflate
(:use "COMMON-LISP") (:use #:common-lisp)
(:export #:decompression-error #:deflate-decompression-error (:export #:decompression-error #:deflate-decompression-error
#:zlib-decompression-error #:gzip-decompression-error #:zlib-decompression-error #:gzip-decompression-error
#:inflate-stream #:inflate-stream
#:inflate-zlib-stream #:parse-zlib-header #:parse-zlib-footer #:inflate-zlib-stream #:parse-zlib-header #:parse-zlib-footer
#:inflate-gzip-stream #:parse-gzip-header #:parse-gzip-footer)) #:inflate-gzip-stream #:parse-gzip-header #:parse-gzip-footer))
(cl:in-package "DEFLATE") (cl:in-package #:deflate)
;;;; %File Description: ;;;; %File Description:
;;;; ;;;;
@ -287,7 +287,7 @@
(declaim (inline bit-stream-read-bits)) (declaim (inline bit-stream-read-bits))
(defun bit-stream-read-bits (stream bits) (defun bit-stream-read-bits (stream bits)
(declare (type bit-stream stream) (type (unsigned-byte 8) bits)) (declare (type bit-stream stream) #-ecl (type (unsigned-byte 8) bits))
"Read single or multiple bits from the given bit-stream." "Read single or multiple bits from the given bit-stream."
(loop while (< (bit-stream-bit-count stream) bits) (loop while (< (bit-stream-bit-count stream) bits)
do do