Packages April 2018

packages@lists.squeakfoundation.org

1 participants
86 discussions

The Trunk: Tools-eem.809.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.809.mcz ==================== Summary ==================== Name: Tools-eem.809 Author: eem Time: 30 April 2018, 1:24:43.021109 pm UUID: a6381b1f-8230-4287-90f2-024d524e146d Ancestors: Tools-cmm.808 Merge inbox submissions Name: Tools-LM.808 Author: LM Time: 28 April 2018, 4:16:15.825505 pm UUID: 44402b15-5903-4ba6-87eb-544389e25886 Ancestors: Tools-cmm.807 Added the ability to copy a bug report to the clipboard by right clicking on the stack trace in the Debugger and selecting "bug report to clipboard". This feature is added as an alternative to the "mail out bug report" feature, in the case that the bug report is not meant to be sent as an email, but rather distributed in a different way (for example via Github issues). It should make it easier for users to report bugs in detail and for developers to diagnose the issue. Name: Tools-jr.809 Author: jr Time: 29 April 2018, 7:26:21.629471 pm UUID: 95b32bbc-8dd4-bf49-8226-b727ef91e4de Ancestors: Tools-cmm.808 Fix small glitch in MessageSet initialization =============== Diff against Tools-cmm.808 =============== Item was added: + ----- Method: Debugger>>copyBugReportToClipboard (in category 'context stack menu') ----- + copyBugReportToClipboard + + | messageStream | + messageStream := WriteStream on: (String new: 1500). + self interruptedContext errorReportOn: messageStream. + Clipboard clipboardText: messageStream contents.! Item was changed: ----- Method: Debugger>>mainContextStackMenu: (in category 'context stack menu') ----- mainContextStackMenu: aMenu "Set up the menu appropriately for the context-stack-list, unshifted" <contextStackMenuShifted: false> ^ aMenu addList: #( ('fullStack (f)' fullStack) ('restart (r)' restart) ('proceed (p)' proceed) ('step (t)' doStep) ('step through (T)' stepIntoBlock) ('send (e)' send) ('where (w)' where) ('peel to first like this' peelToFirst) - ('return entered value' returnValue) - ('toggle break on entry' toggleBreakOnEntry) ('senders of (n)' browseSendersOfMessages) ('implementors of (m)' browseMessages) ('inheritance (i)' methodHierarchy) - ('versions (v)' browseVersions) - ('references (r)' browseVariableReferences) ('assignments (a)' browseVariableAssignments) - ('class refs (N)' browseClassRefs) ('browse full (b)' browseMethodFull) ('file out ' fileOutMessage) - + ('mail out bug report' mailOutBugReport) + ('bug report to clipboard' copyBugReportToClipboard)); - ('mail out bug report' mailOutBugReport)); yourself ! Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses. Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code." messageList := OrderedCollection new. anArray do: [:each | each isMethodReference ifTrue: [messageList addLast: each] ifFalse: [MessageSet parse: each toClassAndSelector: [ :class :sel | class ifNotNil: [ messageList addLast: ( + MethodReference - MethodReference new class: class selector: sel)] ]]]. "Unify labels if wanted." self class useUnifiedMessageLabels ifTrue: [ messageList do: [:each | | cls | cls := each actualClass. each stringVersion: (cls ifNil: [each asString] ifNotNil: [cls isUniClass ifTrue: [cls typicalInstanceName, ' ', each selector] ifFalse: [cls name , ' ' , each selector , ' {' , ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' , ' {', cls category, '}']])]]. messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. contents := ''!

1 0

The Trunk: 60Deprecated-pre.17.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Patrick Rein uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-pre.17.mcz ==================== Summary ==================== Name: 60Deprecated-pre.17 Author: pre Time: 30 April 2018, 3:50:18.869101 pm UUID: 9ef3f0f2-c608-0c49-bcf6-5d199beb2735 Ancestors: 60Deprecated-mt.16 Deprecates the RFC2047 class as the name is too formal. It is replaced by the QEncoding converter. =============== Diff against 60Deprecated-mt.16 =============== Item was changed: SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! SystemOrganization addCategory: #'60Deprecated-System-Support'! + SystemOrganization addCategory: #'60Deprecated-Collections-Streams'! SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'! Item was added: + QEncodingMimeConverter subclass: #RFC2047MimeConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: '60Deprecated-Collections-Streams'!

1 0

