MetacelloPackageSpecResolutionError.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 03 Sep 2012 13:10:51 +0000
changeset 3 504152ada1fc
parent 1 9e312de5f694
permissions -rw-r--r--
fixed stc-compilability
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     1
"{ Package: 'stx:goodies/metacello' }"
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     2
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     3
Error subclass:#MetacelloPackageSpecResolutionError
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     4
	instanceVariableNames:'packageSpec repositories repositoryError'
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     5
	classVariableNames:''
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     6
	poolDictionaries:''
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     7
	category:'Metacello-Core-Exceptions-Errors'
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     8
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
     9
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    10
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    11
!MetacelloPackageSpecResolutionError methodsFor:'accessing'!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    12
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    13
description
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    14
    "Return a textual description of the exception."
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    15
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    16
    ^ 'Could not resolve: ' , packageSpec name , ' [' , packageSpec file , ']' , ' in' , self repositoryString
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    17
        ,
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    18
            (repositoryError == nil
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    19
                ifTrue: [ '' ]
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    20
                ifFalse: [ 
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    21
                    "report repository error to user here, since failure here is likely to be due to earlier repository error"
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    22
                    ' ERROR: ' , repositoryError description printString ])
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    23
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    24
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    25
packageSpec
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    26
	^ packageSpec
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    27
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    28
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    29
packageSpec: anObject
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    30
	packageSpec := anObject
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    31
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    32
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    33
repositories
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    34
	^ repositories
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    35
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    36
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    37
repositories: anObject
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    38
	repositories := anObject
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    39
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    40
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    41
repositoryError
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    42
	^ repositoryError
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    43
!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    44
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    45
repositoryError: anObject
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    46
	repositoryError := anObject
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    47
! !
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    48
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    49
!MetacelloPackageSpecResolutionError methodsFor:'private'!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    50
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    51
repositoryString
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    52
    | repositoryString |
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    53
    repositoryString := ''.
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    54
    self repositories do: [ :repo | repositoryString := repositoryString , ' ' , repo description ].
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    55
    ^ repositoryString
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    56
! !
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    57
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    58
!MetacelloPackageSpecResolutionError class methodsFor:'documentation'!
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    59
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    60
version_SVN
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    61
    ^ '$Id::                                                                                                                        $'
9e312de5f694 - Initial commit
jv
parents:
diff changeset
    62
! !