Packages February 2017

packages@lists.squeakfoundation.org

1 participants
69 discussions

The Trunk: Compiler-ul.329.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.329.mcz ==================== Summary ==================== Name: Compiler-ul.329 Author: ul Time: 27 February 2017, 2:04:49.47425 am UUID: df499238-217a-4e1c-a710-77577e4df261 Ancestors: Compiler-nice.328 - omit ifAbsent from #index* sends when it would use the default value, 0 =============== Diff against Compiler-nice.328 =============== Item was changed: ----- Method: EncoderForV3>>genPushSpecialLiteral: (in category 'bytecode generation') ----- genPushSpecialLiteral: aLiteral "112-119 01110iii Push (receiver, true, false, nil, -1, 0, 1, 2) [iii]" | index | + index := #(true false nil -1 0 1 2) indexOf: aLiteral. - index := #(true false nil -1 0 1 2) indexOf: aLiteral ifAbsent: 0. index = 0 ifTrue: [^self error: 'push special literal: ', aLiteral printString, ' is not one of true false nil -1 0 1 2']. stream nextPut: index + 112! Item was changed: ----- Method: EncoderForV3>>genReturnSpecialLiteral: (in category 'bytecode generation') ----- genReturnSpecialLiteral: aLiteral "120-123 011110ii Return (receiver, true, false, nil) [ii] From Message" | index | + index := #(true false nil) indexOf: aLiteral. - index := #(true false nil) indexOf: aLiteral ifAbsent: 0. index = 0 ifTrue: [^self error: 'return special literal: ', aLiteral printString, ' is not one of true false nil']. stream nextPut: 120 + index! Item was changed: ----- Method: Parser>>removeEmptyTempDeclarationsFrom: (in category 'error correction') ----- removeEmptyTempDeclarationsFrom: methodNode | sourceCode madeChanges tempsMarkHolder | sourceCode := cue requestor text asString. tempsMarkHolder := self collectTemporaryDeclarationsFrom: methodNode. madeChanges := false. tempsMarkHolder do: [ :currentBlock | | tempsMarkChar0 tempsMarkChar1 tempsMarkChar2 end start | tempsMarkChar0 := (sourceCode at: currentBlock tempsMark). tempsMarkChar1 := (sourceCode at: currentBlock tempsMark - 1). tempsMarkChar2 := (sourceCode at: currentBlock tempsMark - 2). tempsMarkChar0 = $| & tempsMarkChar1 = $| ifTrue: [ end := currentBlock tempsMark. start := end - 1]. tempsMarkChar0 = $| & tempsMarkChar1 = $ & tempsMarkChar2 = $| ifTrue: [ end := currentBlock tempsMark. start := end - 2]. start notNil & end notNil ifTrue: [ | lineStart lineEnd | lineStart := 1 + (sourceCode lastIndexOf: Character cr + startingAt: start - 1). - startingAt: start - 1 - ifAbsent: [ 0 ]). lineEnd := sourceCode indexOf: Character cr startingAt: end + 1 ifAbsent: [ sourceCode size ]. ((sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: lineStart) >= start and: [ (sourceCode indexOfAnyOf: CharacterSet nonSeparators startingAt: end + 1) > lineEnd ]) ifTrue: [ start := lineStart. end := lineEnd ]. cue requestor correctFrom: start to: end with: ''. madeChanges := true. currentBlock tempsMark: nil ] ]. madeChanges ifTrue: [ReparseAfterSourceEditing signal]!

1 0

The Trunk: Collections-ul.738.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.738.mcz ==================== Summary ==================== Name: Collections-ul.738 Author: ul Time: 27 February 2017, 12:50:24.923499 am UUID: 3cdaac93-5a62-4fb6-8037-4323767c63a1 Ancestors: Collections-ul.737 Part #3 of Improve SequenceableCollection's index-related search methods - fixed typo in #indexOf:startingAt:ifAbsent: - trimmed unnecessary #ifAbsent: sends - improved a few methods =============== Diff against Collections-ul.737 =============== Item was changed: ----- Method: ByteString>>substrings (in category 'converting') ----- substrings "Answer an array of the substrings that compose the receiver." + + ^Array streamContents: [ :stream | + | end start | + end := 1. + "find one substring each time through this loop" + [ "find the beginning of the next substring" + (start := self + indexOfAnyOf: CharacterSet nonSeparators + startingAt: end) = 0 ] + whileFalse: [ + "find the end" + end := self + indexOfAnyOf: CharacterSet separators + startingAt: start + ifAbsent: [ self size + 1 ]. + stream nextPut: (self copyFrom: start to: end - 1) ] ]! - | result end beginning | - result := WriteStream on: (Array new: 10). - end := 0. - "find one substring each time through this loop" - [ "find the beginning of the next substring" - beginning := self indexOfAnyOf: CharacterSet nonSeparators - startingAt: end+1 ifAbsent: [ nil ]. - beginning ~~ nil ] whileTrue: [ - "find the end" - end := self indexOfAnyOf: CharacterSet separators - startingAt: beginning ifAbsent: [ self size + 1 ]. - end := end - 1. - result nextPut: (self copyFrom: beginning to: end). - ]. - ^result contents! Item was changed: ----- Method: RWBinaryOrTextStream>>upTo: (in category 'accessing') ----- upTo: anObject "fast version using indexOf:" | start end | - start := position+1. isBinary ifTrue: [ anObject isInteger ifFalse: [ ^self upToEnd ] ] ifFalse: [ anObject isCharacter ifFalse: [ ^self upToEnd ] ]. + start := position + 1. + end := collection indexOf: anObject asCharacter startingAt: start. - end := collection indexOf: anObject asCharacter startingAt: start ifAbsent: [ 0 ]. "not present--return rest of the collection" (end = 0 or: [end > readLimit]) ifTrue: [ ^self upToEnd ]. "skip to the end and return the data passed over" position := end. ^((isBinary ifTrue: [ ByteArray ] ifFalse: [ String ]) new: end - start) replaceFrom: 1 to: end - start with: collection startingAt: start! Item was changed: ----- Method: ReadStream>>upToAnyOf:do: (in category 'accessing') ----- upToAnyOf: aCollection do: aBlock "Overriden for speed" | end result | + end := collection indexOfAnyOf: aCollection startingAt: 1 + position. - end := collection indexOfAnyOf: aCollection startingAt: 1 + position ifAbsent: [0]. (end = 0 or: [end > readLimit]) ifTrue: [^self upToEnd]. result := collection copyFrom: 1 + position to: -1 + end. position := end. aBlock value: (collection at: end). ^result! Item was changed: ----- Method: SequenceableCollection>>indexOf:startingAt:ifAbsent: (in category 'accessing') ----- indexOf: anElement startingAt: start ifAbsent: exceptionBlock "Answer the index of the first occurence of anElement after start within the receiver. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock." | index | + (index := self indexOf: anElement startingAt: start) = 0 ifFalse: [ ^index ]. - (index := self indexOf: start startingAt: start) = 0 ifFalse: [ ^index ]. ^exceptionBlock value! Item was changed: ----- Method: String>>withBlanksTrimmed (in category 'converting') ----- withBlanksTrimmed "Return a copy of the receiver from which leading and trailing blanks have been trimmed." | first last | + first := self indexOfAnyOf: CharacterSet nonSeparators startingAt: 1. - first := self indexOfAnyOf: CharacterSet nonSeparators startingAt: 1 ifAbsent: [0]. first = 0 ifTrue: [ ^'' ]. "no non-separator character" last := self lastIndexOfAnyOf: CharacterSet nonSeparators startingAt: self size ifAbsent: [self size]. (first = 1 and: [ last = self size ]) ifTrue: [ ^self copy ]. ^self copyFrom: first to: last !

1 0