The Trunk: Collections-pre.791.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.791.mcz ==================== Summary ==================== Name: Collections-pre.791 Author: pre Time: 30 April 2018, 3:49:17.014101 pm UUID: f5f76ffb-064c-6e4e-a1ac-c660d0e1fb57 Ancestors: Collections-pre.790 Deprecates the RFC2047 class as the name is too formal. It is replaced by the QEncoding converter. =============== Diff against Collections-pre.790 =============== Item was removed: - QuotedPrintableMimeConverter subclass: #RFC2047MimeConverter - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Collections-Streams'! - - !RFC2047MimeConverter commentStamp: 'pre 4/30/2018 12:13' prior: 0! - I do q format MIME decoding as specified in RFC 2047 ""MIME Part Three: Message Header Extensions for Non-ASCII Text". See String>>decodeMimeHeader! Item was removed: - ----- Method: RFC2047MimeConverter>>encodeChar:to: (in category 'private-encoding') ----- - encodeChar: aChar to: aStream - - aChar = Character space - ifTrue: [^ aStream nextPut: $_]. - ^ super encodeChar: aChar to: aStream! Item was removed: - ----- Method: RFC2047MimeConverter>>encodeWord: (in category 'private-encoding') ----- - encodeWord: aString - - (aString allSatisfy: [:c | c asciiValue < 128]) - ifTrue: [^ aString]. - ^ String streamContents: [:stream | - stream nextPutAll: '=?iso-8859-1?Q?'. - aString do: [:c | self encodeChar: c to: stream]. - stream nextPutAll: '?=']! Item was removed: - ----- Method: RFC2047MimeConverter>>isStructuredField: (in category 'private-encoding') ----- - isStructuredField: aString - - | fName | - fName := aString copyUpTo: $:. - ('Resent' sameAs: (fName copyUpTo: $-)) - ifTrue: [fName := fName copyFrom: 8 to: fName size]. - ^#('Sender' 'From' 'Reply-To' 'To' 'cc' 'bcc') anySatisfy: [:each | fName sameAs: each]! Item was removed: - ----- Method: RFC2047MimeConverter>>mimeDecode (in category 'conversion') ----- - mimeDecode - "Do conversion reading from mimeStream writing to dataStream. See String>>decodeMimeHeader" - - | c | - [mimeStream atEnd] whileFalse: [ - c := mimeStream next. - c = $= - ifTrue: [c := Character value: mimeStream next digitValue * 16 - + mimeStream next digitValue] - ifFalse: [c = $_ ifTrue: [c := $ ]]. - dataStream nextPut: c]. - ^ dataStream! Item was removed: - ----- Method: RFC2047MimeConverter>>mimeEncode (in category 'conversion') ----- - mimeEncode - "Do conversion reading from dataStream writing to mimeStream. Break long lines and escape non-7bit chars." - - | word pos wasGood isGood max | - true ifTrue: [mimeStream nextPutAll: dataStream upToEnd]. - pos := 0. - max := 72. - wasGood := true. - [dataStream atEnd] whileFalse: [ - word := self readWord. - isGood := word allSatisfy: [:c | c asciiValue < 128]. - wasGood & isGood ifTrue: [ - pos + word size < max - ifTrue: [dataStream nextPutAll: word. - pos := pos + word size] - ifFalse: [] - ] - ]. - ^ mimeStream! Item was removed: - ----- Method: RFC2047MimeConverter>>readWord (in category 'private-encoding') ----- - readWord - - | strm | - strm := WriteStream on: (String new: 20) - dataStream skipSeparators. - [dataStream atEnd] whileFalse: - [ | c | - c := dataStream next. - strm nextPut: c. - c isSeparator ifTrue: [^ strm contents]]. - ^ strm contents! Item was removed: - ----- Method: RFC2047MimeConverter>>reservedCharacters (in category 'private-encoding') ----- - reservedCharacters - - ^ '?=_' !

1 0

