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

Object subclass:#MetacelloProjectSpecGenerator
	instanceVariableNames:'target'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Scripts'
!


!MetacelloProjectSpecGenerator methodsFor:'accessing'!

projectSpecCreationBlock
    ^ [ :projectName | {(MetacelloMCProject new projectSpec name: projectName)} ]
!

projectSpecListBlock
    ^ [ MetacelloProjectRegistration projectSpecs ]
!

projectSpecLookupBlock
    ^ [ :projectName | 
    {(MetacelloProjectRegistration
        projectSpecForClassNamed: (MetacelloScriptEngine baselineNameFrom: projectName)
        ifAbsent: [  ]).
    (MetacelloProjectRegistration
        projectSpecForClassNamed: (MetacelloScriptEngine configurationNameFrom: projectName)
        ifAbsent: [  ])} ]
!

target
	^ target
!

target: anObject
	target := anObject
! !

!MetacelloProjectSpecGenerator class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !