[Pkg] Installer: Installer-Core-mtf.235.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-mtf.235.mcz

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

Name: Installer-Core-mtf.235
Author: mtf
Time: 23 October 2008, 1:32:03 pm
UUID: 793eed98-0866-4d18-a860-f6b92679b63f
Ancestors: Installer-Core-mtf.234

moved InstallerMonticello instanciation methods back to the instance side, where they were before

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

Item was added:
+ ----- Method: InstallerMonticello>>classMCVersionLoader (in category 'class references') -----
+ classMCVersionLoader
+ 
+ 	^Smalltalk at: #MCVersionLoader  ifAbsent: [ self error: 'Monticello not present' ]!

Item was added:
+ ----- Method: InstallerMonticello>>magma:port: (in category 'instance creation') -----
+ magma: host port: aport
+ 	
+ 	mc := (self classMCMagmaRepository new) host: host port: aport; yourself
+  !

Item was added:
+ ----- Method: InstallerMonticello>>classMCGOODSRepository (in category 'class references') -----
+ classMCGOODSRepository
+ 
+ 	^Smalltalk at: #MCGOODSRepository ifAbsent: [ self error: 'Monticello not present' ]
+ 	!

Item was added:
+ ----- Method: InstallerMonticello>>ftp:directory:user:password: (in category 'instance creation') -----
+ ftp: host directory: dir user: name password: secret
+ 	"Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret."
+ 	
+ 	mc := self classMCFtpRepository host: host directory: dir user: name password: ''.
+ 	root :=  dir.	
+  !

Item was added:
+ ----- Method: InstallerMonticello>>directory: (in category 'instance creation') -----
+ directory: dir
+ 
+ 	| directory |
+ 	directory := dir isString 
+ 		ifTrue: [  FileDirectory on: (FileDirectory default fullNameFor: dir) ]
+ 		ifFalse: [ dir ].
+ 		
+ 	mc := self classMCDirectoryRepository new directory: directory; yourself.
+  	root := dir
+ 	
+  !

Item was added:
+ ----- Method: InstallerMonticello>>classMCMagmaRepository (in category 'class references') -----
+ classMCMagmaRepository
+ 
+ 	^Smalltalk at: #MCMagmaRepository ifAbsent: [ self error: 'Magma not present' ]
+ 	!

Item was added:
+ ----- Method: InstallerMonticello>>cache (in category 'instance creation') -----
+ cache
+ 	
+ 	mc := self classMCCacheRepository default.
+ 	root := mc directory localName
+  !

Item was added:
+ ----- Method: InstallerMonticello>>classMCHttpRepository (in category 'class references') -----
+ classMCHttpRepository
+ 
+ 	^Smalltalk at: #MCHttpRepository ifAbsent: [ self error: 'Monticello not present' ]
+ 	!

Item was added:
+ ----- Method: InstallerMonticello>>http: (in category 'instance creation') -----
+ http: aUrl  
+ 	
+ 	self http: aUrl user: 'squeak' password: 'squeak'
+ 		
+  !

Item was added:
+ ----- Method: InstallerMonticello>>classMCCacheRepository (in category 'class references') -----
+ classMCCacheRepository
+ 
+ 	^Smalltalk at: #MCCacheRepository ifAbsent: [ self error: 'Monticello not present' ]
+ 	!

Item was added:
+ ----- Method: InstallerMonticello>>classMCDirectoryRepository (in category 'class references') -----
+ classMCDirectoryRepository
+ 
+ 	^Smalltalk at: #MCDirectoryRepository ifAbsent: [ self error: 'Monticello not present' ]
+ 	!

Item was added:
+ ----- Method: InstallerMonticello>>classMCSmtpRepository (in category 'class references') -----
+ classMCSmtpRepository
+ 
+ 	^Smalltalk at: #MCSmtpRepository ifAbsent: [ self error: 'Monticello not present' ]
+ 	!

Item was changed:
  ----- Method: InstallerMonticello>>mcThing (in category 'monticello') -----
  mcThing
  
  	| loader files fileToLoad  version  count |
  
+ 	loader := self classMCVersionLoader new.
- 	loader := self class classMCVersionLoader new.
  	
  	1 to: self packages size do: [ :n |
  
  		self logCR: 'finding ', self package asString, '...'.
  		"several attempts to read files - repository readableFileNames sometimes fails"
  		count := 0. fileToLoad := nil.
  	
  		[count := count + 1.
  		 (fileToLoad = nil) and:[ count < 5 ] ] 
  			whileTrue: [
  							files := mc readableFileNames asSortedCollection: self mcSortFileBlock.
  							fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ].
  		].
  
  		version := mc versionFromFileNamed: fileToLoad.
  		(version isKindOf: MCConfiguration) 
  			ifTrue: [ ^ version ]
  			ifFalse:[version workingCopy repositoryGroup addRepository: mc.
  				loader addVersion: version].
  		self log: ' found ', version fileName, '...'.
  
  		packages removeFirst.
  	].
  
  	^ loader!

Item was added:
+ ----- Method: InstallerMonticello>>classMCFtpRepository (in category 'class references') -----
+ classMCFtpRepository
+ 
+ 	^Smalltalk at: #MCFtpRepository ifAbsent: [ self error: 'Monticello not present' ]
+ 	!