The Trunk: Network-pre.222.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.222.mcz ==================== Summary ==================== Name: Network-pre.222 Author: pre Time: 30 April 2018, 3:44:19.058101 pm UUID: 0160ce46-5d69-ff40-ae56-15d31d9b923e Ancestors: Network-topa.221 Updates mail code to use the new q encoding converter =============== Diff against Network-topa.221 =============== Item was changed: ----- Method: MIMEHeaderValue>>asHeaderValue (in category 'printing') ----- asHeaderValue | strm | strm := WriteStream on: (String new: 20). strm nextPutAll: mainValue. parameters associationsDo: [:e | strm nextPut: $; ; nextPutAll: e key; nextPutAll: '='; nextPutAll: e value]. + ^ QEncodingMimeConverter mimeEncode: strm contents! - ^ strm contents! Item was changed: ----- Method: MailMessage>>canonicalFields (in category 'fields') ----- canonicalFields "Break long header fields and escape those containing high-ascii characters according to RFC2047" self rewriteFields: [ :fName :fValue | (fName size + fValue size < 72 and: [fValue allSatisfy: [:c | c asciiValue <= 128]]) + ifFalse: [QEncodingMimeConverter mimeEncode: fName, ': ', fValue]] - ifFalse: [RFC2047MimeConverter mimeEncode: fName, ': ', fValue]] append: []. !

1 0

The Trunk: CollectionsTests-pre.289.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.289.mcz ==================== Summary ==================== Name: CollectionsTests-pre.289 Author: pre Time: 30 April 2018, 3:43:01.993101 pm UUID: 46cee9a7-0d7e-ab45-9dea-7b783e5992d0 Ancestors: CollectionsTests-pre.288 Adds test cases for q format and categorizes test methods for the quoted printable mime converter. =============== Diff against CollectionsTests-pre.288 =============== Item was added: + TestCase subclass: #QFormatMimeConverterTest + instanceVariableNames: 'message' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Streams'! Item was added: + ----- Method: QFormatMimeConverterTest>>setUp (in category 'running') ----- + setUp + message := 'Hü Thörä!!' readStream. + ! Item was added: + ----- Method: QFormatMimeConverterTest>>testDecode (in category 'running') ----- + testDecode + + | encodedString decodedString | + encodedString := '=E0'. + decodedString := QEncodingMimeConverter mimeDecode: encodedString as: WideString. + self assert: 'à' equals: decodedString. + + encodedString := 'H=FC_Th=F6r=E4!!'. + decodedString := QEncodingMimeConverter mimeDecode: encodedString as: WideString. + self assert: 'Hü Thörä!!' equals: decodedString. + + encodedString := 'H=FC=20Th=F6r=E4!!'. + decodedString := QEncodingMimeConverter mimeDecode: encodedString as: WideString. + self assert: 'Hü Thörä!!' equals: decodedString.! Item was added: + ----- Method: QFormatMimeConverterTest>>testEncodeSimpleString (in category 'running') ----- + testEncodeSimpleString + + | encodedString | + encodedString := QEncodingMimeConverter mimeEncode: message. + self assert: '=?UTF-8?Q?H=C3=BC?= =?UTF-8?Q?Th=C3=B6r=C3=A4!!?=' equals: encodedString. + ! Item was added: + ----- Method: QFormatMimeConverterTest>>testEncodeSimpleStringWithQuestionMark (in category 'running') ----- + testEncodeSimpleStringWithQuestionMark + + | encodedString | + encodedString := QEncodingMimeConverter mimeEncode: 'Is üt?'. + self assert: 'Is =?UTF-8?Q?=C3=BCt=3F?=' equals: encodedString. + ! Item was added: + ----- Method: QFormatMimeConverterTest>>testRoundtrip (in category 'running') ----- + testRoundtrip + + | result start | + start := 'Is üt?'. + result := ((QEncodingMimeConverter mimeEncode: start) as: String) decodeMimeHeader. + self assert: start equals: result. + ! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>setUp (in category 'running') ----- - ----- Method: QuotedPrintableMimeConverterTest>>setUp (in category 'as yet unclassified') ----- setUp message := 'Hü Thörä!!' readStream. ! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>testDecode (in category 'tests') ----- - ----- Method: QuotedPrintableMimeConverterTest>>testDecode (in category 'as yet unclassified') ----- testDecode | encodedString decodedString | encodedString := '=E0'. decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString. self assert: 'à' equals: decodedString. encodedString := 'H=FC Th=F6r=E4!!'. decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString. + self assert: 'Hü Thörä!!' equals: decodedString.! - self assert: 'Hü Thörä!!' equals: decodedString. - - ! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>testDecodeCrLfToCr (in category 'tests') ----- - ----- Method: QuotedPrintableMimeConverterTest>>testDecodeCrLfToCr (in category 'as yet unclassified') ----- testDecodeCrLfToCr | encodedString decodedString targetString | encodedString := ((WriteStream on: '') << 'a'; crlf; << 'b') contents. decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString. targetString := encodedString := ((WriteStream on: '') << 'a'; cr; << 'b') contents. self assert: targetString equals: decodedString.! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>testDecodeMultiline (in category 'tests') ----- - ----- Method: QuotedPrintableMimeConverterTest>>testDecodeMultiline (in category 'as yet unclassified') ----- testDecodeMultiline | encodedString decodedString | encodedString := 'A multiline = encoded text which isn''t'. decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString. self assert: 'A multiline encoded text which isn''t' equals: decodedString. ! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodeEqualSign (in category 'tests') ----- - ----- Method: QuotedPrintableMimeConverterTest>>testEncodeEqualSign (in category 'as yet unclassified') ----- testEncodeEqualSign | encodedString | encodedString := QuotedPrintableMimeConverter mimeEncode: 'e=mc2'. self assert: 'e=3Dmc2' equals: encodedString. ! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodeMultilineString (in category 'tests') ----- - ----- Method: QuotedPrintableMimeConverterTest>>testEncodeMultilineString (in category 'as yet unclassified') ----- testEncodeMultilineString | encodedString sourceString targetString | sourceString := 'a multi- line string'. encodedString := QuotedPrintableMimeConverter mimeEncode: sourceString. targetString := 'a multi-' , String crlf , 'line string'. self assert: targetString equals: encodedString.! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodeSimpleString (in category 'tests') ----- - ----- Method: QuotedPrintableMimeConverterTest>>testEncodeSimpleString (in category 'as yet unclassified') ----- testEncodeSimpleString | encodedString | encodedString := QuotedPrintableMimeConverter mimeEncode: message. self assert: 'H=FC Th=F6r=E4!!' equals: encodedString. ! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodeWhitespace (in category 'tests') ----- - ----- Method: QuotedPrintableMimeConverterTest>>testEncodeWhitespace (in category 'as yet unclassified') ----- testEncodeWhitespace | encodedString sourceString targetString | sourceString := 'a string with all the whitespace'. encodedString := QuotedPrintableMimeConverter mimeEncode: sourceString. targetString := 'a string with all the whitespace'. self assert: targetString equals: encodedString.! Item was changed: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodingBreaksUpLongLInes (in category 'tests') ----- - ----- Method: QuotedPrintableMimeConverterTest>>testEncodingBreaksUpLongLInes (in category 'as yet unclassified') ----- testEncodingBreaksUpLongLInes | encodedString | encodedString := QuotedPrintableMimeConverter mimeEncode: 'This is a very long message which has more than 76 characters due to this additional part of the sentence.'. self assert: 'This is a very long message which has more than 76 characters due to this=', String crlf , ' additional part of the sentence.' equals: encodedString. !

