Nicolas Cellier uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-nice.53.mcz
==================== Summary ====================
Name: Compression-nice.53 Author: nice Time: 26 April 2017, 10:52:24.507244 pm UUID: e6d7cbdf-497f-42b3-8b4b-f18c1f62409f Ancestors: Compression-nice.52
Classify a few 'as yet unclassified' methods
=============== Diff against Compression-nice.52 ===============
Item was changed: + ----- Method: GZipSurrogateStream>>ascii (in category 'accessing') ----- - ----- Method: GZipSurrogateStream>>ascii (in category 'as yet unclassified') ----- ascii
self bufferStream ascii!
Item was changed: + ----- Method: GZipSurrogateStream>>binary (in category 'accessing') ----- - ----- Method: GZipSurrogateStream>>binary (in category 'as yet unclassified') ----- binary
self bufferStream binary!
Item was changed: + ----- Method: GZipSurrogateStream>>bufferStream (in category 'private') ----- - ----- Method: GZipSurrogateStream>>bufferStream (in category 'as yet unclassified') ----- bufferStream
^bufferStream ifNil: [bufferStream := RWBinaryOrTextStream on: (ByteArray new: 5000)]. !
Item was changed: + ----- Method: GZipSurrogateStream>>close (in category 'open/close') ----- - ----- Method: GZipSurrogateStream>>close (in category 'as yet unclassified') ----- close "we don't want to until user is really done"
!
Item was changed: + ----- Method: GZipSurrogateStream>>closed (in category 'open/close') ----- - ----- Method: GZipSurrogateStream>>closed (in category 'as yet unclassified') ----- closed
^false!
Item was changed: + ----- Method: GZipSurrogateStream>>command: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>command: (in category 'as yet unclassified') ----- command: aString "Overridden by HtmlFileStream to append commands directly without translation. 4/5/96 tk" "We ignore any HTML commands. Do nothing"!
Item was changed: + ----- Method: GZipSurrogateStream>>cr (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>cr (in category 'as yet unclassified') ----- cr
self bufferStream cr!
Item was changed: + ----- Method: GZipSurrogateStream>>fileOutClass:andObject: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>fileOutClass:andObject: (in category 'as yet unclassified') ----- fileOutClass: extraClass andObject: theObject "Write a file that has both the source code for the named class and an object as bits. Any instance-specific object will get its class written automatically."
| class srefStream |
self timeStamp.
extraClass ifNotNil: [ class := extraClass. "A specific class the user wants written" class sharedPools size > 0 ifTrue: [ class shouldFileOutPools ifTrue: [class fileOutSharedPoolsOn: self] ]. class fileOutOn: self moveSource: false toFile: 0 ].
"Append the object's raw data" srefStream := SmartRefStream on: self. srefStream nextPut: theObject. "and all subobjects" srefStream close. "also closes me - well it thinks it does, anyway" !
Item was changed: + ----- Method: GZipSurrogateStream>>flushBuffer (in category 'private') ----- - ----- Method: GZipSurrogateStream>>flushBuffer (in category 'as yet unclassified') ----- flushBuffer
| data | bufferStream ifNil: [^self]. data := bufferStream contents asByteArray. gZipStream nextPutAll: data. positionThusFar := positionThusFar + data size. bufferStream := nil. !
Item was changed: + ----- Method: GZipSurrogateStream>>header (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>header (in category 'as yet unclassified') ----- header
"ignore"!
Item was changed: + ----- Method: GZipSurrogateStream>>newFileNamed:inDirectory: (in category 'private') ----- - ----- Method: GZipSurrogateStream>>newFileNamed:inDirectory: (in category 'as yet unclassified') ----- newFileNamed: fName inDirectory: aDirectory
positionThusFar := 0. zippedFileStream := aDirectory newFileNamed: fName. zippedFileStream binary; setFileTypeToObject. "Type and Creator not to be text, so can be enclosed in an email" gZipStream := GZipWriteStream on: zippedFileStream. !
Item was changed: + ----- Method: GZipSurrogateStream>>next (in category 'reading') ----- - ----- Method: GZipSurrogateStream>>next (in category 'as yet unclassified') ----- next
^self bufferStream next!
Item was changed: + ----- Method: GZipSurrogateStream>>nextChunkPut: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextChunkPut: (in category 'as yet unclassified') ----- nextChunkPut: aString
self bufferStream nextChunkPut: aString!
Item was changed: + ----- Method: GZipSurrogateStream>>nextInt32Put: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextInt32Put: (in category 'as yet unclassified') ----- nextInt32Put: int32
^self bufferStream nextInt32Put: int32 !
Item was changed: + ----- Method: GZipSurrogateStream>>nextNumber:put: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextNumber:put: (in category 'as yet unclassified') ----- nextNumber: n put: v
^self bufferStream nextNumber: n put: v !
Item was changed: + ----- Method: GZipSurrogateStream>>nextPut: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextPut: (in category 'as yet unclassified') ----- nextPut: aByte
^self bufferStream nextPut: aByte !
Item was changed: + ----- Method: GZipSurrogateStream>>nextPutAll: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextPutAll: (in category 'as yet unclassified') ----- nextPutAll: aString
^aString writeOnGZIPByteStream: self !
Item was changed: + ----- Method: GZipSurrogateStream>>nextPutAllBytes: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextPutAllBytes: (in category 'as yet unclassified') ----- nextPutAllBytes: aString
^self bufferStream nextPutAll: aString !
Item was changed: + ----- Method: GZipSurrogateStream>>nextPutAllWordArray: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextPutAllWordArray: (in category 'as yet unclassified') ----- nextPutAllWordArray: aWordArray
| ba hackwa hackba blt rowsAtATime sourceOrigin rowsRemaining |
self flag: #bob. "do we need to be concerned by bytesPerElement??" ba := nil. rowsAtATime := 2000. "or 8000 bytes" hackwa := Form new hackBits: aWordArray. sourceOrigin := 0@0. [(rowsRemaining := hackwa height - sourceOrigin y) > 0] whileTrue: [ rowsAtATime := rowsAtATime min: rowsRemaining. (ba isNil or: [ba size ~= (rowsAtATime * 4)]) ifTrue: [ ba := ByteArray new: rowsAtATime * 4. hackba := Form new hackBits: ba. blt := (BitBlt toForm: hackba) sourceForm: hackwa. ]. blt combinationRule: Form over; sourceOrigin: sourceOrigin; destX: 0 destY: 0 width: 4 height: rowsAtATime; copyBits. self bufferStream nextPutAll: ba. self flushBuffer. sourceOrigin := sourceOrigin x @ (sourceOrigin y + rowsAtATime). ]. !
Item was changed: + ----- Method: GZipSurrogateStream>>nextStringPut: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextStringPut: (in category 'as yet unclassified') ----- nextStringPut: s "Append the string, s, to the receiver. Only used by DataStream. Max size of 64*256*256*256."
| length | (length := s size) < 192 ifTrue: [self nextPut: length] ifFalse: [self nextPut: (length digitAt: 4)+192. self nextPut: (length digitAt: 3). self nextPut: (length digitAt: 2). self nextPut: (length digitAt: 1)]. self nextPutAll: s. ^s!
Item was changed: + ----- Method: GZipSurrogateStream>>nextWordsPutAll: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>nextWordsPutAll: (in category 'as yet unclassified') ----- nextWordsPutAll: aCollection "Write the argument a word-like object in big endian format on the receiver. May be used to write other than plain word-like objects (such as ColorArray)." ^self nextPutAllWordArray: aCollection!
Item was changed: + ----- Method: GZipSurrogateStream>>originalContents (in category 'reading') ----- - ----- Method: GZipSurrogateStream>>originalContents (in category 'as yet unclassified') ----- originalContents
^'' "used only to determine if we are byte-structured"!
Item was changed: + ----- Method: GZipSurrogateStream>>padToEndWith: (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>padToEndWith: (in category 'as yet unclassified') ----- padToEndWith: aChar "We don't have pages, so we are at the end, and don't need to pad."!
Item was changed: + ----- Method: GZipSurrogateStream>>position (in category 'positionning') ----- - ----- Method: GZipSurrogateStream>>position (in category 'as yet unclassified') ----- position
^self bufferStream position + positionThusFar!
Item was changed: + ----- Method: GZipSurrogateStream>>reallyClose (in category 'open/close') ----- - ----- Method: GZipSurrogateStream>>reallyClose (in category 'as yet unclassified') ----- reallyClose
self flushBuffer. gZipStream close. !
Item was changed: + ----- Method: GZipSurrogateStream>>reopen (in category 'open/close') ----- - ----- Method: GZipSurrogateStream>>reopen (in category 'as yet unclassified') ----- reopen
"ignore"!
Item was changed: + ----- Method: GZipSurrogateStream>>setFileTypeToObject (in category 'properties-setting') ----- - ----- Method: GZipSurrogateStream>>setFileTypeToObject (in category 'as yet unclassified') ----- setFileTypeToObject
"ignore"!
Item was changed: + ----- Method: GZipSurrogateStream>>setToEnd (in category 'positionning') ----- - ----- Method: GZipSurrogateStream>>setToEnd (in category 'as yet unclassified') ----- setToEnd
"ignore"!
Item was changed: + ----- Method: GZipSurrogateStream>>skip: (in category 'positionning') ----- - ----- Method: GZipSurrogateStream>>skip: (in category 'as yet unclassified') ----- skip: aNumber
^self bufferStream skip: aNumber !
Item was changed: + ----- Method: GZipSurrogateStream>>timeStamp (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>timeStamp (in category 'as yet unclassified') ----- timeStamp "Append the current time to the receiver as a String." self bufferStream nextChunkPut: "double string quotes and !!s" (String streamContents: [:s | Smalltalk timeStamp: s]) printString. self bufferStream cr!
Item was changed: + ----- Method: GZipSurrogateStream>>trailer (in category 'writing') ----- - ----- Method: GZipSurrogateStream>>trailer (in category 'as yet unclassified') ----- trailer
"ignore"!
squeak-dev@lists.squeakfoundation.org