Packages June 2017

packages@lists.squeakfoundation.org

1 participants
66 discussions

The Trunk: Monticello-eem.671.mcz
by commits＠source.squeak.org 23 Jun '17

23 Jun '17

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.671.mcz ==================== Summary ==================== Name: Monticello-eem.671 Author: eem Time: 23 June 2017, 12:00:04.919919 pm UUID: 613ff672-9e8e-4f59-888b-1fa63a0c959c Ancestors: Monticello-nice.670 Reimplement allAncestorsDo:visitedAncestors: using ifAbsentAdd: =============== Diff against Monticello-nice.670 =============== Item was changed: ----- Method: MCAncestry>>allAncestorsDo:visitedAncestors: (in category 'ancestry') ----- allAncestorsDo: aBlock visitedAncestors: visitedAncestors self ancestors do: [ :each | + (visitedAncestors ifAbsentAdd: each) ifTrue: [ - (visitedAncestors addNewElement: each) ifTrue: [ aBlock value: each. each allAncestorsDo: aBlock visitedAncestors: visitedAncestors ] ]!

1 0

The Trunk: Kernel-eem.1108.mcz
by commits＠source.squeak.org 23 Jun '17

23 Jun '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1108.mcz ==================== Summary ==================== Name: Kernel-eem.1108 Author: eem Time: 23 June 2017, 11:35:28.572002 am UUID: dd3439ca-404b-4d0d-bb11-529ed86a96eb Ancestors: Kernel-nice.1107 Implement messagesDo: using ifAbsentAdd: =============== Diff against Kernel-nice.1107 =============== Item was changed: ----- Method: CompiledMethod>>messagesDo: (in category 'scanning') ----- messagesDo: aBlock "Evaluate aBlock exactly once with all the message selectors sent by me." | scanner aSet | self isQuick ifTrue: [ ^self ]. - aSet := nil. scanner := InstructionStream on: self. scanner scanFor: [ :x | | selector | (selector := scanner selectorToSendOrSelf) == scanner ifFalse: [ + ((aSet ifNil: [ aSet := IdentitySet new ]) ifAbsentAdd: selector) ifTrue: [ - ((aSet ifNil: [ aSet := IdentitySet new ]) addNewElement: selector) ifTrue: [ aBlock value: selector ] ]. false "keep scanning" ]!

1 0

The Trunk: CollectionsTests-eem.280.mcz
by commits＠source.squeak.org 23 Jun '17

23 Jun '17

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-eem.280.mcz ==================== Summary ==================== Name: CollectionsTests-eem.280 Author: eem Time: 23 June 2017, 11:34:06.974048 am UUID: 186b3ab6-6f15-41c4-b07d-3c6a335c1236 Ancestors: CollectionsTests-pre.279 Add tests for withoutDuplicates and ifAbsentAdd: =============== Diff against CollectionsTests-pre.279 =============== Item was added: + ----- Method: SequenceableCollectionTest>>testWithoutDuplicates (in category 'tests - copying') ----- + testWithoutDuplicates + + self assert: #(1 3 5 7 9 2 4 6 8 10) + equals: ((1 to: 10 by: 2), (1 to: 10 by: 2), (2 to: 11 by: 2), (2 to: 11 by: 2)) withoutDuplicates! Item was added: + ----- Method: SetTest>>testIfAbsentAdd (in category 'Sunit original tests') ----- + testIfAbsentAdd + | it | + it := 5. + self deny: (empty includes: it). + self assert: (empty ifAbsentAdd: it). + self assert: (empty includes: it). + self deny: (empty ifAbsentAdd: it). + self assert: (empty includes: it)!

1 0

The Trunk: Collections-eem.757.mcz
by commits＠source.squeak.org 23 Jun '17

23 Jun '17

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.757.mcz ==================== Summary ==================== Name: Collections-eem.757 Author: eem Time: 23 June 2017, 11:32:54.271499 am UUID: bdb8992f-4170-46e3-a573-f2bb4cd7a2af Ancestors: Collections-eem.756 Add Set>>ifAbsentAdd: as a better named equivalent of addNewElement:. Reimplement withoutDuplicates using ifAbsentAdd:. Add the obvious Set-specific implementation of addIfNotPresent:. Fix a bug with RunArray>>=; the old code would error if compared against other than a collection. =============== Diff against Collections-eem.756 =============== Item was changed: + ----- Method: RunArray>>= (in category 'comparing') ----- + = anObject + "Test if all my elements are equal to those of anObject" - ----- Method: RunArray>>= (in category 'accessing') ----- - = otherArray - "Test if all my elements are equal to those of otherArray" + ^anObject class == self class + ifTrue: "Faster test between two RunArrays" + [(runs hasEqualElements: anObject runs) + and: [values hasEqualElements: anObject values]] + ifFalse: + [anObject isCollection and: [self hasEqualElements: anObject]]! - (otherArray isMemberOf: RunArray) ifFalse: [^ self hasEqualElements: otherArray]. - - "Faster test between two RunArrays" - ^ (runs hasEqualElements: otherArray runs) - and: [values hasEqualElements: otherArray values]! Item was changed: ----- Method: SequenceableCollection>>withoutDuplicates (in category 'copying') ----- withoutDuplicates "Answer a copy of the receiver that preserves order but eliminates any duplicates." | seen | seen := Set new: self size. + ^self select: [:each| seen ifAbsentAdd: each]! - ^self select: [:each| - (seen includes: each) - ifTrue: [false] - ifFalse: [seen add: each. true]]! Item was added: + ----- Method: Set>>addIfNotPresent: (in category 'adding') ----- + addIfNotPresent: anObject + "Include anObject as one of the receiver's elements, but only if there + is no such element already. Anwser anObject." + + ^self add: anObject! Item was added: + ----- Method: Set>>ifAbsentAdd: (in category 'adding') ----- + ifAbsentAdd: anObject + "Ensure anObject is part of the receiver. Answer whether its membership was newly acquired." + | index | + index := self scanFor: anObject. + (array at: index) ifNil: + [self + atNewIndex: index + put: anObject asSetElement. + ^true]. + ^false!

1 0

The Trunk: MultilingualTests-pre.25.mcz
by commits＠source.squeak.org 20 Jun '17

20 Jun '17

Patrick Rein uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-pre.25.mcz ==================== Summary ==================== Name: MultilingualTests-pre.25 Author: pre Time: 20 June 2017, 7:48:48.189902 am UUID: c40a038c-6884-994b-a1aa-c7cdcddf2805 Ancestors: MultilingualTests-pre.24 Reverts accidentially removed code and merges it with the new version. =============== Diff against MultilingualTests-pre.24 =============== Item was changed: ----- Method: MultiByteFileStreamTest>>testByteTextConverter (in category 'testing') ----- testByteTextConverter + + | byteCharacters converterClasses | + byteCharacters := Character allByteCharacters. - | strings converterClasses | - strings := { - String newFrom: ((0 to: 255) collect: [:e | e asCharacter]). - }. - converterClasses := ByteTextConverter allSubclasses + copyWithoutAll: {ISO8859TextConverter . WinCPTextConverter . MacOSCPTextConverter}. + converterClasses do: [ :converterClass | + | converter stream encoded decoded encoded2 | + converter := converterClass new. + stream := byteCharacters readStream. + "Find bytes that can be decoded by this converter." + encoded := byteCharacters select: [ :e | (converter nextFromStream: stream) notNil ]. + "Decode those bytes." + stream := encoded readStream. + decoded := encoded collect: [ :e | converter nextFromStream: stream ]. + self assert: stream atEnd. + "Re-encode the decoded bytes using #nextPutAll:toStream:, and check if they match the original bytes." + encoded2 := String streamContents: [ :writeStream | + converter nextPutAll: decoded toStream: writeStream ]. + encoded with: encoded2 do: [ :original :reencoded | + self + assert: original charCode = reencoded charCode + description: [ '{1} could not decode or re-encode {2} using #nextPutAll:toStream:. Instead, it yielded {3}.' + format: { + converterClass name. + original charCode. + reencoded charCode } ] ]. + "Re-encode the decoded bytes using #nextPut:toStream:, and check if they match the original bytes." + encoded2 := String streamContents: [ :writeStream | + decoded do: [:e | converter nextPut: e toStream: writeStream ] ]. + encoded with: encoded2 do: [ :original :reencoded | + self + assert: original charCode = reencoded charCode + description: [ '{1} could not decode or re-encode {2} using #nextPut:toStream:. Instead, it yielded {3}.' + format: { + converterClass name. + original charCode. + reencoded charCode } ] ] ]! - copyWithoutAll: {ISO8859TextConverter . WinCPTextConverter . MacOSCPTextConverter}. - converterClasses do: [:converterClass | - strings do: [:string | | converter stream encoded decoded encoded2 | - converter := converterClass new. - stream := string readStream. - encoded := string select: [:e | (converter nextFromStream: stream) notNil]. - stream := encoded readStream. - decoded := encoded collect: [:e | converter nextFromStream: stream]. - self assert: stream atEnd. - stream := String new writeStream. - converter nextPutAll: decoded toStream: stream. - encoded2 := stream contents. - self assert: (encoded2 collect: [:e | e charCode] as: Array) = (encoded collect: [:e | e charCode] as: Array). - stream := String new writeStream. - decoded do: [:e | converter nextPut: e toStream: stream]. - encoded2 := stream contents. - self assert: (encoded2 collect: [:e | e charCode] as: Array) = (encoded collect: [:e | e charCode] as: Array)]]! Item was changed: ----- Method: MultiByteFileStreamTest>>testLineEndConversion (in category 'testing') ----- testLineEndConversion | failures | fileName := 'foolinendconversion.txt'. failures := OrderedCollection new. TextConverter allSubclassesDo: [ :textConverterClass | textConverterClass encodingNames ifNotEmpty: [ #(cr lf crlf) do: [ :lineEndConvention | self testLineEndConvention: lineEndConvention withConverter: textConverterClass ifFail: [ :expectedResult :result | failures add: { textConverterClass. lineEndConvention. expectedResult. result } ] ] ] ]. + self assert: failures isEmpty. + "The code below is here to help you see why those cases fail" + failures do: [ :failure | + self + testLineEndConvention: failure second + withConverter: failure first + ifFail: [ :expectedResult :result | self halt ] ].! - self assert: failures isEmpty!

1 0

The Trunk: GraphicsTests-dtl.44.mcz
by commits＠source.squeak.org 18 Jun '17

18 Jun '17

David T. Lewis uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-dtl.44.mcz ==================== Summary ==================== Name: GraphicsTests-dtl.44 Author: dtl Time: 18 June 2017, 5:11:08.603567 pm UUID: 734db3cd-4822-4133-b706-c3207025e5fb Ancestors: GraphicsTests-dtl.43 Usa a ByteArray literal instead of an Array converted to a ByteArray =============== Diff against GraphicsTests-dtl.43 =============== Item was changed: ----- Method: PNGReadWriterTest>>testNewFromSampleBytes (in category 'tests - decoding') ----- testNewFromSampleBytes "Based on a problem report by Hilaire Fernandes, this fails on 64 bit Spur if a synthesized LargeInteger parameter to Bitmap #at:put: is not normalized prior to calling the primitive. See problem report at http://lists.pharo.org/pipermail/pharo-users_lists.pharo.org/2017-June/0326…" | sampleBytes png form | + sampleBytes := #[137 80 78 71 13 10 26 10 0 0 0 13 73 72 - sampleBytes := #(137 80 78 71 13 10 26 10 0 0 0 13 73 72 68 82 0 0 0 48 0 0 0 48 16 6 0 0 0 7 146 37 196 0 0 0 6 98 75 71 68 255 255 255 255 255 255 9 88 247 220 0 0 0 9 112 72 89 115 0 0 0 72 0 0 0 72 0 70 201 107 62 0 0 1 153 73 68 65 84 120 218 237 155 73 110 195 48 12 69 227 162 183 211 9 180 11 130 220 77 39 208 249 210 77 181 8 81 69 19 39 169 255 109 12 35 137 197 255 105 81 244 144 219 13 0 0 0 0 0 116 16 66 8 33 188 94 214 113 120 99 214 151 111 238 1 115 206 57 231 235 178 54 68 10 238 19 112 58 1 189 1 238 158 16 233 25 255 37 117 224 221 141 215 210 193 158 128 83 140 215 210 181 156 0 26 216 169 139 180 155 210 218 50 184 124 126 74 34 122 245 204 234 101 207 224 41 221 145 150 14 49 67 118 77 132 118 220 98 93 208 168 64 107 172 226 18 63 19 91 194 172 103 132 117 124 106 194 117 132 210 227 215 143 103 109 124 65 173 4 181 4 173 149 128 254 223 121 49 190 160 190 6 212 4 126 22 94 12 163 91 173 241 229 112 219 141 188 51 106 184 223 46 139 162 62 3 164 137 49 198 24 253 117 89 219 241 183 145 181 82 180 94 154 192 47 212 248 247 253 209 45 152 102 205 120 36 130 137 182 193 159 19 5 22 233 53 158 126 31 48 209 54 190 181 15 8 189 247 215 71 141 174 25 127 218 243 137 105 168 17 53 99 164 140 247 154 8 183 119 67 139 177 41 165 148 210 117 209 125 233 241 181 16 187 18 158 21 254 124 62 30 247 251 186 241 173 113 122 227 148 70 237 145 100 175 33 210 120 139 207 205 237 232 255 22 71 129 45 16 60 3 158 163 123 6 140 214 74 239 198 207 198 201 189 102 12 151 32 26 128 155 23 150 22 105 189 96 38 181 88 31 211 206 113 163 165 151 109 17 182 110 231 118 213 193 222 5 237 154 8 171 184 217 254 31 176 123 9 114 255 146 177 187 128 224 3 0 0 0 0 192 198 252 0 102 116 72 + 96 211 171 62 8 0 0 0 0 73 69 78 68 174 66 96 130]. - 96 211 171 62 8 0 0 0 0 73 69 78 68 174 66 96 130) asByteArray. png := PNGReadWriter on: sampleBytes readStream. form := png nextImage. self assert: Form equals: form class. !

1 0

The Trunk: Graphics-dtl.377.mcz
by commits＠source.squeak.org 18 Jun '17

18 Jun '17

David T. Lewis uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-dtl.377.mcz ==================== Summary ==================== Name: Graphics-dtl.377 Author: dtl Time: 18 June 2017, 3:24:52.934136 pm UUID: 1a95683d-f794-468e-94ac-03fc69a78dd0 Ancestors: Graphics-eem.376 Fix PNGReadWriterTest>>testNewFromSampleBytes by normalizing large integers prior to calling primitive 61. =============== Diff against Graphics-eem.376 =============== Item was changed: ----- Method: PNGReadWriter>>copyPixelsRGB: (in category 'pixel copies') ----- copyPixelsRGB: y "Handle non-interlaced RGB color mode (colorType = 2)" | i pixel tempForm tempBits | (transparentPixelValue isNil and: [ bitsPerChannel = 8 ]) ifTrue: [ "Do the same trick as in #copyPixelsRGBA:" | targetIndex | tempBits := ByteArray new: thisScanline size * 4 // 3 withAll: 16rFF. tempForm := Form extent: width@1 depth: 32 bits: tempBits. targetIndex := 1. 1 to: thisScanline size by: 3 do: [ :index | tempBits at: targetIndex put: (thisScanline at: index); at: targetIndex + 1 put: (thisScanline at: index + 1); at: targetIndex + 2 put: (thisScanline at: index + 2). targetIndex := targetIndex + 4 ]. cachedDecoderMap ifNil:[cachedDecoderMap := self rgbaDecoderMapForDepth: depth]. (BitBlt toForm: form) sourceForm: tempForm; destOrigin: 0@y; combinationRule: Form over; colorMap: cachedDecoderMap; copyBits. ^self ]. tempForm := Form extent: width@1 depth: 32. tempBits := tempForm bits. pixel := LargePositiveInteger new: 4. pixel at: 4 put: 16rFF. bitsPerChannel = 8 ifTrue: [i := 1. 1 to: width do: [ :x | pixel at: 3 put: (thisScanline at: i); at: 2 put: (thisScanline at: i+1); at: 1 put: (thisScanline at: i+2). + tempBits at: x put: pixel normalize. - tempBits at: x put: pixel. i := i + 3]. transparentPixelValue ifNotNil: [1 to: width do: [ :x | (tempBits at: x) = transparentPixelValue ifTrue: [tempBits at: x put: 0]]]] ifFalse: [i := 1. 1 to: width do: [ :x | (transparentPixelValue == nil or: [(1 to: 6) anySatisfy: [:k | (transparentPixelValue digitAt: k) ~= (thisScanline at: i + 6 - k)]]) ifTrue: [pixel at: 3 put: (thisScanline at: i); at: 2 put: (thisScanline at: i+2); at: 1 put: (thisScanline at: i+4). + tempBits at: x put: pixel normalize] - tempBits at: x put: pixel] ifFalse: [tempBits at: x put: 0]. i := i + 6]]. tempForm displayOn: form at: 0@y rule: Form over. ! Item was changed: ----- Method: PNGReadWriter>>copyPixelsRGB:at:by: (in category 'pixel copies') ----- copyPixelsRGB: y at: startX by: incX "Handle interlaced RGB color mode (colorType = 2)" | i pixel tempForm tempBits xx loopsToDo | tempForm := Form extent: width@1 depth: 32. tempBits := tempForm bits. pixel := LargePositiveInteger new: 4. pixel at: 4 put: 16rFF. loopsToDo := width - startX + incX - 1 // incX. bitsPerChannel = 8 ifTrue: [i := (startX // incX * 3) + 1. xx := startX+1. 1 to: loopsToDo do: [ :j | pixel at: 3 put: (thisScanline at: i); at: 2 put: (thisScanline at: i+1); at: 1 put: (thisScanline at: i+2). + tempBits at: xx put: pixel normalize. - tempBits at: xx put: pixel. i := i + 3. xx := xx + incX]. transparentPixelValue ifNotNil: [startX to: width-1 by: incX do: [ :x | (tempBits at: x+1) = transparentPixelValue ifTrue: [ tempBits at: x+1 put: 0]]]] ifFalse: [i := (startX // incX * 6) + 1. xx := startX+1. 1 to: loopsToDo do: [ :j | (transparentPixelValue == nil or: [(1 to: 6) anySatisfy: [:k | (transparentPixelValue digitAt: k) ~= (thisScanline at: i + 6 - k)]]) ifTrue: [pixel at: 3 put: (thisScanline at: i); at: 2 put: (thisScanline at: i+2); at: 1 put: (thisScanline at: i+4). + tempBits at: xx put: pixel normalize.] - tempBits at: xx put: pixel.] ifFalse: [tempBits at: xx put: 0]. i := i + 6. xx := xx + incX]]. tempForm displayOn: form at: 0@y rule: Form over. ! Item was changed: ----- Method: PNGReadWriter>>copyPixelsRGBA: (in category 'pixel copies') ----- copyPixelsRGBA: y "Handle non-interlaced RGBA color modes (colorType = 6)" | i pixel tempForm tempBits ff | bitsPerChannel = 8 ifTrue: [ ff := Form extent: width@1 depth: 32 bits: thisScanline. cachedDecoderMap ifNil:[cachedDecoderMap := self rgbaDecoderMapForDepth: depth]. (BitBlt toForm: form) sourceForm: ff; destOrigin: 0@y; combinationRule: Form over; colorMap: cachedDecoderMap; copyBits. ^self. ]. tempForm := Form extent: width@1 depth: 32. tempBits := tempForm bits. pixel := LargePositiveInteger new: 4. i := -7. 0 to: width-1 do: [ :x | i := i + 8. pixel at: 4 put: (thisScanline at: i+6); at: 3 put: (thisScanline at: i); at: 2 put: (thisScanline at: i+2); at: 1 put: (thisScanline at: i+4). + tempBits at: x+1 put: pixel normalize. - tempBits at: x+1 put: pixel. ]. tempForm displayOn: form at: 0@y rule: Form over. ! Item was changed: ----- Method: PNGReadWriter>>copyPixelsRGBA:at:by: (in category 'pixel copies') ----- copyPixelsRGBA: y at: startX by: incX "Handle interlaced RGBA color modes (colorType = 6)" | i pixel tempForm tempBits | tempForm := Form extent: width@1 depth: 32. tempBits := tempForm bits. pixel := LargePositiveInteger new: 4. bitsPerChannel = 8 ifTrue: [ i := (startX // incX << 2) + 1. startX to: width-1 by: incX do: [ :x | pixel at: 4 put: (thisScanline at: i+3); at: 3 put: (thisScanline at: i); at: 2 put: (thisScanline at: i+1); at: 1 put: (thisScanline at: i+2). + tempBits at: x+1 put: pixel normalize. - tempBits at: x+1 put: pixel. i := i + 4. ] ] ifFalse: [ i := (startX // incX << 3) +1. startX to: width-1 by: incX do: [ :x | pixel at: 4 put: (thisScanline at: i+6); at: 3 put: (thisScanline at: i); at: 2 put: (thisScanline at: i+2); at: 1 put: (thisScanline at: i+4). + tempBits at: x+1 put: pixel normalize. - tempBits at: x+1 put: pixel. i := i + 8. ]. ]. tempForm displayOn: form at: 0@y rule: Form paintAlpha. !

1 0

The Trunk: GraphicsTests-dtl.43.mcz
by commits＠source.squeak.org 18 Jun '17

18 Jun '17

David T. Lewis uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-dtl.43.mcz ==================== Summary ==================== Name: GraphicsTests-dtl.43 Author: dtl Time: 18 June 2017, 3:23:47.146706 pm UUID: c6c174e4-6ce9-445c-aa4b-af5a52869461 Ancestors: GraphicsTests-pre.42 Add PNGReadWriterTest>>testNewFromSampleBytes based on a problem report by Hilaire Fernandes, and affecting Dr Geo. The test fails on 64 bit Spur if a synthesized LargeInteger parameter to Bitmap #at:put: is not normalized prior to calling the primitive. Problem reported at http://lists.pharo.org/pipermail/pharo-users_lists.pharo.org/2017-June/0326… =============== Diff against GraphicsTests-pre.42 =============== Item was added: + ----- Method: PNGReadWriterTest>>testNewFromSampleBytes (in category 'tests - decoding') ----- + testNewFromSampleBytes + "Based on a problem report by Hilaire Fernandes, this fails on 64 bit Spur if a + synthesized LargeInteger parameter to Bitmap #at:put: is not normalized prior + to calling the primitive. See problem report at + http://lists.pharo.org/pipermail/pharo-users_lists.pharo.org/2017-June/0326…" + + | sampleBytes png form | + sampleBytes := #(137 80 78 71 13 10 26 10 0 0 0 13 73 72 + 68 82 0 0 0 48 0 0 0 48 16 6 0 0 0 7 146 37 196 0 0 0 6 98 75 71 68 255 + 255 255 255 255 255 9 88 247 220 0 0 0 9 112 72 89 115 0 0 0 72 0 0 0 72 + 0 70 201 107 62 0 0 1 153 73 68 65 84 120 218 237 155 73 110 195 48 12 + 69 227 162 183 211 9 180 11 130 220 77 39 208 249 210 77 181 8 81 69 19 + 39 169 255 109 12 35 137 197 255 105 81 244 144 219 13 0 0 0 0 0 116 16 + 66 8 33 188 94 214 113 120 99 214 151 111 238 1 115 206 57 231 235 178 + 54 68 10 238 19 112 58 1 189 1 238 158 16 233 25 255 37 117 224 221 141 + 215 210 193 158 128 83 140 215 210 181 156 0 26 216 169 139 180 155 210 + 218 50 184 124 126 74 34 122 245 204 234 101 207 224 41 221 145 150 14 + 49 67 118 77 132 118 220 98 93 208 168 64 107 172 226 18 63 19 91 194 + 172 103 132 117 124 106 194 117 132 210 227 215 143 103 109 124 65 173 4 + 181 4 173 149 128 254 223 121 49 190 160 190 6 212 4 126 22 94 12 163 91 + 173 241 229 112 219 141 188 51 106 184 223 46 139 162 62 3 164 137 49 + 198 24 253 117 89 219 241 183 145 181 82 180 94 154 192 47 212 248 247 + 253 209 45 152 102 205 120 36 130 137 182 193 159 19 5 22 233 53 158 126 + 31 48 209 54 190 181 15 8 189 247 215 71 141 174 25 127 218 243 137 105 + 168 17 53 99 164 140 247 154 8 183 119 67 139 177 41 165 148 210 117 209 + 125 233 241 181 16 187 18 158 21 254 124 62 30 247 251 186 241 173 113 + 122 227 148 70 237 145 100 175 33 210 120 139 207 205 237 232 255 22 71 + 129 45 16 60 3 158 163 123 6 140 214 74 239 198 207 198 201 189 102 12 + 151 32 26 128 155 23 150 22 105 189 96 38 181 88 31 211 206 113 163 165 + 151 109 17 182 110 231 118 213 193 222 5 237 154 8 171 184 217 254 31 + 176 123 9 114 255 146 177 187 128 224 3 0 0 0 0 192 198 252 0 102 116 72 + 96 211 171 62 8 0 0 0 0 73 69 78 68 174 66 96 130) asByteArray. + + png := PNGReadWriter on: sampleBytes readStream. + form := png nextImage. + self assert: Form equals: form class. + !

1 0

The Trunk: System-eem.954.mcz
by commits＠source.squeak.org 15 Jun '17

15 Jun '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.954.mcz ==================== Summary ==================== Name: System-eem.954 Author: eem Time: 15 June 2017, 1:44:27.35061 pm UUID: 9fe7dd44-c2ac-4381-b3cb-c8ce5d3b23f2 Ancestors: System-nice.953 Document vm parameters 34, 68 & 69. =============== Diff against System-nice.953 =============== Item was changed: + ----- Method: SmalltalkImage>>vmParameterAt: (in category 'vm parameters') ----- - ----- Method: SmalltalkImage>>vmParameterAt: (in category 'system attributes') ----- vmParameterAt: parameterIndex "parameterIndex is a positive integer corresponding to one of the VM's internal parameter/metric registers. Answer with the current value of that register. Fail if parameterIndex has no corresponding register. VM parameters are numbered as follows: 1 byte size of old-space (read-only) 2 byte size of young-space (read-only) 3 byte size of object memory (read-only) 4 allocationCount (read-only; nil in Cog VMs) 5 allocations between GCs (read-write; nil in Cog VMs) 6 survivor count tenuring threshold (read-write) 7 full GCs since startup (read-only) 8 total milliseconds in full GCs since startup (read-only) 9 incremental GCs since startup (read-only; scavenging GCs on Spur) 10 total milliseconds in incremental/scavenging GCs since startup (read-only) 11 tenures of surving objects since startup (read-only) 12-15 specific to the translating VM 16 total microseconds in idle since startup 17 proportion of code zone available for use (Sista VMs only; read-write) 18 total milliseconds in full GC compaction since startup (a portion of parameter 8) 19 scavenge threshold; the effective size of eden 20 utc microseconds at VM start-up (actually at time initialization, which precedes image load) (newer Cog VMs only). 21 root (remembered) table size (read-only) 22 root (remembered) table overflows since startup (read-only) 23 bytes of extra memory to reserve for VM buffers, plugins, etc. 24 memory threshold above which to shrink object memory (read-write) 25 ammount to grow by when growing object memory (read-write) 26 interruptChecksEveryNms - force an ioProcessEvents every N milliseconds (read-write) 27 number of times mark loop iterated for current IGC/FGC (read-only) includes ALL marking 28 number of times sweep loop iterated for current IGC/FGC (read-only) 29 number of times make forward loop iterated for current IGC/FGC (read-only) 30 number of times compact move loop iterated for current IGC/FGC (read-only) 31 number of grow memory requests (read-only) 32 number of shrink memory requests (read-only) 33 number of root table entries used for current IGC/FGC (read-only) + 34 bytes allocated in total since start-up or reset (read-write) - 34 number of allocations done before current IGC/FGC (read-only) 35 number of survivor objects after current IGC/FGC (read-only) 36 millisecond clock when current IGC/FGC completed (read-only) 37 number of marked objects for Roots of the world, not including Root Table entries for current IGC/FGC (read-only) 38 milliseconds taken by current IGC (read-only) 39 Number of finalization signals for Weak Objects pending when current IGC/FGC completed (read-only) 40 BytesPerWord for this image 41 imageFormatVersion for the VM 42 number of stack pages in use (Cog Stack VM only, otherwise nil) 43 desired number of stack pages (stored in image file header, max 65535; Cog VMs only, otherwise nil) 44 size of eden, in bytes (Cog VMs only, otherwise nil) 45 desired size of eden, in bytes (stored in image file header; Cog VMs only, otherwise nil) 46 size of machine code zone, in bytes (stored in image file header; Cog JIT VM only, otherwise nil) 47 desired size of machine code zone, in bytes (applies at startup only, stored in image file header; Cog JIT VM only) 48 various properties of the Cog VM as an integer encoding an array of bit flags. Bit 0: tells the VM that the image's Process class has threadId as its 5th inst var (after nextLink, suspendedContext, priority & myList) Bit 1: on Cog JIT VMs asks the VM to set the flag bit in interpreted methods Bit 2: if set, preempting a process puts it to the head of its run queue, not the back, i.e. preempting a process by a higher priority one will not cause the preempted process to yield to others at the same priority. Bit 3: in a muilt-threaded VM, if set, the Window system will only be accessed from the first VM thread Bit 4: in a Spur vm, if set, causes weaklings and ephemerons to be queued individually for finalization 49 the size of the external semaphore table (read-write; Cog VMs only) 50-51 reserved for VM parameters that persist in the image (such as eden above) 52 root (remembered) table maximum size (read-only) 53 the number of oldSpace segments (Spur only, otherwise nil) 54 total size of free old space (Spur only, otherwise nil) 55 ratio of growth and image size at or above which a GC will be performed post scavenge (Spur only, otherwise nil) 56 number of process switches since startup (read-only) 57 number of ioProcessEvents calls since startup (read-only) 58 number of forceInterruptCheck (Cog VMs) or quickCheckInterruptCalls (non-Cog VMs) calls since startup (read-only) 59 number of check event calls since startup (read-only) 60 number of stack page overflows since startup (read-only; Cog VMs only) 61 number of stack page divorces since startup (read-only; Cog VMs only) 62 number of machine code zone compactions since startup (read-only; Cog VMs only) 63 milliseconds taken by machine code zone compactions since startup (read-only; Cog VMs only) 64 current number of machine code methods (read-only; Cog VMs only) 65 In newer Cog VMs a set of flags describing VM features, if non-zero bit 0 implies multiple bytecode set support; if non-zero bit 0 implies read-only object support (read-only; Cog VMs only; nil in older Cog VMs, a boolean answering multiple bytecode support in not so old Cog VMs) 66 the byte size of a stack page in the stack zone (read-only; Cog VMs only) 67 the maximum allowed size of old space in bytes, 0 implies no internal limit (Spur VMs only). + 68 the average number of live stack pages when scanned by GC (at scavenge/gc/become et al) + 69 the maximum number of live stack pages when scanned by GC (at scavenge/gc/become et al) - 68 - 69 reserved for more Cog-related info 70 the value of VM_PROXY_MAJOR (the interpreterProxy major version number) 71 the value of VM_PROXY_MINOR (the interpreterProxy minor version number)" <primitive: 254> self primitiveFailed! Item was changed: ----- Method: SmalltalkImage>>vmParameterAt:put: (in category 'vm parameters') ----- vmParameterAt: parameterIndex put: newValue "parameterIndex is a positive integer corresponding to one of the VM's internal parameter/metric registers. Store newValue (a positive integer) into that register and answer with the previous value that was stored there. Fail if newValue is out of range, if parameterIndex has no corresponding register, or if the corresponding register is read-only. + As of mid 2017 the parameters which can be set are - As of early 2016 the parameters which can be set are 5 allocations between GCs (read-write; nil in Cog VMs) 6 survivor count tenuring threshold (read-write) 17 proportion of code zone available for use (Sista VMs only) 23 bytes of extra memory to reserve for VM buffers, plugins, etc. 24 memory threshold above whichto shrink object memory (read-write) 25 memory headroom when growing object memory (read-write) 26 interruptChecksEveryNms - force an ioProcessEvents every N milliseconds (read-write) + 34 bytes allocated in total since start-up or reset (read-write) 43 desired number of stack pages (stored in image file header, max 65535; Cog VMs only, otherwise nil) 45 desired size of eden, in bytes (stored in image file header; Cog VMs only, otherwise nil) 47 desired size of machine code zone, in bytes (applies at startup only, stored in image file header; Cog JIT VM only) 48 various properties of the Cog VM as an integer encoding an array of bit flags. Bit 0: tells the VM that the image's Process class has threadId as its 5th inst var (after nextLink, suspendedContext, priority & myList) Bit 1: on Cog JIT VMs asks the VM to set the flag bit in interpreted methods Bit 2: if set, preempting a process puts it to the head of its run queue, not the back, i.e. preempting a process by a higher priority one will not cause the preempted process to yield to others at the same priority. Bit 3: in a muilt-threaded VM, if set, the Window system will only be accessed from the first VM thread Bit 4: in a Spur vm, if set, causes weaklings and ephemerons to be queued individually for finalization 49 the size of the external semaphore table (read-write; Cog VMs only) 55 ratio of growth and image size at or above which a GC will be performed post scavenge (Spur only, otherwise nil) 67 the maximum allowed size of old space in bytes, 0 implies no internal limit (Spur only)." <primitive: 254> self primitiveFailed!

1 0

The Trunk: Network-eem.201.mcz
by commits＠source.squeak.org 14 Jun '17

14 Jun '17

Eliot Miranda uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-eem.201.mcz ==================== Summary ==================== Name: Network-eem.201 Author: eem Time: 14 June 2017, 11:07:55.857848 am UUID: 523568aa-fa41-4c8a-b646-34c8483f202c Ancestors: Network-eem.200 Make sure that order orf addresses is preserved in MailMessage>>to: (correctly) and hence fix MailMessageTest>>testCreateAReplyForFrom. =============== Diff against Network-eem.200 =============== Item was changed: ----- Method: MailMessage>>to: (in category 'access') ----- to: aString "Set the to address(es). Make sure order is preserved when uniqueing the addresses." + | sanitizedMailAddresses | - | sanitizedMailAddresses uniqueMailAddresses | sanitizedMailAddresses := MailAddressParser addressesIn: aString. + ^self setField: 'to' toString: (sanitizedMailAddresses withoutDuplicates joinSeparatedBy: ', ')! - ^self setField: 'to' toString: (uniqueMailAddresses withoutDuplicates joinSeparatedBy: ', ')!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2017