The Trunk: Collections-ul.737.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.737.mcz ==================== Summary ==================== Name: Collections-ul.737 Author: ul Time: 26 February 2017, 11:57:55.668118 pm UUID: 8c9af190-2eba-4c9c-98d6-65aab3850908 Ancestors: Collections-ul.736 Part #2 of Improve SequenceableCollection's index-related search methods - rewrote remaining #indexOf*ifAbsent: implementations in SequenceableCollection - removed remaining #indexOf*ifAbsent: implementations from subclasses - implemented correct variant of #indexOfSubCollection:startingAt: in String ('abc' indexOfSubCollection: #[98] startingAt: 1 ifAbsent: [ 0 ] returns 0 instead of 2) =============== Diff against Collections-ul.736 =============== Item was removed: - ----- Method: ByteArray>>indexOf:startingAt:ifAbsent: (in category 'accessing') ----- - indexOf: anInteger startingAt: start ifAbsent: aBlock - - | index | - (index := self indexOf: anInteger startingAt: start) = 0 ifTrue: [ ^aBlock value ]. - ^index! Item was removed: - ----- Method: ByteString>>indexOfAnyOf:startingAt:ifAbsent: (in category 'accessing') ----- - indexOfAnyOf: aCollection startingAt: start ifAbsent: aBlock - "Use double dispatching for speed" - | index | - ^(index := aCollection findFirstInByteString: self startingAt: start) = 0 - ifTrue: [aBlock value] - ifFalse: [index]! Item was removed: - ----- Method: ByteSymbol>>indexOfAnyOf:startingAt:ifAbsent: (in category 'accessing') ----- - indexOfAnyOf: aCollection startingAt: start ifAbsent: aBlock - "Use double dispatching for speed" - | index | - ^(index := aCollection findFirstInByteString: self startingAt: start) = 0 - ifTrue: [aBlock value] - ifFalse: [index]! Item was removed: - ----- Method: Interval>>indexOf:startingAt:ifAbsent: (in category 'accessing') ----- - indexOf: anElement startingAt: startIndex ifAbsent: exceptionBlock - "startIndex is an positive integer, the collection index where the search is started." - "during the computation of val , floats are only used when the receiver contains floats" - - | index val | - (self rangeIncludes: anElement) - ifFalse: [^ exceptionBlock value]. - val := anElement - self first / self increment. - val isFloat - ifTrue: [(val - val rounded) abs * 100000000 < 1 - ifTrue: [index := val rounded + 1] - ifFalse: [^ exceptionBlock value]] - ifFalse: [val isInteger - ifTrue: [index := val + 1] - ifFalse: [^ exceptionBlock value]]. - "finally, the value of startIndex comes into play:" - ^ (index between: startIndex and: self size) - ifTrue: [index] - ifFalse: [exceptionBlock value]! Item was removed: - ----- Method: LinkedList>>indexOf:startingAt:ifAbsent: (in category 'private') ----- - indexOf: anElement startingAt: start ifAbsent: exceptionBlock - "Answer the index of the first occurence of anElement after start - within the receiver. If the receiver does not contain anElement, - answer the result of evaluating the argument, exceptionBlock." - - |currentLink index| - currentLink := self linkAt: start ifAbsent: [nil]. - index := start. - [currentLink isNil ] - whileFalse: [currentLink value = anElement value ifTrue: [^index]. - currentLink := currentLink nextLink. - index := index +1]. - ^exceptionBlock value! Item was removed: - ----- Method: OrderedCollection>>indexOf:startingAt:ifAbsent: (in category 'accessing') ----- - indexOf: anElement startingAt: start ifAbsent: exceptionBlock - "Optimized version." - - firstIndex + start - 1 to: lastIndex do: [ :index | - (array at: index) = anElement ifTrue: [ ^index - firstIndex + 1 ] ]. - ^exceptionBlock value! Item was changed: ----- Method: SequenceableCollection>>indexOf:startingAt:ifAbsent: (in category 'accessing') ----- indexOf: anElement startingAt: start ifAbsent: exceptionBlock "Answer the index of the first occurence of anElement after start within the receiver. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock." + | index | + (index := self indexOf: start startingAt: start) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! - start to: self size do: - [:index | - (self at: index) = anElement ifTrue: [^ index]]. - ^ exceptionBlock value! Item was changed: ----- Method: SequenceableCollection>>indexOfAnyOf:startingAt:ifAbsent: (in category 'accessing') ----- indexOfAnyOf: aCollection startingAt: start ifAbsent: exceptionBlock "Answer the index of the first occurence of any element included in aCollection after start within the receiver. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock. Note: it is user responsibility to provide aCollection that behaves relatevily fast when asked for includes: (like a Set)" + | index | + (index := self indexOfAnyOf: aCollection startingAt: start) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! - start to: self size do: - [:index | - (aCollection includes: (self at: index)) ifTrue: [^ index]]. - ^ exceptionBlock value! Item was removed: - ----- Method: String>>indexOf:startingAt:ifAbsent: (in category 'accessing') ----- - indexOf: aCharacter startingAt: start ifAbsent: aBlock - - | index | - (index := self indexOf: aCharacter startingAt: start) = 0 ifTrue: [ ^aBlock value ]. - ^index! Item was added: + ----- Method: String>>indexOfSubCollection:startingAt: (in category 'accessing') ----- + indexOfSubCollection: subCollection startingAt: start + + subCollection isString ifFalse: [ ^super indexOfSubCollection: subCollection startingAt: start ]. + ^self findString: subCollection startingAt: start caseSensitive: true! Item was removed: - ----- Method: String>>indexOfSubCollection:startingAt:ifAbsent: (in category 'accessing') ----- - indexOfSubCollection: sub startingAt: start ifAbsent: exceptionBlock - | index | - index := self findString: sub startingAt: start. - index = 0 ifTrue: [^ exceptionBlock value]. - ^ index!

1 0

The Trunk: Collections-ul.736.mcz
by commits＠source.squeak.org 27 Feb '17