1 0

The Trunk: Collections-pre.790.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.790.mcz ==================== Summary ==================== Name: Collections-pre.790 Author: pre Time: 30 April 2018, 3:40:58.440101 pm UUID: 24dbc4a0-d944-a942-a1d5-d8ef264cac5d Ancestors: Collections-pre.789 Updates the q encoding converter to be able to encode header values. Beyond this there seems to be an issue regarding the separation of concerns between String and this converter. Currently the decoding happens mostly in String while the encoding happens in the MimeConverter. =============== Diff against Collections-pre.789 =============== Item was added: + QuotedPrintableMimeConverter subclass: #QEncodingMimeConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Streams'! + + !QEncodingMimeConverter commentStamp: 'pre 4/30/2018 12:13' prior: 0! + I do q format MIME decoding as specified in RFC 2047 ""MIME Part Three: Message Header Extensions for Non-ASCII Text". See String>>decodeMimeHeader! Item was added: + ----- Method: QEncodingMimeConverter>>encodeChar:to: (in category 'private-encoding') ----- + encodeChar: aChar to: aStream + + aChar = Character space + ifTrue: [^ aStream nextPut: $_]. + ^ super encodeChar: aChar to: aStream! Item was added: + ----- Method: QEncodingMimeConverter>>encodeWord: (in category 'private-encoding') ----- + encodeWord: aString + + | characterEncodedString | + (aString noneSatisfy: [:c | self conversionNeededFor: c]) + ifTrue: [^ aString]. + + characterEncodedString := aString squeakToUtf8. + + ^ String streamContents: [:stream | + stream nextPutAll: '=?UTF-8?Q?'. + characterEncodedString do: [:c | self encodeChar: c to: stream]. + stream nextPutAll: '?=']! Item was added: + ----- Method: QEncodingMimeConverter>>mimeDecode (in category 'conversion') ----- + mimeDecode + "Do conversion reading from mimeStream writing to dataStream. See String>>decodeMimeHeader for the character set handling." + + | c | + [mimeStream atEnd] whileFalse: [ + c := mimeStream next. + c = $= + ifTrue: [c := Character value: mimeStream next digitValue * 16 + + mimeStream next digitValue] + ifFalse: [c = $_ ifTrue: [c := $ ]]. + dataStream nextPut: c]. + ^ dataStream! Item was added: + ----- Method: QEncodingMimeConverter>>mimeEncode (in category 'conversion') ----- + mimeEncode + "Do conversion reading from dataStream writing to mimeStream. Break long lines and escape non-7bit chars." + + | currentWord encodedWord | + + [dataStream atEnd] whileFalse: [ + self readUpToWordInto: mimeStream. + currentWord := self readWord. + encodedWord := self encodeWord: currentWord. + mimeStream nextPutAll: encodedWord]. + + ^ mimeStream! Item was added: + ----- Method: QEncodingMimeConverter>>readUpToWordInto: (in category 'private-encoding') ----- + readUpToWordInto: aStream + + | currentCharacter | + [dataStream atEnd] whileFalse: + [currentCharacter := dataStream peek. + currentCharacter isSeparator + ifTrue: [aStream nextPut: currentCharacter. + dataStream next] + ifFalse: [^ true]]! Item was added: + ----- Method: QEncodingMimeConverter>>readWord (in category 'private-encoding') ----- + readWord + + | strm | + strm := WriteStream on: (String new: 20). + [dataStream atEnd] whileFalse: [ + dataStream peek isSeparator + ifTrue: [^ strm contents] + ifFalse: [strm nextPut: dataStream next]]. + ^ strm contents! Item was added: + ----- Method: QEncodingMimeConverter>>reservedCharacters (in category 'private-encoding') ----- + reservedCharacters + + ^ '?=_ ' ! Item was changed: ----- 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)]. + + - aStream nextPut: $=; - nextPut: (Character digitValue: aChar asciiValue // 16); - nextPut: (Character digitValue: aChar asciiValue \\ 16) ! Item was changed: ----- Method: QuotedPrintableMimeConverter>>mimeEncode (in category 'conversion') ----- mimeEncode "Do conversion reading from dataStream writing to mimeStream. Break long lines and escape non-7bit chars." | currentCharacter line lineStream linePosition | currentCharacter := nil. [(line := dataStream nextLine) isNil] whileFalse: [ lineStream := ReadStream on: line. linePosition := 0. [lineStream atEnd] whileFalse: [ + currentCharacter := lineStream next. + self encodeChar: currentCharacter to: mimeStream. - (self conversionNeededFor: (currentCharacter := lineStream next)) - ifFalse: [mimeStream nextPut: currentCharacter] - ifTrue: [self encodeChar: currentCharacter to: mimeStream]. linePosition := linePosition + 1. linePosition = 73 ifTrue: [mimeStream nextPut: $=; crlf. linePosition := 0]]. dataStream atEnd ifFalse: [mimeStream crlf]]. ^ mimeStream! Item was changed: ----- Method: String>>decodeMimeHeader (in category 'internet') ----- decodeMimeHeader "See RFC 2047, MIME Part Three: Message Header Extension for Non-ASCII Text and RFC 1342. Text containing non-ASCII characters is encoded by the sequence =?character-set?encoding?encoded-text?= Encoding is Q (quoted printable) or B (Base64), handled by + Base64MimeConverter / QEncodingMimeConverter. - Base64MimeConverter / RFC2047MimeConverter. Thanks to Yokokawa-san, it works in m17n package. Try the following: '=?ISO-2022-JP?B?U1dJS0lQT1AvGyRCPUJDKyVpJXMlQRsoQi8=?= =?ISO-2022-JP?B?GyRCJVElRiUjJSobKEIoUGF0aW8p?=' decodeMimeHeader. " | input output temp charset decoder encodedStream encoding pos | input := ReadStream on: self. output := WriteStream on: String new. [output nextPutAll: (input upTo: $=). "ASCII Text" input atEnd] whileFalse: [(temp := input next) = $? ifTrue: [charset := input upTo: $?. encoding := (input upTo: $?) asUppercase. temp := input upTo: $?. input next. "Skip final =" (charset isNil or: [charset size = 0]) ifTrue: [charset := 'LATIN-1']. encodedStream := WriteStream on: String new. decoder := encoding = 'B' ifTrue: [Base64MimeConverter new] + ifFalse: [QEncodingMimeConverter new]. - ifFalse: [RFC2047MimeConverter new]. decoder mimeStream: (ReadStream on: temp); dataStream: encodedStream; mimeDecode. output nextPutAll: (MultiByteBinaryOrTextStream with: encodedStream contents encoding: charset) contents. pos := input position. input skipSeparators. "Delete spaces if followed by =" input peek = $= ifFalse: [input position: pos]] ifFalse: [output nextPut: $=; nextPut: temp]]. ^ output contents!

