Squeak-dev October 2009

squeak-dev@lists.squeakfoundation.org

84 participants
353 discussions

The Trunk: CollectionsTests-nice.99.mcz
by commits＠source.squeak.org 03 Oct '09

03 Oct '09

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.99.mcz ==================== Summary ==================== Name: CollectionsTests-nice.99 Author: nice Time: 3 October 2009, 9:23:06 am UUID: 00ad849b-6bea-4da5-a941-b7109e4d3d37 Ancestors: CollectionsTests-ul.98 Lots of tests for WideString most from http://bugs.squeak.org/view.php?id=5331 All failing tests have a solution in mantis =============== Diff against CollectionsTests-ul.98 =============== Item was added: + ----- Method: WideStringTest>>testMatch (in category 'tests - match') ----- + testMatch + "from johnmci at http://bugs.squeak.org/view.php?id=5331" + + self assert: ('*baz' match: 'mobaz' ). + self assert: ('*foo#zort' match: 'afoo3zortthenfoo3zort' ). + self assert: ('*baz' match: 'mobaz' ). + self assert: ('*foo#zort' match: 'afoo3zortthenfoo3zort' ). + + self assert: ('*baz' match: 'mobaz' asWideString). + self assert: ('*foo#zort' match: 'afoo3zortthenfoo3zort' asWideString). + self assert: ('*baz' match: 'mobaz' asWideString). + self assert: ('*foo#zort' match: 'afoo3zortthenfoo3zort' asWideString). + + self assert: ('*baz' asWideString match: 'mobaz' ). + self assert: ('*foo#zort' asWideString match: 'afoo3zortthenfoo3zort' ). + self assert: ('*baz' asWideString match: 'mobaz' ). + self assert: ('*foo#zort' asWideString match: 'afoo3zortthenfoo3zort' ). + + self assert: ('*baz' asWideString match: 'mobaz' asWideString). + self assert: ('*foo#zort' asWideString match: 'afoo3zortthenfoo3zort' asWideString). + self assert: ('*baz' asWideString match: 'mobaz' asWideString). + self assert: ('*foo#zort' asWideString match: 'afoo3zortthenfoo3zort' asWideString).! Item was added: + ----- Method: WideStringTest>>testSameAs (in category 'tests - compare') ----- + testSameAs + "from johnmci at http://bugs.squeak.org/view.php?id=5331" + + self assert: ('abc' sameAs: 'aBc' asWideString). + self assert: ('aBc' asWideString sameAs: 'abc'). + self assert: ((ByteArray with: 97 with: 0 with: 0 with: 0) asString sameAs: 'Abcd' asWideString) not. + self assert: ('a000' asWideString sameAs: (ByteArray with: 97 with: 0 with: 0 with: 0) asString) not. + ! Item was added: + ----- Method: WideStringTest>>testCharactersExactlyMatching (in category 'tests - match') ----- + testCharactersExactlyMatching + "from johnmci at http://bugs.squeak.org/view.php?id=5331" + + self assert: ('abc' charactersExactlyMatching: 'abc') = 3. + self assert: ('abd' charactersExactlyMatching: 'abc') = 2. + self assert: ('abc' charactersExactlyMatching: 'abc' asWideString) = 3. + self assert: ('abd' charactersExactlyMatching: 'abc' asWideString) = 2. + self assert: ('abc' asWideString charactersExactlyMatching: 'abc') = 3. + self assert: ('abd' asWideString charactersExactlyMatching: 'abc') = 2. + self assert: ('abc' asWideString charactersExactlyMatching: 'abc' asWideString) = 3. + self assert: ('abd' asWideString charactersExactlyMatching: 'abc' asWideString)= 2. + self assert: ('abc' charactersExactlyMatching: 'ABC') = 0. + + ! Item was added: + ----- Method: WideStringTest>>testEndsWith (in category 'tests - endsWith') ----- + testEndsWith + "Mix of tests from http://bugs.squeak.org/view.php?id=6366 + #endsWith: was broken because using broken findSubstring + and tests from johnmci at http://bugs.squeak.org/view.php?id=5331" + + | ws | + + self assert: ('abc' endsWith: 'bc'). + self assert: ('abc' endsWith: 'bc' asWideString). + self assert: ('abc' asWideString endsWith: 'bc'). + self assert: ('abc' endsWith: 'bX') not. + self assert: ('abc' endsWith: 'BC') not. + self assert: ('abc' endsWith: 'BC' asWideString) not. + self assert: ('ABC' asWideString endsWith: 'bc') not. + + self assert: ('Elvis' endsWith: 'vis'). + self assert: ('Elvis' asWideString endsWith: 'vis'). + self assert: ((WideString with: (Unicode value: 530)) , 'Elvis' endsWith: 'vis'). + + self deny: ('Elvis' endsWith: 'Vis'). + self deny: ('Elvis' asWideString endsWith: 'vIs'). + self deny: ((WideString with: (Unicode value: 530)) , 'Elvis' endsWith: 'viS'). + + ws := 'vis' , (WideString with: (Unicode value: 530)). + self deny: ('Elvis' endsWith: ws). + self assert: ('Elvis' , ws endsWith: ws). + self deny: ((WideString with: (Unicode value: 530)) , 'Elvis' endsWith: ws). + + ! Item was added: + ----- Method: WideStringTest>>testCompare (in category 'tests - compare') ----- + testCompare + "from johnmci at http://bugs.squeak.org/view.php?id=5331" + + self assert: ('abc' compare: 'abc') = 2. + self assert: ('abc' compare: 'abd') = 1. + self assert: ('abd' compare: 'abc') = 3. + self assert: ('abc' compare: 'abC') = 2. + self assert: ('abc' compare: 'abD') = 1. + self assert: ('abd' compare: 'abC') = 3. + self assert: ('aBc' compare: 'abC') = 2. + self assert: ('aBc' compare: 'abD') = 1. + self assert: ('aDd' compare: 'abC') = 3. + + + self assert: ('abc' compare: 'abc' asWideString) = 2. + self assert: ('abc' compare: 'abd' asWideString) = 1. + self assert: ('abd' compare: 'abc' asWideString) = 3. + self assert: ('abc' compare: 'abC' asWideString) = 2. + self assert: ('abc' compare: 'abD' asWideString) = 1. + self assert: ('abd' compare: 'abC' asWideString) = 3. + self assert: ('aBc' compare: 'abC' asWideString) = 2. + self assert: ('aBc' compare: 'abD' asWideString) = 1. + self assert: ('aDd' compare: 'abC' asWideString) = 3. + + self assert: ('abc' asWideString compare: 'abc') = 2. + self assert: ('abc' asWideString compare: 'abd') = 1. + self assert: ('abd' asWideString compare: 'abc') = 3. + self assert: ('abc' asWideString compare: 'abC') = 2. + self assert: ('abc' asWideString compare: 'abD') = 1. + self assert: ('abd' asWideString compare: 'abC') = 3. + self assert: ('aBc' asWideString compare: 'abC') = 2. + self assert: ('aBc' asWideString compare: 'abD') = 1. + self assert: ('aDd' asWideString compare: 'abC') = 3. + + self assert: ('abc' asWideString compare: 'abc' asWideString) = 2. + self assert: ('abc' asWideString compare: 'abd' asWideString) = 1. + self assert: ('abd' asWideString compare: 'abc' asWideString) = 3. + self assert: ('abc' asWideString compare: 'abC' asWideString) = 2. + self assert: ('abc' asWideString compare: 'abD' asWideString) = 1. + self assert: ('abd' asWideString compare: 'abC' asWideString) = 3. + self assert: ('aBc' asWideString compare: 'abC' asWideString) = 2. + self assert: ('aBc' asWideString compare: 'abD' asWideString) = 1. + self assert: ('aDd' asWideString compare: 'abC' asWideString) = 3. + + self assert: ('abc' compare: 'abc' caseSensitive: true) = 2. + self assert: ('abc' compare: 'abC' caseSensitive: false) = 2. + self assert: ('abc' compare: 'abc' asWideString caseSensitive: true) = 2. + self assert: ('abc' compare: 'abC' asWideString caseSensitive: false) = 2. + self assert: ('abc' asWideString compare: 'abc' caseSensitive: true) = 2. + self assert: ('abc' asWideString compare: 'abC' caseSensitive: false) = 2. + self assert: ('abc' asWideString compare: 'abc' asWideString caseSensitive: true) = 2. + self assert: ('abc' asWideString compare: 'abC' asWideString caseSensitive: false) = 2.! Item was added: + ----- Method: WideStringTest>>testBeginsWith (in category 'tests - beginsWith') ----- + testBeginsWith + "from johnmci at http://bugs.squeak.org/view.php?id=5331" + + | w1 w2 | + self assert: ('abc' beginsWith: 'ab'). + self assert: ('abc' beginsWith: 'ab' asWideString). + self assert: ('abc' asWideString beginsWith: 'ab'). + self assert: ('abc' beginsWith: 'aX') not . + self assert: ('abc' beginsWith: 'AB') not. + self assert: ('abc' beginsWith: 'AB' asWideString) not . + self assert: ('ABC' asWideString beginsWith: 'ab') not. + + w1 := WideString with: (Unicode value: 402) with: $a with: (Unicode value: 400) with: $b. + w2 := WideString with: (Unicode value: 402). + w1 beginsWith: w2. + ! Item was added: + ----- Method: WideStringTest>>testFindSubstring (in category 'tests - substrings') ----- + testFindSubstring + "This is related to http://bugs.squeak.org/view.php?id=6366 + finding substring in a WideString was broken because matchTable are byte-wise" + + | ws1 ws2 | + + self assert: ('abcd' findString: 'bc' startingAt: 1) = 2. + self assert: ('abcd' asWideString findString: 'bc' startingAt: 1) = 2. + self assert: ('abcd' findString: 'bc' asWideString startingAt: 1) = 2. + self assert: ('abcd' asWideString findString: 'bc' asWideString startingAt: 1) = 2. + + ws1 := 'A' , (WideString with: (Unicode value: 530)) , 'BCD'. + self assert: (ws1 findString: 'bc' startingAt: 1 caseSensitive: true) = 0. + self assert: (ws1 findString: 'bc' startingAt: 1 caseSensitive: false) = 3. + + ws2 := (WideString with: (Unicode value: 530)) , 'b'. + self assert: (ws1 findString: ws2 startingAt: 1 caseSensitive: true) = 0. + self assert: (ws1 findString: ws2 startingAt: 1 caseSensitive: false) = 2. + + self assert: ('abc' findString: ws2 startingAt: 1 caseSensitive: true) = 0. + self assert: ('abc' findString: ws2 startingAt: 1 caseSensitive: false) = 0.! Item was added: + ----- Method: WideStringTest>>testEqual (in category 'tests - compare') ----- + testEqual + "from johnmci at http://bugs.squeak.org/view.php?id=5331" + + self assert: 'abc' = 'abc'. + self assert: 'abc' = 'abc' asWideString. + self assert: 'abc' asWideString = 'abc'. + self assert: 'abc' asWideString = 'abc' asWideString. + self assert: ('abc' = 'ABC') not. + self assert: ('abc' = 'ABC' asWideString) not. + self assert: ('abc' asWideString = 'ABC') not. + self assert: ('abc' asWideString = 'abc' asWideString). + self assert: ((ByteArray with: 97 with: 0 with: 0 with: 0) asString ~= 'a000' asWideString). + self assert: ('a000' asWideString ~= (ByteArray with: 97 with: 0 with: 0 with: 0) asString).! Item was added: + ----- Method: WideStringTest>>testRelationOrder (in category 'tests - relation order') ----- + testRelationOrder + "from johnmci at http://bugs.squeak.org/view.php?id=5331" + + self assert: ('aa' < 'ab'). + self assert: ('aa' <= 'ab'). + self assert: ('aa' <= 'aa'). + self assert: ('ab' > 'aa'). + self assert: ('ab' >= 'aa'). + self assert: ('aa' >= 'aa'). + + self assert: ('aa' < 'ab' asWideString). + self assert: ('aa' <= 'ab' asWideString). + self assert: ('aa' <= 'aa' asWideString). + self assert: ('ab' > 'aa' asWideString). + self assert: ('ab' >= 'aa' asWideString). + self assert: ('aa' >= 'aa' asWideString). + + self assert: ('aa' asWideString < 'ab'). + self assert: ('aa' asWideString <= 'ab'). + self assert: ('aa' asWideString <= 'aa'). + self assert: ('ab' asWideString > 'aa'). + self assert: ('ab' asWideString >= 'aa'). + self assert: ('aa' asWideString >= 'aa'). + + self assert: ('aa' asWideString< 'ab' asWideString). + self assert: ('aa' asWideString<= 'ab' asWideString). + self assert: ('aa' asWideString<= 'aa' asWideString). + self assert: ('ab' asWideString> 'aa' asWideString). + self assert: ('ab' asWideString >= 'aa' asWideString). + self assert: ('aa' asWideString>= 'aa' asWideString).! Item was added: + ----- Method: WideStringTest>>testRelationOrderWithCase (in category 'tests - relation order') ----- + testRelationOrderWithCase + "from johnmci at http://bugs.squeak.org/view.php?id=5331" + + self assert: ('ABC' caseInsensitiveLessOrEqual: 'abc'). + self assert: ('ABC' caseInsensitiveLessOrEqual: 'abd'). + self assert: ('ABD' caseInsensitiveLessOrEqual: 'abc') not. + self assert: ('ABC' caseInsensitiveLessOrEqual: 'abc' asWideString). + self assert: ('ABC' caseInsensitiveLessOrEqual: 'abd' asWideString). + self assert: ('ABD' caseInsensitiveLessOrEqual: 'abc' asWideString) not. + self assert: ('ABC' asWideString caseInsensitiveLessOrEqual: 'abc'). + self assert: ('ABC' asWideString caseInsensitiveLessOrEqual: 'abd'). + self assert: ('ABD' asWideString caseInsensitiveLessOrEqual: 'abc') not. + self assert: ('ABC' asWideString caseInsensitiveLessOrEqual: 'abc' asWideString). + self assert: ('ABC' asWideString caseInsensitiveLessOrEqual: 'abd' asWideString). + self assert: ('ABD' asWideString caseInsensitiveLessOrEqual: 'abc' asWideString) not. + + + self assert: ('abc' caseSensitiveLessOrEqual: 'abc'). + self assert: ('abc' caseSensitiveLessOrEqual: 'abd'). + self assert: ('abd' caseSensitiveLessOrEqual: 'abc') not. + self assert: ('abc' caseSensitiveLessOrEqual: 'abc' asWideString). + self assert: ('abc' caseSensitiveLessOrEqual: 'abd' asWideString). + self assert: ('abd' caseSensitiveLessOrEqual: 'abc' asWideString) not. + self assert: ('abc' asWideString caseSensitiveLessOrEqual: 'abc'). + self assert: ('abc' asWideString caseSensitiveLessOrEqual: 'abd'). + self assert: ('abd' asWideString caseSensitiveLessOrEqual: 'abc') not. + self assert: ('abc' caseSensitiveLessOrEqual: 'ABC') not. + !

