Packages April 2011

packages@lists.squeakfoundation.org

1 participants
507 discussions

The Trunk: Compiler-ul.202.mcz
by commits＠source.squeak.org 01 Apr '11

01 Apr '11

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.202.mcz ==================== Summary ==================== Name: Compiler-ul.202 Author: ul Time: 2 April 2011, 12:44:12.796 am UUID: e7e9151c-c2e9-b14a-bb57-68e6ea8daea5 Ancestors: Compiler-nice.201 - reject literals with superfluous # at the beginning, like #$a #123 ##foo ##(1 2 3), etc - introduced #character type for characters instead of #number (part 1) =============== Diff against Compiler-nice.201 =============== Item was changed: ----- Method: Parser>>pragmaLiteral: (in category 'pragmas') ----- pragmaLiteral: selectorSoFar "Read a pragma literal. As a nicety we allow a variable name (rather than a literal string) as the second argument to primitive:error:" + (hereType == #string or: [ hereType == #literal or: [ hereType == #number or: [ hereType == #character ] ] ]) - (hereType == #string or: [ hereType == #literal or: [ hereType == #number ] ]) ifTrue: [ ^ self advance ]. (here == $# and: [ tokenType == #word ]) ifTrue: [ ^ self advance ]. (here == #- and: [ tokenType == #number ]) ifTrue: [ ^ (self advance; advance) negated ]. (here = 'true' or: [ here = 'false' or: [ here = 'nil' ] ]) ifTrue: [ ^ Compiler evaluate: self advance ]. "This nicety allows one to supply a primitive error temp as a variable name, rather than a string." ((selectorSoFar beginsWith: 'primitive:') and: [(selectorSoFar endsWith: 'error:') and: [hereType == #word]]) ifTrue: [^self advance]. ^self expected: 'Literal constant'! Item was changed: ----- Method: Parser>>primaryExpression (in category 'expression types') ----- primaryExpression hereType == #word ifTrue: [parseNode := self variable. (parseNode isUndefTemp and: [self interactive]) ifTrue: [self queryUndefined]. parseNode nowHasRef. ^ true]. hereType == #leftBracket ifTrue: [self advance. self blockExpression. ^true]. hereType == #leftBrace ifTrue: [self braceExpression. ^true]. hereType == #leftParenthesis ifTrue: [self advance. self expression ifFalse: [^self expected: 'expression']. (self match: #rightParenthesis) ifFalse: [^self expected: 'right parenthesis']. ^true]. + (hereType == #string or: [hereType == #number or: [hereType == #literal or: [hereType == #character]]]) - (hereType == #string or: [hereType == #number or: [hereType == #literal]]) ifTrue: [parseNode := encoder encodeLiteral: self advance. ^true]. (here == #- and: [tokenType == #number and: [1 + hereEnd = mark]]) ifTrue: [self advance. parseNode := encoder encodeLiteral: self advance negated. ^true]. ^false! Item was changed: ----- Method: Scanner>>xLitQuote (in category 'multi-character scans') ----- xLitQuote "Symbols and vectors: #(1 (4 5) 2 3) #ifTrue:ifFalse: #'abc'." | start | start := mark. self step. "litQuote" self scanToken. tokenType == #leftParenthesis ifTrue: [self scanToken; scanLitVec. mark := start + 1. tokenType == #doIt ifTrue: [self offEnd: 'Unmatched parenthesis']] ifFalse: [tokenType == #leftBracket ifTrue: [self scanToken; scanLitByteVec. mark := start + 1. tokenType == #doIt ifTrue: [self offEnd: 'Unmatched bracket']] ifFalse: [(tokenType == #word or: [tokenType == #keyword or: [tokenType == #colon]]) ifTrue: [self scanLitWord] + ifFalse: [tokenType == #string + ifTrue: [token := token asSymbol] + ifFalse: [(tokenType == #binary or: [ tokenType == #verticalBar ]) + ifFalse: [self notify: 'Invalid literal character' at: start + 1]]]]]. - ifFalse: ["tokenType == #literal - ifTrue: [token isSymbol - ifTrue: [""##word"" - token := token - ""May want to move toward ANSI - here ""]] - ifFalse: ["tokenType == #string - ifTrue: [token := token asSymbol]"]"]]]. mark := start. tokenType := #literal "#(Pen) #Pen #'Pen' ##Pen ###Pen "!

1 0

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

