[Pkg] The Trunk: System-edc.259.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Feb 22 19:17:41 UTC 2010


Edgar J. De Cleene uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-edc.259.mcz

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

Name: System-edc.259
Author: edc
Time: 22 February 2010, 4:19:55.809 pm
UUID: 837b65aa-e3d4-4325-a5d1-279fda51b4d0
Ancestors: System-ul.258

Add CodeLoaderEnh as sended to list.

Examples os use:

| loader |
	loader _ CodeLoader new.
	loader baseURL: 'http://www.squeaksource.com/Ladrillos/'.
	loader loadSourceFiles: #('FFI-Kernel-ar.7.mcz' 'Network-IRC-fc.10.7.6.mcz');installSourceFiles.
	
	| loader |
	loader _ CodeLoader new.
	loader baseURL: 'http://www.squeaksource.com/MathMorphsRevival/'.
	loader loadSourceFiles: #('MorphicWrappers-edc.3.mcz' 'Functions-zz.4.mcz');installSourceFiles.
	




=============== Diff against System-ul.258 ===============

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

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

Item was added:
+ ----- 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 changed:
  ----- Method: CodeLoader>>installSourceFiles (in category 'installing') -----
  installSourceFiles
  	"Install the previously loaded source files"
+ 	| aSuffix | 
+ 	sourceFiles == nil
+ 		ifTrue: [^ self].
+ 	sourceFiles
+ 		do: [:req | aSuffix :=  (req url  findTokens: '.') last..
+ 			
+ 			aSuffix caseOf: {
+ 			[ 'mcz'] -> [MczInstaller installStream: req contentStream].
+ 				['sar'] ->[ SARInstaller new fileInFrom: req contentStream]}
+ 				otherwise: [self installSourceFile: req contentStream]].
+ 	sourceFiles := nil!
- 	sourceFiles == nil ifTrue:[^self].
- 	sourceFiles do:[:req| self installSourceFile: req contentStream].
- 	sourceFiles := nil.!

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

Item was added:
+ ----- 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