The Trunk: System-bf.265.mcz

Bert Freudenberg uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-bf.265.mcz

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

Name: System-bf.265
Author: bf
Time: 25 February 2010, 2:52:16.574 pm
UUID: b98766af-58f1-40cd-b1d2-826bb1ba3f3d
Ancestors: System-nice.264

- backout CodeLoader changes. Consensus is to use Installer for these tasks, not CodeLoader.

=============== Diff against System-nice.264 ===============

Item was changed:
  ----- Method: CodeLoader>>installSourceFiles (in category 'installing') -----
  installSourceFiles
  "Install the previously loaded source files"
+ sourceFiles == nil ifTrue:[^self].
+ sourceFiles do:[:req| self installSourceFile: req contentStream].
+ sourceFiles := nil.!
-
- sourceFiles ifNil: [ ^self ].
- sourceFiles do: [ :request |
- | aSuffix |
- aSuffix := request url copyAfterLast: $..
- aSuffix
- caseOf: {
- [ 'mcz' ] -> [ self tryVersion: (request url copyAfterLast: $/) ].
- [ 'sar' ] -> [ SARInstaller new fileInFrom: request contentStream ]}
- otherwise: [ self installSourceFile: request contentStream ] ].
- sourceFiles := nil!

Item was removed:
- ----- Method: CodeLoader>>lookLastVersion: (in category 'installing') -----
- lookLastVersion: packageName
- | mcw montiNames package version |
- mcw := MCWorkingCopyBrowser new
- repository: (MCHttpRepository
- location: baseURL
- user: 'squeak'
- password: 'squeak').
- mcw repository
- ifNotNilDo: [:repos | montiNames := repos readableFileNames].
- package := montiNames
- detect: [:any | any beginsWith: packageName]
- ifNone: [].
- package
- ifNotNil: [Utilities
- informUser: 'Installing ' , packageName printString
- during: [version := mcw repository loadVersionFromFileNamed: package.
- version load]].
- MCPackageManager
- managersForCategory: packageName
- do: [:wc | wc repositoryGroup
- addRepository: (MCHttpRepository new location: baseURL)]!

Item was removed:
- ----- Method: CodeLoader>>installMonticelloFor: (in category 'installing') -----
- installMonticelloFor: aList
- "Install the previously loaded source files"
- aList
- do: [:packName | self lookMonticelloVersion: packName].
- sourceFiles := nil!

Item was removed:
- ----- Method: CodeLoader>>segments (in category 'accessing') -----
- segments
- ^ segments!

Item was removed:
- ----- Method: CodeLoader>>tryVersion: (in category 'debugging') -----
- tryVersion: packageName
- | mcw montiNames package version |
-
- mcw := MCWorkingCopyBrowser new repository: (MCHttpRepository
- location: baseURL
- user: ''
- password: '').
- mcw repository ifNotNilDo: [:repos | montiNames := repos readableFileNames ].
-
-
-
- package := (montiNames detect:[:ea| ea beginsWith: packageName] ifNone:[] ) .
- package ifNotNil: [MCWorkingCopy allManagers do: [:each |
- each  repositoryGroup
- addRepository: (MCHttpRepository new location: baseURL)]..
- version := mcw repository loadVersionFromFileNamed: package.
- version load].
- ^version!

Item was removed:
- ----- Method: CodeLoader>>installLastMonticelloFor: (in category 'installing') -----
- installLastMonticelloFor: aList
- "Install the previously loaded source files"
-
- aList
- do: [:packName |
-
- self lookLastVersion: packName].
- sourceFiles := nil!

Item was removed:
- ----- Method: CodeLoader>>lookMonticelloVersion: (in category 'installing') -----
- lookMonticelloVersion: packageName
- | mcw montiNames package version |
- mcw := MCWorkingCopyBrowser new
- repository: (MCHttpRepository
- location: baseURL
- user: 'squeak'
- password: 'squeak').
- mcw repository
- ifNotNilDo: [:repos | montiNames := repos readableFileNames].
- package := montiNames
- detect: [:any | any = packageName]
- ifNone: [].
- package
- ifNotNil: [Utilities
- informUser: 'Installing ' , packageName printString
- during: [version := mcw repository loadVersionFromFileNamed: package.
- version load]].
- MCPackageManager
- managersForCategory: packageName
- do: [:wc | wc repositoryGroup
- addRepository: (MCHttpRepository new location: baseURL)]!