01 Apr '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.436.mcz ==================== Summary ==================== Name: Collections-ul.436 Author: ul Time: 1 April 2011, 9:25:17.967 pm UUID: f684fc31-c114-bf41-aecb-98f347ccb43e Ancestors: Collections-nice.435 Improved #beginsWith: and #endsWith: implementations. =============== Diff against Collections-nice.435 =============== Item was changed: + ----- Method: ByteString>>beginsWith: (in category 'testing') ----- + beginsWith: sequence + "Answer whether the receiver begins with the given sequence. The comparison is case-sensitive. Overridden for better performance." - ----- Method: ByteString>>beginsWith: (in category 'comparing') ----- - beginsWith: prefix - "Answer whether the receiver begins with the given prefix string. - The comparison is case-sensitive." + | sequenceSize | + sequence class isBytes ifFalse: [ ^super beginsWith: sequence ]. + ((sequenceSize := sequence size) = 0 or: [ self size < sequenceSize ]) ifTrue: [ ^false ]. + "The following method uses a suboptimal algorithm (brute force pattern matching with O(n^2) worst case runtime), but the primitive in C is so fast (assuming large alphabets), that it's still worth using it instead of linear time pure smalltalk implementation. There are some obvious cases when the brute force algorithm is suboptimal, e.g. when the first elements don't match, so let's compare them here before using the primitive." + (self basicAt: 1) = (sequence basicAt: 1) ifFalse: [ ^false ]. + ^(self findSubstring: sequence in: self startingAt: 1 matchTable: CaseSensitiveOrder) = 1! - - "IMPLEMENTATION NOTE: - following algorithm is optimized in primitive only in case self and prefix are bytes like. - Otherwise, if self is wide, then super outperforms, - Otherwise, if prefix is wide, primitive is not correct" - - prefix class isBytes ifFalse: [^super beginsWith: prefix]. - - self size < prefix size ifTrue: [^ false]. - ^ (self findSubstring: prefix in: self startingAt: 1 - matchTable: CaseSensitiveOrder) = 1 - ! Item was changed: + ----- Method: ByteSymbol>>beginsWith: (in category 'testing') ----- + beginsWith: sequence + "Answer whether the receiver begins with the given sequence. The comparison is case-sensitive. Overridden for better performance." - ----- Method: ByteSymbol>>beginsWith: (in category 'comparing') ----- - beginsWith: prefix - "Answer whether the receiver begins with the given prefix string. - The comparison is case-sensitive." + | sequenceSize | + sequence class isBytes ifFalse: [ ^super beginsWith: sequence ]. + ((sequenceSize := sequence size) = 0 or: [ self size < sequenceSize ]) ifTrue: [ ^false ]. + "The following method uses a suboptimal algorithm (brute force pattern matching with O(n^2) worst case runtime), but the primitive in C is so fast (assuming large alphabets), that it's still worth using it instead of linear time pure smalltalk implementation. There are some obvious cases when the brute force algorithm is suboptimal, e.g. when the first elements don't match, so let's compare them here before using the primitive." + (self basicAt: 1) = (sequence basicAt: 1) ifFalse: [ ^false ]. + ^(self findSubstring: sequence in: self startingAt: 1 matchTable: CaseSensitiveOrder) = 1! - - "IMPLEMENTATION NOTE: - following algorithm is optimized in primitive only in case self and prefix are bytes like. - Otherwise, if self is wide, then super outperforms, - Otherwise, if prefix is wide, primitive is not correct" - - prefix class isBytes ifFalse: [^super beginsWith: prefix]. - - self size < prefix size ifTrue: [^ false]. - ^ (self findSubstring: prefix in: self startingAt: 1 - matchTable: CaseSensitiveOrder) = 1 - ! Item was changed: ----- Method: SequenceableCollection>>beginsWith: (in category 'testing') ----- + beginsWith: sequence + "Answer true if the receiver starts with the argument collection." + + | sequenceSize | + ((sequenceSize := sequence size) = 0 or: [ self size < sequence size ]) ifTrue: [ ^false ]. + 1 to: sequenceSize do: [ :index | + (sequence at: index) = (self at: index) ifFalse: [ ^false ] ]. - beginsWith: aSequenceableCollection - "Answer true if the receiver starts with the argument collection" - (aSequenceableCollection isEmpty or: [self size < aSequenceableCollection size]) ifTrue: [^false]. - aSequenceableCollection withIndexDo: [:each :index | (self at: index) ~= each ifTrue: [^false]]. ^true! Item was changed: ----- Method: SequenceableCollection>>endsWith: (in category 'testing') ----- + endsWith: sequence + "Answer true if the receiver ends with the argument collection." + + | sequenceSize offset | + ((sequenceSize := sequence size) = 0 or: [ (offset := self size - sequence size) < 0 ]) ifTrue: [ ^false ]. + 1 to: sequenceSize do: [ :index | + (sequence at: index) = (self at: index + offset) ifFalse: [ ^false ] ]. - endsWith: aSequenceableCollection - "Answer true if the receiver ends with the argument collection" - | start | - (aSequenceableCollection isEmpty or: [self size < aSequenceableCollection size]) ifTrue: [^false]. - start := self size - aSequenceableCollection size. - aSequenceableCollection withIndexDo: [:each :index | (self at: start + index) ~= each ifTrue: [^false]]. ^true! Item was added: + ----- Method: String>>beginsWith: (in category 'testing') ----- + beginsWith: sequence + "Answer true if the receiver starts with the argument collection. The comparison is case-sensitive. Overridden for better performance." + + | sequenceSize | + sequence isString ifFalse: [ ^super beginsWith: sequence ]. + ((sequenceSize := sequence size) = 0 or: [ self size < sequence size ]) ifTrue: [ ^false ]. + 1 to: sequenceSize do: [ :index | + (sequence basicAt: index) = (self basicAt: index) ifFalse: [ ^false ] ]. + ^true! Item was changed: ----- Method: String>>endsWith: (in category 'testing') ----- endsWith: suffix + "Answer true if the receiver ends with the argument collection. The comparison is case-sensitive. Overridden for better performance." - "Answer whether the tail end of the receiver is the same as suffix. - The comparison is case-sensitive." + | offset | + (offset := self size - suffix size) < 0 ifTrue: [ ^false ]. + ^(self findString: suffix startingAt: offset + 1) ~= 0! - | extra | - (extra := self size - suffix size) < 0 ifTrue: [^ false]. - ^ (self findString: suffix startingAt: extra + 1) > 0 - " - 'Elvis' endsWith: 'vis' - "!

