Squeak-dev May 2012

squeak-dev@lists.squeakfoundation.org

54 participants
171 discussions

Daily Commit Log
by commits＠source.squeak.org 05 May '12

05 May '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-May/005316.html Name: Kernel-nice.685 Ancestors: Kernel-eem.684 Rename Number class>>#readSqueakSyntaxFrom: into #readSmalltalkSyntaxFrom: This is to provide a common API across dialects for external packages since both VW7.x and Pharo2.0 have #readSmalltalkSyntaxFrom: Note that Number syntax may vary slightly across dialects and #readSmalltalkSyntaxFrom: is to be understood "in local dialect"... #readSqueakSyntaxFrom: was quite recent and not used in trunk, so I removed rather than deprecate. If you don't agree, raise your voice. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-May/005317.html Name: PackageInfo-Base-bf.61 Ancestors: PackageInfo-Base-bf.60 Factor out override scanning into changeRecordsForMethod:do: to allow use by MC, too. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-May/005318.html Name: Monticello-bf.506 Ancestors: Monticello-eem.505 Fix reverting an overloaded method. Uses new changes file scanning method from PackageInfo-Base-bf.61. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-May/005319.html Name: Tests-bf.152 Ancestors: Tests-eem.151 Fix MC override tests: you cannot override a method in your own package ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-May/005320.html Name: Monticello-bf.507 Ancestors: Monticello-bf.506 Remove now unused changes file scanning method. =============================================

1 0

Squeak Oversight Board minutes – 5/01/12
by Chris Cunnington 04 May '12

04 May '12

