The Trunk: Compression-nice.53.mcz

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"!