1 0

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

01 Apr '11

1 0

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

01 Apr '11

1 0

The Trunk: Tools-eem.304.mcz
by commits＠source.squeak.org 01 Apr '11

01 Apr '11

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.304.mcz ==================== Summary ==================== Name: Tools-eem.304 Author: eem Time: 31 March 2011, 6:29:51.619 pm UUID: bf2886ee-1f33-47ad-9025-c7253c619dd8 Ancestors: Tools-nice.303 Debugger: - use the selectedContext's method when browsing senders and implementors. - do not discard changes if the compilation of an edited method fails when in a block. =============== Diff against Tools-nice.303 =============== Item was changed: ----- Method: Debugger>>browseMessages (in category 'context stack menu') ----- browseMessages "Present a menu of all messages sent by the currently selected message. Open a message set browser of all implementors of the message chosen. Do nothing if no message is chosen." contextStackIndex = 0 ifTrue: [^ self]. + self withSelectorAndMessagesIn: self selectedContext method - self withSelectorAndMessagesIn: currentCompiledMethod evaluate: [:selector| self systemNavigation browseAllImplementorsOf: selector]! Item was changed: ----- Method: Debugger>>browseSendersOfMessages (in category 'context stack menu') ----- browseSendersOfMessages "Present a menu of the currently selected message, as well as all messages sent by it. Open a message set browser of all senders of the message chosen." contextStackIndex = 0 ifTrue: [^ self]. + self withSelectorAndMessagesIn: self selectedContext method - self withSelectorAndMessagesIn: currentCompiledMethod evaluate: [:selector| self systemNavigation browseAllCallsOn: selector]! Item was changed: ----- Method: Debugger>>contents:notifying: (in category 'accessing') ----- contents: aText notifying: aController "The retrieved information has changed and its source must now be updated. In this case, the retrieved information is the method of the selected context." | result selector classOfMethod category h ctxt newMethod | contextStackIndex = 0 ifTrue: [^false]. self selectedContext isExecutingBlock ifTrue: [h := self selectedContext activeHome. h ifNil: [self inform: 'Method for block not found on stack, can''t edit and continue'. ^false]. (self confirm: 'I will have to revert to the method from\which this block originated. Is that OK?' withCRs) ifFalse: [^false]. self resetContext: h. + "N.B. Only reset the contents if the compilation succeeds. If contents are reset + when compilation fails both compiler error message and modifications are lost." + (result := self contents: aText notifying: aController) ifTrue: + [self contentsChanged]. - result := self contents: aText notifying: aController. - self contentsChanged. ^result]. classOfMethod := self selectedClass. category := self selectedMessageCategoryName. selector := self selectedClass newParser parseSelector: aText. (selector == self selectedMessageName or: [(self selectedMessageName beginsWith: 'DoIt') and: [selector numArgs = self selectedMessageName numArgs]]) ifFalse: [self inform: 'can''t change selector'. ^false]. selector := classOfMethod compile: aText classified: category notifying: aController. selector ifNil: [^false]. "compile cancelled" contents := aText. newMethod := classOfMethod compiledMethodAt: selector. newMethod isQuick ifTrue: [self down. self selectedContext jump: (self selectedContext previousPc - self selectedContext pc)]. ctxt := interruptedProcess popTo: self selectedContext. ctxt == self selectedContext ifFalse: [self inform: 'Method saved, but current context unchanged\because of unwind error. Click OK to see error' withCRs] ifTrue: [newMethod isQuick ifFalse: [interruptedProcess restartTopWith: newMethod; stepToSendOrReturn]. contextVariablesInspector object: nil]. self resetContext: ctxt. Smalltalk isMorphic ifTrue: [World addAlarm: #changed: withArguments: #(contentsSelection) for: self at: (Time millisecondClockValue + 200)]. ^true!

1 0

The Trunk: Tools-eem.304.mcz
by commits＠source.squeak.org 01 Apr '11

01 Apr '11

1 0

The Trunk: Tools-eem.304.mcz
by commits＠source.squeak.org 01 Apr '11

01 Apr '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 April 2011