[Pkg] The Trunk: System-bf.265.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 25 13:53:19 UTC 2010


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)]!



More information about the Packages mailing list