Packages May 2012

packages@lists.squeakfoundation.org

1 participants
138 discussions

The Trunk: TemporaryVariableScopeEditor-eem.2.mcz
by commits＠source.squeak.org 05 May '12

05 May '12

Eliot Miranda uploaded a new version of TemporaryVariableScopeEditor to project The Trunk: http://source.squeak.org/trunk/TemporaryVariableScopeEditor-eem.2.mcz ==================== Summary ==================== Name: TemporaryVariableScopeEditor-eem.2 Author: eem Time: 5 May 2012, 1:30:55.001 pm UUID: e6f191e7-a640-45ae-9402-96597be44653 Ancestors: TemporaryVariableScopeEditor-eem.1 Add editMethod: convenience. Recategorize class-side methods. =============== Diff against TemporaryVariableScopeEditor-eem.1 =============== Item was changed: + ----- Method: TempScopeEditor class>>edit (in category 'editing') ----- - ----- Method: TempScopeEditor class>>edit (in category 'as yet unclassified') ----- edit "Trawl the system for methods containing misdeclared temps and correct these methods." SystemNavigation default allSelect: [:m| | scanner | (m isQuick not and: [(scanner := InstructionStream on: m) scanFor: [:b| b = 143 and: [scanner followingByte >= 16]]]) ifTrue: [(self new forMethod: m) edit]. false]! Item was added: + ----- Method: TempScopeEditor class>>editMethod: (in category 'editing') ----- + editMethod: aCompiledMethod + (self new forMethod: aCompiledMethod) edit! Item was changed: + ----- Method: TempScopeEditor class>>editPackage: (in category 'editing') ----- - ----- Method: TempScopeEditor class>>editPackage: (in category 'as yet unclassified') ----- editPackage: packageInfoOrName "Trawl the given package for methods containing misdeclared temps and correct these methods." "self editPackage: #Cassowary" SystemNavigation new allMethodsSelect: [:m| | scanner | (m isQuick not and: [(scanner := InstructionStream on: m) scanFor: [:b| b = 143 and: [scanner followingByte >= 16]]]) ifTrue: [(self new forMethod: m) edit]. false] localToPackage: packageInfoOrName!

1 0

The Trunk: Tools-yo.404.mcz
by commits＠source.squeak.org 05 May '12

05 May '12

Bert Freudenberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-yo.404.mcz ==================== Summary ==================== Name: Tools-yo.404 Author: yo Time: 4 May 2012, 9:11:23.233 pm UUID: bfc2fb69-8de6-461f-a5ab-67e55498cb63 Ancestors: Tools-bf.403 Guard the case when there is a reference to obsolete classes. One could imagine to have a pseudo package to show obsolete classes referenced from this package, but guarding againt an error is one step toward it anyway. =============== Diff against Tools-bf.403 =============== Item was changed: ----- Method: DependencyBrowser>>computePackageDependencies: (in category 'package deps') ----- computePackageDependencies: pkgName "Compute the dependencies for the given package" | pi | classDeps := Dictionary new. packageDeps := Dictionary new. pkgName ifNil:[^self]. pi := PackageOrganizer default packageNamed: pkgName ifAbsent:[^self]. "unloaded" pi classes do:[:pkgClass| (classDeps at: (pkgClass superclass ifNil:[ProtoObject]) name ifAbsentPut:[OrderedCollection new]) add: (MethodReference class: pkgClass selector: #Definition)]. pi methods do:[:mref| | cm | cm := mref compiledMethod. 1 to: cm numLiterals do:[:i| | lit | ((lit := cm literalAt: i) isVariableBinding and:[lit value isBehavior]) ifTrue:[ (classDeps at: lit value name ifAbsentPut:[OrderedCollection new]) add: (MethodReference class: cm methodClass selector: cm selector)]]]. classDeps keys do:[:className| | aClass pkg | aClass := Smalltalk classNamed: className. + pkg := aClass ifNil: [nil] ifNotNil: [PackageOrganizer default packageOfClass: aClass ifNone:[nil]]. - pkg := PackageOrganizer default packageOfClass: aClass ifNone:[nil]. pkg ifNil:[ Transcript cr; show: 'WARNING: No package for ', className. (classDeps removeKey: className) do:[:each| Transcript crtab; show: each]. ] ifNotNil:[ (packageDeps at: pkg name ifAbsentPut:[OrderedCollection new]) add: className. ]. ]. (packageDeps removeKey: pkgName ifAbsent:[#()]) do:[:each| classDeps removeKey: each ifAbsent:[]. ].!

1 0

The Trunk: Tools-yo.404.mcz
by commits＠source.squeak.org 05 May '12

05 May '12

1 0

The Trunk: Tools-yo.404.mcz
by commits＠source.squeak.org 05 May '12

05 May '12

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: Monticello-bf.507.mcz
by commits＠source.squeak.org 04 May '12

04 May '12

1 0

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

04 May '12

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: Tests-bf.152.mcz
by commits＠source.squeak.org 04 May '12

04 May '12

1 0

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

04 May '12

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 May 2012