Packages November 2011

packages@lists.squeakfoundation.org

1 participants
159 discussions

The Trunk: Files-ul.114.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.114.mcz ==================== Summary ==================== Name: Files-ul.114 Author: ul Time: 10 November 2011, 12:52:02.516 pm UUID: 287fe37a-7a91-fc40-b530-d9cac751dd77 Ancestors: Files-nice.113 Added missing space character. =============== Diff against Files-nice.113 =============== Item was changed: ----- Method: StandardFileStream>>primWrite:from:startingAt:count: (in category 'primitives') ----- primWrite: id from: stringOrByteArray startingAt: startIndex count: count "Write count bytes onto this file from the given string or byte array starting at the given index. Answer the number of bytes written." <primitive: 'primitiveFileWrite' module: 'FilePlugin'> (FileWriteError fileName: name) signal: (self closed ifTrue: [ 'File ', name, ' is closed' ] + ifFalse: [ 'File ', name, ' write failed' ])! - ifFalse: [ 'File ', name, 'write failed' ])!

1 0

The Trunk: Files-ul.114.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

1 0

The Trunk: Compiler-ul.221.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.221.mcz ==================== Summary ==================== Name: Compiler-ul.221 Author: ul Time: 15 November 2011, 3:52:35.902 pm UUID: e7d854de-d6b7-da44-986c-0764cb7841f4 Ancestors: Compiler-ul.220 Don't leave an empty line after removing all unused temporary declarations. =============== Diff against Compiler-ul.220 =============== Item was changed: ----- Method: Parser>>removeEmptyTempDeclarationsFrom: (in category 'error correction') ----- removeEmptyTempDeclarationsFrom: methodNode | sourceCode madeChanges tempsMarkHolder | sourceCode := 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 + 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 ]. + requestor correctFrom: start to: end with: ''. + madeChanges := true. + currentBlock tempsMark: nil ] ]. - start notNil & end notNil - ifTrue: - [requestor correctFrom: start to: end with: ''. - madeChanges := true. - currentBlock tempsMark: nil]]. madeChanges ifTrue: [ReparseAfterSourceEditing signal]!

1 0

The Trunk: Compiler-ul.221.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

1 0

The Trunk: Compiler-ul.221.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

1 0

