#DOCUMENTATION by stefan
authorStefan Vogel <sv@exept.de>
Fri, 21 Oct 2016 10:31:56 +0200
changeset 4177 65b9a5e50e5e
parent 4176 bf554d531f23
child 4178 7999633b99d2
#DOCUMENTATION by stefan class: ZipArchive comment/format in: #basicAddFile:withContents:compressMethod:asDirectory: changed: #addFile:fromStream:compressMethod:asDirectory: #extract:intoStream:
ZipArchive.st
--- 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.
     ].