1 0

The Trunk: Collections-pre.789.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.789.mcz ==================== Summary ==================== Name: Collections-pre.789 Author: pre Time: 30 April 2018, 1:25:47.613117 pm UUID: addaf36c-be0c-444f-bc50-074f2e57533e Ancestors: Collections-pre.788 Implements the rusty and dead mimeEncode method for QuotedPrintableMimeConverter. Refactors some of the RFC2047 code. =============== Diff against Collections-pre.788 =============== Item was changed: MimeConverter subclass: #QuotedPrintableMimeConverter instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Streams'! + !QuotedPrintableMimeConverter commentStamp: 'pre 4/30/2018 12:13' prior: 0! + I do "quoted printable" MIME decoding as specified in RFC 2045 "MIME Part One: Format of Internet Message Bodies". - !QuotedPrintableMimeConverter commentStamp: '<historical>' prior: 0! - I do quoted printable MIME decoding as specified in RFC 2045 "MIME Part One: Format of Internet Message Bodies". Short version of RFC2045, Sect. 6.7: (1) Any octet, except a CR or LF that is part of a CRLF line break of the canonical (standard) form of the data being encoded, may be represented by an "=" followed by a two digit hexadecimal representation of the octet's value. [...] (2) Octets with decimal values of 33 through 60 inclusive, and 62 through 126, inclusive, MAY be represented as the US-ASCII characters which correspond to those octets [...]. (3) Octets with values of 9 and 32 MAY be represented as US-ASCII TAB (HT) and SPACE characters, respectively, but MUST NOT be so represented at the end of an encoded line. [...] (4) A line break in a text body, represented as a CRLF sequence in the text canonical form, must be represented by a (RFC 822) line break, which is also a CRLF sequence, in the Quoted-Printable encoding. [...] (5) The Quoted-Printable encoding REQUIRES that encoded lines be no more than 76 characters long. If longer lines are to be encoded with the Quoted-Printable encoding, "soft" line breaks must be used. An equal sign as the last character on a encoded line indicates such a non-significant ("soft") line break in the encoded text. + --bf 11/27/1998 16:50 + (2) simply states that 33 to 126 can be represented by US-ASCII except of the equal-sign itself + + --pre! - --bf 11/27/1998 16:50! Item was added: + ----- Method: QuotedPrintableMimeConverter>>conversionNeededFor: (in category 'conversion') ----- + conversionNeededFor: aCharacter + + ^ ((aCharacter asciiValue between: 32 and: 127) not and: [aCharacter asciiValue ~= 9]) + or: [self reservedCharacters includes: aCharacter]! Item was added: + ----- Method: QuotedPrintableMimeConverter>>encodeChar:to: (in category 'as yet unclassified') ----- + encodeChar: aChar to: aStream + + aStream nextPut: $=; + nextPut: (Character digitValue: aChar asciiValue // 16); + nextPut: (Character digitValue: aChar asciiValue \\ 16) + ! Item was changed: ----- Method: QuotedPrintableMimeConverter>>mimeDecode (in category 'conversion') ----- mimeDecode "Do conversion reading from mimeStream writing to dataStream" + | line lineStream c1 v1 c2 v2 | - | line s c1 v1 c2 v2 | [(line := mimeStream nextLine) isNil] whileFalse: [ line := line withoutTrailingBlanks. + line + ifEmpty: [dataStream cr] + ifNotEmpty: [ + lineStream := ReadStream on: line. + [dataStream nextPutAll: (lineStream upTo: $=). + lineStream atEnd] whileFalse: [ + c1 := lineStream next. v1 := c1 digitValue. + ((v1 between: 0 and: 15) and: [lineStream atEnd not]) - line size = 0 - ifTrue: [dataStream cr] - ifFalse: [ - s := ReadStream on: line. - [dataStream nextPutAll: (s upTo: $=). - s atEnd] whileFalse: [ - c1 := s next. v1 := c1 digitValue. - ((v1 between: 0 and: 15) and: [s atEnd not]) ifFalse: [dataStream nextPut: $=; nextPut: c1] + ifTrue: [c2 := lineStream next. v2 := c2 digitValue. - ifTrue: [c2 := s next. v2 := c2 digitValue. (v2 between: 0 and: 15) ifFalse: [dataStream nextPut: $=; nextPut: c1; nextPut: c2] ifTrue: [dataStream nextPut: (Character value: v1 * 16 + v2)]]]. + (line last ~= $= and: [mimeStream atEnd not]) ifTrue: [dataStream cr]]]. - line last = $= ifFalse: [dataStream cr]]]. ^ dataStream! Item was added: + ----- Method: QuotedPrintableMimeConverter>>mimeEncode (in category 'conversion') ----- + mimeEncode + "Do conversion reading from dataStream writing to mimeStream. Break long lines and escape non-7bit chars." + + | currentCharacter line lineStream linePosition | + currentCharacter := nil. + [(line := dataStream nextLine) isNil] whileFalse: [ + lineStream := ReadStream on: line. + linePosition := 0. + + [lineStream atEnd] whileFalse: [ + (self conversionNeededFor: (currentCharacter := lineStream next)) + ifFalse: [mimeStream nextPut: currentCharacter] + ifTrue: [self encodeChar: currentCharacter to: mimeStream]. + linePosition := linePosition + 1. + linePosition = 73 ifTrue: [mimeStream nextPut: $=; crlf. linePosition := 0]]. + dataStream atEnd ifFalse: [mimeStream crlf]]. + ^ mimeStream! Item was added: + ----- Method: QuotedPrintableMimeConverter>>reservedCharacters (in category 'as yet unclassified') ----- + reservedCharacters + + ^ '=' ! Item was changed: QuotedPrintableMimeConverter subclass: #RFC2047MimeConverter instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Streams'! + !RFC2047MimeConverter commentStamp: 'pre 4/30/2018 12:13' prior: 0! + I do q format MIME decoding as specified in RFC 2047 ""MIME Part Three: Message Header Extensions for Non-ASCII Text". See String>>decodeMimeHeader! - !RFC2047MimeConverter commentStamp: '<historical>' prior: 0! - I do quoted printable MIME decoding as specified in RFC 2047 ""MIME Part Three: Message Header Extensions for Non-ASCII Text". See String>>decodeMimeHeader! Item was changed: ----- Method: RFC2047MimeConverter>>encodeChar:to: (in category 'private-encoding') ----- encodeChar: aChar to: aStream aChar = Character space ifTrue: [^ aStream nextPut: $_]. + ^ super encodeChar: aChar to: aStream! - ((aChar asciiValue between: 32 and: 127) and: [('?=_' includes: aChar) not]) - ifTrue: [^ aStream nextPut: aChar]. - aStream nextPut: $=; - nextPut: (Character digitValue: aChar asciiValue // 16); - nextPut: (Character digitValue: aChar asciiValue \\ 16) - ! Item was added: + ----- Method: RFC2047MimeConverter>>reservedCharacters (in category 'private-encoding') ----- + reservedCharacters + + ^ '?=_' !

