#DOCUMENTATION by stefan
class: ZipArchive
comment/format in: #basicAddFile:withContents:compressMethod:asDirectory:
changed:
#addFile:fromStream:compressMethod:asDirectory:
#extract:intoStream:
--- a/ZipArchive.st Thu Oct 20 16:01:04 2016 +0200
+++ b/ZipArchive.st Fri Oct 21 10:31:56 2016 +0200
@@ -4116,7 +4116,7 @@
compressionMethod == COMPRESSION_DEFLATED ifTrue:[
myZipStream isNil ifTrue: [
file binary.
- myZipStream := ZipStream readOpenAsZipStreamOn: file.
+ myZipStream := ZipStream readOpenAsZipStreamOn:file suppressHeaderAndChecksum:true.
].
myZipStream next:nextBlockSize into:buffer startingAt:1.
] ifFalse:[compressionMethod == COMPRESSION_STORED ifTrue:[
@@ -4287,7 +4287,7 @@
crc32 := ZipStream crc32BytesIn: buffer from:1 to:nextBlockSize crc:crc32.
theCompressMethod == COMPRESSION_DEFLATED ifTrue: [
myZipStream isNil ifTrue: [
- myZipStream := ZipStream writeOpenAsZipStreamOn:file.
+ myZipStream := ZipStream writeOpenAsZipStreamOn:file suppressHeaderAndChecksum:true.
].
myZipStream nextPutBytes:nextBlockSize from:buffer startingAt:1.
] ifFalse: [theCompressMethod == COMPRESSION_STORED ifTrue: [
@@ -4305,7 +4305,7 @@
zipEntry compressedSize:(file position) - startDataPosition.
- "/ crc32 is allways reqired (not as written in docu to be zero in case of uncompressed mode)
+ "/ crc32 is always required (not as written in docu to be zero in case of uncompressed mode)
zipEntry crc32:crc32.
zipEntry uncompressedSize: unCompressedDataSize.
@@ -4390,7 +4390,7 @@
zipEntry setModificationTimeAndDateToNow.
data notEmptyOrNil ifTrue:[
- "/ crc32 is allways reqired (not as written in docu to be zero in case of uncompressed mode)
+ "/ crc32 is always required (not as written in docu to be zero in case of uncompressed mode)
zipEntry crc32:(ZipStream crc32BytesIn:data).
].
(isDirectory not and:[ theCompressMethod == COMPRESSION_DEFLATED ]) ifTrue:[
@@ -5025,7 +5025,7 @@
readPosition := 0.
zipEntry compressionMethod == COMPRESSION_DEFLATED ifTrue:[
- compressingStream := ZipStream readOpenAsZipStreamOn:zipFileStream.
+ compressingStream := ZipStream readOpenAsZipStreamOn:zipFileStream suppressHeaderAndChecksum:true.
] ifFalse:[
compressingStream := zipFileStream.
compressingStream text.
@@ -5114,7 +5114,7 @@
zipEntry compressedSize:(zipFileStream position) - startDataPosition.
- "/ crc32 is allways reqired (not as written in docu to be zero in case of uncompressed mode)
+ "/ crc32 is always reqired (not as written in docu to be zero in case of uncompressed mode)
zipEntry crc32:crc32.
zipEntry uncompressedSize:uncompressedDataSize.
@@ -5134,7 +5134,7 @@
uncompressedDataSize := 0.
zipEntry compressionMethod == COMPRESSION_DEFLATED ifTrue:[
- compressingStream := ZipStream writeOpenAsZipStreamOn:zipFileStream.
+ compressingStream := ZipStream writeOpenAsZipStreamOn:zipFileStream suppressHeaderAndChecksum:true.
] ifFalse:[
compressingStream := zipFileStream.
].