Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.961.mcz
==================== Summary ====================
Name: Collections-pre.961 Author: pre Time: 10 November 2021, 3:22:38.585616 pm UUID: f3d7c967-3623-5f4b-8166-59aeeeee1600 Ancestors: Collections-eem.960
Recategorizes unclassified or misclassified methods.
=============== Diff against Collections-eem.960 ===============
Item was changed: + ----- Method: Base64MimeConverter class>>decodeInteger: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>decodeInteger: (in category 'as yet unclassified') ----- decodeInteger: mimeString | bytes sum | "Decode the MIME string into an integer of any length"
bytes := (Base64MimeConverter mimeDecodeToBytes: (ReadStream on: mimeString)) contents. sum := 0. bytes reverseDo: [:by | sum := sum * 256 + by]. ^ sum!
Item was changed: + ----- Method: Base64MimeConverter class>>encodeInteger: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>encodeInteger: (in category 'as yet unclassified') ----- encodeInteger: int | strm | "Encode an integer of any length and return the MIME string"
strm := WriteStream on: (ByteArray new: int digitLength). 1 to: int digitLength do: [:ii | strm nextPut: (int digitAt: ii)]. ^ ((self mimeEncode: strm readStream) contents) copyUpTo: $= "remove padding"!
Item was changed: + ----- Method: Base64MimeConverter class>>initialize (in category 'class initialization') ----- - ----- Method: Base64MimeConverter class>>initialize (in category 'as yet unclassified') ----- initialize
FromCharTable := Array new: 256. "nils" ToCharTable := ($A to: $Z) , ($a to: $z) , ($0 to: $9) , '+/'. ToCharTable keysAndValuesDo: [:ind :char | FromCharTable at: char asciiValue + 1 put: ind - 1].!
Item was changed: + ----- Method: Base64MimeConverter class>>mimeDecodeToBytes: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeDecodeToBytes: (in category 'as yet unclassified') ----- mimeDecodeToBytes: aStream "Return a ReadStream of the original ByteArray. aStream has only 65 innocuous character values. aStream is not binary. (See class comment). 4 bytes in aStream goes to 3 bytes in output."
| me | aStream position: 0. me := self new mimeStream: aStream. me dataStream: (WriteStream on: (ByteArray new: aStream size * 3 // 4)). me mimeDecodeToByteArray. ^ me dataStream readStream!
Item was changed: + ----- Method: Base64MimeConverter class>>mimeDecodeToChars: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeDecodeToChars: (in category 'as yet unclassified') ----- mimeDecodeToChars: aStream "Return a ReadWriteStream of the original String. aStream has only 65 innocuous character values. It is not binary. (See class comment). 4 bytes in aStream goes to 3 bytes in output."
| me | aStream position: 0. me := self new mimeStream: aStream. me dataStream: (WriteStream on: (String new: aStream size * 3 // 4)). me mimeDecode. ^ me dataStream readStream!
Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode: (in category 'as yet unclassified') ----- mimeEncode: aStream "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." ^self mimeEncode: aStream multiLine: true atStart: true!
Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode:multiLine: (in category 'convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode:multiLine: (in category 'as yet unclassified') ----- mimeEncode: aStream multiLine: aBool "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output."
^self mimeEncode: aStream multiLine: aBool atStart: true!
Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncode:multiLine:atStart: (in category 'private - convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncode:multiLine:atStart: (in category 'as yet unclassified') ----- mimeEncode: aStream multiLine: aBool atStart: resetInput "Return a ReadStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output."
| me | resetInput ifTrue:[aStream position: 0]. me := self new dataStream: aStream. me multiLine: aBool. me mimeStream: (WriteStream on: (String new: aStream size + 20 * 4 // 3)). me mimeEncode. ^ me mimeStream readStream!
Item was changed: + ----- Method: Base64MimeConverter class>>mimeEncodeContinue: (in category 'private - convenience') ----- - ----- Method: Base64MimeConverter class>>mimeEncodeContinue: (in category 'as yet unclassified') ----- mimeEncodeContinue: aStream "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." ^self mimeEncode: aStream multiLine: true atStart: false!
Item was changed: + ----- Method: Bit7MimeConverter>>mimeDecode (in category 'conversion') ----- - ----- Method: Bit7MimeConverter>>mimeDecode (in category 'as yet unclassified') ----- mimeDecode
dataStream nextPutAll: mimeStream upToEnd. ^ dataStream!
Item was changed: + ----- Method: Bit7MimeConverter>>mimeEncode (in category 'conversion') ----- - ----- Method: Bit7MimeConverter>>mimeEncode (in category 'as yet unclassified') ----- mimeEncode
| character | [dataStream atEnd] whileFalse: [ character := dataStream next. self assert: character asciiValue < 128. mimeStream nextPut: character]. ^ mimeStream!
Item was changed: + ----- Method: Generator class>>on: (in category 'instance creation') ----- - ----- Method: Generator class>>on: (in category 'instance-creation') ----- on: aBlock ^ self basicNew initializeOn: aBlock!
Item was changed: + ----- Method: NullMimeConverter>>mimeDecode (in category 'conversion') ----- - ----- Method: NullMimeConverter>>mimeDecode (in category 'as yet unclassified') ----- mimeDecode
dataStream nextPutAll: mimeStream upToEnd. ^ dataStream!
Item was changed: + ----- Method: NullMimeConverter>>mimeEncode (in category 'conversion') ----- - ----- Method: NullMimeConverter>>mimeEncode (in category 'as yet unclassified') ----- mimeEncode
mimeStream nextPutAll: dataStream upToEnd. ^ mimeStream !
Item was changed: + ----- Method: QuotedPrintableMimeConverter>>encodeChar:to: (in category 'private - encoding') ----- - ----- Method: QuotedPrintableMimeConverter>>encodeChar:to: (in category 'as yet unclassified') ----- encodeChar: aChar to: aStream
(self conversionNeededFor: aChar) ifFalse: [aStream nextPut: aChar] ifTrue: [aStream nextPut: $=; nextPut: (Character digitValue: aChar asciiValue // 16); nextPut: (Character digitValue: aChar asciiValue \ 16)]. !
Item was changed: + ----- Method: QuotedPrintableMimeConverter>>reservedCharacters (in category 'private - encoding') ----- - ----- Method: QuotedPrintableMimeConverter>>reservedCharacters (in category 'as yet unclassified') ----- reservedCharacters
^ '=' !
Item was changed: + ----- Method: Stream>>sleep (in category 'file directory') ----- - ----- Method: Stream>>sleep (in category 'as yet unclassified') ----- sleep
"an FTP-based stream might close the connection here"!
packages@lists.squeakfoundation.org