Packages October 2011

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Tests-nice.133.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.133.mcz ==================== Summary ==================== Name: Tests-nice.133 Author: nice Time: 24 October 2011, 7:17:16.796 pm UUID: a5694376-8adb-f749-91dd-ba749f1a7f54 Ancestors: Tests-eem.132 Add tests for binary selectors with vertical bar =============== Diff against Tests-eem.132 =============== Item was added: + ----- Method: CompilerTest>>testBinarySelectorWithBar (in category 'syntax') ----- + testBinarySelectorWithBar + "Acknowledge the fact that $| is now allowed at any place in a binary selector" + + #(#'||' #'|||' #'|||++' #'<|>') do: [:selector | | source tree | + source := ('1 ' , selector , ' 2') readStream. + tree := (Compiler new) + from: source class: Object context: nil notifying: nil; + translate: source noPattern: true ifFail: [nil]. + self assert: tree notNil. + + "Hem, this test is really ugly..." + self assert: tree block statements first expr selector key = selector].! Item was added: + ----- Method: CompilerTest>>testEmptyTemporaries (in category 'syntax') ----- + testEmptyTemporaries + self assert: (Compiler evaluate: '||') isNil! Item was added: + ----- Method: CompilerTest>>testInvalidVerticalBarSelector (in category 'syntax') ----- + testInvalidVerticalBarSelector + self should: [Compiler evaluate: '1 | | 2'] raise: SyntaxErrorNotification. + self should: [Compiler evaluate: '1 | - 2'] raise: SyntaxErrorNotification.! Item was added: + ----- Method: CompilerTest>>testLocalTemporariesInABlock (in category 'syntax') ----- + testLocalTemporariesInABlock + self assert: ((Compiler evaluate: '[:x|| tmp | tmp := x]') value: 2) = 2!

1 0

The Trunk: Compiler-nice.219.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.219.mcz ==================== Summary ==================== Name: Compiler-nice.219 Author: nice Time: 24 October 2011, 6:52:05.789 pm UUID: 871ffcae-841f-194e-ab14-0a7a493df385 Ancestors: Compiler-nice.218 Let a binary selector be composed of vertical bars. Since st80, such selector were not composed at scan time because of ambiguity with empty temporaries spec || and latter with temporaries in a block of arity >0 like ^[:e|| tmp | tmp := e] But a hack in the Parser did authorize a single #| as a valid binary. Since - we can unambiguously extend this hack easily, - ANSI seems to tell it's a valid binary character in a binary selector, - I never saw any grammar definition explicitely forbidding this, Let's just do it. =============== Diff against Compiler-nice.218 =============== Item was changed: ----- Method: Parser>>messagePart:repeat: (in category 'expression types') ----- messagePart: level repeat: repeat | start receiver selector args precedence words keywordStart | [receiver := parseNode. (hereType == #keyword and: [level >= 3]) ifTrue: [start := self startOfNextToken. selector := WriteStream on: (String new: 32). args := OrderedCollection new. words := OrderedCollection new. [hereType == #keyword] whileTrue: [keywordStart := self startOfNextToken + requestorOffset. selector nextPutAll: self advance. words addLast: (keywordStart to: self endOfLastToken + requestorOffset). self primaryExpression ifFalse: [^self expected: 'Argument']. self messagePart: 2 repeat: true. args addLast: parseNode]. (Symbol hasInterned: selector contents ifTrue: [ :sym | selector := sym]) ifFalse: [ selector := self correctSelector: selector contents wordIntervals: words exprInterval: (start to: self endOfLastToken) ifAbort: [ ^ self fail ] ]. precedence := 3] + ifFalse: [ + (level >= 2 and: [hereType == #verticalBar]) ifTrue: [self transformAVerticalBarIntoABinarySelector]. + (hereType == #binary and: [level >= 2]) - ifFalse: [((hereType == #binary or: [hereType == #verticalBar]) - and: [level >= 2]) ifTrue: [start := self startOfNextToken. selector := self advance asOctetString asSymbol. self primaryExpression ifFalse: [^self expected: 'Argument']. self messagePart: 1 repeat: true. args := Array with: parseNode. precedence := 2] ifFalse: [hereType == #word ifTrue: [start := self startOfNextToken. selector := self advance. args := #(). words := OrderedCollection with: (start + requestorOffset to: self endOfLastToken + requestorOffset). (Symbol hasInterned: selector ifTrue: [ :sym | selector := sym]) ifFalse: [ selector := self correctSelector: selector wordIntervals: words exprInterval: (start to: self endOfLastToken) ifAbort: [ ^ self fail ] ]. precedence := 1] ifFalse: [^args notNil]]]. parseNode := MessageNode new receiver: receiver selector: selector arguments: args precedence: precedence from: encoder sourceRange: (start to: self endOfLastToken). repeat] whileTrue: []. ^true! Item was added: + ----- Method: Parser>>transformAVerticalBarIntoABinarySelector (in category 'scanning') ----- + transformAVerticalBarIntoABinarySelector + "Transform a vertical bar into a binary selector. + Eventually aggregate a serie of immediately following vertical bars and a binary selector. + Note that this aggregation cannot occur at scan time, because a pair of vertical bars can be encountered in two valid constructs: + - either as an empty temporaries specification, + - or as a local temporaries specification in a block of arity > 0" + here := '|'. + hereType := #binary. + [tokenType == #verticalBar and: [hereMark + here size = mark]] + whileTrue: [ + here := here , $|. + hereEnd := hereEnd + 1. + self scanToken]. + (tokenType == #binary and: [hereMark + here size = mark]) + ifTrue: [ + here := here asString , token. + hereType := #binary. + hereEnd := hereEnd + token size. + self scanToken].! Item was changed: ----- Method: Scanner>>xBinary (in category 'multi-character scans') ----- xBinary | startOfToken | tokenType := #binary. startOfToken := mark. token := String with: self step. + [(self typeTableAt: hereChar) == #xBinary or: [(self typeTableAt: hereChar) == #verticalBar]] whileTrue: - [(self typeTableAt: hereChar) == #xBinary] whileTrue: [(hereChar == $- and: [(self typeTableAt: aheadChar) == #xDigit]) ifTrue: [^self ambiguousSelector: (token , '-') inRange: (startOfToken to: source position - 1).]. token := token, (String with: self step)]. token := token asSymbol!

1 0

The Trunk: Compiler-nice.219.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

1 0

The Trunk: Compiler-nice.219.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

1 0

The Trunk: Installer-Core-cmm.352.mcz
by commits＠source.squeak.org 22 Oct '11

22 Oct '11

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.352.mcz ==================== Summary ==================== Name: Installer-Core-cmm.352 Author: cmm Time: 22 October 2011, 11:37:41.234 am UUID: a2c8f97a-d1c7-4022-937c-f8d7ece1f39a Ancestors: Installer-Core-jmg.351 Fix broken Installer class>>#noProgressDuring:. =============== Diff against Installer-Core-jmg.351 =============== Item was changed: ----- Method: Installer class>>noProgressDuring: (in category 'during') ----- noProgressDuring: block + [ block value: self ] + on: ProgressInitiationException + do: [ : note | note sendNotificationsTo: [ :min :max :curr | "ignore" ] ]! - - [ block value: self ] on: ProgressInitiationException do: [ :note | note resume ] - - !

1 0

The Trunk: Installer-Core-cmm.352.mcz
by commits＠source.squeak.org 22 Oct '11

22 Oct '11

1 0

The Trunk: Installer-Core-cmm.352.mcz
by commits＠source.squeak.org 22 Oct '11

22 Oct '11

1 0

The Trunk: Tools-eem.384.mcz
by commits＠source.squeak.org 20 Oct '11

20 Oct '11

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.384.mcz ==================== Summary ==================== Name: Tools-eem.384 Author: eem Time: 20 October 2011, 10:42:43.621 am UUID: 54e08e8e-4591-4281-acc5-5caf02a78f25 Ancestors: Tools-bf.383 Move explore/inspectMetod up to CodeHolder so they work in method lists. =============== Diff against Tools-bf.383 =============== Item was removed: - ----- Method: Browser>>exploreMethod (in category 'message functions') ----- - exploreMethod - currentCompiledMethod notNil ifTrue: - [currentCompiledMethod explore]! Item was removed: - ----- Method: Browser>>inspectMethod (in category 'message functions') ----- - inspectMethod - currentCompiledMethod notNil ifTrue: - [currentCompiledMethod inspect]! Item was added: + ----- Method: CodeHolder>>exploreMethod (in category 'message functions') ----- + exploreMethod + currentCompiledMethod notNil ifTrue: + [currentCompiledMethod explore]! Item was added: + ----- Method: CodeHolder>>inspectMethod (in category 'message functions') ----- + inspectMethod + currentCompiledMethod notNil ifTrue: + [currentCompiledMethod inspect]!

1 0

The Trunk: Tools-eem.384.mcz
by commits＠source.squeak.org 20 Oct '11

20 Oct '11

1 0

The Trunk: Tools-eem.384.mcz
by commits＠source.squeak.org 20 Oct '11

20 Oct '11

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2011