[Pkg] Installer: Installer-Core-kph.307.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Mon Feb 23 06:30:26 UTC 2009
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.307.mcz
==================== Summary ====================
Name: Installer-Core-kph.307
Author: kph
Time: 23 February 2009, 6:30:19 am
UUID: 6cc2aafa-c620-4ccf-9d9d-37563190bc6d
Ancestors: Installer-Core-kph.306
do bootstrap silently (no SystemNotifier notifications)
=============== Diff against Installer-Core-kph.306 ===============
Item was changed:
----- Method: InstallerUrl>>bootstrap (in category 'accessing') -----
bootstrap
"
(Installer url: 'http://www.squeaksource.com/Sake/Sake-Core-kph.47.mcz') bootstrap.
"
| pkg wc splitPos repo getFileName getSource fileName |
splitPos := url lastIndexOf: $/.
pkg := url copyFrom: splitPos + 1 to: url size.
repo := url copyFrom: 1 to: splitPos.
wc := Smalltalk at: #MCWorkingCopy ifAbsent: [ nil ].
wc ifNotNil: [
(wc allManagers select: [:each | each packageName = pkg ]) do: [ :ea | ea unregister ]
].
getFileName := [ :pkgName | pkgName , ((HTTPSocket httpGet: repo) upToAll: pkgName; upTo: $") ].
getSource := [ :pkgUrl | ((ZipArchive new readFrom: (HTTPSocket httpGet: pkgUrl))
memberNamed: 'snapshot/source.st') contents ].
fileName := getFileName value: pkg.
[
+ SystemChangeNotifier uniqueInstance doSilently: [
-
(getSource value: (repo,fileName)) readStream fileInAnnouncing: 'Booting ' , fileName.
+ ]
-
] on: Warning do: [ :ex | ex resume: true ].!
More information about the Packages
mailing list