Packages March 2011

packages@lists.squeakfoundation.org

1 participants
447 discussions

The Trunk: Compiler-nice.194.mcz
by commits＠source.squeak.org 04 Mar '11

04 Mar '11

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.194.mcz ==================== Summary ==================== Name: Compiler-nice.194 Author: nice Time: 4 March 2011, 4:51:51.372 am UUID: de6fad00-fa6c-4622-9c03-046113d7e4fe Ancestors: Compiler-ul.193 Fix cascading of special messages. During inlining of some special messages, the MessageNode selector and/or arguments might be destructively replaced. (for example #ifFalseifTrue: ifNil:ifNotNil: etc...) If we later decide to un-optimize, it is necessary to restore the originalSelector and originalArguments. (for example when these messages are cascaded) Also fix a bug occuring when decompiling these cascaded specials. Thanks to Juan for testing/enhancing this useless but beautiful stuff. TODO: automate some tests. =============== Diff against Compiler-ul.193 =============== Item was changed: ----- Method: DecompilerConstructor>>decodeIfNilWithReceiver:selector:arguments: (in category 'constructor') ----- decodeIfNilWithReceiver: receiver selector: selector arguments: arguments + receiver ifNil: [ ^nil ]. "For instance, when cascading" - selector == #ifTrue:ifFalse: ifFalse: [^ nil]. (receiver isMessage: #== receiver: nil arguments: [:argNode | argNode == NodeNil]) ifFalse: [^ nil]. ^ (MessageNode new receiver: receiver selector: (SelectorNode new key: #ifTrue:ifFalse: code: #macro) arguments: arguments precedence: 3) noteSpecialSelector: #ifNil:ifNotNil:! Item was changed: ParseNode subclass: #MessageNode + instanceVariableNames: 'receiver selector precedence special arguments sizes equalNode caseErrorNode originalSelector originalArguments' - instanceVariableNames: 'receiver selector precedence special arguments sizes equalNode caseErrorNode' classVariableNames: 'MacroEmitters MacroPrinters MacroSelectors MacroSizers MacroTransformers StdTypers ThenFlag' poolDictionaries: '' category: 'Compiler-ParseNodes'! !MessageNode commentStamp: '<historical>' prior: 0! I represent a receiver and its message. Precedence codes: 1 unary 2 binary 3 keyword 4 other If special>0, I compile special code in-line instead of sending messages with literal methods as remotely copied contexts.! Item was changed: ----- Method: MessageNode>>ensureCanCascade: (in category 'testing') ----- ensureCanCascade: encoder special > 0 ifTrue: [special := 0. + selector := encoder encodeSelector: originalSelector. + arguments := originalArguments. + arguments do: - selector := encoder encodeSelector: selector key. - arguments do: [:each| each isBlockNode ifTrue: [each deoptimize]]]! Item was changed: ----- Method: MessageNode>>receiver:arguments:precedence: (in category 'private') ----- receiver: rcvr arguments: args precedence: p receiver := rcvr. arguments := args. + originalArguments := arguments copy. sizes := Array new: arguments size. precedence := p! Item was changed: ----- Method: MessageNode>>receiver:selector:arguments:precedence: (in category 'initialize-release') ----- receiver: rcvr selector: selNode arguments: args precedence: p "Decompile." self receiver: rcvr arguments: args precedence: p. + originalSelector := selNode key. selNode code == #macro ifTrue: [self noteSpecialSelector: selNode key] ifFalse: [special := 0]. selector := selNode. "self pvtCheckForPvtSelector: encoder" "We could test code being decompiled, but the compiler should've checked already. And where to send the complaint?"! Item was changed: ----- Method: MessageNode>>receiver:selector:arguments:precedence:from: (in category 'initialize-release') ----- receiver: rcvr selector: aSelector arguments: args precedence: p from: encoder "Compile." self receiver: rcvr arguments: args precedence: p. + originalSelector := aSelector. self noteSpecialSelector: aSelector. (self transform: encoder) ifTrue: [selector isNil ifTrue: [selector := SelectorNode new key: (MacroSelectors at: special) code: #macro]] ifFalse: [selector := encoder encodeSelector: aSelector. rcvr == NodeSuper ifTrue: [encoder noteSuper]]. self pvtCheckForPvtSelector: encoder!

1 0

The Trunk: Compiler-nice.194.mcz
by commits＠source.squeak.org 04 Mar '11

04 Mar '11

1 0

The Trunk: Compiler-nice.194.mcz
by commits＠source.squeak.org 04 Mar '11

04 Mar '11

1 0

The Trunk: Collections-ul.430.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.430.mcz ==================== Summary ==================== Name: Collections-ul.430 Author: ul Time: 1 March 2011, 8:26:29.929 am UUID: 5e9df9e8-bcc4-5d43-818a-5cbc4082988d Ancestors: Collections-ul.429 - fix: #overlappingPairsCollect: didn't work with OrderedCollections =============== Diff against Collections-ul.429 =============== Item was changed: ----- Method: SequenceableCollection>>overlappingPairsCollect: (in category 'enumerating') ----- overlappingPairsCollect: aBlock "Answer the result of evaluating aBlock with all of the overlapping pairs of my elements." | retval | + retval := self species ofSize: self size - 1. - retval := self species new: self size - 1. 1 to: self size - 1 do: [:i | retval at: i put: (aBlock value: (self at: i) value: (self at: i + 1)) ]. ^retval!

1 0

The Trunk: Collections-ul.430.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

1 0

The Trunk: Collections-ul.430.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

1 0

The Trunk: CollectionsTests-ul.182.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.182.mcz ==================== Summary ==================== Name: CollectionsTests-ul.182 Author: ul Time: 1 March 2011, 8:25:05.964 am UUID: 6dcc19af-ee78-8a41-9b31-fc2246252240 Ancestors: CollectionsTests-ul.181 - added a test for #overlappingPairsCollect: to OrderedCollectionTest - recategorized some methods in SequenceableCollectionTest =============== Diff against CollectionsTests-ul.181 =============== Item was added: + ----- Method: OrderedCollectionTest>>testOverlappingPairsCollect (in category 'testsEnumerating') ----- + testOverlappingPairsCollect + + | o | + o := #(5 4 3 2 1) asOrderedCollection. + self + assert: #(9 7 5 3) asOrderedCollection + equals: (o overlappingPairsCollect: [ :a :b | a + b ])! Item was changed: + ----- Method: SequenceableCollectionTest>>testAfterIfAbsent (in category 'tests - testing') ----- - ----- Method: SequenceableCollectionTest>>testAfterIfAbsent (in category 'testing - testing') ----- testAfterIfAbsent | col | col := #(2 3 4). self assert: ((col after: 4 ifAbsent: ['block']) = 'block'). self assert: ((col after: 5 ifAbsent: ['block']) = 'block'). self assert: ((col after: 2 ifAbsent: ['block']) = 3).! Item was changed: + ----- Method: SequenceableCollectionTest>>testBeforeIfAbsent (in category 'tests - testing') ----- - ----- Method: SequenceableCollectionTest>>testBeforeIfAbsent (in category 'testing - testing') ----- testBeforeIfAbsent | col | col := #(2 3 4). self assert: ((col before: 2 ifAbsent: ['block']) = 'block'). self assert: ((col before: 5 ifAbsent: ['block']) = 'block'). self assert: ((col before: 3 ifAbsent: ['block']) = 2).! Item was changed: + ----- Method: SequenceableCollectionTest>>testBeginsWith (in category 'tests - testing') ----- - ----- Method: SequenceableCollectionTest>>testBeginsWith (in category 'testing - testing') ----- testBeginsWith "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." | la prefix oc | la := #(1 2 3 4 5 6). oc := OrderedCollection new. oc add: 1; add: 2; add: 3. self assert: (la beginsWith: #(1)). self assert: (la beginsWith: #(1 2)). self assert: (la beginsWith: #(1 2 3)). self assert: (la beginsWith: oc). self deny: (la beginsWith: #()). self deny: (la beginsWith: ''). self deny: (la beginsWith: OrderedCollection new). self assert: (oc beginsWith: #(1 2)). prefix := OrderedCollection new. self deny: (oc beginsWith: prefix). prefix add: 1. self assert: (oc beginsWith: prefix). prefix add: 2. self assert: (oc beginsWith: prefix). prefix add: 3. self assert: (oc beginsWith: prefix). prefix add: 4. self deny: (oc beginsWith: prefix).! Item was changed: + ----- Method: SequenceableCollectionTest>>testBeginsWithAnyOf (in category 'tests - testing') ----- - ----- Method: SequenceableCollectionTest>>testBeginsWithAnyOf (in category 'testing - testing') ----- testBeginsWithAnyOf "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." | la oc | la := #(1 2 3 4 5 6). oc := OrderedCollection new. oc add: 1; add: 2; add: 3. self assert: (la beginsWithAnyOf: #((17) (1) (42))). self assert: (la beginsWithAnyOf: #((17) (1 2) (42))). self assert: (la beginsWithAnyOf: #((17) (1 2 3) (42))). self deny: (la beginsWithAnyOf: #()). self deny: (la beginsWithAnyOf: #(())). self deny: (la beginsWithAnyOf: #((42))). ! Item was changed: + ----- Method: SequenceableCollectionTest>>testEndsWith (in category 'tests - testing') ----- - ----- Method: SequenceableCollectionTest>>testEndsWith (in category 'testing - testing') ----- testEndsWith "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." | la oc suffix | la := #(1 2 3 4 5 6). oc := OrderedCollection new. oc add: 4; add: 5; add: 6. self assert: (la endsWith: #(6)). self assert: (la endsWith: #(5 6)). self assert: (la endsWith: #(4 5 6)). self assert: (la endsWith: oc). self deny: (la endsWith: #()). self deny: (la endsWith: ''). suffix := OrderedCollection new. suffix add: 6. self assert: (oc endsWith: suffix). suffix addFirst: 5. self assert: (oc endsWith: suffix). suffix addFirst: 4. self assert: (oc endsWith: suffix). suffix addFirst: 3. self deny: (oc endsWith: suffix).! Item was changed: + ----- Method: SequenceableCollectionTest>>testEndsWithAnyOf (in category 'tests - testing') ----- - ----- Method: SequenceableCollectionTest>>testEndsWithAnyOf (in category 'testing - testing') ----- testEndsWithAnyOf "We can't test SequenceableCollection directly. However, we can test a sampling of its descendants." | la oc | la := #(6 5 4 3 2 1). oc := OrderedCollection new. oc add: 3; add: 2; add: 1. self assert: (la endsWithAnyOf: #((17) (1) (42))). self assert: (la endsWithAnyOf: #((17) (2 1) (42))). self assert: (la endsWithAnyOf: #((17) (3 2 1) (42))). self deny: (la endsWithAnyOf: #()). self deny: (la endsWithAnyOf: #(())). self deny: (la endsWithAnyOf: #((42))). ! Item was changed: + ----- Method: SequenceableCollectionTest>>testReplaceFromToWithStartingAt (in category 'tests - accessing') ----- - ----- Method: SequenceableCollectionTest>>testReplaceFromToWithStartingAt (in category 'testing') ----- testReplaceFromToWithStartingAt | string | string := 'abcd' copy. string replaceFrom: 1 to: 3 with: 'lmnop' startingAt: 1. self assert: string = 'lmnd'. string := 'abcd' copy. string replaceFrom: 1 to: 3 with: 'lmnop' startingAt: 2. self assert: string = 'mnod'. string := 'abcd' copy. string replaceFrom: 2 to: 3 with: 'lmnop' startingAt: 1. self assert: string = 'almd'.!

1 0

The Trunk: CollectionsTests-ul.182.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

1 0

The Trunk: CollectionsTests-ul.182.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

1 0

The Trunk: Monticello-ul.422.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.422.mcz ==================== Summary ==================== Name: Monticello-ul.422 Author: ul Time: 1 March 2011, 8:17:17.217 am UUID: 0b115504-8636-d448-b794-86e70449320e Ancestors: Monticello-cmm.421 Added preamble which closes open MC repositories. =============== Diff against Monticello-cmm.421 =============== Item was changed: + (PackageInfo named: 'Monticello') preamble: 'SystemWindow allSubInstances + select: [ :each | each model class == MCFileRepositoryInspector ] + thenDo: [ :each | each delete ]'! - (PackageInfo named: 'Monticello') preamble: ''!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2011