Squeak-dev February 2015

squeak-dev@lists.squeakfoundation.org

45 participants
152 discussions

trunk update screwup
by Eliot Miranda 03 Feb '15

03 Feb '15

Hi All, I've screwed up and somehow managed to create an update with the same number as a previous one. You'll see in trunk update update-eem.295.mcm update-ul.295.mcm and in update.spur update.spur-eem.295.mcm update.spur-ul.295.mcm I don't kno how I did this but can some kind authorised soul rename update-eem.295.mcm => update-eem.296.mcm update.spur-eem.295.mcm => update.spur-eem.296.mcm This is playing havoc with updates... -- best, Eliot

4 8

The Trunk: Collections-eem.603.mcz
by commits＠source.squeak.org 03 Feb '15

03 Feb '15

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.603.mcz ==================== Summary ==================== Name: Collections-eem.603 Author: eem Time: 3 February 2015, 12:06:59.618 pm UUID: 6521c82f-d8de-4c07-a754-3bc3a8667746 Ancestors: Collections-mt.602 Three fewer uses of isKindOf: =============== Diff against Collections-mt.602 =============== Item was changed: ----- Method: Dictionary>>= (in category 'comparing') ----- = aDictionary "Two dictionaries are equal if (a) they are the same 'kind' of thing. (b) they have the same set of keys. (c) for each (common) key, they have the same value" self == aDictionary ifTrue: [ ^ true ]. + aDictionary isDictionary ifFalse: [^false]. - (aDictionary isKindOf: Dictionary) ifFalse: [^false]. self size = aDictionary size ifFalse: [^false]. self associationsDo: [:assoc| (aDictionary at: assoc key ifAbsent: [^false]) = assoc value ifFalse: [^false]]. ^true ! Item was changed: ----- Method: SequenceableCollection>>hasEqualElements: (in category 'comparing') ----- hasEqualElements: otherCollection "Answer whether the receiver's size is the same as otherCollection's size, and each of the receiver's elements equal the corresponding element of otherCollection. This should probably replace the current definition of #= ." | size | + otherCollection isSequenceable ifFalse: [^ false]. - (otherCollection isKindOf: SequenceableCollection) ifFalse: [^ false]. (size := self size) = otherCollection size ifFalse: [^ false]. 1 to: size do: [:index | (self at: index) = (otherCollection at: index) ifFalse: [^ false]]. ^ true! Item was changed: ----- Method: String>>subStrings: (in category 'converting') ----- subStrings: separators "Answer an array containing the substrings in the receiver separated by the elements of separators." | char result sourceStream subString | #Collectn. "Changed 2000/04/08 For ANSI <readableString> protocol." + (separators isString or:[separators allSatisfy: [:element | element isCharacter]]) ifFalse: + [^ self error: 'separators must be Characters.']. - (separators isString or:[separators allSatisfy: [:element | element isKindOf: Character]]) - ifFalse: [^ self error: 'separators must be Characters.']. sourceStream := ReadStream on: self. result := OrderedCollection new. subString := String new. [sourceStream atEnd] whileFalse: [char := sourceStream next. (separators includes: char) ifTrue: [subString notEmpty ifTrue: [result add: subString copy. subString := String new]] ifFalse: [subString := subString , (String with: char)]]. subString notEmpty ifTrue: [result add: subString copy]. ^ result asArray!

1 0

adding a package to trunk...
by Eliot Miranda 03 Feb '15

03 Feb '15

Hi All, just to confirm... I'd like to add some tests for Shout to trunk. How's that done? Does it need a configuration? -- best, Eliot

2 1

The Trunk: ShoutTests-eem.24.mcz
by commits＠source.squeak.org 03 Feb '15

03 Feb '15

