[Pkg] Installer: Installer-Core-kph.306.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Mon Feb 23 06:15:30 UTC 2009


A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.306.mcz

==================== Summary ====================

Name: Installer-Core-kph.306
Author: kph
Time: 23 February 2009, 6:15:26 am
UUID: b1d6c5a8-0ee5-4a98-a9fc-f24e57c158f8
Ancestors: Installer-Core-kph.305

fix to bootstrap, dont try and unload things.

=============== Diff against Installer-Core-kph.305 ===============

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 ] 
  ].
  
- "uninstall previous version"
- SystemOrganization removeSystemCategory: pkg asSymbol.
- 
  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.
  
  [
  				
  	(getSource value: (repo,fileName)) readStream fileInAnnouncing: 'Booting ' , fileName.
   
  ] on: Warning do: [ :ex | ex resume: true ].!



More information about the Packages mailing list