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' ] - !
packages@lists.squeakfoundation.org