Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

SystemEditor: SystemEditor-mtf.146.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.146.mcz ==================== Summary ==================== Name: SystemEditor-mtf.146 Author: mtf Time: 26 October 2008, 9:20:25 am UUID: 8c868838-f701-44cd-9a9a-2fb054b62644 Ancestors: SystemEditor-mtf.142 fixed a bug with empty categorizers =============== Diff against SystemEditor-mtf.142 =============== Item was changed: ----- Method: CategorizerEditor>>edBuild (in category 'building') ----- edBuild | result processed newCat | result := self productClass defaultList: Array new. + categories ifNotEmpty: [result categories: categories]. - result categories: categories. self changedElementsAndCategoriesDo: [:ea :cat | result classify: ea under: cat]. self subject ifNil: [^ result]. processed := IdentitySet new addAll: result elementArray; addAll: self removedElements; yourself. self subject categories do: [:oldCat | newCat := self newCategoryFor: oldCat. (subject listAtCategoryNamed: oldCat) do: [:ea | (processed includes: ea) ifFalse: [ result classify: ea under: newCat]]]. ^ result!

1 0

Sake : Sake-Bob-kph.6.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of Sake-Bob was added to project Sake : http://www.squeaksource.com/Sake/Sake-Bob-kph.6.mcz ==================== Summary ==================== Name: Sake-Bob-kph.6 Author: kph Time: 26 October 2008, 2:52:24 pm UUID: 1df2e342-e4a3-46c4-9f59-52b2b1f03d79 Ancestors: Sake-Bob-kph.5 . =============== Diff against Sake-Bob-kph.5 =============== Item was changed: ----- Method: BobPeriodicallyWatchRepositories>>taskWatchPackages (in category 'as yet unclassified') ----- taskWatchPackages + ^ SakeTask checkUrl: 'http://www.squeaksource.com/Packages/feed.rss' onChanged: [ Installer install: 'Packages' ].! - ^ SakeTask checkUrl: 'http://www.squeaksource.com/Packages/feed.rss' onChanged: [ Installer sake install: 'PackagesAllVersions' ].! Item was added: + ----- Method: BobBuild class>>taskBuildAll (in category 'as yet unclassified') ----- + taskBuildAll + + self define: [ :task | + + task dependsOn: (self allSubclasses collect: [ self build ]). + + "we need to tell this task to sort its dependencies appropriately before it is run" + ].! Item was changed: ----- Method: BobPeriodicallyWatchRepositories>>taskWatchTasks (in category 'as yet unclassified') ----- taskWatchTasks + ^ SakeTask checkUrl: 'http://www.squeaksource.com/Tasks/feed.rss' + onChanged: [ Installer sake install: 'Tasks'. + BobBuild taskMain run. ]. - ^ SakeTask checkUrl: 'http://www.squeaksource.com/Tasks/feed.rss' onChanged: [ Installer sake install: 'Tasks' ]. ! Item was added: + ScheduledTask subclass: #BobPeriodicallyBuilds + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Bob'! Item was added: + ----- Method: BobBuild class>>build (in category 'as yet unclassified') ----- + build + + self subclassResponsibility! Item was added: + ----- Method: BobBuild class>>taskMain (in category 'as yet unclassified') ----- + taskMain + + self define: [ :task | + + task dependsOn: (self allSubclasses collect: [ self build ]). + + "we need to tell this task to sort its dependencies appropriately before it is run" + ].! Item was added: + ----- Method: BobBuild class>>latest: (in category 'as yet unclassified') ----- + latest: prefix + + " + BobBuildReleaseAfterSqueak310 latest: #build. + " + + ^ (self selectors select: [ :ea | ea beginsWith: prefix ]) asSortedCollection last!

1 0

SystemEditor: SystemEditor-mtf.145.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.145.mcz ==================== Summary ==================== Name: SystemEditor-mtf.145 Author: mtf Time: 25 October 2008, 11:05:21 pm UUID: d060ae78-dc4a-4494-9a0c-7008b959baa2 Ancestors: SystemEditor-mtf.144 oops; forgot to actually migrate the instances in the new migrator =============== Diff against SystemEditor-mtf.144 =============== Item was changed: ----- Method: MigrationTransaction>>commit (in category 'public') ----- commit "The mass become: is a primitive, but we execute this method with preemption disabled because we don't want another process creating new instances while we're busy converting the existing instances." | old new | [ old := WriteStream on: (Array new: migrators size). new := WriteStream on: (Array new: migrators size). migrators do: [:ea | ea migrateFrom: old to: new]. + self collectInstancesOldInto: old newInto: new. old contents elementsExchangeIdentityWith: new contents. ] valueUnpreemptively.!

1 0

SystemEditor: SystemEditor-mtf.144.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.144.mcz ==================== Summary ==================== Name: SystemEditor-mtf.144 Author: mtf Time: 25 October 2008, 10:05:37 pm UUID: 764f8db8-5d21-4262-a22c-5210aa54c69c Ancestors: SystemEditor-mtf.143 enable the new instance migrator. HIGHLY EXPERIMENTAL. May result in crashes =============== Diff against SystemEditor-mtf.143 =============== Item was changed: ----- Method: ClassEditor>>edPrepareInstanceMigration: (in category 'building') ----- edPrepareInstanceMigration: txn + txn migrateInstancesOf: self subject to: self product! - txn addMigrator: (InstanceMigrator from: self subject to: self product)!

1 0

SystemEditor: SystemEditor-mtf.143.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.143.mcz ==================== Summary ==================== Name: SystemEditor-mtf.143 Author: mtf Time: 25 October 2008, 10:02:56 pm UUID: c6fe8815-84e4-4c81-a55c-6f5a70aa8253 Ancestors: SystemEditor-mtf.142 an experimental InstanceMigrator refactor that should be able to find all instances of any number of classes in constant, rather than linear, time, hopefully resulting in a nice speedup in the average case. It is not yet used, so this change is harmless =============== Diff against SystemEditor-mtf.142 =============== Item was added: + ----- Method: MigrationTransaction>>collectInstancesOldInto:newInto: (in category 'instance refactor') ----- + collectInstancesOldInto: oStream newInto: dStream + "collect instances of all migrating objects using one memory scan rather than n. SystemNavigation>>allObjectsDo: is inlined here for portability to a KernelImage" + | object | + instanceMigrators ifNil: [^ self]. + object := self someObject. + [0 == object] + whileFalse: [ + instanceMigrators at: object class ifPresent: [:migrator | + oStream nextPut: object. + dStream nextPut: (migrator migrate: object)]. + object := object nextObject]! Item was added: + ----- Method: MigrationTransaction>>migrateInstancesOf:to: (in category 'instance refactor') ----- + migrateInstancesOf: oldClass to: newClass + instanceMigrators ifNil: [instanceMigrators := IdentityDictionary new]. + instanceMigrators at: oldClass + put: (InstanceMigrator from: oldClass to: newClass)! Item was changed: Object subclass: #MigrationTransaction + instanceVariableNames: 'migrators instanceMigrators' - instanceVariableNames: 'migrators' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'!

1 0

SystemEditor: SystemEditor-mtf.142.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.142.mcz ==================== Summary ==================== Name: SystemEditor-mtf.142 Author: mtf Time: 25 October 2008, 8:35:08 pm UUID: 1b1f863f-aa29-4623-9f57-536f29a057ce Ancestors: SystemEditor-mtf.141 fixed a bug for new classes using custom compilers =============== Diff against SystemEditor-mtf.141 =============== Item was changed: ----- Method: MethodEditor>>compileFor: (in category 'building') ----- compileFor: aClassEditor [ | node method | + node := aClassEditor product compilerClass new - node := aClassEditor compilerClass new compile: source in: aClassEditor product notifying: requestor ifFail: nil. node encoder requestor: self. method := node generate: #(0 0 0 0). (method respondsTo: #selector:) "set selector on 3.9 and above" ifTrue: [method selector: node selector]. ^ method ] on: SyntaxErrorNotification do: [:ex | "In 3.10, the class category needs to be set" ex instVarNamed: #category put: aClassEditor category. "Let the user fix and install the fixed code into the class's old or temporary MethodDictionary" ex outer. "Now fetch and use that code instead" source := aClassEditor product sourceCodeAt: self selector ifAbsent: [^ nil]. ^ aClassEditor product compiledMethodAt: self selector ]!

1 0

Sake : Sake-Scheduler-kph.6.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of Sake-Scheduler was added to project Sake : http://www.squeaksource.com/Sake/Sake-Scheduler-kph.6.mcz ==================== Summary ==================== Name: Sake-Scheduler-kph.6 Author: kph Time: 26 October 2008, 2:41:22 am UUID: d857b85e-1cf6-4344-b5da-e782840637e5 Ancestors: Sake-Scheduler-kph.5 print the class name when printing a task =============== Diff against Sake-Scheduler-kph.5 =============== Item was changed: ----- Method: ScheduledTask>>printOn: (in category 'printing') ----- printOn: aStream + aStream nextPutAll: (self class name); cr. - aStream nextPutAll: 'Scheduled Task'; cr. self description ifNotNil: [aStream nextPutAll: self description; cr]. self isRunning ifTrue: [aStream nextPutAll: 'CURRENTLY RUNNING !!!!']. self isSuspended ifTrue: [aStream nextPutAll: ' (suspended)']. aStream cr; nextPutAll: 'Next Run Time : ', self nextRunTime asString; cr; nextPutAll: 'Last Run Time : ', (runHistory isEmptyOrNil ifTrue: [runHistory ifNil: [ '<not logged>' ] ifNotNil: [ '<never run>' ] ] ifFalse: [runHistory last asString]).!

1 0

SystemEditor: SystemEditor-mtf.141.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.141.mcz ==================== Summary ==================== Name: SystemEditor-mtf.141 Author: mtf Time: 25 October 2008, 6:04:05 pm UUID: e996aa9d-e762-4d63-bb35-8f1eb6bdf638 Ancestors: SystemEditor-mtf.140 fixed the bug that caused SystemNavigation to find classes twice =============== Diff against SystemEditor-mtf.140 =============== Item was changed: ----- Method: ClassExporter>>export: (in category 'private') ----- export: aClass + ((aClass isBehavior) and: [aClass superclass notNil] + "Don't add aClass as subclass if a subclass exists that will become: aClass. + This can be checked by comparing the names. Otherwise, redundent + subclass entries appear, which makes + SystemNavigation>>allBehaviorsDo: find classes twice" + and: [aClass superclass subclasses noneSatisfy: [:ea | ea name = aClass name]]) - ((aClass isBehavior) and: [aClass superclass notNil]) ifTrue: [aClass superclass addSubclass: aClass]. (environment includesKey: aClass name) ifTrue: [self replace: aClass] ifFalse: [environment at: aClass name put: aClass]!

1 0

Monticello Public: PackageInfo-Base-kph.57.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-kph.57.mcz ==================== Summary ==================== Name: PackageInfo-Base-kph.57 Author: kph Time: 26 October 2008, 1:01:25 am UUID: 600b8741-d0d6-491f-a2b9-b1264e23eba4 Ancestors: PackageInfo-Base-mtf.56 + PackageInfo organizer + PackageInfo unload + PackageOrganizer unregisterPackageInfoClass: aPackageInfoClass =============== Diff against PackageInfo-Base-mtf.56 =============== Item was added: + ----- Method: PackageInfo class>>unload (in category 'packages access') ----- + unload + + self organizer unregisterPackageInfoClass: self + ! Item was added: + ----- Method: PackageOrganizer>>unregisterPackageInfoClass: (in category 'registering') ----- + unregisterPackageInfoClass: aClass + + self packages copy keysAndValuesDo: [ :k :v | v class = aClass ifTrue: [ self packages removeKey: k ] ]! Item was changed: ----- Method: PackageOrganizer>>clearCacheButPreservePreambles (in category 'initializing') ----- clearCacheButPreservePreambles "Remove every PI from the cache which does not have either a preamble or postscript" | keep | + keep := self packageInfos select: [:package | (((package hasPreamble + or: [package hasPostscript]) + or: [package hasPreambleOfRemoval]) - keep := self packageInfos select: [:package | (package hasPreamble - or: [package hasPostscript] - or: [package hasPreambleOfRemoval] or: [package hasPostscriptOfRemoval]) ]. packages := Dictionary new. keep do: [ :p | self registerPackage: p ]! Item was added: + ----- Method: PackageInfo class>>organizer (in category 'packages access') ----- + organizer + ^PackageOrganizer default! Item was changed: ----- Method: PackageOrganizer class>>cleanUp (in category 'as yet unclassified') ----- cleanUp + + self default packages copy keysAndValuesDo: [ :k :v | v class isObsolete ifTrue: [ self default packages removeKey: k ] ]. self default packageInfos do: [ :pi | | resp | resp := PackageInfo classResponsibleForName: pi packageName. (((resp = PackageInfo) not and: [ pi class ~= resp ]) or: [ pi class isObsolete ]) ifTrue: [ PackageOrganizer default unregisterPackageNamed: pi packageName. ]. ].! Item was changed: ----- Method: PackageInfo class>>allPackages (in category 'packages access') ----- allPackages + ^ self organizer packages! - ^PackageOrganizer default packages!

1 0

Sake : Sake-Tests-kph.48.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of Sake-Tests was added to project Sake : http://www.squeaksource.com/Sake/Sake-Tests-kph.48.mcz ==================== Summary ==================== Name: Sake-Tests-kph.48 Author: kph Time: 26 October 2008, 12:59:38 am UUID: 7f81d5d7-d450-4eab-8550-bd35aa715867 Ancestors: Sake-Tests-kph.47 use SakeTask file: =============== Diff against Sake-Tests-kph.47 =============== Item was changed: ----- Method: SakeTaskTest class>>ruleDirectory (in category 'as yet unclassified') ----- ruleDirectory + ^ (SakeTask file: 'testDir') in: [ :task | - ^ (SakeFileTask file: 'testDir') in: [ :task | + task action: [ task target mkdir ] - task action: [ task file mkdir ] ] ! Item was added: + ----- Method: SakeTaskTest>>traceAction: (in category 'as yet unclassified') ----- + traceAction: aMessage + + self log sake <<< (trace add: aMessage). + ! Item was changed: ----- Method: SakeTaskTest>>runCaseWith: (in category 'as yet unclassified') ----- runCaseWith: aBlock "this method provides a place for subclasses to override in order to enclose running of test cases within a testing context e.g. PRCurrentContext value: self context during: aBlock" trace := OrderedCollection new. + SakeSignal context: self during: aBlock - [ aBlock value ] on: SakeTrace do: [ :ex | self log sake <<< (trace add: ex messageText). ex resume. ] - ! Item was added: + ----- Method: SakeTaskTest class>>ruleReturnPriorTaskResults (in category 'as yet unclassified') ----- + ruleReturnPriorTaskResults + + ^ SakeTask define: [ :task | + + task dependsOn: { self ruleD. }. + task action: [ :priorTasks | priorTasks collect: #result ] + + ]! Item was changed: ----- Method: SakeTaskTest>>testContext (in category 'as yet unclassified') ----- testContext - self assert: (SakeTask noop context selector = #noop). - self assert: (SakeTask noop context receiver = SakeTask). - - self assert: ((SakeTask define: [:a | ]) context selector = #testContext). - self assert: ((SakeTask define: [:a | ]) context receiver = self ). - - self assert: ((SakeTask new define: [:a | ]) context selector = #testContext). - self assert: ((SakeTask new define: [:a | ]) context receiver = self ). + "tasks can run within a context, here the context is self, so #lookupDoubleAction is performed with: 2" + + self assert: ((SakeTask noop lookup: #lookupDoubleAction: with: 2) = 4). + + "if no arg is supplied the task is fed in" + self assert: ((SakeTask noop lookup: #lookupSomeValue: ) = SakeTask noop). ! Item was added: + ----- Method: SakeFileTaskTest>>testRuleFile (in category 'as yet unclassified') ----- + testRuleFile + + (Smalltalk classNamed: 'RioKernel') isNil ifTrue: [ self fail ]. + + self deny: ('testDir/test' asRio exists). + + SakeTaskTest ruleFile run. + + self assert: ('testDir/test' asRio contents = 'ruleFile').! Item was added: + ----- Method: SakeTaskTest>>lookupSomeValue: (in category 'as yet unclassified') ----- + lookupSomeValue: aTask + + ^ aTask! Item was changed: ----- Method: SakeMetaTest>>testKeyNotPresent (in category 'as yet unclassified') ----- testKeyNotPresent + self should: [ info test = nil ] - self should: [ info test ] raise: Error - " self debug: #testKeyNotPresent "! Item was added: + ----- Method: SakeTaskTest>>lookupDoubleAction: (in category 'as yet unclassified') ----- + lookupDoubleAction: aValue + + ^ aValue * 2! Item was changed: ----- Method: SakeTaskTest>>testDependentsResults (in category 'as yet unclassified') ----- testDependentsResults "does not work with non Rake ordering". + self assert: (SakeTaskTest ruleReturnPriorTaskResults run = #( ruleD )). - self assert: (SakeTaskTest ruleReturnResults run = #( ruleD )). ! Item was changed: ----- Method: SakeTaskTest class>>ruleFile (in category 'as yet unclassified') ----- ruleFile + ^ (SakeTask file: 'testDir/test') in: [ :task | - ^ (SakeFileTask file: 'testDir/test') in: [ :task | task dependsOn: { self ruleDirectory }. + task action: [ task target contents: 'ruleFile' ] - task action: [ task file contents: 'ruleFile' ] ] ! Item was removed: - ----- Method: SakeTaskTest class>>ruleReturnResults (in category 'as yet unclassified') ----- - ruleReturnResults - - ^ SakeTask define: [ :task | - - task dependsOn: { self ruleD. }. - task action: [ task results ] - - ]! Item was removed: - ----- Method: SakeTaskTest>>testRuleFile (in category 'as yet unclassified') ----- - testRuleFile - - (Smalltalk classNamed: 'RioKernel') isNil ifTrue: [ self fail ]. - - self deny: ('testDir/test' asRio exists). - - SakeTaskTest ruleFile run. - - self assert: ('testDir/test' asRio contents = 'ruleFile').!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2008