"{ Encoding: utf8 }"

"{ Package: 'stx:goodies/monticello' }"

"{ NameSpace: Smalltalk }"

Object subclass:#MCRepositoryGroup
	instanceVariableNames:'repositories'
	classVariableNames:''
	poolDictionaries:''
	category:'SCM-Monticello-Versioning'
!

MCRepositoryGroup class instanceVariableNames:'default'

"
 No other class instance variables are inherited by this class.
"
!

MCRepositoryGroup comment:'A singleton class, holds the list of repositories. Can look for a requested VersionInfo among its repositories.'
!


!MCRepositoryGroup class methodsFor:'as yet unclassified'!

default
    default isNil ifTrue: [default := self new].
    ^default

    "Modified: / 04-04-2012 / 11:04:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

new
	^ self basicNew initialize
! !

!MCRepositoryGroup methodsFor:'as yet unclassified'!

addRepository: aRepository
    ((repositories includes: aRepository) or: [aRepository == MCCacheRepository default])
	ifFalse: [
	    repositories add: aRepository.
	    self class default addRepository: aRepository.
	    self changed: #repositories
    ].

    "Modified: / 04-12-2011 / 09:04:24 / cg"
!

flushRepositories
    "/ cg: mhmh - what should we do here ?
    "/ called by UserPreferences >> mcRepositories:

    self initializeRepositoriesFromUserSettings

    "Created: / 01-12-2011 / 20:35:13 / cg"
    "Modified (comment): / 24-01-2012 / 09:51:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

includes: aRepository
	^ self repositories includes: aRepository
!

includesVersionNamed: aString
	self repositoriesDo: [:ea | (ea includesVersionNamed: aString) ifTrue: [^ true]].
	^ false
!

initialize
    "/ repositories _ OrderedCollection new
    self initializeRepositoriesFromUserSettings

    "Modified: / 04-12-2011 / 09:07:23 / cg"
!

initializeRepositoriesFromUserSettings
    |litArray reps dir rep|

    litArray := UserPreferences current mcRepositories.
    litArray == false ifTrue:[
        "there is no entry in the UserPreferences, so false - the default value - is returned"
        reps := #().
    ] ifFalse:[
        reps := litArray decodeAsLiteralArray.
    ].
    repositories := reps asOrderedCollection.

    ((dir := Filename downloadsDirectory) notNil and:[dir exists]) ifTrue:[
        rep := MCDirectoryRepository directory:dir pathName.
        repositories add:rep
    ].
    ((dir := Smalltalk packageDirectoryForPackageId:'stx:goodies/monticello_packages') notNil and:[dir exists]) ifTrue:[
        rep := MCDirectoryRepository directory:dir pathName.
        repositories add:rep
    ].

    "Created: / 04-12-2011 / 09:06:53 / cg"
    "Modified: / 04-04-2012 / 11:08:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

removeRepository: aRepository
	repositories remove: aRepository ifAbsent: [].
	self changed: #repositories
!

repositories
    ^ ((OrderedSet with:MCCacheRepository default)
                addAll:repositories;
                yourself)
            asOrderedCollection
        select: [ :ea | ea isValid ]

    "Modified: / 04-12-2011 / 09:04:42 / cg"
!

repositories: anOrderedCollection

    repositories := anOrderedCollection copy.
    "Ensure, that repositories contain cache as first"
    repositories remove: MCCacheRepository default ifAbsent:[].
    repositories addFirst: MCCacheRepository default.
    self == self class default ifTrue:[
        UserPreferences current mcRepositories: repositories asArray literalArrayEncoding
    ].

    "Created: / 04-04-2012 / 11:05:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

repositoriesDo: aBlock
	self repositories do: [:ea | [aBlock value: ea] on: Error do: []]
! !

!MCRepositoryGroup methodsFor:'searching'!

versionWithInfo: aVersionInfo
	^self versionWithInfo: aVersionInfo ifNone: [ self error: 'Could not find version ', aVersionInfo name printString,'. Maybe you need to add a repository?' ]
!

versionWithInfo: aVersionInfo ifNone: aBlock
	self repositoriesDo: [:ea | (ea versionWithInfo: aVersionInfo) ifNotNilDo: [:v | ^ v]].
	^aBlock value
! !

!MCRepositoryGroup class methodsFor:'documentation'!

version
    ^ '$Header$'
! !