# HG changeset patch # User Claus Gittinger # Date 1545133935 -3600 # Node ID b22943151ce03b85f349b5dbe5758bc1c422efca # Parent 7259a694e36dd8085fd6510216391c75a4b785ac #DOCUMENTATION by cg class: ZipStream class comment/format in: #compress:into: #uncompress:into: diff -r 7259a694e36d -r b22943151ce0 ZipStream.st --- a/ZipStream.st Tue Dec 11 21:28:13 2018 +0100 +++ b/ZipStream.st Tue Dec 18 12:52:15 2018 +0100 @@ -227,12 +227,24 @@ !ZipStream class methodsFor:'ZipInterface compatibility - compress/uncompress'! -compress: aUncompressedByteArray into: aCompressedByteArray +compress:anUncompressedByteArrayOrString into:aCompressedByteArrayOrString ^ self - flatBytesIn: aUncompressedByteArray - from: 1 to: (aUncompressedByteArray size) - into: aCompressedByteArray - doCompress: true. + flatBytesIn:anUncompressedByteArrayOrString + from:1 to:(anUncompressedByteArrayOrString size) + into:aCompressedByteArrayOrString + doCompress:true. + + " + |buffer len1 len2 compressed uncompressed| + buffer := String new:100. + len1 := self compress:'hello world hello world hello world hello world hello world' into:buffer. + compressed := buffer copyTo:len1. + + len2 := self uncompress:compressed into:buffer. + uncompressed := buffer copyTo:len2. + " + + "Modified (format): / 18-12-2018 / 12:53:17 / Claus Gittinger" ! flatBytesIn:bytesIn from:start to:stop into:bytesOut doCompress:doCompress @@ -295,12 +307,14 @@ self error:('compressing error: ', errorNr printString). ! -uncompress: aCompressedByteArray into: anUncompressedByteArray +uncompress:aCompressedByteArrayOrString into:anUncompressedByteArrayOrString ^ self - flatBytesIn: aCompressedByteArray - from: 1 to: (aCompressedByteArray size) - into: anUncompressedByteArray - doCompress: false. + flatBytesIn:aCompressedByteArrayOrString + from:1 to:(aCompressedByteArrayOrString size) + into:anUncompressedByteArrayOrString + doCompress:false. + + "Modified (format): / 18-12-2018 / 12:53:09 / Claus Gittinger" ! ! !ZipStream class methodsFor:'ZipInterface compatibility - crc'!