Packages July 2008

packages@lists.squeakfoundation.org

2 participants
65 discussions

Installer: Installer-Core-mtf.207.mcz
by squeaksource-noreply＠iam.unibe.ch 01 Jul '08

01 Jul '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.207.mcz ==================== Summary ==================== Name: Installer-Core-mtf.207 Author: mtf Time: 30 June 2008, 9:49:41 pm UUID: d04ba754-4f84-437d-9810-2b54be304a63 Ancestors: Installer-Core-mtf.206, Installer-Core-kph.206 merged mine and keith's fixes a third time =============== Diff against Installer-Core-mtf.206 =============== Item was added: + ----- Method: Installer>>classMCVersionLoader (in category 'class references') ----- + classMCVersionLoader + + ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]! Item was changed: ----- Method: Installer>>mcThing (in category 'monticello') ----- mcThing + | loader files fileToLoad version count | - | files fileToLoad version count | + loader := self classMCVersionLoader new. + + 1 to: self packages size do: [ :n | + + self logCR: 'finding ', self package asString, '...'. + "several attempts to read files - repository readableFileNames sometimes fails" + count := 0. fileToLoad := nil. - self logCR: 'finding ', self package asString, '...'. - "several attempts to read files - repository readableFileNames sometimes fails" - count := 0. fileToLoad := nil. + [count := count + 1. + (fileToLoad = nil) and:[ count < 5 ] ] + whileTrue: [ + files := mc readableFileNames asSortedCollection: self mcSortFileBlock. + fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ]. - [count := count + 1. - (fileToLoad = nil) and:[ count < 5 ] ] - whileTrue: [ - files := mc readableFileNames asSortedCollection: self mcSortFileBlock. - fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ]. ]. + + version := mc versionFromFileNamed: fileToLoad. + (version isKindOf: MCConfiguration) ifFalse:[ + version workingCopy repositoryGroup addRepository: mc]. + mc creationTemplate: mc asCreationTemplate. + self log: ' found ', version fileName, '...'. + loader addVersion: version. + + packages removeFirst. + ]. - version := mc versionFromFileNamed: fileToLoad. - (version isKindOf: MCConfiguration) ifFalse:[ - version workingCopy repositoryGroup addRepository: mc]. - mc creationTemplate: mc asCreationTemplate. - self log: ' found ', version fileName, '...'. + ^ loader + ! - ^ version!

1 0

Installer: Installer-Core-kph.206.mcz
by squeaksource-noreply＠iam.unibe.ch 01 Jul '08

01 Jul '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.206.mcz ==================== Summary ==================== Name: Installer-Core-kph.206 Author: kph Time: 1 July 2008, 2:57:42 am UUID: 3e19fa67-eff5-49b4-b5d1-21515d63d40a Ancestors: Installer-Core-kph.205 Added multiple packages support to Installer mc =============== Diff against Installer-Core-kph.205 =============== Item was added: + ----- Method: Installer>>classMCVersionLoader (in category 'class references') ----- + classMCVersionLoader + + ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]! Item was changed: ----- Method: Installer>>mcThing (in category 'monticello') ----- mcThing + | loader files fileToLoad version count | - | files fileToLoad version count | + loader := self classMCVersionLoader new. + + 1 to: self packages size do: [ :n | + + self logCR: 'finding ', self package asString, '...'. + "several attempts to read files - repository readableFileNames sometimes fails" + count := 0. fileToLoad := nil. - self logCR: 'finding ', self package asString, '...'. - "several attempts to read files - repository readableFileNames sometimes fails" - count := 0. fileToLoad := nil. + [count := count + 1. + (fileToLoad = nil) and:[ count < 5 ] ] + whileTrue: [ + files := mc readableFileNames asSortedCollection: self mcSortFileBlock. + fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ]. - [count := count + 1. - (fileToLoad = nil) and:[ count < 5 ] ] - whileTrue: [ - files := mc readableFileNames asSortedCollection: self mcSortFileBlock. - fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ]. ]. + + version := mc versionFromFileNamed: fileToLoad. + (version isKindOf: MCConfiguration) ifFalse:[ + version workingCopy repositoryGroup addRepository: mc]. + mc creationTemplate: mc asCreationTemplate. + self log: ' found ', version fileName, '...'. + loader addVersion: version. + + packages removeFirst. + ]. - version := mc versionFromFileNamed: fileToLoad. - (version isKindOf: MCConfiguration) ifFalse:[ - version workingCopy repositoryGroup addRepository: mc]. - mc creationTemplate: mc asCreationTemplate. - self log: ' found ', version fileName, '...'. + ^ loader + ! - ^ version!

1 0

Installer: Installer-Core-mtf.206.mcz
by squeaksource-noreply＠iam.unibe.ch 01 Jul '08

01 Jul '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.206.mcz ==================== Summary ==================== Name: Installer-Core-mtf.206 Author: mtf Time: 30 June 2008, 6:50:17 pm UUID: 82c66f70-1d10-47b2-8bf4-e8fa897ed43c Ancestors: Installer-Core-kph.205, Installer-Core-mtf.205 merged Installer cache with keith's fixes again =============== Diff against Installer-Core-kph.205 =============== Item was added: + ----- Method: Installer>>classMCCacheRepository (in category 'class references') ----- + classMCCacheRepository + + ^Smalltalk at: #MCCacheRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was changed: ----- Method: Installer class>>goran (in category 'instanciation-abbreviated') ----- goran + ^ self göran ! - ^ self monticello http: 'squeak.krampe.se'; project: ''! Item was added: + ----- Method: Installer>>goran (in category 'instanciation-abbreviated') ----- + goran + + ^ self monticello http: 'squeak.krampe.se'; project: ''! Item was added: + ----- Method: Installer>>cache (in category 'monticello') ----- + cache + + mc := self classMCCacheRepository default. + root := mc directory localName + ! Item was added: + ----- Method: Installer class>>cache (in category 'instanciation-abbreviated') ----- + cache + ^ self monticello cache!

1 0

SystemEditor: SystemEditor-kph.105.mcz
by squeaksource-noreply＠iam.unibe.ch 01 Jul '08

01 Jul '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-kph.105.mcz ==================== Summary ==================== Name: SystemEditor-kph.105 Author: kph Time: 1 July 2008, 2:14:03 am UUID: 50700c39-fd5c-4b78-9a65-a0d2c46667e1 Ancestors: SystemEditor-kph.104 guard against nils =============== Diff against SystemEditor-kph.104 =============== Item was changed: ----- Method: ObjectMigrator>>migrateFrom:to: (in category 'migrating') ----- migrateFrom: oStream to: dStream + + origin name = #Null ifTrue: [ self halt ]. + origin ifNil: [ self error: 'shouldnt be nil' ]. + destination ifNil: [ self error: 'shouldnt be nil' ]. + oStream nextPut: origin. dStream nextPut: destination.!

1 0

SystemEditor: SystemEditor-kph.104.mcz
by squeaksource-noreply＠iam.unibe.ch 01 Jul '08

01 Jul '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-kph.104.mcz ==================== Summary ==================== Name: SystemEditor-kph.104 Author: kph Time: 1 July 2008, 1:56:19 am UUID: a2653c64-f0fe-4f85-b67b-0ff257ec9c98 Ancestors: SystemEditor-mtf.103 raise errors if migration arrays contain nil =============== Diff against SystemEditor-mtf.103 =============== Item was changed: ----- Method: InstanceMigrator>>migrateFrom:to: (in category 'migrating') ----- migrateFrom: oStream to: dStream self instances do: [:ea | + self assert: ea notNil. + oStream nextPut: ea. dStream nextPut: (self migrate: ea)]! Item was changed: ----- Method: InstanceMigrator>>migrate: (in category 'migrating') ----- migrate: oldInstance | newInstance | + + oldInstance ifNil: [ self error: 'shouldnt be nil' ]. + + newInstance := destination edInstanceBasedOn: oldInstance. - newInstance := destination edInstanceBasedOn: oldInstance. 1 to: instSize do: [:offset | (map at: offset) > 0 ifTrue: [newInstance instVarAt: offset put: (oldInstance instVarAt: (map at: offset))]]. destination isVariable ifTrue: [1 to: oldInstance basicSize do: [:offset | newInstance basicAt: offset put: (oldInstance basicAt: offset)]]. + + newInstance ifNil: [ self error: 'shouldnt be nil' ]. + ^newInstance!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2008