Squeak Oversight Board minutes – 5/01/12 Attending: Chris Muller, Colin Putney, Levente Uzonyi, Chris Cunnington, Bert Freudenberg, Craig Latta - the SOB meeting time is being changed tentatively to 1st and 3rd Mondays noon in Los Angeles, so the next meeting is at May 7, 12pm L.A., Calif. time - Colin is talking to Joyent [1] in Vancouver about hosting. They are a large supporter of node.js - Colin is compiling Cog for Illumos (a branch of Solaris) [2] - It was agreed that the a transition from our current server to a new server is required, as the current server hardware cannot run Cog (it's an old AMD Athlon without SSE2) - We discussed Squeak’s market position. Ideas around it being a “flexible platform” and how it gives a user “complete control” were emphasized. Squeak has been the point of departure for many innovative projects: RoarVM, Scratch, Croquet, Pharo, Etoys - Craig’s plans for Spoon in the coming year include porting the Naiad module system to Squeak and other Smalltalks; and, making example modules from existing Squeak code as a demonstration for other people to get started - The SOB is exploring the idea of having a Squeak event in North American sometime in its tenure this year. - There are plans to contact the SqueakFest [3] organizers to include a track of programming for other kinds of Squeak projects than the educational [1] http://www.joyent.com [2] http://wiki.illumos.org/display/illumos/illumos+Home [3] http://squeakland.org/squeakfest/about/

9 12

better audio on meta-how-to video tutorial
by Lawson English 04 May '12

04 May '12

Here's a better version (better audio) of my "meta howto" video on how to deconstruct doing something in a class/package (Connectors) when the documentation isn't obvious: http://www.youtube.com/watch?v=xC6jcLw25Go&list=PL6601A198DF14788D&index=65… Lawson

1 0

The Trunk: Monticello-bf.507.mcz
by commits＠source.squeak.org 04 May '12

04 May '12

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.507.mcz ==================== Summary ==================== Name: Monticello-bf.507 Author: bf Time: 4 May 2012, 5:33:23.298 pm UUID: 7f23df35-9c19-457d-96f3-9ea8476eb5d2 Ancestors: Monticello-bf.506 Remove now unused changes file scanning method. =============== Diff against Monticello-bf.506 =============== Item was removed: - ----- Method: MCMethodDefinition>>scanForPreviousVersion (in category 'installing') ----- - scanForPreviousVersion - | sourceFilesCopy method position | - method := self actualClass compiledMethodAt: selector ifAbsent: [^ nil]. - position := method filePosition. - sourceFilesCopy := SourceFiles collect: - [:x | x isNil ifTrue: [ nil ] - ifFalse: [x readOnlyCopy]]. - [ | file prevPos tokens preamble methodCategory stamp prevFileIndex | - method fileIndex = 0 ifTrue: [^ nil]. - file := sourceFilesCopy at: method fileIndex. - [position notNil & file notNil] - whileTrue: - [file position: (0 max: position-150). "Skip back to before the preamble" - [file position < (position-1)] "then pick it up from the front" - whileTrue: [preamble := file nextChunk]. - - "Preamble is likely a linked method preamble, if we're in - a changes file (not the sources file). Try to parse it - for prior source position and file index" - prevPos := nil. - stamp := ''. - (preamble findString: 'methodsFor:' startingAt: 1) > 0 - ifTrue: [tokens := Scanner new scanTokens: preamble] - ifFalse: [tokens := Array new "ie cant be back ref"]. - ((tokens size between: 7 and: 8) - and: [(tokens at: tokens size-5) = #methodsFor:]) - ifTrue: - [(tokens at: tokens size-3) = #stamp: - ifTrue: ["New format gives change stamp and unified prior pointer" - stamp := tokens at: tokens size-2. - prevPos := tokens last. - prevFileIndex := sourceFilesCopy fileIndexFromSourcePointer: prevPos. - prevPos := sourceFilesCopy filePositionFromSourcePointer: prevPos] - ifFalse: ["Old format gives no stamp; prior pointer in two parts" - prevPos := tokens at: tokens size-2. - prevFileIndex := tokens last]. - (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos := nil]]. - ((tokens size between: 5 and: 6) - and: [(tokens at: tokens size-3) = #methodsFor:]) - ifTrue: - [(tokens at: tokens size-1) = #stamp: - ifTrue: ["New format gives change stamp and unified prior pointer" - stamp := tokens at: tokens size]]. - methodCategory := tokens after: #methodsFor: ifAbsent: ['as yet unclassifed']. - methodCategory = category ifFalse: - [methodCategory = (Smalltalk - at: #Categorizer - ifAbsent: [Smalltalk at: #ClassOrganizer]) - default ifTrue: [methodCategory := methodCategory, ' ']. - ^ ChangeRecord new file: file position: position type: #method - class: className category: methodCategory meta: classIsMeta stamp: stamp]. - position := prevPos. - prevPos notNil ifTrue: - [file := sourceFilesCopy at: prevFileIndex]]. - ^ nil] - ensure: [sourceFilesCopy do: [:x | x notNil ifTrue: [x close]]] - !

1 0

The Trunk: Tests-bf.152.mcz
by commits＠source.squeak.org 04 May '12

04 May '12

Bert Freudenberg uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-bf.152.mcz ==================== Summary ==================== Name: Tests-bf.152 Author: bf Time: 4 May 2012, 5:26:53.469 pm UUID: b395ab5c-75ae-4088-9a0a-8919546aa8da Ancestors: Tests-eem.151 Fix MC override tests: you cannot override a method in your own package =============== Diff against Tests-eem.151 =============== Item was changed: ----- Method: MCMethodDefinitionTest>>testRevertOldMethod (in category 'testing') ----- testRevertOldMethod | definition changeRecord | + Object compile: 'yourself ^ self' classified: self mockOverrideMethodCategory. - Object compile: 'yourself ^ self' classified: MCMockPackageInfo new methodCategoryPrefix. definition := (MethodReference class: Object selector: #yourself) asMethodDefinition. + changeRecord := definition scanForPreviousVersions first. - changeRecord := definition scanForPreviousVersion. self assert: changeRecord notNil. self assert: changeRecord category = 'accessing'. changeRecord fileIn.! Item was changed: ----- Method: MCMethodDefinitionTest>>testRevertOverrideMethod (in category 'testing') ----- testRevertOverrideMethod | definition | + self class compile: 'override ^ 2' classified: '*foobarbaz-override'. - self class compile: 'override ^ 2' classified: self mockOverrideMethodCategory. definition := (MethodReference class: self class selector: #override) asMethodDefinition. self assert: definition isOverrideMethod. self assert: self override = 2. definition unload. self assert: self override = 1. self assert: (MethodReference class: self class selector: #override) category = 'mocks'. !

1 0

The Trunk: Monticello-bf.506.mcz
by commits＠source.squeak.org 04 May '12

04 May '12

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.506.mcz ==================== Summary ==================== Name: Monticello-bf.506 Author: bf Time: 4 May 2012, 5:24:52.072 pm UUID: 09260671-aa20-4eb7-bf88-687d20cb117d Ancestors: Monticello-eem.505 Fix reverting an overloaded method. Uses new changes file scanning method from PackageInfo-Base-bf.61. =============== Diff against Monticello-eem.505 =============== Item was added: + ----- Method: MCMethodDefinition>>scanForPreviousVersions (in category 'installing') ----- + scanForPreviousVersions + "Answer change records for other versions of this method, i.e. other overrides and the original version" + | versions | + versions := OrderedCollection new. + PackageInfo default changeRecordsForMethod: self asMethodReference do: [:record | + record category = category ifFalse: [versions add: record]]. + ^versions + ! Item was changed: ----- Method: MCMethodDefinition>>unload (in category 'installing') ----- unload + | previousVersions | + self isOverrideMethod ifTrue: [ + previousVersions := self scanForPreviousVersions]. + previousVersions isEmptyOrNil + ifTrue: [self actualClass ifNotNil: [:class | + self removeSelector: selector fromClass: class]] + ifFalse: [ + "remove our override from history, even if buried below other overrides" + previousVersions reverseDo: [:version | version fileIn]] ! - | previousVersion | - self isOverrideMethod ifTrue: [previousVersion := self scanForPreviousVersion]. - previousVersion - ifNil: [self actualClass ifNotNil:[:class| self removeSelector: selector fromClass: class]] - ifNotNil: [previousVersion fileIn] !

1 0

The Trunk: PackageInfo-Base-bf.61.mcz
by commits＠source.squeak.org 04 May '12

04 May '12

Bert Freudenberg uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-bf.61.mcz ==================== Summary ==================== Name: PackageInfo-Base-bf.61 Author: bf Time: 4 May 2012, 5:19:59.726 pm UUID: b83f26b4-eb81-44a0-b6b9-a0ad3f50f290 Ancestors: PackageInfo-Base-bf.60 Factor out override scanning into changeRecordsForMethod:do: to allow use by MC, too. =============== Diff against PackageInfo-Base-bf.60 =============== Item was changed: ----- Method: PackageInfo>>changeRecordForOverriddenMethod: (in category 'testing') ----- changeRecordForOverriddenMethod: aMethodReference + self changeRecordsForMethod: aMethodReference do: [:record | + (self includesMethodCategory: record category + ofClass: aMethodReference actualClass) + ifTrue: [^record]]. + ^nil! - | sourceFilesCopy method position overridingPackages | - overridingPackages := Set new. - method := aMethodReference compiledMethod. - position := method filePosition. - sourceFilesCopy := SourceFiles collect: - [:x | x isNil ifTrue: [ nil ] - ifFalse: [x readOnlyCopy]]. - [ | file prevPos prevFileIndex chunk stamp methodCategory methodPackage tokens | - method fileIndex = 0 ifTrue: [^ nil]. - file := sourceFilesCopy at: method fileIndex. - [position notNil & file notNil] - whileTrue: - [file position: (0 max: position-150). "Skip back to before the preamble" - [file position < (position-1)] "then pick it up from the front" - whileTrue: [chunk := file nextChunk]. - - "Preamble is likely a linked method preamble, if we're in - a changes file (not the sources file). Try to parse it - for prior source position and file index" - prevPos := nil. - stamp := ''. - (chunk findString: 'methodsFor:' startingAt: 1) > 0 - ifTrue: [tokens := Scanner new scanTokens: chunk] - ifFalse: [tokens := Array new "ie cant be back ref"]. - ((tokens size between: 7 and: 8) - and: [(tokens at: tokens size-5) = #methodsFor:]) - ifTrue: - [(tokens at: tokens size-3) = #stamp: - ifTrue: ["New format gives change stamp and unified prior pointer" - stamp := tokens at: tokens size-2. - prevPos := tokens last. - prevFileIndex := sourceFilesCopy fileIndexFromSourcePointer: prevPos. - prevPos := sourceFilesCopy filePositionFromSourcePointer: prevPos] - ifFalse: ["Old format gives no stamp; prior pointer in two parts" - prevPos := tokens at: tokens size-2. - prevFileIndex := tokens last]. - (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos := nil]]. - ((tokens size between: 5 and: 6) - and: [(tokens at: tokens size-3) = #methodsFor:]) - ifTrue: - [(tokens at: tokens size-1) = #stamp: - ifTrue: ["New format gives change stamp and unified prior pointer" - stamp := tokens at: tokens size]]. - methodCategory := tokens after: #methodsFor: ifAbsent: ['as yet unclassifed']. - (self includesMethodCategory: methodCategory ofClass: aMethodReference actualClass) ifTrue: - [methodCategory = (Smalltalk at: #Categorizer ifAbsent: [Smalltalk at: #ClassOrganizer]) default ifTrue: [methodCategory := methodCategory, ' ']. - ^ ChangeRecord new file: file position: position type: #method - class: aMethodReference classSymbol category: methodCategory meta: aMethodReference classIsMeta stamp: stamp]. - methodPackage := PackageOrganizer default packageOfMethodCategory: methodCategory ofClass: aMethodReference actualClass ifNone: [#unknown]. - (self isOverrideCategory: methodCategory) - ifTrue: [overridingPackages add: methodPackage] - ifFalse: [(overridingPackages includes: methodPackage) - ifFalse: [^nil]]. - position := prevPos. - prevPos notNil ifTrue: - [file := sourceFilesCopy at: prevFileIndex]]. - ^ nil] - ensure: [sourceFilesCopy do: [:x | x notNil ifTrue: [x close]]] - ! Item was added: + ----- Method: PackageInfo>>changeRecordsForMethod:do: (in category 'enumerating') ----- + changeRecordsForMethod: aMethodReference do: aBlock + "Evaluate aBlock with one ChangeRecord per overriding package, followed by the latest non-override" + | overridingPackages method position sourceFilesCopy | + overridingPackages := Set new. + method := aMethodReference compiledMethod. + position := method filePosition. + sourceFilesCopy := SourceFiles collect: [:x | x ifNotNil: [x readOnlyCopy]]. + [ | file prevPos prevFileIndex chunk stamp methodCategory methodPackage tokens | + method fileIndex = 0 ifTrue: [^ nil]. + file := sourceFilesCopy at: method fileIndex. + [position notNil & file notNil] + whileTrue: + [file position: (0 max: position-150). "Skip back to before the preamble" + [file position < (position-1)] "then pick it up from the front" + whileTrue: [chunk := file nextChunk]. + + "Preamble is likely a linked method preamble, if we're in + a changes file (not the sources file). Try to parse it + for prior source position and file index" + prevPos := nil. + stamp := ''. + (chunk findString: 'methodsFor:' startingAt: 1) > 0 + ifTrue: [tokens := Scanner new scanTokens: chunk] + ifFalse: [tokens := Array new "ie cant be back ref"]. + ((tokens size between: 7 and: 8) + and: [(tokens at: tokens size-5) = #methodsFor:]) + ifTrue: + [(tokens at: tokens size-3) = #stamp: + ifTrue: ["New format gives change stamp and unified prior pointer" + stamp := tokens at: tokens size-2. + prevPos := tokens last. + prevFileIndex := sourceFilesCopy fileIndexFromSourcePointer: prevPos. + prevPos := sourceFilesCopy filePositionFromSourcePointer: prevPos] + ifFalse: ["Old format gives no stamp; prior pointer in two parts" + prevPos := tokens at: tokens size-2. + prevFileIndex := tokens last]. + (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos := nil]]. + ((tokens size between: 5 and: 6) + and: [(tokens at: tokens size-3) = #methodsFor:]) + ifTrue: + [(tokens at: tokens size-1) = #stamp: + ifTrue: ["New format gives change stamp and unified prior pointer" + stamp := tokens at: tokens size]]. + methodCategory := tokens after: #methodsFor: ifAbsent: [ClassOrganizer default]. + methodPackage := PackageOrganizer default packageOfMethodCategory: methodCategory ofClass: aMethodReference actualClass ifNone: [#unknown]. + (overridingPackages includes: methodPackage) + ifFalse: [aBlock value: (ChangeRecord new + file: file position: position type: #method + class: aMethodReference classSymbol category: methodCategory + meta: aMethodReference classIsMeta stamp: stamp)]. + (self isOverrideCategory: methodCategory) + ifTrue: [overridingPackages add: methodPackage] + ifFalse: [(overridingPackages includes: methodPackage) + ifFalse: [^nil]]. + position := prevPos. + prevPos notNil ifTrue: + [file := sourceFilesCopy at: prevFileIndex]]. + ^nil] + ensure: [sourceFilesCopy do: [:x | x ifNotNil: [x close]]] + ! Item was changed: ----- Method: PackageInfo>>isOverrideCategory: (in category 'testing') ----- isOverrideCategory: aString + ^ aString first = $* and: [aString endsWith: '-override']! - ^ aString endsWith: '-override'!

1 0

The Trunk: Kernel-nice.685.mcz
by commits＠source.squeak.org 04 May '12

04 May '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.685.mcz ==================== Summary ==================== Name: Kernel-nice.685 Author: nice Time: 4 May 2012, 10:51:32.635 am UUID: 2febaac6-3ff5-3640-abfd-068dce4f0a2b Ancestors: Kernel-eem.684 Rename Number class>>#readSqueakSyntaxFrom: into #readSmalltalkSyntaxFrom: This is to provide a common API across dialects for external packages since both VW7.x and Pharo2.0 have #readSmalltalkSyntaxFrom: Note that Number syntax may vary slightly across dialects and #readSmalltalkSyntaxFrom: is to be understood "in local dialect"... #readSqueakSyntaxFrom: was quite recent and not used in trunk, so I removed rather than deprecate. If you don't agree, raise your voice. =============== Diff against Kernel-eem.684 =============== Item was added: + ----- Method: Number class>>readSmalltalkSyntaxFrom: (in category 'instance creation') ----- + readSmalltalkSyntaxFrom: stringOrStream + "Answer a number as described on aStream. The number may + be any accepted Smalltalk literal Number format. + It can include a leading radix specification, as in 16rFADE. + It can as well be NaN, Infinity or -Infinity for conveniency. + If stringOrStream does not start with a valid number description, fail." + + ^(SqNumberParser on: stringOrStream) nextNumber! Item was removed: - ----- Method: Number class>>readSqueakSyntaxFrom: (in category 'instance creation') ----- - readSqueakSyntaxFrom: stringOrStream - "Answer a number as described on aStream. The number may - be any accepted Smalltalk literal Number format. - It can include a leading radix specification, as in 16rFADE. - It can as well be NaN, Infinity or -Infinity for conveniency. - If stringOrStream does not start with a valid number description, fail." - - ^(SqNumberParser on: stringOrStream) nextNumber!

1 0

Daily Commit Log
by commits＠source.squeak.org 04 May '12

04 May '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-May/005315.html Name: System-eem.484 Ancestors: System-eem.483 Stricter methodsWithUnboundGlobals =============================================

1 0

The Trunk: System-eem.484.mcz
by commits＠source.squeak.org 03 May '12

03 May '12

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.484.mcz ==================== Summary ==================== Name: System-eem.484 Author: eem Time: 3 May 2012, 9:15:17.73 am UUID: 22d19428-0bee-46fc-b869-420d7994d06a Ancestors: System-eem.483 Stricter methodsWithUnboundGlobals =============== Diff against System-eem.483 =============== Item was changed: ----- Method: SystemNavigation>>methodsWithUnboundGlobals (in category 'query') ----- methodsWithUnboundGlobals "Get all methods that use undeclared global objects that are not listed in Undeclared. For a clean image the result should be empty." "SystemNavigation new methodsWithUnboundGlobals" ^self allSelect: [:m| m literals anySatisfy: [:l| l isVariableBinding and: [l key isSymbol "avoid class-side methodClass literals" + and: [(m methodClass bindingOf: l key) + ifNil: [(Undeclared associationAt: l key ifAbsent: []) ~~ l] + ifNotNil: [:b| b ~~ l]]]]]! - and: [(m methodClass bindingOf: l key) isNil - and: [(Undeclared associationAt: l key ifAbsent: []) ~~ l]]]]]!

1 0

Jump to page: