ZipArchive.st
changeset 4178 7999633b99d2
parent 4177 65b9a5e50e5e
child 4200 089df8914384
equal deleted inserted replaced
4177:65b9a5e50e5e 4178:7999633b99d2
  4389     "/ data and time in msdos format
  4389     "/ data and time in msdos format
  4390     zipEntry setModificationTimeAndDateToNow.
  4390     zipEntry setModificationTimeAndDateToNow.
  4391 
  4391 
  4392     data notEmptyOrNil ifTrue:[
  4392     data notEmptyOrNil ifTrue:[
  4393         "/ crc32 is always required (not as written in docu to be zero in case of uncompressed mode)
  4393         "/ crc32 is always required (not as written in docu to be zero in case of uncompressed mode)
  4394         zipEntry crc32:(ZipStream crc32BytesIn:data).
  4394         zipEntry crc32:(ZipStream crc32BytesIn:data from:1 to:data size crc:0).
  4395     ].
  4395     ].
  4396     (isDirectory not and:[ theCompressMethod == COMPRESSION_DEFLATED ]) ifTrue:[
  4396     (isDirectory not and:[ theCompressMethod == COMPRESSION_DEFLATED ]) ifTrue:[
  4397         |tmpCompressedDataSize|
  4397         |tmpCompressedDataSize|
  4398 
  4398 
  4399         theCompressedData := ByteArray new:(data size + 16).
  4399         theCompressedData := ByteArray new:(data size + 16).