core/MetacelloPackageSpecResolutionError.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 18 Sep 2012 18:24:44 +0000
changeset 16 25ac697dc747
parent 14 f01fe37493e9
permissions -rw-r--r--
- Updated from branch master

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

Error subclass:#MetacelloPackageSpecResolutionError
	instanceVariableNames:'packageSpec repositories repositoryError'
	classVariableNames:''
	poolDictionaries:''
	category:'Metacello-Core-Exceptions-Errors'
!


!MetacelloPackageSpecResolutionError methodsFor:'accessing'!

description
    "Return a textual description of the exception."

    ^ 'Could not resolve: ' , packageSpec name , ' [' , packageSpec file , ']' , ' in' , self repositoryString
        ,
            (repositoryError == nil
                ifTrue: [ '' ]
                ifFalse: [ 
                    "report repository error to user here, since failure here is likely to be due to earlier repository error"
                    ' ERROR: ' , repositoryError description printString ])
!

packageSpec
	^ packageSpec
!

packageSpec: anObject
	packageSpec := anObject
!

repositories
	^ repositories
!

repositories: anObject
	repositories := anObject
!

repositoryError
	^ repositoryError
!

repositoryError: anObject
	repositoryError := anObject
! !

!MetacelloPackageSpecResolutionError methodsFor:'private'!

repositoryString
    | repositoryString |
    repositoryString := ''.
    self repositories do: [ :repo | repositoryString := repositoryString , ' ' , repo description ].
    ^ repositoryString
! !

!MetacelloPackageSpecResolutionError class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !