[Pkg] Installer: Installer-Core-nm.354.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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

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

Name: Installer-Core-nm.354
Author: nm
Time: 15 March 2010, 7:35:49 am
UUID: 4427f37c-6ab7-0846-87df-5745d28ddf0b
Ancestors: Installer-Core-nm.353

message #versions added 

=============== Diff against Installer-Core-mtf.335 ===============

Item was changed:
  ----- Method: Installer class>>squeakfoundation (in category 'repositories') -----
  squeakfoundation
  
+ 	^ self monticello http: 'http://source.squeakfoundation.org'!
- 	^ self monticello http: 'source.squeakfoundation.org'!

Item was changed:
  ----- Method: InstallerMonticello>>basicInstall (in category 'basic interface') -----
  basicInstall
  	 
+ 	| loader |
+ 	loader:= self mcThing.
+ 	(loader notNil and:[loader versions notEmpty])
+ 		 ifTrue:[	self withAnswersDo: [  loader  load ].
+ 		self logCR: 'loaded']						
+ 
- 	self withAnswersDo: [ self mcThing load ].
- 	self logCR: 'loaded'.
  !

Item was changed:
  ----- Method: InstallerMonticello>>mcDetectFileBlock: (in category 'monticello') -----
  mcDetectFileBlock: pkg
  
+ 	pkg isString ifTrue: [  ^ [ :aFile | (aFile copyUpToLast: $- )= pkg ] ].
- 	pkg isString ifTrue: [  ^ [ :aFile | aFile beginsWith: pkg ] ].
  
  	(pkg isKindOf: Array) 
+ 			ifTrue: [  ^  [ :aFile | (pkg detect: [ :item | (aFile copyUpToLast: $- )= item ] ifNone: [ false ]) ~= false ] ].
- 			ifTrue: [  ^  [ :aFile | (pkg detect: [ :item | aFile beginsWith: item ] ifNone: [ false ]) ~= false ] ].
  
  	pkg isBlock ifTrue: [ ^ pkg ].
+   
+  
    
   !

Item was added:
+ ----- Method: Installer>>errors (in category 'accessing') -----
+ errors
+ 	"Answer the value of errors"
+ 
+ 	^ errors ifNil:[errors:= OrderedCollection new]!

Item was changed:
  ----- Method: InstallerMonticello>>mcThing (in category 'monticello') -----
  mcThing
- 
  	| loader files fileToLoad  version  count |
  
  	loader := self classMCVersionLoader new.
- 	
  	count := 0. files := nil.
  	self logCR: 'reading ', mc description, '...'.
  		"several attempts to read files - repository readableFileNames sometimes fails"
  	[ count := count + 1.
  	 (files = nil) and:[ count < 5 ] ] 
  		whileTrue: [files := mc readableFileNames asSortedCollection: self mcSortFileBlock ].
  	files ifNil: [  Warning signal: 'Repository not readable: ', mc description. ^ nil  ].
  		
  	self packages do: [ :pkg |
- 
  		self log: 'finding ', pkg asString, '...'.
  		
  		fileToLoad := files detect: (self mcDetectFileBlock: pkg) ifNone: [ nil ].
+ 			fileToLoad  isNil
+ 			ifTrue:[self logError: 'File ',pkg,' not found'.  version:=  nil. ]
- 		
- 		version := mc versionFromFileNamed: fileToLoad.
- 		(version isKindOf: MCConfiguration) 
- 			ifTrue: [ ^ version ]
  			ifFalse:[
+ 				"super super trucho. Por eso el nombre!!!!!!"
+ 				(TrueCello installedFiles includes: fileToLoad)
+ 					ifTrue:[self logCR: 'File ',fileToLoad, ' already installed. Not loaded']
+ 					ifFalse:[	version := mc versionFromFileNamed: fileToLoad.			
+ 							(version isKindOf: MCConfiguration) 
+ 							ifTrue: [ ^ version ]
+ 								ifFalse:[MCRepositoryGroup default addRepository: self normalizedRepository.
+ 											version workingCopy repositoryGroup addRepository: self normalizedRepository.
+ 											TrueCello addFile: fileToLoad.
+ 											self logCR: ' found ', version fileName, '...'.
+ 											loader addVersion: version ]].
- 				MCRepositoryGroup default addRepository: self normalizedRepository.
- 				version workingCopy repositoryGroup addRepository: self normalizedRepository.
- 				loader addVersion: version ].
  			
+ 				].
- 		self logCR: ' found ', version fileName, '...'.
  	].
  
  	^ loader!

Item was added:
+ ----- Method: Installer>>errors: (in category 'accessing') -----
+ errors: anObject
+ 	"Set the value of errors"
+ 
+ 	errors := anObject!

Item was changed:
  ----- Method: InstallerWeb>>basicInstall (in category 'basic interface') -----
  basicInstall
   
   	 self thing size > 0 
  		ifTrue: [ self install: url from: pageDataStream ]
+ 		ifFalse: [ url ifNil: [ ^ self logError: self package, ' not found on webSearchPath' ].
+ 				  self logError: '...',url,' was empty' ].
- 		ifFalse: [ url ifNil: [ ^ self logCR: self package, ' not found on webSearchPath' ].
- 				  self logCR: '...',url,' was empty' ].
  	 !

Item was added:
+ ----- Method: Installer>>logError: (in category 'logging') -----
+ logError: text
+ 	self errors add: text.
+ 	^self logCR: text.
+ 	!

Item was changed:
  ----- Method: InstallerWeb>>thing (in category 'web install') -----
  thing
  
  	self logCR: 'searching for web package ''', self package, ''''.
   	url := self urlToDownload.
+ 	url ifNil: [ self logError: 'page ', self package, ' not found on path' ]
- 	url ifNil: [ self logCR: 'page ', self package, ' not found on path' ]
  		ifNotNil: [ self logCR: 'found ',  url, ' ...'.   ].
  	^ pageDataStream!

Item was changed:
  Object subclass: #Installer
+ 	instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel errors'
+ 	classVariableNames: 'IsSetToTrapErrors Remembered SkipLoadingTests InstallerBindings ValidationBlock'
- 	instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel'
- 	classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered SkipLoadingTests ValidationBlock'
  	poolDictionaries: ''
  	category: 'Installer-Core'!
  
  !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0!
  Documentation now available at http://installer.pbwiki.com/Installer
   
  useFileIn - flag to load source.st rather than using Monticello!

Item was changed:
  ----- Method: InstallerMonticello>>mcSortFileBlock (in category 'monticello') -----
  mcSortFileBlock
  
  	^ [:a :b | 
+         	[(a findBetweenSubStrs: #($.)) allButLast last asNumber > (b findBetweenSubStrs: #($.)) allButLast last asNumber] 
-         	[(a findBetweenSubStrs: #($.)) allButLast last asInteger > (b findBetweenSubStrs: #($.)) allButLast last asInteger] 
  				on: Error do: [:ex | false]].!

Item was changed:
  ----- Method: InstallerWeb>>basicView (in category 'basic interface') -----
  basicView
   
   	 self thing size > 0 
  		ifTrue: [ self view: url from: pageDataStream ]
+ 		ifFalse: [ self logError: 'NO DATA ',url,' was empty' ].
- 		ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ].
  	 !

Item was removed:
- ----- Method: Installer class>>squeaksource (in category 'repositories') -----
- squeaksource
- 
- 	^ self monticello http: 'http://www.squeaksource.com'!