1 0

[ANN] OmniBrowser 2.0.3
by Colin Putney 03 Oct '09

03 Oct '09

Hi all, I'm happy to announce a new release of OmniBrowser. It's been quite a while since the last official release, and that has force folks that want to run the current code base to download and install directly from the Monticello repositories used for development. There have been a lot of contributors, each pulling in different directions, and it's been difficult for the various Squeak distributions that use OmniBrowser to put together a coherent installation. I think moving to more formal release practices, with explicit version numbers, supported platforms, release testing and so on will make it a lot easier to install and use OmniBrowser without having to understand the ins and outs of the code base and development community. In putting together this release, I wanted to tighten up and repackage the existing functionality–b=new features can wait until 2.1. I've tried to find the best mix of framework flexibility, browser features, code quality and performance that I could. This has meant cutting some features, and probably will mean further simplification and streamlining in subsequent releases. It'll also mean pulling OmniBrowser "extensions" into the standard distribution as the become stable. This is the third release in the 2.0 series; the first two releases were "private" releases announced only on the omnibrowser-dev list, to gain feedback and flush out issues with the distribution format. Download it from: http://www.wiresong.ca/static/releases/OmniBrowser-2.0.3.zip Colin

5 11

The Trunk: Morphic-ml.196.mcz
by commits＠source.squeak.org 03 Oct '09

