Squeak-dev April 2018

squeak-dev@lists.squeakfoundation.org

47 participants
159 discussions

Two tests failing in trunk but not 5.1
by Tim Johnson 05 May '18

05 May '18

Hi, I ran some tests and found a couple that are failing. I also checked and found these tests don't fail in my 5.1 image. BrowserTest>>#testBuildMessageCategoryBrowserEditString DebuggerExtensionsTest>>#testCollectionsGeneralise I think the first one might actually be a case where a bug was fixed. The test fails because of a timeout, because there is a dialog on-screen which is not returning. Not sure, but the test may be intended to declare that the dialog should appear, and now it is (?). The second one, I don't understand. There is no comment. Image/VM info: Squeak6.0alpha latest update: #17922 Image format 6521 (32 bit) Virtual Machine --------------- C:\Users\tcj\Desktop\squeak.cog.spur_win32x86_201803080952\Squeak.exe Croquet Closure Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.2347] Win32 built on Mar 8 2018 11:08:39 GMT Compiler: 6.4.0 platform sources revision VM: 201803080952 Cheers, Tim

5 11

How do I move a morph from one project to another?
by Chris Cunningham 03 May '18

03 May '18

Hi. I had a progress morph that opened up in one project, and then was stuck (background progress had an issue). I left the progress up and ignored the bug for a bit - I needed to switch to a different project for other work. That other work also opened the system progress morph, and naturally moved the single system progress morph to this other project. I now won't to go back to the original project and work through the bug. Of course, the progress is in the wrong project now - I'd like it back in the project that it is showing the progess for. Is there a magic menu item somewhere that I can send a morph to a specific project? It is a sibling project - the project the morph is in and the project I want to move the morph to are both children of the same 'parent' project. (Of course, I can just cause the progress morph to move by showing more progress - but I'd like to know in general. I can move morphs down into projects - just drag and drop. Not sure how to move them up or over.) -cbc

12 29

The Inbox: Tools-LM.808.mcz
by commits＠source.squeak.org 01 May '18

01 May '18

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-LM.808.mcz ==================== Summary ==================== 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. =============== Diff against Tools-cmm.807 =============== 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 !

6 6

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

30 Apr '18

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-jr.809.mcz ==================== Summary ==================== 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 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 := ''!

4 3

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

Jump to page: