hg/stx-goodies-metacello: core/MetacelloProjectRegistry.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	Object subclass:#MetacelloProjectRegistry
9e312de5f694 - Initial commit jv parents: diff changeset	4	instanceVariableNames:'baselineRegistry configurationRegistry'
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-Scripts'
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	!MetacelloProjectRegistry 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	baselineProjectSpecs
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	14	"MetacelloProjectRegistration baselineProjectSpecs"
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	\| projectSpecs \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	17	projectSpecs := OrderedCollection new.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	18	self baselineRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	19	keysAndValuesDo: [ :className :registration \| projectSpecs add: (self projectSpecForClassNamed: className ifAbsent: [ self error: 'not expected' ]) ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	20	^ projectSpecs asArray
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	21	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	22
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	23	baselineRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	24	baselineRegistry ifNil: [ baselineRegistry := Dictionary new ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	25	^ baselineRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	26	!
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	configurationProjectSpecs
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	29	"MetacelloProjectRegistration configurationProjectSpecs"
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	30
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	31	\| projectSpecs \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	32	projectSpecs := OrderedCollection new.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	33	self configurationRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	34	keysAndValuesDo: [ :className :registration \| projectSpecs add: (self projectSpecForClassNamed: className ifAbsent: [ self error: 'not expected' ]) ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	35	^ projectSpecs asArray
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
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	38	configurationRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	39	configurationRegistry ifNil: [ configurationRegistry := Dictionary new ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	40	^ configurationRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	41	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	42
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	43	projectSpecs
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	44	"MetacelloProjectRegistration projectSpecs"
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	45
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	46	^ self configurationProjectSpecs , self baselineProjectSpecs
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	!MetacelloProjectRegistry methodsFor:'copying'!
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	postCopy
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	52	super postCopy.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	53	baselineRegistry := self baselineRegistry copy.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	54	configurationRegistry := self configurationRegistry copy
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	55	! !
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	!MetacelloProjectRegistry methodsFor:'initialization'!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	58
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	59	primeRegistryFromImage
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	60	"MetacelloProjectRegistration primeRegistryFromImage"
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	61
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	62	MetacelloProjectRegistration configurationClasses
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	63	do: [ :cl \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	64	(self configurationRegistry includesKey: cl name asString)
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	65	ifFalse: [
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	66	"not registered"
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	67	cl project currentVersion
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	68	ifNotNil: [ :version \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	69	\| projectSpec \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	70	projectSpec := (version project projectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	71	name: (MetacelloScriptEngine baseNameOf: cl name asString);
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	72	className: cl name asString;
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	73	versionString: version versionString;
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	74	repositories: version project projectPackage repositories copy;
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	75	yourself) asConfigurationProjectSpec.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	76	projectSpec asProjectRegistration
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	77	loadedInImage: true;
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	78	registerProject ] ] ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	79	MetacelloProjectRegistration baselineClasses
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	80	do: [ :cl \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	81	(self baselineRegistry includesKey: cl name asString)
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	82	ifFalse: [
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	83	"not registered"
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	84	cl project currentVersion
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	85	ifNotNil: [ :version \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	86	\| projectSpec \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	87	projectSpec := (version project projectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	88	name: (MetacelloScriptEngine baseNameOf: cl name asString);
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	89	repositories: version project projectPackage repositories copy;
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	90	yourself) asBaselineProjectSpec.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	91	projectSpec asProjectRegistration
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	92	loadedInImage: true;
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	93	registerProject ] ] ]
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	94	! !
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	95
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	96	!MetacelloProjectRegistry methodsFor:'querying'!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	97
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	98	projectSpecForClassNamed: aClassName ifAbsent: absentBlock
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	99	^ (self configurationRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	100	at: aClassName
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	101	ifAbsent: [ ^ (self baselineRegistry at: aClassName ifAbsent: [^absentBlock value]) baselineProjectSpec ])
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	102	configurationProjectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	103	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	104
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	105	registrationForClassNamed: aClassName ifAbsent: absentBlock
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	106	\| baseName \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	107	baseName := MetacelloScriptEngine baseNameOf: aClassName.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	108	self configurationRegistry at: aClassName ifPresent: [ :registration \| ^ registration ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	109	self baselineRegistry at: aClassName ifPresent: [ :registration \| ^ registration ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	110	self configurationRegistry at: 'ConfigurationOf' , baseName ifPresent: [ :registration \| ^ registration ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	111	self baselineRegistry at: 'BaselineOf' , baseName ifPresent: [ :registration \| ^ registration ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	112	^ absentBlock value
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	113	! !
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	114
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	115	!MetacelloProjectRegistry methodsFor:'registration'!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	116
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	117	registerProjectRegistration: aMetacelloProjectRegistration
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	118	"unconditionally register <newRegistration> ... use with care"
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	119
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	120	aMetacelloProjectRegistration configurationProjectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	121	ifNotNil: [ :spec \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	122	self configurationRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	123	at: spec className
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	124	ifPresent: [ :existing \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	125	(existing configurationProjectSpec registrationsCompareEqual: spec)
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	126	ifFalse: [
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	127	Transcript
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	128	cr;
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	129	show:
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	130	'REGISTRATION OF INCOMPATABLE PROJECTS: ' , existing printString , ' REPLACED BY '
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	131	, aMetacelloProjectRegistration printString ] ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	132	spec immutable.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	133	self configurationRegistry at: spec className put: aMetacelloProjectRegistration ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	134	aMetacelloProjectRegistration baselineProjectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	135	ifNotNil: [ :spec \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	136	self baselineRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	137	at: spec className
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	138	ifPresent: [ :existing \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	139	(existing baselineProjectSpec registrationsCompareEqual: spec)
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	140	ifFalse: [
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	141	Transcript
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	142	cr;
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	143	show:
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	144	'REGISTRATION OF INCOMPATABLE PROJECTS: ' , existing printString , ' REPLACED BY '
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	145	, aMetacelloProjectRegistration printString ] ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	146	spec immutable.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	147	self baselineRegistry at: spec className put: aMetacelloProjectRegistration ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	148	aMetacelloProjectRegistration immutable
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	149	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	150
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	151	registrationFor: aMetacelloProjectRegistration ifPresent: presentBlock ifAbsent: absentBlock
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	152	\| baseName \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	153	baseName := aMetacelloProjectRegistration baseName.
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	154	aMetacelloProjectRegistration configurationProjectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	155	ifNotNil: [ :spec \| self configurationRegistry at: spec className ifPresent: [ :existing \| ^ presentBlock value: existing ] ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	156	aMetacelloProjectRegistration baselineProjectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	157	ifNotNil: [ :spec \| self baselineRegistry at: spec className ifPresent: [ :existing \| ^ presentBlock value: existing ] ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	158	self configurationRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	159	at: 'ConfigurationOf' , baseName
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	160	ifPresent: [ :existing \| ^ presentBlock value: existing ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	161	self baselineRegistry at: 'BaselineOf' , baseName ifPresent: [ :existing \| ^ presentBlock value: existing ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	162	^ absentBlock value
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	163	!
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	164
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	165	unregisterProjectRegistration: aMetacelloProjectRegistration
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	166	aMetacelloProjectRegistration configurationProjectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	167	ifNotNil: [ :spec \|
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	168	self configurationRegistry
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	169	removeKey: spec className
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	170	ifAbsent: [ self error: 'unexpectedly missing project registration' ] ].
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	171	aMetacelloProjectRegistration baselineProjectSpec
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	172	ifNotNil: [ :spec \| self baselineRegistry removeKey: spec className ifAbsent: [ self error: 'unexpectedly missing project registration' ] ]
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	173	! !
25ac697dc747 - Updated from branch master Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	174
1 9e312de5f694 - Initial commit jv parents: diff changeset	175	!MetacelloProjectRegistry class methodsFor:'documentation'!
9e312de5f694 - Initial commit jv parents: diff changeset	176
9e312de5f694 - Initial commit jv parents: diff changeset	177	version_SVN
9e312de5f694 - Initial commit jv parents: diff changeset	178	^ '$Id:: $'
9e312de5f694 - Initial commit jv parents: diff changeset	179	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 18 Sep 2012 18:24:44 +0000
changeset 16	25ac697dc747
parent 14	f01fe37493e9
child 19	28c344380944
permissions	-rw-r--r--