27 Feb '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.736.mcz ==================== Summary ==================== Name: Collections-ul.736 Author: ul Time: 26 February 2017, 9:40:39.679834 pm UUID: 81b6c60e-5ac9-4fd9-a53e-ba9259958a1d Ancestors: Collections-ul.735 Part #1 of Improve SequenceableCollection's index-related search methods - moved actual implementations (in subclasses too) to block-free methods: #indexOf:startingAt:, #identityIndexOf:startingAt:, #indexOfAnyOf:startingAt:, #indexOfSubCollection:startingAt:, #lastIndexOf:startingAt: and #lastIndexOfAnyOf:startingAt: - added #identityIndexOf:startingAt:, #identityIndexOf:startingAt:ifAbsent:, #lastIndexOfAnyOf:, #lastIndexOfAnyOf:ifAbsent: - removed the now unnecessary #indexOf: override from ByteArray ans String - pulled up #indexOfSubCollection: from String - improved #replaceAll:with: =============== Diff against Collections-ul.735 =============== Item was removed: - ----- Method: ByteArray>>indexOf: (in category 'accessing') ----- - indexOf: anInteger - - ^self indexOf: anInteger startingAt: 1! Item was added: + ----- Method: Interval>>indexOf:startingAt: (in category 'accessing') ----- + indexOf: anElement startingAt: startIndex + "startIndex is an positive integer, the collection index where the search is started." + "during the computation of val , floats are only used when the receiver contains floats" + + | index val | + (self rangeIncludes: anElement) ifFalse: [ ^0 ]. + val := anElement - self first / self increment. + val isFloat + ifTrue: [ + (val - val rounded) abs * 100000000 < 1 ifFalse: [ ^0 ]. + index := val rounded + 1 ] + ifFalse: [ + val isInteger ifFalse: [ ^0 ]. + index := val + 1 ]. + "finally, the value of startIndex comes into play:" + (index between: startIndex and: self size) ifFalse: [ ^0 ]. + ^index! Item was added: + ----- Method: LinkedList>>indexOf:startingAt: (in category 'private') ----- + indexOf: anElement startingAt: start + "Answer the index of the first occurence of anElement after start + within the receiver. If the receiver does not contain anElement, + answer the result of evaluating the argument, exceptionBlock." + + |currentLink index| + currentLink := self linkAt: start ifAbsent: [nil]. + index := start. + [ currentLink == nil ] + whileFalse: [currentLink value = anElement value ifTrue: [^index]. + currentLink := currentLink nextLink. + index := index +1]. + ^0! Item was added: + ----- Method: OrderedCollection>>indexOf:startingAt: (in category 'accessing') ----- + indexOf: anElement startingAt: start + "Optimized version." + + firstIndex + start - 1 to: lastIndex do: [ :index | + (array at: index) = anElement ifTrue: [ ^index - firstIndex + 1 ] ]. + ^0! Item was changed: ----- Method: SequenceableCollection>>identityIndexOf: (in category 'accessing') ----- identityIndexOf: anElement "Answer the index of anElement within the receiver. If the receiver does not contain anElement, answer 0." + ^self identityIndexOf: anElement startingAt: 1! - ^self identityIndexOf: anElement ifAbsent: [0]! Item was changed: ----- Method: SequenceableCollection>>identityIndexOf:ifAbsent: (in category 'accessing') ----- identityIndexOf: anElement ifAbsent: exceptionBlock "Answer the index of anElement within the receiver. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock." + + | index | + (index := self identityIndexOf: anElement startingAt: 1) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! - 1 to: self size do: - [:i | (self at: i) == anElement ifTrue: [^ i]]. - ^ exceptionBlock value! Item was added: + ----- Method: SequenceableCollection>>identityIndexOf:startingAt: (in category 'accessing') ----- + identityIndexOf: anElement startingAt: startIndex + "Answer the index of anElement within the receiver starting at startIndex. + If the receiver does not contain anElement, answer 0." + + startIndex to: self size do: [ :index | + (self at: index) == anElement ifTrue: [ ^index ] ]. + ^0! Item was added: + ----- Method: SequenceableCollection>>identityIndexOf:startingAt:ifAbsent: (in category 'accessing') ----- + identityIndexOf: anElement startingAt: startIndex ifAbsent: exceptionBlock + "Answer the index of anElement within the receiver starting at startIndex. + If the receiver does not contain anElement, answer the result of evaluating + the argument, exceptionBlock." + + | index | + (index := self identityIndexOf: anElement startingAt: 1) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! Item was changed: ----- Method: SequenceableCollection>>indexOf: (in category 'accessing') ----- indexOf: anElement "Answer the index of the first occurence of anElement within the receiver. If the receiver does not contain anElement, answer 0." + ^self indexOf: anElement startingAt: 1! - ^ self indexOf: anElement ifAbsent: [0]! Item was changed: ----- Method: SequenceableCollection>>indexOf:ifAbsent: (in category 'accessing') ----- indexOf: anElement ifAbsent: exceptionBlock "Answer the index of the first occurence of anElement within the receiver. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock." + | index | + (index := self indexOf: anElement startingAt: 1) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! - ^ self indexOf: anElement startingAt: 1 ifAbsent: exceptionBlock! Item was changed: ----- Method: SequenceableCollection>>indexOf:startingAt: (in category 'accessing') ----- indexOf: anElement startingAt: start "Answer the index of the first occurence of anElement after start within the receiver. If the receiver does not contain anElement, answer 0." + start to: self size do: [ :index | + (self at: index) = anElement ifTrue: [ ^index ] ]. + ^0! - ^self indexOf: anElement startingAt: start ifAbsent: 0! Item was changed: ----- Method: SequenceableCollection>>indexOfAnyOf: (in category 'accessing') ----- indexOfAnyOf: aCollection "Answer the index of the first occurence of any element included in aCollection within the receiver. If the receiver does not contain anElement, answer zero, which is an invalid index." + ^self indexOfAnyOf: aCollection startingAt: 1! - ^self indexOfAnyOf: aCollection startingAt: 1 ifAbsent: [0]! Item was changed: ----- Method: SequenceableCollection>>indexOfAnyOf:startingAt: (in category 'accessing') ----- indexOfAnyOf: aCollection startingAt: start "Answer the index of the first occurence of any element included in aCollection after start within the receiver. If the receiver does not contain anElement, answer zero, which is an invalid index." + start to: self size do: [ :index | + (aCollection includes: (self at: index)) ifTrue: [ ^index ] ]. + ^0! - ^self indexOfAnyOf: aCollection startingAt: start ifAbsent: [0]! Item was added: + ----- Method: SequenceableCollection>>indexOfSubCollection: (in category 'accessing') ----- + indexOfSubCollection: aSubCollection + "Answer the index of the receiver's first element, such that that element + equals the first element of aSubCollection, and the next elements equal + the rest of the elements of aSubCollection. Begin the search at the first + element of the receiver. If no such match is found, answer 0." + + ^self + indexOfSubCollection: aSubCollection + startingAt: 1! Item was changed: ----- Method: SequenceableCollection>>indexOfSubCollection:startingAt: (in category 'accessing') ----- + indexOfSubCollection: subCollection startingAt: start - indexOfSubCollection: aSubCollection startingAt: anIndex "Answer the index of the receiver's first element, such that that element + equals the first element of sub, and the next elements equal + the rest of the elements of sub. Begin the search at element + start of the receiver. If no such match is found, answer 0." - equals the first element of aSubCollection, and the next elements equal - the rest of the elements of aSubCollection. Begin the search at element - anIndex of the receiver. If no such match is found, answer 0." + | first index subCollectionSize | + (subCollectionSize := subCollection size) = 0 ifTrue: [ ^0 ]. + first := subCollection at: 1. + (start max: 1) to: self size - subCollectionSize + 1 do: [ :startIndex | + (self at: startIndex) = first ifTrue: [ + index := 2. + [ index <= subCollectionSize + and: [ (self at: startIndex + index - 1) = (subCollection at: index) ] ] + whileTrue: [ index := index + 1 ]. + index <= subCollectionSize ifFalse: [ ^startIndex ] ] ]. + ^0! - ^self - indexOfSubCollection: aSubCollection - startingAt: anIndex - ifAbsent: [0]! Item was changed: ----- Method: SequenceableCollection>>lastIndexOf: (in category 'accessing') ----- lastIndexOf: anElement "Answer the index of the last occurence of anElement within the receiver. If the receiver does not contain anElement, answer 0." + ^self lastIndexOf: anElement startingAt: self size! - ^ self lastIndexOf: anElement startingAt: self size ifAbsent: [0]! Item was changed: ----- Method: SequenceableCollection>>lastIndexOf:ifAbsent: (in category 'accessing') ----- lastIndexOf: anElement ifAbsent: exceptionBlock "Answer the index of the last occurence of anElement within the receiver. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock." + + | index | + (index := self lastIndexOf: anElement startingAt: self size) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! - ^self lastIndexOf: anElement startingAt: self size ifAbsent: exceptionBlock! Item was added: + ----- Method: SequenceableCollection>>lastIndexOf:startingAt: (in category 'accessing') ----- + lastIndexOf: anElement startingAt: lastIndex + "Answer the index of the last occurence of anElement within the + receiver. If the receiver does not contain anElement, answer the + result of evaluating the argument, exceptionBlock." + + lastIndex to: 1 by: -1 do: [ :index | + (self at: index) = anElement ifTrue: [ ^index ] ]. + ^0! Item was changed: ----- Method: SequenceableCollection>>lastIndexOf:startingAt:ifAbsent: (in category 'accessing') ----- lastIndexOf: anElement startingAt: lastIndex ifAbsent: exceptionBlock "Answer the index of the last occurence of anElement within the receiver. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock." + | index | + (index := self lastIndexOf: anElement startingAt: lastIndex) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! - lastIndex to: 1 by: -1 do: - [:index | - (self at: index) = anElement ifTrue: [^ index]]. - ^ exceptionBlock value! Item was added: + ----- Method: SequenceableCollection>>lastIndexOfAnyOf: (in category 'accessing') ----- + lastIndexOfAnyOf: aCollection + "Answer the index of the last occurence of any element of aCollection + within the receiver. If the receiver does not contain any of those + elements, answer 0" + + ^self lastIndexOfAnyOf: aCollection startingAt: self size! Item was added: + ----- Method: SequenceableCollection>>lastIndexOfAnyOf:ifAbsent: (in category 'accessing') ----- + lastIndexOfAnyOf: aCollection ifAbsent: exceptionBlock + "Answer the index of the last occurence of any element of aCollection + within the receiver. If the receiver does not contain any of those + elements, answer the result of evaluating the argument, exceptionBlock." + + | index | + (index := self lastIndexOfAnyOf: aCollection startingAt: self size) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! Item was added: + ----- Method: SequenceableCollection>>lastIndexOfAnyOf:startingAt: (in category 'accessing') ----- + lastIndexOfAnyOf: aCollection startingAt: lastIndex + "Answer the index of the last occurence of any element of aCollection + within the receiver. If the receiver does not contain any of those + elements, answer 0" + + lastIndex to: 1 by: -1 do: [ :index | + (aCollection includes: (self at: index)) ifTrue: [ ^index ] ]. + ^0! Item was changed: ----- Method: SequenceableCollection>>lastIndexOfAnyOf:startingAt:ifAbsent: (in category 'accessing') ----- lastIndexOfAnyOf: aCollection startingAt: lastIndex ifAbsent: exceptionBlock + "Answer the index of the last occurence of any element of aCollection + within the receiver. If the receiver does not contain any of those + elements, answer the result of evaluating the argument, exceptionBlock." - "Answer the index of the last occurence of anElement within the - receiver. If the receiver does not contain anElement, answer the - result of evaluating the argument, exceptionBlock." + | index | + (index := self lastIndexOfAnyOf: aCollection startingAt: lastIndex) = 0 ifFalse: [ ^index ]. + ^exceptionBlock value! - lastIndex to: 1 by: -1 do: - [:index | - (aCollection includes: (self at: index)) ifTrue: [^ index]]. - ^ exceptionBlock value! Item was changed: ----- Method: SequenceableCollection>>replaceAll:with: (in category 'accessing') ----- replaceAll: oldObject with: newObject "Replace all occurences of oldObject with newObject" + | index | + index := 0. + [ (index := self indexOf: oldObject startingAt: index + 1) = 0 ] + whileFalse: [ self at: index put: newObject ]! - index := self - indexOf: oldObject - startingAt: 1 - ifAbsent: [0]. - [index = 0] - whileFalse: - [self at: index put: newObject. - index := self - indexOf: oldObject - startingAt: index + 1 - ifAbsent: [0]]! Item was removed: - ----- Method: String>>indexOf: (in category 'accessing') ----- - indexOf: aCharacter - - ^self indexOf: aCharacter startingAt: 1 - ! Item was removed: - ----- Method: String>>indexOfSubCollection: (in category 'accessing') ----- - indexOfSubCollection: sub - #Collectn. - "Added 2000/04/08 For ANSI <sequenceReadableCollection> protocol." - ^ self - indexOfSubCollection: sub - startingAt: 1 - ifAbsent: [0]!