03 Oct '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ml.196.mcz ==================== Summary ==================== Name: Morphic-ml.196 Author: ml Time: 2 October 2009, 6:14:51 am UUID: 702387f4-17e2-4cf2-a319-26761312c653 Ancestors: Morphic-ar.195 Using minWidth and minHeight instead of minExtent to determine the bounds within a ProportionalSplitterMorph can be dragged. This gives more predictable and expected results than previously. It also results in better behaviour when the system window gets resized to a smaller size. =============== Diff against Morphic-ar.195 =============== Item was added: + MorphicModel subclass: #MorphicModel3 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Models'! Item was changed: ----- Method: ProportionalSplitterMorph>>minimumWidthOf: (in category 'as yet unclassified') ----- minimumWidthOf: aCollection "Answer the minimum width needed to display any of the morphs in aCollection." ^ aCollection inject: 0 into: [ :width :morph | + (morph minWidth + self width) max: width]! - morph minExtent x max: width]! Item was changed: ----- Method: ProportionalSplitterMorph>>minimumHeightOf: (in category 'as yet unclassified') ----- minimumHeightOf: aCollection "Answer the minimum height needed to display any of the morphs in aCollection." ^ aCollection inject: 0 into: [ :height :morph | + (morph minHeight + self height) max: height]! - morph minExtent y max: height]!

1 0

Iliad 0.7 is out!
by Nicolas Petton 02 Oct '09

02 Oct '09

We are proud to announce the release of Iliad version 0.7! New features include: - The ability to bookmark AJAX applications - Important optimizations (Thanks to Paolo Bonzini and Stefan Schmiedl) - A new XHTMLElement api which follows closely XHTML tags and attribute names, the old one has been moved to deprecated - A new RSS elements hierarchy - The javascript layer has been rewritten from scratch - More widgets in the UI package - View methods in applications are now called controller methods (this is what they really are about) - New methods in Widget for control flow like #replace:* methods - More unit tests - A lot of cleanup and bug fixes Squeakers can download it from the SqueakSource repository: http://www.squeaksource.com/Iliad Load packages it in this order: Iliad-Core, Iliad-Swazoo, Iliad-More-RSS, Iliad-More-UI, Iliad-More-Magritte, Iliad-More-Examples, Iliad-Tests and download static files from: http://iliad.bioskop.fr/attachments/1/Public.zip then start Swazoo: SwazooIliad startOn: PORT You can browse examples at: http://localhost:PORT/browse Happy Iliad hacking! Nicolas Petton & Sébastien Audier

1 0

[ANN] New release of Cuis (#0316)
by Juan Vuletich 02 Oct '09

02 Oct '09

Hi Folks, A new release of Cuis is at http://www.jvuletich.org/Cuis/Index.html . News are lots of cleanup and simplification in Morphic, the text subsystem, and event dispatching. Comments welcome. Cheers, Juan Vuletich

1 0

Re: [BUG]UndefinedObject(Object)>>doesNotUnderstand: #mimeTypes
by Torsten Bergmann 01 Oct '09

01 Oct '09

Had the same problem and was not able to reproduce it yet... Bye T. -- Jetzt kostenlos herunterladen: Internet Explorer 8 und Mozilla Firefox 3 - sicherer, schneller und einfacher! http://portal.gmx.net/de/go/atbrowser

5 8

The Trunk: Compiler-jcg.87.mcz
by commits＠source.squeak.org 01 Oct '09

01 Oct '09

Joshua Gargus uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-jcg.87.mcz ==================== Summary ==================== Name: Compiler-jcg.87 Author: jcg Time: 30 September 2009, 11:21:53 am UUID: 71bf4e8d-f9f3-4371-a218-ad31a985cfd8 Ancestors: Compiler-ul.86 Revert to lazy-initialization of method properties, which is used by the externally-maintained Prolog package (which loads cleanly into 3.10.2, but not trunk). Part 2 of 2... need to load -jcg.85 first (this is taken care of by the Monticello Configuration update-jcg.32.mcm) =============== Diff against Compiler-ul.86 =============== Item was changed: ----- Method: Parser>>addPragma: (in category 'pragmas') ----- addPragma: aPragma + properties := self properties copyWith: aPragma! - properties := properties copyWith: aPragma! Item was changed: ----- Method: Parser>>method:context:encoder: (in category 'expression types') ----- method: doit context: ctxt encoder: encoderToUse " pattern [ | temporaries ] block => MethodNode." | sap blk prim temps messageComment methodNode | - properties := AdditionalMethodState new. encoder := encoderToUse. sap := self pattern: doit inContext: ctxt. "sap={selector, arguments, precedence}" + self properties selector: (sap at: 1). - properties selector: (sap at: 1). encoder selector: (sap at: 1). (sap at: 2) do: [:argNode | argNode beMethodArg]. doit ifFalse: [self pragmaSequence]. temps := self temporaries. messageComment := currentComment. currentComment := nil. doit ifFalse: [self pragmaSequence]. prim := self pragmaPrimitives. self statements: #() innerBlock: doit. blk := parseNode. doit ifTrue: [blk returnLast] ifFalse: [blk returnSelfIfNoOther: encoder]. hereType == #doIt ifFalse: [^self expected: 'Nothing more']. self interactive ifTrue: [self removeUnusedTemps]. methodNode := self newMethodNode comment: messageComment. ^methodNode selector: (sap at: 1) arguments: (sap at: 2) precedence: (sap at: 3) temporaries: temps block: blk encoder: encoder primitive: prim properties: properties! Item was changed: ----- Method: MethodNode>>selector:arguments:precedence:temporaries:block:encoder:primitive: (in category 'initialize-release') ----- selector: selOrFalse arguments: args precedence: p temporaries: temps block: blk encoder: anEncoder primitive: prim + + self + selector: selOrFalse + arguments: args + precedence: p + temporaries: temps + block: blk encoder: + anEncoder + primitive: prim + properties: AdditionalMethodState new.! - "Initialize the receiver with respect to the arguments given." - - encoder := anEncoder. - selectorOrFalse := selOrFalse. - precedence := p. - arguments := args. - temporaries := temps. - block := blk. - primitive := prim! Item was changed: ----- Method: Parser>>pragmaPrimitives (in category 'pragmas') ----- pragmaPrimitives | primitives | + self properties isEmpty ifTrue: - properties isEmpty ifTrue: [^0]. primitives := properties pragmas select: [:pragma| self class primitivePragmaSelectors includes: pragma keyword]. primitives isEmpty ifTrue: [^0]. primitives size > 1 ifTrue: [^self notify: 'Ambigous primitives']. ^self perform: primitives first keyword withArguments: primitives first arguments!

1 0

The Trunk: Collections-ar.150.mcz
by commits＠source.squeak.org 01 Oct '09

01 Oct '09

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.150.mcz ==================== Summary ==================== Name: Collections-ar.150 Author: ar Time: 30 September 2009, 9:29:03 am UUID: ed19ab06-dd57-0e4f-a80c-0c5cba39e948 Ancestors: Collections-ul.148, Collections-ul.149 Merging Collections-ul.149: - removed zero check from WeakSet >> #like: =============== Diff against Collections-ul.148 =============== Item was changed: ----- Method: WeakSet>>like: (in category 'public') ----- like: anObject "Answer an object in the receiver that is equal to anObject, nil if no such object is found. Relies heavily on hash properties" + | element | + ^(element := array at: (self scanFor: anObject)) == flag + ifFalse: [ element ]! - | index element | - - ^(index := self scanFor: anObject) = 0 - ifFalse: [(element := array at: index) == flag ifFalse: [element]]!

1 0

The Trunk: Kernel-ul.254.mcz
by commits＠source.squeak.org 01 Oct '09

01 Oct '09

Andreas Raab uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.254.mcz ==================== Summary ==================== Name: Kernel-ul.254 Author: ul Time: 30 September 2009, 3:04:30 am UUID: e908dda7-2b3b-3d4b-b301-08b2a4d289bf Ancestors: Kernel-ar.253 - replaced #whileFalse: with #whileFalse in MethodDictionary >> #scanFor: =============== Diff against Kernel-ar.253 =============== Item was changed: ----- Method: MethodDictionary>>scanFor: (in category 'private') ----- scanFor: anObject "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." | index start | index := start := anObject identityHash \\ array size + 1. [ | element | ((element := self basicAt: index) == nil or: [ element == anObject ]) ifTrue: [ ^index ]. + (index := index \\ array size + 1) = start ] whileFalse. - (index := index \\ array size + 1) = start ] whileFalse: [ ]. self errorNoFreeSpace!

1 0

The Trunk: Compiler-ul.86.mcz
by commits＠source.squeak.org 01 Oct '09

01 Oct '09

Andreas Raab uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.86.mcz ==================== Summary ==================== Name: Compiler-ul.86 Author: ul Time: 30 September 2009, 3:03:27 am UUID: aed23852-da1c-3b4f-88e8-33c860f282dd Ancestors: Compiler-jcg.85 - new #scanFor: for LiteralDictionary too =============== Diff against Compiler-jcg.85 =============== Item was changed: ----- Method: LiteralDictionary>>scanFor: (in category 'as yet unclassified') ----- scanFor: anObject + "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." - "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or zero if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." - | element start finish | - finish := array size. - start := (anObject hash \\ finish) + 1. + | index start | + index := start := anObject hash \\ array size + 1. + [ + | element | + ((element := array at: index) == nil or: [ + self literalEquality: element key and: anObject ]) + ifTrue: [ ^index ]. + (index := index \\ array size + 1) = start ] whileFalse. + self errorNoFreeSpace! - "Search from (hash mod size) to the end." - start to: finish do: - [:index | ((element := array at: index) == nil - or: [self literalEquality: element key and: anObject]) - ifTrue: [^ index ]]. - - "Search from 1 to where we started." - 1 to: start-1 do: - [:index | ((element := array at: index) == nil - or: [self literalEquality: element key and: anObject]) - ifTrue: [^ index ]]. - - ^ 0 "No match AND no empty slot"!

1 0

Jump to page: