The Trunk: ReleaseBuilder-cmm.104.mcz

Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-cmm.104.mcz

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

Name: ReleaseBuilder-cmm.104
Author: cmm
Time: 8 November 2013, 10:23:31.885 am
UUID: b4025c04-9481-4f18-b601-c087a70ddc6b
Ancestors: ReleaseBuilder-fbs.103

- Refer to new #trunk accessor rather than hard-coding it in multiple places.

=============== Diff against ReleaseBuilder-fbs.103 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>cleanPackages (in category 'scripts') -----
  cleanPackages
  "Force-load the packages to ensure the image has what Trunk says it should."
- | trunk |
- trunk := MCRepositoryGroup default repositories detect:
-   [:repo | repo description = 'http://source.squeak.org/trunk'].
  MCWorkingCopy allManagers do: [:wc |
  FileStream stdout nextPutAll: ('Cleaning {1}\' withCRs format: {wc packageName}).
  wc ancestors size = 1 ifFalse: [
  self error: 'Package must have single parent: ', wc packageName].
  wc modified: true. "make sure actual diff is performed"
+ [(MCRepository trunk versionWithInfo: wc ancestors first) load]
- [(trunk versionWithInfo: wc ancestors first) load]
  on: Warning do: [:w | w resume]].!

Item was changed:
  ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') -----
  releaseRepository
  "At release time, change 'trunk' to 'squeak45'."
+ ^ MCRepository trunk!
- ^ MCHttpRepository
- location: 'http://source.squeak.org/trunk'
- user: 'squeak'
- password: 'squeak'!

Item was changed:
  ----- Method: ReleaseBuilder class>>transferCurrentPackagesAsUser:password: (in category 'scripts') -----
  transferCurrentPackagesAsUser: username password: password
  "Copy the packages currently loaded in the image from the trunk repository to my releaseRepository."
+ | releaseRep |
- | trunkRep releaseRep |
- trunkRep := self trunkRepository.
  releaseRep := self releaseRepository
  user: username;
  password: password;
  yourself.
  MCWorkingCopy allManagers do:
  [ : eachWorkingCopy | eachWorkingCopy ancestors do:
  [ : eachVersionInfo | (releaseRep includesVersionNamed: eachVersionInfo versionName) ifFalse:
+ [ (MCRepository trunk versionWithInfo: eachVersionInfo)
+ ifNil: [ Warning signal: eachVersionInfo name , ' not found in trunk.' ]
- [ (trunkRep versionWithInfo: eachVersionInfo)
- ifNil: [ Warning signal: eachVersionInfo name , ' not found in ', trunkRep ]
  ifNotNilDo: [ : ver | releaseRep storeVersion: ver ] ] ] ]!

Item was removed:
- ----- Method: ReleaseBuilder class>>trunkRepository (in category 'private') -----
- trunkRepository
- ^ MCHttpRepository
- location: self repositoryUrl , '/trunk'
- user: 'squeak'
- password: 'squeak'!