The Trunk: Collections-ul.465.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.465.mcz ==================== Summary ==================== Name: Collections-ul.465 Author: ul Time: 13 November 2011, 5:18:00.299 am UUID: 49a23071-1538-2b44-be74-cf1f2dc81fc9 Ancestors: Collections-eem.464 Improved quicksort by another ~5% (when the receiver is an Array of SmallIntegers) by simplifying swaps, avoiding popIntoTemp: and reordering temporaries. =============== Diff against Collections-eem.464 =============== Item was changed: ----- Method: ArrayedCollection>>quickSortFrom:to:by: (in category 'sorting') ----- quickSortFrom: from to: to by: sortBlock "Sort elements i through j of self to be nondescending according to sortBlock using an in-place quicksort with simple median-of-three partitioning with guaranteed O(log(n)) space usage." + | dij k l temp i j di dj n ij | - | i j | i := from. j := to. [ + - | k l dij temp ij di dj n | "The prefix d means the data at that index." "Sort di,dj." di := self at: i. dj := self at: j. (sortBlock ifNil: [ di <= dj ] ifNotNil: [ sortBlock value: di value: dj ]) ifFalse: [ + self at: i put: dj; at: j put: di. temp := dj. dj := di. di := temp "swap di with dj" ]. + (n := j + 1 - i) <= 2 ifTrue: [ ^self ]. - temp := self at: i. self at: i put: (self at: j); at: j put: temp. - temp := di. di := dj. dj := temp ]. - (n := j + 1 - i) <= 2 ifTrue: [ ^self ]. "More than two elements." + dij := self at: (ij := i + j // 2). "ij is the midpoint of i and j. Sort di,dij,dj. Make dij be their median." - ij := (i + j) // 2. "ij is the midpoint of i and j." - dij := self at: ij. "Sort di,dij,dj. Make dij be their median." (sortBlock ifNil: [ di <= dij ] ifNotNil: [ sortBlock value: di value: dij ]) ifTrue: [ (sortBlock ifNil: [ dij <= dj ] ifNotNil: [ sortBlock value: dij value: dj ]) ifFalse: [ + "swap dij with dj, we don't need the value of the variable dj anymore" + self at: j put: dij; at: ij put: dj. dij := dj ] ] - temp := self at: j. self at: j put: (self at: ij); at: ij put: temp. - dij := dj ] ] ifFalse: [ + "swap di with dij, we don't need the value of the variable di anymore" + self at: i put: dij; at: ij put: di. dij := di ]. - temp := self at: i. self at: i put: (self at: ij); at: ij put: temp. - dij := di ]. n = 3 ifTrue: [ ^self ]. "More than three elements." + "Find k and l such that i<k<l<j and dk,dij,dl are in reverse order. Swap k and l. Repeat this procedure until k and l pass each other." - "Find k>i and l<j such that dk,dij,dl are in reverse order. - Swap k and l. Repeat this procedure until k and l pass each other." k := i. l := j. [ [ k <= (l := l - 1) and: [ sortBlock ifNil: [ dij <= (self at: l) ] ifNotNil: [ sortBlock value: dij value: (self at: l) ] ] ] whileTrue. "i.e. while dl succeeds dij" [ (k := k + 1) <= l and: [ sortBlock ifNil: [ (self at: k) <= dij ] ifNotNil: [ sortBlock value: (self at: k) value: dij ] ] ] whileTrue. "i.e. while dij succeeds dk" k <= l ] whileTrue: [ temp := self at: k. self at: k put: (self at: l); at: l put: temp. ]. "Now l<k (either 1 or 2 less), and di through dl are all less than or equal to dk through dj. Sort the larger segment in this method and call another quicksort for the smaller segment. This ensures O(log(n)) space usage." i < l ifFalse: [ k < j ifFalse: [ ^self ] ifTrue: [ i := k ] ] ifTrue: [ k < j ifFalse: [ j := l ] ifTrue: [ l - i < (j - k) ifTrue: [ self quickSortFrom: i to: l by: sortBlock. i := k ] ifFalse: [ self quickSortFrom: k to: j by: sortBlock. j := l ] ] ] ] repeat!

1 0

The Trunk: Collections-ul.465.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

1 0

The Trunk: Collections-ul.465.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

1 0

The Trunk: Compiler-ul.220.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.220.mcz ==================== Summary ==================== Name: Compiler-ul.220 Author: ul Time: 15 November 2011, 4:25:41.558 am UUID: 1afd47cf-c700-2f43-a87b-e46ee1bcba39 Ancestors: Compiler-nice.219 Integrated the Parser changes from http://bugs.squeak.org/view.php?id=7572 : Change Set: parser-lw Date: 31 May 2011 Author: Lars Wassermann Changed the Parser to remove Block Local Temporaries ask even if there are no method local temporaries don't ask several times for removal don't recommend to remove temporaries which are assigned to =============== Diff against Compiler-nice.219 =============== Item was changed: Scanner subclass: #Parser + instanceVariableNames: 'here hereType hereMark hereEnd prevMark prevEnd encoder requestor parseNode failBlock requestorOffset tempsMark doitFlag properties category queriedUnusedTemporaries' - instanceVariableNames: 'here hereType hereMark hereEnd prevMark prevEnd encoder requestor parseNode failBlock requestorOffset tempsMark doitFlag properties category' classVariableNames: '' poolDictionaries: '' category: 'Compiler-Kernel'! !Parser commentStamp: '<historical>' prior: 0! I parse Smalltalk syntax and create a MethodNode that is the root of the parse tree. I look one token ahead.! Item was added: + ----- Method: Parser>>collectTemporaryDeclarationsFrom: (in category 'error correction') ----- + collectTemporaryDeclarationsFrom: methodNode + | tempsMarks str | + tempsMarks := OrderedCollection new. + str := requestor text asString. + methodNode accept: (ParseNodeEnumerator + ofBlock: [ :aNode | + | mark | + (aNode class canUnderstand: #tempsMark) + ifTrue: + [mark := aNode tempsMark. + (mark notNil and: [ mark between: 1 and: str size ] and: [ (str at: mark) = $| ]) + ifTrue: [ tempsMarks addLast: aNode ]]]). + (tempsMark notNil and: [ tempsMark between: 1 and: str size ] and: [ (str at: tempsMark) = $| ]) + ifTrue: [ tempsMarks addLast: self ]. + ^ tempsMarks sorted: [ :a :b | a tempsMark > b tempsMark ]! Item was changed: ----- Method: Parser>>method:context: (in category 'expression types') ----- method: doit context: ctxt " pattern [ | temporaries ] block => MethodNode." | sap blk prim temps messageComment methodNode | sap := self pattern: doit inContext: ctxt. "sap={selector, arguments, precedence}" self properties selector: (sap at: 1). encoder selector: (sap at: 1). (sap at: 2) do: [:argNode | argNode beMethodArg]. doit ifFalse: [self pragmaSequence]. temps := self temporaries. messageComment := currentComment. currentComment := nil. doit ifFalse: [self pragmaSequence]. prim := self pragmaPrimitives. self statements: #() innerBlock: doit. blk := parseNode. doit ifTrue: [blk returnLast] ifFalse: [blk returnSelfIfNoOther: encoder]. hereType == #doIt ifFalse: [^self expected: 'Nothing more']. methodNode := self newMethodNode comment: messageComment. methodNode selector: (sap at: 1) arguments: (sap at: 2) precedence: (sap at: 3) temporaries: temps block: blk encoder: encoder primitive: prim properties: properties. self interactive ifTrue: [self declareUndeclaredTemps: methodNode. + self removeUnusedTemps: methodNode]. - self removeUnusedTemps]. ^methodNode! Item was added: + ----- Method: Parser>>queriedUnusedTemporaries (in category 'accessing') ----- + queriedUnusedTemporaries + + queriedUnusedTemporaries ifNil: + [queriedUnusedTemporaries := Dictionary new]. + ^queriedUnusedTemporaries! Item was added: + ----- Method: Parser>>removeEmptyTempDeclarationsFrom: (in category 'error correction') ----- + removeEmptyTempDeclarationsFrom: methodNode + + | sourceCode madeChanges tempsMarkHolder | + sourceCode := 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: + [requestor correctFrom: start to: end with: ''. + madeChanges := true. + currentBlock tempsMark: nil]]. + madeChanges ifTrue: [ReparseAfterSourceEditing signal]! Item was added: + ----- Method: Parser>>removeUnusedTemporaryNamed:from:lookingAt:movingTempMarksOf: (in category 'error correction') ----- + removeUnusedTemporaryNamed: temp from: str lookingAt: currentBlock movingTempMarksOf: someBlocks + + | start end | + end := currentBlock tempsMark - 1. + ["Beginning at right temp marker..." + start := end - temp size + 1. + end < temp size or: [ (str at: start) = $| ] + or: [ temp = (str copyFrom: start to: end) + and: [ ((str at: start - 1) = $| | (str at: start - 1) isSeparator) + & ((str at: end + 1) = $| | (str at: end + 1) isSeparator) ] ]] + whileFalse: [ + "Search left for the unused temp" + end := requestor nextTokenFrom: end direction: -1 ]. + (end < temp size or: [ (str at: start) = $| ]) + ifFalse: + [(str at: start - 1) = $ + ifTrue: [ start := start - 1 ]. + requestor correctFrom: start to: end with: ''. + someBlocks do: [ :aBlock | aBlock tempsMark: aBlock tempsMark - (end - start + 1)]. + ^true ]. + ^false! Item was removed: - ----- Method: Parser>>removeUnusedTemps (in category 'error correction') ----- - removeUnusedTemps - "Scan for unused temp names, and prompt the user about the prospect of removing each one found" - - | str madeChanges | - madeChanges := false. - str := requestor text asString. - ((tempsMark between: 1 and: str size) - and: [(str at: tempsMark) = $|]) ifFalse: [^ self]. - encoder unusedTempNames do: - [:temp | | start end | - (UnusedVariable name: temp) ifTrue: - [(encoder lookupVariable: temp ifAbsent: []) isUndefTemp - ifTrue: - [end := tempsMark. - ["Beginning at right temp marker..." - start := end - temp size + 1. - end < temp size or: [temp = (str copyFrom: start to: end) - and: [(str at: start-1) isSeparator & (str at: end+1) isSeparator]]] - whileFalse: - ["Search left for the unused temp" - end := requestor nextTokenFrom: end direction: -1]. - end < temp size ifFalse: - [(str at: start-1) = $ ifTrue: [start := start-1]. - requestor correctFrom: start to: end with: ''. - str := str copyReplaceFrom: start to: end with: ''. - madeChanges := true. - tempsMark := tempsMark - (end-start+1)]] - ifFalse: - [self inform: - 'You''ll first have to remove the\statement where it''s stored into' withCRs]]]. - madeChanges ifTrue: [ReparseAfterSourceEditing signal]! Item was added: + ----- Method: Parser>>removeUnusedTemps: (in category 'error correction') ----- + removeUnusedTemps: methodNode + "Scan for unused temp names, and prompt the user about the prospect of removing each one found" + + | madeChanges tempsMarkHolder unusedTempNames tempMarkHoldersToChange | + madeChanges := false. + tempMarkHoldersToChange := OrderedCollection new. + tempsMarkHolder := self collectTemporaryDeclarationsFrom: methodNode. + unusedTempNames := encoder unusedTempNames select: + [ :temp | (encoder lookupVariable: temp ifAbsent: [ ]) isUndefTemp + and: [ self queriedUnusedTemporaries at: temp ifAbsentPut: [UnusedVariable name: temp] ]]. + tempsMarkHolder do: [ :currentBlock | + tempMarkHoldersToChange add: currentBlock. + unusedTempNames do: + [ :temp | + (self + removeUnusedTemporaryNamed: temp + from: requestor text asString + lookingAt: currentBlock + movingTempMarksOf: tempMarkHoldersToChange) ifTrue: [ madeChanges := true ]]]. + madeChanges + ifTrue: [ self removeEmptyTempDeclarationsFrom: methodNode. + ReparseAfterSourceEditing signal ]! Item was added: + ----- Method: Parser>>tempsMark (in category 'accessing') ----- + tempsMark + ^ tempsMark! Item was added: + ----- Method: Parser>>tempsMark: (in category 'accessing') ----- + tempsMark: aNumber + tempsMark := aNumber!

1 0

The Trunk: Compiler-ul.220.mcz
by commits＠source.squeak.org 15 Nov '11

15 Nov '11

1 0

← Newer
1
2
3
4
5
6
7
8
...
16
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2011