1 0

The Trunk: CollectionsTests-pre.288.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.288.mcz ==================== Summary ==================== Name: CollectionsTests-pre.288 Author: pre Time: 30 April 2018, 1:24:08.916117 pm UUID: fef6fd38-d4b4-2946-82c5-91228cf600d4 Ancestors: CollectionsTests-eem.287 Adds a test for the updated quoted printable converter =============== Diff against CollectionsTests-eem.287 =============== Item was added: + TestCase subclass: #QuotedPrintableMimeConverterTest + instanceVariableNames: 'message' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Streams'! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>setUp (in category 'as yet unclassified') ----- + setUp + message := 'Hü Thörä!!' readStream. + ! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>testDecode (in category 'as yet unclassified') ----- + testDecode + + | encodedString decodedString | + encodedString := '=E0'. + decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString. + self assert: 'à' equals: decodedString. + + encodedString := 'H=FC Th=F6r=E4!!'. + decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString. + self assert: 'Hü Thörä!!' equals: decodedString. + + ! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>testDecodeCrLfToCr (in category 'as yet unclassified') ----- + testDecodeCrLfToCr + + | encodedString decodedString targetString | + encodedString := ((WriteStream on: '') + << 'a'; crlf; << 'b') contents. + decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString. + targetString := encodedString := ((WriteStream on: '') + << 'a'; cr; << 'b') contents. + self assert: targetString equals: decodedString.! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>testDecodeMultiline (in category 'as yet unclassified') ----- + testDecodeMultiline + + | encodedString decodedString | + encodedString := 'A multiline = + encoded text which isn''t'. + decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString. + self assert: 'A multiline encoded text which isn''t' equals: decodedString. + ! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodeEqualSign (in category 'as yet unclassified') ----- + testEncodeEqualSign + + | encodedString | + encodedString := QuotedPrintableMimeConverter mimeEncode: 'e=mc2'. + self assert: 'e=3Dmc2' equals: encodedString. + ! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodeMultilineString (in category 'as yet unclassified') ----- + testEncodeMultilineString + + | encodedString sourceString targetString | + sourceString := 'a multi- + line string'. + encodedString := QuotedPrintableMimeConverter mimeEncode: sourceString. + + targetString := 'a multi-' , String crlf , 'line string'. + self assert: targetString equals: encodedString.! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodeSimpleString (in category 'as yet unclassified') ----- + testEncodeSimpleString + + | encodedString | + encodedString := QuotedPrintableMimeConverter mimeEncode: message. + self assert: 'H=FC Th=F6r=E4!!' equals: encodedString. + ! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodeWhitespace (in category 'as yet unclassified') ----- + testEncodeWhitespace + + | encodedString sourceString targetString | + sourceString := 'a string with all the whitespace'. + encodedString := QuotedPrintableMimeConverter mimeEncode: sourceString. + + targetString := 'a string with all the whitespace'. + self assert: targetString equals: encodedString.! Item was added: + ----- Method: QuotedPrintableMimeConverterTest>>testEncodingBreaksUpLongLInes (in category 'as yet unclassified') ----- + testEncodingBreaksUpLongLInes + + | encodedString | + encodedString := QuotedPrintableMimeConverter mimeEncode: 'This is a very long message which has more than 76 characters due to this additional part of the sentence.'. + self assert: 'This is a very long message which has more than 76 characters due to this=', String crlf , ' additional part of the sentence.' equals: encodedString. + !

1 0

The Trunk: Collections-pre.788.mcz
by commits＠source.squeak.org 30 Apr '18

30 Apr '18

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.788.mcz ==================== Summary ==================== Name: Collections-pre.788 Author: pre Time: 30 April 2018, 11:26:48.275837 am UUID: 1c0f801e-7fa9-3f40-b692-8c673163b377 Ancestors: Collections-bf.787 Adds a Bit7 MIME converter which is kind of essential but was missing from the previous MIME converter addition commit. =============== Diff against Collections-bf.787 =============== Item was added: + MimeConverter subclass: #Bit7MimeConverter + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Collections-Streams'! Item was added: + ----- Method: Bit7MimeConverter>>mimeDecode (in category 'as yet unclassified') ----- + mimeDecode + + dataStream nextPutAll: mimeStream upToEnd. + ^ dataStream! Item was added: + ----- 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!

1 0

The Trunk: Morphic-ul.1422.mcz
by commits＠source.squeak.org 29 Apr '18

29 Apr '18

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1422.mcz ==================== Summary ==================== Name: Morphic-ul.1422 Author: ul Time: 30 April 2018, 1:54:21.620338 am UUID: a07d49d4-9104-468e-b610-86f684c1ad0d Ancestors: Morphic-kfr.1421 - reverted Morphic-tpr.1312's change of SimpleBorder >> #initialize =============== Diff against Morphic-kfr.1421 =============== Item was changed: ----- Method: SimpleBorder>>initialize (in category 'initialize-release') ----- initialize width := 0. + baseColor := color := Color transparent! - - color := Color transparent!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2018