Item was added:
+ ----- Method: InstallerMonticello>>goods:port: (in category 'instance creation') -----
+ goods: host port: aport
+ 	
+ 	mc := (self classMCGOODSRepository new) host: host port: aport; yourself
+  !

Item was changed:
  ----- Method: Installer class>>monticello (in category 'monticello') -----
  monticello
  
+ 	^ InstallerMonticello new!
- 	^ InstallerMonticello!

Item was added:
+ ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') -----
+ http: aUrl user: name password: secret
+ 	
+ 	mc := self classMCHttpRepository location: aUrl user: name password: secret.
+ 	root := mc locationWithTrailingSlash	
+  !

Item was removed:
- ----- Method: InstallerMonticello class>>classMCCacheRepository (in category 'class references') -----
- classMCCacheRepository
- 
- 	^Smalltalk at: #MCCacheRepository ifAbsent: [ self error: 'Monticello not present' ]
- 	!

Item was removed:
- ----- Method: InstallerMonticello class>>classMCDirectoryRepository (in category 'class references') -----
- classMCDirectoryRepository
- 
- 	^Smalltalk at: #MCDirectoryRepository ifAbsent: [ self error: 'Monticello not present' ]
- 	!

Item was removed:
- ----- Method: InstallerMonticello class>>classMCSmtpRepository (in category 'class references') -----
- classMCSmtpRepository
- 
- 	^Smalltalk at: #MCSmtpRepository ifAbsent: [ self error: 'Monticello not present' ]
- 	!

Item was removed:
- ----- Method: InstallerMonticello class>>classMCFtpRepository (in category 'class references') -----
- classMCFtpRepository
- 
- 	^Smalltalk at: #MCFtpRepository ifAbsent: [ self error: 'Monticello not present' ]
- 	!

Item was removed:
- ----- Method: InstallerMonticello class>>cache (in category 'instance creation') -----
- cache
-     | mc |
- 	^ self new	
- 		mc: (mc := self classMCCacheRepository default)
- 		root: mc directory localName
-  !

Item was removed:
- ----- Method: InstallerMonticello class>>goods:port: (in category 'instance creation') -----
- goods: host port: aport
- 	
- 	^ self new mc: ((self classMCGOODSRepository new) host: host port: aport; yourself)
-  !

Item was removed:
- ----- Method: InstallerMonticello class>>classMCVersionLoader (in category 'class references') -----
- classMCVersionLoader
- 
- 	^Smalltalk at: #MCVersionLoader  ifAbsent: [ self error: 'Monticello not present' ]!

Item was removed:
- ----- Method: Installer class>>http: (in category 'instance creation') -----
- http: aUrl  
- 	
- 	^ self http: aUrl user: 'squeak' password: 'squeak'
- 		
-  !

Item was removed:
- ----- Method: InstallerMonticello class>>magma:port: (in category 'instance creation') -----
- magma: host port: aport
- 	
- 	^ self new mc: (self classMCMagmaRepository new) host: host port: aport; yourself!

Item was removed:
- ----- Method: InstallerMonticello class>>classMCGOODSRepository (in category 'class references') -----
- classMCGOODSRepository
- 
- 	^Smalltalk at: #MCGOODSRepository ifAbsent: [ self error: 'Monticello not present' ]
- 	!

Item was removed:
- ----- Method: InstallerMonticello class>>http:user:password: (in category 'instance creation') -----
- http: aUrl user: name password: secret
- 	
- 	| mc |
- 	^ self new
- 		mc: (mc := self classMCHttpRepository location: aUrl user: name password: secret)
- 		root: mc locationWithTrailingSlash!

Item was removed:
- ----- Method: InstallerMonticello class>>ftp:directory:user:password: (in category 'instance creation') -----
- ftp: host directory: dir user: name password: secret
- 	"Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret."
- 	
- 	^ self new
- 		mc: (self classMCFtpRepository host: host directory: dir user: name password: '')
- 		root: dir!

Item was removed:
- ----- Method: InstallerMonticello>>mc:root: (in category 'initialize-release') -----
- mc: aRepo root: aPath
- 	mc := aRepo.
- 	root := aPath.!

Item was removed:
- ----- Method: InstallerMonticello class>>directory: (in category 'instance creation') -----
- directory: dir
- 
- 	| directory |
- 	directory := dir isString 
- 		ifTrue: [  FileDirectory on: (FileDirectory default fullNameFor: dir) ]
- 		ifFalse: [ dir ].
- 		
- 	^ self new
- 		mc: (self classMCDirectoryRepository new directory: directory; yourself)
- 		root: dir!

Item was removed:
- ----- Method: InstallerMonticello class>>classMCMagmaRepository (in category 'class references') -----
- classMCMagmaRepository
- 
- 	^Smalltalk at: #MCMagmaRepository ifAbsent: [ self error: 'Magma not present' ]
- 	!

Item was removed:
- ----- Method: InstallerMonticello class>>classMCHttpRepository (in category 'class references') -----
- classMCHttpRepository
- 
- 	^Smalltalk at: #MCHttpRepository ifAbsent: [ self error: 'Monticello not present' ]
- 	!