Eliot Miranda uploaded a new version of ShoutTests to project The Trunk: http://source.squeak.org/trunk/ShoutTests-eem.24.mcz ==================== Summary ==================== Name: ShoutTests-eem.24 Author: eem Time: 3 February 2015, 11:40:19.199 am UUID: c4047776-b743-4f67-96e2-e2fa2d4ec5d2 Ancestors: ShoutTests-MarcusDenker.23 This is a cut-down version of ShoutTests-MarcusDenker.23 that omits SHStyleElementTest since Squeak's Shout doesn't include SHStyleElement. ==================== Snapshot ==================== SystemOrganization addCategory: #ShoutTests! TestCase subclass: #SHParserST80Test instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ShoutTests'! !SHParserST80Test commentStamp: 'TorstenBergmann 2/12/2014 23:22' prior: 0! SUnit tests for shouts ST80 parser! ----- Method: SHParserST80Test>>d (in category 'tests-manual') ----- d "ensure that d is defined so that we don't get an #undefinedUnary token type "! ----- Method: SHParserST80Test>>e (in category 'tests-manual') ----- e "ensure that e is defined so that we don't get an #undefinedUnary token type "! ----- Method: SHParserST80Test>>q (in category 'tests-manual') ----- q "ensure that q is defined so that we don't get an #undefinedUnary token type "! ----- Method: SHParserST80Test>>r (in category 'tests-manual') ----- r "ensure that r is defined so that we don't get an #undefinedUnary token type "! ----- Method: SHParserST80Test>>s (in category 'tests-manual') ----- s "ensure that s is defined so that we don't get an #undefinedUnary token type "! ----- Method: SHParserST80Test>>testBooleanHierarchy (in category 'tests-smoke') ----- testBooleanHierarchy self verifyHierarchy: Boolean! ----- Method: SHParserST80Test>>testNumberHierarchy (in category 'tests-smoke') ----- testNumberHierarchy self verifyHierarchy: Number! ----- Method: SHParserST80Test>>testNumbers (in category 'tests') ----- testNumbers | types tokens s | s := 'x 1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1'). s := 'x -1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary #- number). self assert: tokens = #('x' '-' '1'). s := 'x -1.1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary #- number). self assert: tokens = #('x' '-' '1.1'). s := 'x -1.1.'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary #- number statementSeparator). self assert: tokens = #('x' '-' '1.1' '.'). s := 'x 1.true'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number statementSeparator #true). self assert: tokens = #('x' '1' '.' 'true'). s := 'x 2r1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '2r1'). s := 'x 2d1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '2d1'). s := 'x 2e1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '2e1'). s := 'x 2q1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '2q1'). s := 'x 16r-A'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r-A'). s := 'x -16r-A'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary #- number). self assert: tokens = #('x' '-' '16r-A'). s := 'x 16r'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r'). s := 'x 16r-'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r-'). s := 'x 16r-d'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r-d'). s := 'x 2r2'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number excessCode). self assert: tokens = #('x' '2r' '2'). s := 'x 1.'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number statementSeparator). self assert: tokens = #('x' '1' '.'). s := 'x 1yourself'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary). self assert: tokens = #('x' '1' 'yourself'). s := 'x 1size'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary). self assert: tokens = #('x' '1' 'size'). s := 'x 1.1size'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary). self assert: tokens = #('x' '1.1' 'size'). s := 'x 1s'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1s'). s := 'x 1.1s'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1.1s'). s := 'x 2r1e26'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '2r1e26'). s := 'x 16r1e-26'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary number). self assert: tokens = #('x' '16r1e' '-' '26'). s := 'x 16r1e'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r1e'). s := 'x 16r1e-1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary number). self assert: tokens = #('x' '16r1e' '-' '1'). s := 'x 16r1e-'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary excessCode). self assert: tokens = #('x' '16r1e' '-' ''). s := 'x 16r1.ABe20'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r1.ABe20'). s := 'x 16r1.ABe-20'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary number). self assert: tokens = #('x' '16r1.ABe' '-' '20'). s := 'x 1.0e14'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1.0e14'). s := 'x 1.0e-14'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1.0e-14'). s := 'x 1.0e14e'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary). self assert: tokens = #('x' '1.0e14' 'e'). "" s := 'x 2r1q26'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '2r1q26'). s := 'x 16r1q-26'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r1q-26'). s := 'x 16r1q'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary). self assert: tokens = #('x' '16r1' 'q'). s := 'x 16r1q-1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r1q-1'). s := 'x 16r1q-'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary binary excessCode). self assert: tokens = #('x' '16r1' 'q' '-' ''). s := 'x 16r1.ABq20'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r1.ABq20'). s := 'x 16r1.ABq-20'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r1.ABq-20'). s := 'x 1.0q14'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1.0q14'). s := 'x 1.0q-14'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1.0q-14'). s := 'x 1.0q14q'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary). self assert: tokens = #('x' '1.0q14' 'q'). "" s := 'x 2r1d26'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '2r1d26'). s := 'x 16r1d-26'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary number). self assert: tokens = #('x' '16r1d' '-' '26'). s := 'x 16r1d'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r1d'). s := 'x 16r1d-1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary number). self assert: tokens = #('x' '16r1d' '-' '1'). s := 'x 16r1d-'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary excessCode). self assert: tokens = #('x' '16r1d' '-' ''). s := 'x 16r1.ABd20'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '16r1.ABd20'). s := 'x 16r1.ABd-20'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary number). self assert: tokens = #('x' '16r1.ABd' '-' '20'). s := 'x 1.0d14'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1.0d14'). s := 'x 1.0d-14'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number). self assert: tokens = #('x' '1.0d-14'). s := 'x 1.0d14d'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary). self assert: tokens = #('x' '1.0d14' 'd'). "" s := 'x -1.1e-2'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary #- number ). self assert: tokens = #('x' '-' '1.1e-2'). "only first - is separate token !!" s := 'x -16r-1.0e-2'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary #- number binary number). self assert: tokens = #('x' '-' '16r-1.0e' '-' '2'). "only first - is separate token !!" s := 'x 1-1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary number ). self assert: tokens = #('x' '1' '-' '1'). s := 'x 1--1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number incompleteBinary number ). self assert: tokens = #('x' '1' '--' '1'). s := 'x 1--"comment"1'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number incompleteBinary comment number ). self assert: tokens = #('x' '1' '--' '"comment"' '1'). s := 'x 1-self'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number binary self ). self assert: tokens = #('x' '1' '-' 'self'). ! ----- Method: SHParserST80Test>>testObjectClass (in category 'tests-smoke') ----- testObjectClass self verifyClass: Object! ----- Method: SHParserST80Test>>tokenTypesIn: (in category 'utilities') ----- tokenTypesIn: aString | parser ranges | parser := SHParserST80 new. ranges := parser rangesIn: aString classOrMetaClass: Object workspace: nil environment: nil. ^ranges asArray collect: [:each | each type]! ----- Method: SHParserST80Test>>tokensIn: (in category 'utilities') ----- tokensIn: aString | parser ranges | parser := SHParserST80 new. ranges := parser rangesIn: aString classOrMetaClass: Object workspace: nil environment: nil. ^ranges asArray collect: [:each | aString copyFrom: each start to: each end]! ----- Method: SHParserST80Test>>verifyClass: (in category 'utilities') ----- verifyClass: aBehavior aBehavior selectors do: [ :selector | self verifyClass: aBehavior selector: selector ] ! ----- Method: SHParserST80Test>>verifyClass:selector: (in category 'utilities') ----- verifyClass: aBehavior selector: aSymbol | ranges position types errors | ranges := SHParserST80 new rangesIn: (aBehavior sourceCodeAt: aSymbol) classOrMetaClass: aBehavior workspace: nil environment: nil. types := #(#default #invalid #excessCode #comment #unfinishedComment #'$' #character #integer #number #- #symbol #stringSymbol #literalArray #string #unfinishedString #assignment #ansiAssignment #literal #keyword #binary #unary #incompleteKeyword #incompleteBinary #incompleteUnary #undefinedKeyword #undefinedBinary #undefinedUnary #patternKeyword #patternBinary #patternUnary #self #super #true #false #nil #thisContext #return #patternArg #methodArg #blockPatternArg #blockArg #argument #blockArgColon #leftParenthesis #rightParenthesis #leftParenthesis1 #rightParenthesis1 #leftParenthesis2 #rightParenthesis2 #leftParenthesis3 #rightParenthesis3 #leftParenthesis4 #rightParenthesis4 #leftParenthesis5 #rightParenthesis5 #leftParenthesis6 #rightParenthesis6 #leftParenthesis7 #rightParenthesis7 #blockStart #blockEnd #blockStart1 #blockEnd1 #blockStart2 #blockEnd2 #blockStart3 #blockEnd3 #blockStart4 #blockEnd4 #blockStart5 #blockEnd5 #blockStart6 #blockEnd6 #blockStart7 #blockEnd7 #arrayStart #arrayEnd #arrayStart1 #arrayEnd1 #byteArrayStart #byteArrayEnd #byteArrayStart1 #byteArrayEnd1 #leftBrace #rightBrace #cascadeSeparator #statementSeparator #externalCallType #externalCallTypePointerIndicator #primitiveOrExternalCallStart #primitiveOrExternalCallEnd #methodTempBar #blockTempBar #blockArgsBar #primitive #externalFunctionCallingConvention #module #blockTempVar #blockPatternTempVar #instVar #workspaceVar #undefinedIdentifier #incompleteIdentifier #tempVar #patternTempVar #poolConstant #classVar #globalVar #pragmaKeyword #pragmaUnary #pragmaBinary) asIdentitySet. errors := #(#excessCode #unfinishedComment #unfinishedString) asIdentitySet. position := 0. ranges do: [ :each | self assert: 1 <= each length description: 'empty range'. self assert: position <= each start description: 'overlapping range'. self assert: each start <= each end description: 'empty range'. self assert: (types includes: each type) description: 'unknown type ' , each type. self deny: (errors includes: each type) description: 'error type ' , each type. position := each end ]! ----- Method: SHParserST80Test>>verifyHierarchy: (in category 'utilities') ----- verifyHierarchy: aBehavior aBehavior withAllSubclassesDo: [ :class | self verifyClass: class; verifyClass: class class ]!

1 0

The Trunk: ShoutCore-eem.43.mcz
by commits＠source.squeak.org 03 Feb '15

03 Feb '15

Eliot Miranda uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-eem.43.mcz ==================== Summary ==================== Name: ShoutCore-eem.43 Author: eem Time: 3 February 2015, 11:38:17.924 am UUID: c34f1798-fdff-4e96-b35a-9c7b1b207289 Ancestors: ShoutCore-ul.42 Port Pharo fixes for parsing " :arg || temps | " in blocks and scaled decimals. =============== Diff against ShoutCore-ul.42 =============== Item was added: + ----- Method: SHParserST80>>parsingBlockArguments (in category 'token testing') ----- + parsingBlockArguments + ^ranges notEmpty and: [ranges last type = #blockPatternArg]! Item was changed: ----- Method: SHParserST80>>scanBinary (in category 'scan') ----- scanBinary | c d | c := self currentChar. currentTokenSourcePosition := sourcePosition. currentToken := c asString. d := self nextChar. ((self isSelectorCharacter: c) or: [c == $:]) ifFalse: [^currentToken]. + (c == $: and: [d == $=]) ifTrue: " := assignment" + [currentToken := currentToken , d asString. + self nextChar. + ^currentToken]. + ((c == $|) and: [self parsingBlockArguments]) ifTrue: + [^currentToken]. + [self isSelectorCharacter: d] whileTrue: + [currentToken := currentToken , d asString. + d := self nextChar]. - (c == $: and: [d == $=]) - ifTrue: [" := assignment" - currentToken := currentToken , d asString. - self nextChar. - ^currentToken]. - [self isSelectorCharacter: d] - whileTrue: [ - currentToken := currentToken , d asString. - d := self nextChar]. ^currentToken! Item was changed: ----- Method: SHParserST80>>scanNumber (in category 'scan') ----- scanNumber | start c nc base | start := sourcePosition. self skipDigits. c := self currentChar. c == $r ifTrue: [ base := Integer readFrom: (ReadStream on: (source copyFrom: start to: sourcePosition - 1)). self peekChar == $- ifTrue:[self nextChar]. self skipBigDigits: base. c := self currentChar. c == $. ifTrue: [ (self isBigDigit: self nextChar base: base) ifFalse: [sourcePosition := sourcePosition - 1] ifTrue: [self skipBigDigits: base]]. c := self currentChar. ('deq'includes: c) ifTrue: [ ((encodedCharSet isDigit: (nc := self nextChar)) or: [nc == $- and:[(encodedCharSet isDigit: self peekChar)]]) ifFalse: [sourcePosition := sourcePosition - 1] ifTrue: [self skipDigits]]. c == $s ifTrue: [ + (encodedCharSet isDigit: (nc := self nextChar)) + ifFalse: [nc isLetter ifTrue: [sourcePosition := sourcePosition - 1]] - (encodedCharSet isDigit: self nextChar) - ifFalse: [sourcePosition := sourcePosition - 1] ifTrue: [self skipDigits]]. currentToken := source copyFrom: start to: sourcePosition - 1. ^currentTokenSourcePosition := start]. c == $s ifTrue: [ + (encodedCharSet isDigit: (nc := self nextChar)) + ifFalse: [nc isLetter ifTrue: [sourcePosition := sourcePosition - 1]] - (encodedCharSet isDigit: self nextChar) - ifFalse: [sourcePosition := sourcePosition - 1] ifTrue: [self skipDigits.]. currentToken := source copyFrom: start to: sourcePosition - 1. ^currentTokenSourcePosition := start]. c == $. ifTrue: [ (encodedCharSet isDigit: self nextChar) ifFalse: [ sourcePosition := sourcePosition - 1. currentToken := source copyFrom: start to: sourcePosition - 1. ^currentTokenSourcePosition := start] ifTrue: [self skipDigits]]. c := self currentChar. ('deq' includes: c) ifTrue: [ ((encodedCharSet isDigit: (nc := self nextChar)) or: [nc == $- and:[(encodedCharSet isDigit: self peekChar)]]) ifFalse: [sourcePosition := sourcePosition - 1] ifTrue: [self skipDigits]]. c == $s ifTrue: [ + (encodedCharSet isDigit: (nc := self nextChar)) + ifFalse: [nc isLetter ifTrue: [sourcePosition := sourcePosition - 1]] - (encodedCharSet isDigit: self nextChar) - ifFalse: [sourcePosition := sourcePosition - 1] ifTrue: [self skipDigits]]. currentToken := source copyFrom: start to: sourcePosition - 1. ^currentTokenSourcePosition := start!

1 0

The Trunk: System-eem.703.mcz
by commits＠source.squeak.org 03 Feb '15

03 Feb '15

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.703.mcz ==================== Summary ==================== Name: System-eem.703 Author: eem Time: 3 February 2015, 10:24:10.335 am UUID: 749cbe08-4cc4-4c48-92bb-55dd1d5e8c1c Ancestors: System-eem.702 Fix Homer moment =============== Diff against System-eem.702 =============== Item was changed: ----- Method: DataStream class>>testWith: (in category 'as yet unclassified') ----- testWith: anObject "As a test of DataStream/ReferenceStream, write out anObject and read it back. 11/19/92 jhm: Set the file type. More informative file name." "DataStream testWith: 'hi'" "ReferenceStream testWith: 'hi'" | file result | file := FileStream fileNamed: (self name, ' test'). file binary. (self on: file) nextPut: anObject. file close. file := FileStream fileNamed: (self name, ' test'). file binary. result := (self on: file) next. file close. + (anObject class whichClassIncludesSelector: #=) == Object ifFalse: - (anObject class whichClassIncludesSelector: #=) ifFalse: [self assert: result = anObject]. ^result!

1 0

The Trunk: System-eem.702.mcz
by commits＠source.squeak.org 03 Feb '15

03 Feb '15

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.702.mcz ==================== Summary ==================== Name: System-eem.702 Author: eem Time: 3 February 2015, 10:22:27.685 am UUID: b07f9f90-735b-4389-b13f-9ce95be674c2 Ancestors: System-eem.701 Make DataStream class>>testWith: compare the result if #= doesn't default to #== (or at least doesn't default to Object's#=) =============== Diff against System-eem.701 =============== Item was changed: ----- Method: DataStream class>>testWith: (in category 'as yet unclassified') ----- testWith: anObject "As a test of DataStream/ReferenceStream, write out anObject and read it back. 11/19/92 jhm: Set the file type. More informative file name." "DataStream testWith: 'hi'" "ReferenceStream testWith: 'hi'" | file result | file := FileStream fileNamed: (self name, ' test'). file binary. (self on: file) nextPut: anObject. file close. file := FileStream fileNamed: (self name, ' test'). file binary. result := (self on: file) next. file close. + (anObject class whichClassIncludesSelector: #=) ifFalse: + [self assert: result = anObject]. + ^result! - ^ result!

1 0

The Trunk: ST80-cmm.176.mcz
by commits＠source.squeak.org 03 Feb '15

03 Feb '15

Chris Muller uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-cmm.176.mcz ==================== Summary ==================== Name: ST80-cmm.176 Author: cmm Time: 3 February 2015, 10:14:55.973 am UUID: fa91361a-ca79-4c9a-8106-be54f2d641bd Ancestors: ST80-bf.175 - Present the comparison to clipboard text from the context of paste-modification, since that is what the user is determining whether to do with the clipboard contents. =============== Diff against ST80-bf.175 =============== Item was changed: ----- Method: ParagraphEditor>>compareToClipboard (in category 'menu messages') ----- compareToClipboard + "If any text is selected, present the modifications that would be made to it if the clipboard contents were pasted over it. If no text is selected, present the differences betwen the entire pane's contents and the clipboard text." + | subjectText proposedText | + subjectText := self selection string ifEmpty: [ paragraph text string ]. + proposedText := self clipboardText string. + subjectText = proposedText ifTrue: [^ self inform: 'Exact match']. + (StringHolder new + textContents: + (TextDiffBuilder + buildDisplayPatchFrom: subjectText + to: proposedText)) openLabel: 'Differences with Clipboard Text'! - "Check to see if whether the receiver's text is the same as the text currently on the clipboard, and inform the user." - | s1 s2 | - s1 := self clipboardText string. - s2 := paragraph text string. - s1 = s2 ifTrue: [^ self inform: 'Exact match']. - - (StringHolder new textContents: - (TextDiffBuilder buildDisplayPatchFrom: s1 to: s2)) - openLabel: 'Comparison to Clipboard Text'!

1 0

ClassBuilder update:to: broken with Spur (Eliot ?)
by Stéphane Rollandin 03 Feb '15

03 Feb '15

Hello, In order to load muO in the latest Spur image, I had to reintroduce the garbageCollect that has been deleted from method #update:to: in ClassBuilder. There is a verbose discussion in both the previous and current implementations of this methods. From nice 3/10/2013, we read (talking about the Smalltalk garbageCollect bit): "Warning: Read this before you even think about removing the GC. Yes, it slows us down. Quite heavily if you have a large image. However, there's no good and simple alternative here, since unfortunately, #become: does change class pointers. What happens is that after the above become all of the instances of the old class will have a class pointer identifying them as instances of newClass. If we get our hands on any of these instances we will break immediately since their expected instance layout (that of its class, e.g., newClass) will not match their actual instance layout (that of oldClass). And getting your hands on any of those instances is really simple - just reshaping one class two times in rapid succession will do it. Reflection techniques, interrupts, etc. will only add to this problem. In the case of Metaclass things get even worse since when we recompile the entire class hierarchy we will recompile both, Metaclass and its instances (and some of its instances will have the old and some the new layout). The only easy solution to this problem would be to 'fix up' the class pointers of the old instances to point to the old class (using primitiveChangeClassTo:). But this won't work either - as we do a one-way become we would have to search the entire object memory for the oldClass and couldn't even clearly identify it unless we give it some 'special token' which sounds quite error-prone. If you really need to get rid of the GC here are some alternatives: On the image level, one could create a copy of the oldClass before becoming it into the new class and, after becoming it, 'fix up' the old instances. That would certainly work but it sounds quite complex, as we need to make sure we're not breaking any of the superclass/subclass meta/non-meta class variants. Alternatively, fix up #becomeForward on the VM-level to 'dump the source objects' of #become. This would be quite doable (just 'convert' them into a well known special class such as bitmap) yet it has problems if (accidentally or not) one of the objects in #become: appears on 'both sides of the fence' (right now, this will work ... in a way ... even though the consequences are unclear). Another alternative is to provide a dedicated primitive for this (instead of using it implicitly in become) which would allow us to dump all the existing instances right here. This is equivalent to a more general primitiveChangeClassTo: and might be worthwhile but it would likely have to keep in mind the differences between bits and pointer thingies etc. Since all of the alternatives seem rather complex and magical compared to a straight-forward GC it seems best to stick with the GC solution for now. If someone has a real need to fix this problem, that person will likely be motivated enough to check out the alternatives. Personally I'd probably go for #1 (copy the old class and remap the instances to it) since it's a solution that could be easily reverted from within the image if there's any problem with it." In the current version we read: "eem 5/31/2014 07:22 At this point there used to be a garbage collect whose purpose was to ensure no old instances existed after the becomeForward:. Without the GC it was possible to resurrect old instances using e.g. allInstancesDo:. This was because the becomeForward: updated references from the old objects to new objects but didn't destroy the old objects. But as of late 2013/early 2014 becomeForward: has been modified to free all the old objects." This latest statement may not hold true, since I could not load muO due to "Metaclasses can only have one instance" errors (originating in ClassDescription>>#updateInstances:from:isMeta:. Stef

2 2

The Trunk: Morphic-mt.757.mcz
by commits＠source.squeak.org 03 Feb '15

03 Feb '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.757.mcz ==================== Summary ==================== Name: Morphic-mt.757 Author: mt Time: 3 February 2015, 12:06:47.624 pm UUID: 584dd819-8f9d-0e4a-a0cc-9449a4180066 Ancestors: Morphic-cmm.756 Let CMD+. use the current ToolSet to open the debugger. This is now consistent with the way exceptions do it. =============== Diff against Morphic-cmm.756 =============== Item was changed: ----- Method: MorphicProject>>interruptName:preemptedProcess: (in category 'utilities') ----- interruptName: labelString preemptedProcess: theInterruptedProcess "Create a Notifier on the active scheduling process with the given label." | preemptedProcess projectProcess | ActiveHand ifNotNil:[ActiveHand interrupted]. ActiveWorld := World. "reinstall active globals" ActiveHand := World primaryHand. ActiveHand interrupted. "make sure this one's interrupted too" ActiveEvent := nil. projectProcess := self uiProcess. "we still need the accessor for a while" preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess]. "Only debug preempted process if its priority is >= projectProcess' priority" preemptedProcess priority < projectProcess priority ifTrue:[preemptedProcess := projectProcess]. preemptedProcess suspend. + ToolSet interrupt: preemptedProcess label: labelString.! - Debugger openInterrupt: labelString onProcess: preemptedProcess - !

1 0

Jump to page: