Packages May 2015

packages@lists.squeakfoundation.org

1 participants
1536 discussions

The Trunk: System-eem.739.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.739.mcz ==================== Summary ==================== Name: System-eem.739 Author: eem Time: 29 May 2015, 4:06:02.935 pm UUID: 0b6049b8-02b1-4f6e-97eb-8776c9604f3e Ancestors: System-cmm.738 Support for condensing sources and changes while preserving direct history. =============== Diff against System-cmm.738 =============== Item was added: + ----- Method: ChangeRecord>>file (in category 'access') ----- + file + ^file! Item was added: + ----- Method: ChangeRecord>>position: (in category 'access') ----- + position: anInteger + "Set the position. Dangerous!! Used in condenseChanges implementation by a very knowledgeable client!!" + position := anInteger! Item was added: + ----- Method: ChangeSet class>>directAncestryOfVersions: (in category 'scanning') ----- + directAncestryOfVersions: changeRecords + "Take a sequence of ChangeRecords as answered by scanVersionsOf:class:meta:category:selector: + and answer a filtered subsequence consisting only of direct ancestors. For example, if the input is + eem 7/7/2009 20:06 7 July 2009 8:06 pm + eem 6/18/2009 19:21 18 June 2009 7:21 pm + eem 5/5/2009 12:16 5 May 2009 12:16 pm + eem 6/18/2009 19:19 18 June 2009 7:19 pm + eem 6/18/2009 18:57 18 June 2009 6:57 pm + eem 5/5/2009 12:16 5 May 2009 12:16 pm + eem 6/18/2009 18:17 18 June 2009 6:17 pm + eem 6/18/2009 18:14 18 June 2009 6:14 pm + eem 6/18/2009 18:06 18 June 2009 6:06 pm + eem 5/5/2009 12:16 5 May 2009 12:16 pm + eem 5/4/2009 19:19 4 May 2009 7:19 pm + the output should be + eem 7/7/2009 20:06 7 July 2009 8:06 pm + eem 6/18/2009 19:21 18 June 2009 7:21 pm + eem 5/5/2009 12:16 5 May 2009 12:16 pm + eem 5/4/2009 19:19 4 May 2009 7:19 pm" + + | filtered i last | + filtered := OrderedCollection new. + i := 1. + [i <= changeRecords size] whileTrue: + [filtered addLast: (changeRecords at: i). + last := changeRecords + findLast: [:chgRec| filtered last stamp = chgRec stamp and: [filtered last position = chgRec position]] + startingAt: i. + i := last = 0 ifTrue: [i + 1] ifFalse: [last + 1]]. + ^filtered!

1 0

The Trunk: System-eem.739.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

1 0

The Trunk: Kernel-eem.927.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.927.mcz ==================== Summary ==================== Name: Kernel-eem.927 Author: eem Time: 29 May 2015, 4:04:53.411 pm UUID: b759de23-0d29-460f-94ba-69d3ee900124 Ancestors: Kernel-eem.926 Support for condensing sources and changes while preserving direct history. =============== Diff against Kernel-eem.926 =============== Item was added: + ----- Method: ClassDescription>>fileOutCategoryHistorically:on:moveSource:toFile: (in category 'fileIn/Out') ----- + fileOutCategoryHistorically: aSymbol on: aFileStream moveSource: moveSource toFile: fileIndex + "File a description of the receiver's category, aString, onto aFileStream, preserving direct + history, but excluding branches . If moveSource, is true, then set the method source pointer + to the new file position. Note when this method is called with moveSource=true, it is + condensing the sources file, and should only write one preamble per method category." + + | selectors | + aFileStream cr. + selectors := aSymbol asString = ClassOrganizer allCategory + ifTrue: [self organization allMethodSelectors] + ifFalse: [self organization listAtCategoryNamed: aSymbol]. + + selectors := selectors select: [:each | self includesLocalSelector: each]. + + "Overridden to preserve author stamps in sources file regardless." + selectors do: [:sel | + self printMethodChunkHistorically: sel + on: aFileStream + moveSource: moveSource + toFile: fileIndex]! Item was changed: ----- Method: ClassDescription>>fileOutChangedMessages:on:moveSource:toFile: (in category 'fileIn/Out') ----- fileOutChangedMessages: aSet on: aFileStream moveSource: moveSource toFile: fileIndex "File a description of the messages of this class that have been changed (i.e., are entered into the argument, aSet) onto aFileStream. If moveSource, is true, then set the method source pointer to the new file position. Note when this method is called with moveSource=true, it is condensing the .changes file, and should only write a preamble for every method." | org | (org := self organization) categories do: + [:cat | | sels | - [:cat | - | sels | sels := (org listAtCategoryNamed: cat) select: [:sel | aSet includes: sel]. + (moveSource == #historically + or: [moveSource and: [(cat beginsWith: '*') and: [cat endsWith: '-override']]]) + ifTrue: "when condensing sources/changes, preserve overridden methods" + [sels do: + [:sel | + self printMethodChunkHistorically: sel on: aFileStream + moveSource: moveSource ~~ false toFile: fileIndex]] + ifFalse: + [sels do: - (moveSource and: [(cat beginsWith: '*') and: [cat endsWith: '-override']]) - ifTrue: ["when condensing sources/changes, preserve overridden methods" - sels do: - [:sel | self printMethodChunkHistorically: sel on: aFileStream - moveSource: moveSource toFile: fileIndex]] - ifFalse: [ - sels do: [:sel | self printMethodChunk: sel withPreamble: true on: aFileStream moveSource: moveSource toFile: fileIndex]]]! Item was changed: ----- Method: ClassDescription>>fileOutOn:moveSource:toFile: (in category 'fileIn/Out') ----- fileOutOn: aFileStream moveSource: moveSource toFile: fileIndex + "File a description of the receiver on aFileStream. moveSOurce is one of + true, false or #historically. If the argument, moveSource, is not false, then + set the trailing bytes to the position of aFileStream and to fileIndex in order + to indicate where to find the source code. If moveSource == #historically, + print out each method's history, excluding branches" - "File a description of the receiver on aFileStream. If the boolean - argument, moveSource, is true, then set the trailing bytes to the position - of aFileStream and to fileIndex in order to indicate where to find the - source code." + aFileStream command: 'H3'; nextChunkPut: self definition; command: '/H3'. - aFileStream command: 'H3'. - aFileStream nextChunkPut: self definition. - aFileStream command: '/H3'. self organization putCommentOnFile: aFileStream numbered: fileIndex + moveSource: moveSource ~~ false - moveSource: moveSource forClass: self. self organization categories do: [:heading | + moveSource == #historically + ifTrue: + [self fileOutCategoryHistorically: heading + on: aFileStream + moveSource: true + toFile: fileIndex] + ifFalse: + [self fileOutCategory: heading + on: aFileStream + moveSource: moveSource + toFile: fileIndex]]! - self fileOutCategory: heading - on: aFileStream - moveSource: moveSource - toFile: fileIndex]! Item was changed: ----- Method: ClassDescription>>printMethodChunkHistorically:on:moveSource:toFile: (in category 'fileIn/Out') ----- printMethodChunkHistorically: selector on: outStream moveSource: moveSource toFile: fileIndex "Copy all source codes historically for the method associated with selector onto the + fileStream. If moveSource is true, then also set the source code pointer of the method. + N.B. fileIndex is interpreted as follows, 0 => just a fileOut; 1 => condensing sources; + 2 => condensing changes; therefore only changes on the chnages file before the last + version in the sources file are recorded." - fileStream. If moveSource true, then also set the source code pointer of the method." + | preamble method newPos category changeList prior index | - | preamble method sourceFile endPos category changeList newPos | category := self organization categoryOfElement: selector. preamble := self name , ' methodsFor: ', category asString printString. method := self methodDict at: selector. + (method filePosition = 0 + or: [method fileIndex = 0 + or: [(SourceFiles at: method fileIndex) isNil]]) + ifTrue: "no source; must decompile" + [outStream cr; nextPut: $!!; nextChunkPut: preamble; cr. + outStream nextChunkPut: method decompileString. + outStream nextChunkPut: ' '; cr] + ifFalse: + [changeList := ChangeSet directAncestryOfVersions: (ChangeSet + scanVersionsOf: method + class: self + meta: self isMeta + category: category + selector: selector). + newPos := prior := nil. + (fileIndex = 2 "condensing changes; select changes file code and find last sources file change" + and: [(index := changeList findFirst: [:chgRec| chgRec fileIndex = 1]) > 0]) ifTrue: + [prior := changeList at: index. + changeList := changeList copyFrom: 1 to: index - 1]. + changeList reverseDo: + [:chgRec| + chgRec file closed ifTrue: + [chgRec file reopen; setToEnd]. + outStream copyPreamble: preamble from: chgRec file at: chgRec position. + prior ifNotNil: + [outStream + position: outStream position - 2; + nextPutAll: ' prior: '; + print: (SourceFiles + sourcePointerFromFileIndex: prior fileIndex + andPosition: prior position); + nextPut: $!!; cr]. - ((method fileIndex = 0 - or: [(SourceFiles at: method fileIndex) == nil]) - or: [method filePosition = 0]) - ifTrue: [ - outStream cr; nextPut: $!!; nextChunkPut: preamble; cr. - outStream nextChunkPut: method decompileString. - outStream nextChunkPut: ' '; cr] - ifFalse: [ - changeList := ChangeSet - scanVersionsOf: method - class: self - meta: self isMeta - category: category - selector: selector. - newPos := nil. - sourceFile := SourceFiles at: method fileIndex. - changeList reverseDo: [ :chgRec | | prior | - chgRec fileIndex = fileIndex ifTrue: [ - outStream copyPreamble: preamble from: sourceFile at: chgRec position. - (prior := chgRec prior) ifNotNil: [ - outStream position: outStream position - 2. - outStream nextPutAll: ' prior: ', ( - prior first = method fileIndex ifFalse: [prior third] ifTrue: [ - SourceFiles - sourcePointerFromFileIndex: method fileIndex - andPosition: newPos]) printString. - outStream nextPut: $!!; cr]. "Copy the method chunk" newPos := outStream position. + outStream copyMethodChunkFrom: chgRec file at: chgRec position. + chgRec file skipSeparators. "The following chunk may have ]style[" + chgRec file peek == $] ifTrue: + [outStream cr; copyMethodChunkFrom: chgRec file]. + outStream nextChunkPut: ' '; cr. + chgRec position: newPos. + prior := chgRec]. + moveSource ifTrue: + [method setSourcePosition: newPos inFile: fileIndex]]. + ^outStream! - outStream copyMethodChunkFrom: sourceFile at: chgRec position. - sourceFile skipSeparators. "The following chunk may have ]style[" - sourceFile peek == $] ifTrue: [ - outStream cr; copyMethodChunkFrom: sourceFile]. - outStream nextChunkPut: ' '; cr]]. - moveSource ifTrue: [ - endPos := outStream position. - method checkOKToAdd: endPos - newPos at: newPos. - method setSourcePosition: newPos inFile: fileIndex]]. - ^ outStream! Item was changed: ----- Method: Metaclass>>fileOutOn:moveSource:toFile:initializing: (in category 'fileIn/Out') ----- fileOutOn: aFileStream moveSource: moveSource toFile: fileIndex initializing: aBool + super fileOutOn: aFileStream moveSource: moveSource toFile: fileIndex. + (aBool + and: [moveSource == false + and: [self methodDict includesKey: #initialize]]) ifTrue: + [aFileStream cr; cr; nextChunkPut: thisClass name , ' initialize'; cr]! - super fileOutOn: aFileStream - moveSource: moveSource - toFile: fileIndex. - (aBool and:[moveSource not and: [self methodDict includesKey: #initialize]]) ifTrue: - [aFileStream cr. - aFileStream cr. - aFileStream nextChunkPut: thisClass name , ' initialize'. - aFileStream cr]!

1 0

The Trunk: Kernel-eem.927.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

1 0

The Trunk: Collections-eem.636.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.636.mcz ==================== Summary ==================== Name: Collections-eem.636 Author: eem Time: 29 May 2015, 4:03:27.101 pm UUID: 0ccecc27-ca23-41aa-be79-584dbc53e4d0 Ancestors: Collections-mt.635 findLast:startingAt: dual for findFirst:startingAt: =============== Diff against Collections-mt.635 =============== Item was added: + ----- Method: SequenceableCollection>>findLast:startingAt: (in category 'enumerating') ----- + findLast: aBlock startingAt: i + "Return the index of my last element with index >= i for which aBlock evaluates as true." + + | index | + index := self size + 1. + [(index := index - 1) >= i] whileTrue: + [(aBlock value: (self at: index)) ifTrue: [^index]]. + ^ 0!

1 0

The Trunk: Collections-eem.636.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

1 0

The Trunk: ReleaseBuilder-cmm.123.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-cmm.123.mcz ==================== Summary ==================== Name: ReleaseBuilder-cmm.123 Author: cmm Time: 29 May 2015, 5:44:29.7 pm UUID: 7b74b571-a20e-42f7-b387-b31a7aed87e1 Ancestors: ReleaseBuilder-topa.122 - #clearPasswords was renamed to #clearCredentials. - Updated ReleaseBuilder class>>#versionString. =============== Diff against ReleaseBuilder-topa.122 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') ----- prepareNewBuild: anMCRepository "ReleaseBuilderTrunk prepareNewBuild" "Prepare everything that should be done for a new image build" MCMcmUpdater updateMissingPackages: true. MCMcmUpdater enableUpdatesForAllPackages. TTCFont registerAll. RealEstateAgent standardSize: 600 @ 400. SystemVersion newVersion: self versionString. SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." self setDisplayExtent: 800 @ 600 ; switchToNewRepository: anMCRepository ; setPreferences ; "<-- remove this after defaultValueTableForCurrentRelease is fixed up." checkForDirtyPackages ; configureDesktop. Smalltalk cleanUp: true. "Let's be explicit about clearing passwords for the publicly-consumed build." "clearPasswords is not very thorough, it should be improved." + MCHttpRepository clearCredentials. - MCHttpRepository clearPasswordsAndUsers. Utilities setAuthorInitials: String empty. Environment allInstancesDo: [ : env | env purgeUndeclared ]. Undeclared removeUnreferencedKeys. Smalltalk garbageCollect. [ self loadWellKnownPackages "<-- 4.5 is not ready for unloaded / reloaded packages" ]. Compiler recompileAll! Item was changed: ----- Method: ReleaseBuilder class>>prepareNextVersionAlpha (in category 'scripts') ----- prepareNextVersionAlpha "Prepare the first alpha image for next release." SystemVersion newVersion: ((UIManager default request: 'Please specify the name of the\new version of Squeak.' withCRs initialAnswer: SystemVersion current version) ifEmpty: [^ self inform: 'Aborted.']). MCFileBasedRepository flushAllCaches. + MCHttpRepository clearCredentials. - MCHttpRepository clearPasswords. Utilities setAuthorInitials: String empty. self switchToNewRepository: self buildRepository. Smalltalk condenseSources! Item was changed: ----- Method: ReleaseBuilder class>>versionString (in category 'private') ----- versionString + ^ 'Squeak4.6'! - ^ 'Squeak4.5'.!

1 0

The Trunk: ReleaseBuilder-cmm.123.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

1 0

The Trunk: Compiler-eem.300.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.300.mcz ==================== Summary ==================== Name: Compiler-eem.300 Author: eem Time: 29 May 2015, 3:31:40.184 pm UUID: 538f90f4-71d3-4f00-ac34-348700471a82 Ancestors: Compiler-eem.299 Use the size/emitPushNClosureTemps: api in block generation. =============== Diff against Compiler-eem.299 =============== Item was changed: ----- Method: BlockNode>>emitCodeForEvaluatedClosureValue:encoder: (in category 'code generation (closures)') ----- emitCodeForEvaluatedClosureValue: stack encoder: encoder | position | position := stack position. stack position: arguments size + copiedValues size. + encoder genPushNClosureTemps: temporaries size. - temporaries size timesRepeat: - [NodeNil emitCodeForValue: stack encoder: encoder]. self reindexingLocalsDo: [self emitCodeForEvaluatedValue: stack encoder: encoder] encoder: encoder. self returns ifFalse: [encoder genReturnTopToCaller. pc := encoder methodStreamPosition]. stack position: position! Item was changed: ----- Method: BlockNode>>sizeCodeForEvaluatedClosureValue: (in category 'code generation (closures)') ----- sizeCodeForEvaluatedClosureValue: encoder "The closure value primitives push the arguments and the copied values. The compiler guarantees that any copied values come before all local temps. So on closure activation we only need to push nils for the remaining temporaries." + ^(encoder sizePushNClosureTemps: temporaries size) - ^temporaries size * (NodeNil sizeCodeForValue: encoder) + (self reindexingLocalsDo: [self sizeCodeForEvaluatedValue: encoder] encoder: nil "don't store temps yet") + (self returns ifTrue: [0] ifFalse: [encoder sizeReturnTopToCaller])!

1 0

The Trunk: Compiler-eem.300.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

1 0

← Newer
1
2
3
4
5
6
7
8
...
154
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 May 2015