1 0

The Trunk: CollectionsTests-ul.276.mcz
by commits＠source.squeak.org 26 Feb '17

26 Feb '17

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.276.mcz ==================== Summary ==================== Name: CollectionsTests-ul.276 Author: ul Time: 26 February 2017, 3:49:59.912456 pm UUID: 713c55b7-3cee-4998-a660-ccc1c7e19430 Ancestors: CollectionsTests-eem.275, CollectionsTests-tonyg.275 - merged =============== Diff against CollectionsTests-eem.275 =============== Item was added: + ----- Method: SequenceableCollectionTest>>testIndexOfSubCollectionStartingAt (in category 'tests - accessing') ----- + testIndexOfSubCollectionStartingAt + | c | + c := 'abcdefg' asArray. "NB. As of Collections-topa.733, String already permitted out-of-bounds start indexes, so we are careful here to select the SequenceableCollection implementation by using asArray." + self assert: (c indexOfSubCollection: 'cde' startingAt: 400) = 0. + self assert: (c indexOfSubCollection: 'cde' startingAt: 4) = 0. + self assert: (c indexOfSubCollection: 'cde' startingAt: 1) = 3. + self assert: (c indexOfSubCollection: 'cde' startingAt: 0) = 3. + self assert: (c indexOfSubCollection: 'cde' startingAt: -1) = 3. + + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: 400) = 0. + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: 4) = 0. + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: 1) = 1. + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: 0) = 1. + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: -1) = 1. + + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: 400) = 0. + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: 4) = 0. + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: 1) = 0. + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: 0) = 0. + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: -1) = 0. + !

1 0

The Trunk: CollectionsTests-tonyg.275.mcz
by commits＠source.squeak.org 26 Feb '17

26 Feb '17

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-tonyg.275.mcz ==================== Summary ==================== Name: CollectionsTests-tonyg.275 Author: tonyg Time: 23 February 2017, 2:35:33.052791 pm UUID: f65bf120-417c-4e73-9eb2-eadc9046f189 Ancestors: CollectionsTests-topa.274 Test SequenceableCollection>>#indexOfSubCollection:startingAt:. =============== Diff against CollectionsTests-topa.274 =============== Item was added: + ----- Method: SequenceableCollectionTest>>testIndexOfSubCollectionStartingAt (in category 'tests - accessing') ----- + testIndexOfSubCollectionStartingAt + | c | + c := 'abcdefg' asArray. "NB. As of Collections-topa.733, String already permitted out-of-bounds start indexes, so we are careful here to select the SequenceableCollection implementation by using asArray." + self assert: (c indexOfSubCollection: 'cde' startingAt: 400) = 0. + self assert: (c indexOfSubCollection: 'cde' startingAt: 4) = 0. + self assert: (c indexOfSubCollection: 'cde' startingAt: 1) = 3. + self assert: (c indexOfSubCollection: 'cde' startingAt: 0) = 3. + self assert: (c indexOfSubCollection: 'cde' startingAt: -1) = 3. + + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: 400) = 0. + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: 4) = 0. + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: 1) = 1. + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: 0) = 1. + self assert: (c indexOfSubCollection: 'abcdefg' startingAt: -1) = 1. + + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: 400) = 0. + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: 4) = 0. + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: 1) = 0. + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: 0) = 0. + self assert: (c indexOfSubCollection: 'abcdefghij' startingAt: -1) = 0. + !

