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

Add output of modular size field for gzip

Browse Source
This commit is contained in:
Pierre R. Mai
2023-05-21 21:17:06 +02:00
parent 89cbd0ed25
commit dbdeb3825a
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
deflate.lisp
View File

@ -797,12 +797,12 @@ match."
:format-control "CRC-16 Checksum mismatch in header: ~4,'0X != ~4,'0X!"
:format-arguments (list crc16-old crc16-new)))
(let ((checksum-new (inflate-stream input-stream output-stream
:checksum (when check-checksum :crc-32)))
(checksum-old (parse-gzip-footer input-stream)))
;; Handle Checksums
(when (and check-checksum (not (= checksum-old checksum-new)))
(error 'gzip-decompression-error
:format-control
"Checksum mismatch for decompressed stream: ~8,'0X != ~8,'0X!"
:format-arguments (list checksum-old checksum-new)))
(values checksum-old fname mtime fcomment crc16-old crc16-new))))
:checksum (when check-checksum :crc-32))))
(multiple-value-bind (checksum-old isize) (parse-gzip-footer input-stream)
;; Handle Checksums
(when (and check-checksum (not (= checksum-old checksum-new)))
(error 'gzip-decompression-error
:format-control
"Checksum mismatch for decompressed stream: ~8,'0X != ~8,'0X!"
:format-arguments (list checksum-old checksum-new)))
(values checksum-old fname mtime fcomment isize crc16-old crc16-new)))))