hg/stx-goodies-metacello: core/MetacelloPackageSpecResolutionError.st@25ac697dc747 (annotated)

11 d354ac2af7ec Metacello package refactoring - phase 2~ Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	1	"{ Package: 'stx:goodies/metacello/core' }"
1 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
16 25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	11	!MetacelloPackageSpecResolutionError methodsFor:'accessing'!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	12
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	13	description
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	14	"Return a textual description of the exception."
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	15
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	16	^ 'Could not resolve: ' , packageSpec name , ' [' , packageSpec file , ']' , ' in' , self repositoryString
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	17	,
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	18	(repositoryError == nil
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	19	ifTrue: [ '' ]
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	20	ifFalse: [
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	21	"report repository error to user here, since failure here is likely to be due to earlier repository error"
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	22	' ERROR: ' , repositoryError description printString ])
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	23	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	24
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	25	packageSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	26	^ packageSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	27	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	28
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	29	packageSpec: anObject
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	30	packageSpec := anObject
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	31	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	32
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	33	repositories
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	34	^ repositories
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	35	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	36
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	37	repositories: anObject
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	38	repositories := anObject
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	39	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	40
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	41	repositoryError
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	42	^ repositoryError
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	43	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	44
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	45	repositoryError: anObject
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	46	repositoryError := anObject
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	47	! !
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	48
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	49	!MetacelloPackageSpecResolutionError methodsFor:'private'!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	50
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	51	repositoryString
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	52	\| repositoryString \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	53	repositoryString := ''.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	54	self repositories do: [ :repo \| repositoryString := repositoryString , ' ' , repo description ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	55	^ repositoryString
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	56	! !
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	57
1 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	! !

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--