1 0

The Trunk: Collections-tonyg.733.1.mcz
by commits＠source.squeak.org 25 Feb '17

25 Feb '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-tonyg.733.1.mcz ==================== Summary ==================== Name: Collections-tonyg.733.1 Author: tonyg Time: 23 February 2017, 2:44:28.751184 pm UUID: e754e6ad-dd14-4e97-8ec1-82422b8feaa5 Ancestors: Collections-topa.733 Allow zero and negative startingAt indices in SequenceableCollection>>#indexOfSubCollection:startingAt:ifAbsent:, for compatibility with the existing implementation in String. Fixes tests in CollectionsTests-tonyg.275 and NetworkTests-tonyg.44. =============== Diff against Collections-topa.733 =============== Item was changed: ----- Method: SequenceableCollection>>indexOfSubCollection:startingAt:ifAbsent: (in category 'accessing') ----- indexOfSubCollection: sub startingAt: start ifAbsent: exceptionBlock "Answer the index of the receiver's first element, such that that element equals the first element of sub, and the next elements equal the rest of the elements of sub. Begin the search at element start of the receiver. If no such match is found, answer the result of evaluating argument, exceptionBlock." | first index | sub isEmpty ifTrue: [^ exceptionBlock value]. first := sub first. + (start max: 1) to: self size - sub size + 1 do: - start to: self size - sub size + 1 do: [:startIndex | (self at: startIndex) = first ifTrue: [index := 1. [(self at: startIndex+index-1) = (sub at: index)] whileTrue: [index = sub size ifTrue: [^startIndex]. index := index+1]]]. ^ exceptionBlock value!

1 0

The Trunk: Collections-ul.735.mcz
by commits＠source.squeak.org 25 Feb '17

25 Feb '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.735.mcz ==================== Summary ==================== Name: Collections-ul.735 Author: ul Time: 25 February 2017, 11:13:28.853237 pm UUID: 69162a09-6a34-44b2-9a07-5a43e2020df6 Ancestors: Collections-eem.734, Collections-tonyg.733.1 - merged Collections-tonyg.733.1 - Character >> #isSeparator's old version's big comeback with improved comment and performance (25% faster on cog_linux64x64_squeak.cog.spur_201702211732). =============== Diff against Collections-eem.734 =============== Item was changed: ----- Method: Character>>isSeparator (in category 'testing') ----- isSeparator "Answer whether the receiver is one of the separator characters--space, cr, tab, line feed, or form feed." | integerValue | + (integerValue := self asInteger) > 32 ifTrue: [ ^false ]. + integerValue + caseOf: { + [ 32 "space" ] -> [ ^true ]. + [ 9 "tab" ] -> [ ^true ]. + [ 13 "cr"] -> [ ^true ]. + [ 10 "line feed" ] -> [ ^true ]. + [ 12 "form feed"] -> [ ^true ] } + otherwise: [ ^false ]! - (integerValue := self asInteger) > 32 ifTrue: [^false]. - ^#(false false false false false false false false false - true "9 = tab" - true "10 = line feed" - false - true "12 = form feed" - true "13 = cr" - false false false false false false false false false false false false false false false false false false - true) at: integerValue + 1! Item was changed: ----- Method: SequenceableCollection>>indexOfSubCollection:startingAt:ifAbsent: (in category 'accessing') ----- indexOfSubCollection: sub startingAt: start ifAbsent: exceptionBlock "Answer the index of the receiver's first element, such that that element equals the first element of sub, and the next elements equal the rest of the elements of sub. Begin the search at element start of the receiver. If no such match is found, answer the result of evaluating argument, exceptionBlock." | first index | sub isEmpty ifTrue: [^ exceptionBlock value]. first := sub first. + (start max: 1) to: self size - sub size + 1 do: - start to: self size - sub size + 1 do: [:startIndex | (self at: startIndex) = first ifTrue: [index := 1. [(self at: startIndex+index-1) = (sub at: index)] whileTrue: [index = sub size ifTrue: [^startIndex]. index := index+1]]]. ^ exceptionBlock value!

1 0

The Trunk: CollectionsTests-eem.275.mcz
by commits＠source.squeak.org 25 Feb '17

25 Feb '17

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-eem.275.mcz ==================== Summary ==================== Name: CollectionsTests-eem.275 Author: eem Time: 25 February 2017, 11:33:14.19261 am UUID: 4c41f0b5-8da9-4bdf-8a81-24f98cda5662 Ancestors: CollectionsTests-topa.274 Eliminating the explicit mapping to WideString in nextPut: fixes the testStreamAlwaysUseGivenCollection test. =============== Diff against CollectionsTests-topa.274 =============== Item was removed: - ----- Method: WriteStreamTest>>expectedFailures (in category 'tests - character writing') ----- - expectedFailures - - ^ #( testStreamAlwaysUseGivenCollection )!

1 0

The Trunk: Tests-eem.363.mcz
by commits＠source.squeak.org 25 Feb '17

25 Feb '17

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.363.mcz ==================== Summary ==================== Name: Tests-eem.363 Author: eem Time: 25 February 2017, 10:51:47.714322 am UUID: 2a27fe98-6ae1-4c91-a943-dbdfb1ae4078 Ancestors: Tests-jr.362 Fix the testForgivingPrims test for Spur which doesn't respect object ordering. =============== Diff against Tests-jr.362 =============== Item was changed: ----- Method: IslandVMTweaksTestCase>>testForgivingPrims (in category 'testing') ----- testForgivingPrims | aPoint anotherPoint array1 array2 | aPoint := Point x: 5 y: 6. anotherPoint := Point x: 7 y: 8. "make sure there are multiple points floating around" anotherPoint. "stop the compiler complaining about no uses" self assert: Point equals: (self classOf: aPoint). self assert: 5 equals: (self instVarOf: aPoint at: 1). self instVarOf: aPoint at: 2 put: 10. self assert: 10 equals: (self instVarOf: aPoint at: 2). + Smalltalk isRunningSpur "Spur does not maintain object ordering..." + ifTrue: [self assert: Point equals: (self someInstanceOf: Point) class] + ifFalse: + [self someObject. + self nextObjectAfter: aPoint. - self someObject. - self nextObjectAfter: aPoint. + self assert: Point equals: (self someInstanceOf: Point) class. + self assert: Point equals: (self nextInstanceAfter: aPoint) class]. - self assert: Point equals: (self someInstanceOf: Point) class. - self assert: Point equals: (self nextInstanceAfter: aPoint) class. array1 := Array with: 1 with: 2 with: 3. array2 := Array with: 4 with: 5 with: 6. self replaceIn: array1 from: 2 to: 3 with: array2 startingAt: 1. self assert: #(1 4 5) equals: array1.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2017