hg/stx-goodies-monticello: MCSystemCategoryParser.st@bac4a6f2690e (annotated)

43 4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/monticello' }"
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	MCDoItParser subclass:#MCSystemCategoryParser
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:''
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
689 0f8403716bf7 category change Claus Gittinger <cg@exept.de> parents: 271 diff changeset	7	category:'SCM-Monticello-Chunk Format'
43 4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
787 07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	10	!MCSystemCategoryParser class methodsFor:'documentation'!
07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	11
07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	12	documentation
07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	13	"
07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	14	I parse PackageInfo statement from Monticello packages file
07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	15	"
07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	16	! !
43 4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	!MCSystemCategoryParser class methodsFor:'as yet unclassified'!
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	pattern
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	^ 'SystemOrganization*'
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	! !
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	!MCSystemCategoryParser methodsFor:'as yet unclassified'!
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	addDefinitionsTo: aCollection
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	\| definition \|
188 d945e450cfa5 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 43 diff changeset	28	definition := aCollection detect: [:ea \| ea isOrganizationDefinition ] ifNone: [aCollection add: (MCOrganizationDefinition categories: #())].
43 4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	definition categories: (definition categories copyWith: self category).
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	!
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	category
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	\| tokens \|
188 d945e450cfa5 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 43 diff changeset	34	tokens := Scanner new scanTokens: source.
43 4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	tokens size = 3 ifFalse: [self error: 'Unrecognized category definition'].
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	^ tokens at: 3
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	! !
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	!MCSystemCategoryParser class methodsFor:'documentation'!
4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
271 53e2457ca483 initial checkin Claus Gittinger <cg@exept.de> parents: 188 diff changeset	41	version
787 07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	42	^ '$Header: /cvs/stx/stx/goodies/monticello/MCSystemCategoryParser.st,v 1.5 2013-05-15 09:50:42 cg Exp $'
271 53e2457ca483 initial checkin Claus Gittinger <cg@exept.de> parents: 188 diff changeset	43	!
53e2457ca483 initial checkin Claus Gittinger <cg@exept.de> parents: 188 diff changeset	44
188 d945e450cfa5 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 43 diff changeset	45	version_CVS
787 07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	46	^ '$Header: /cvs/stx/stx/goodies/monticello/MCSystemCategoryParser.st,v 1.5 2013-05-15 09:50:42 cg Exp $'
188 d945e450cfa5 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 43 diff changeset	47	!
d945e450cfa5 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 43 diff changeset	48
d945e450cfa5 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 43 diff changeset	49	version_SVN
787 07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	50	^ '$Id: MCSystemCategoryParser.st,v 1.5 2013-05-15 09:50:42 cg Exp $'
43 4133828deab7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	! !
787 07d1bc57f716 class: MCSystemCategoryParser Claus Gittinger <cg@exept.de> parents: 689 diff changeset	52

author	mawalch
	Mon, 08 Aug 2016 20:13:50 +0200
changeset 1010	bac4a6f2690e
parent 787	07d1bc57f716
permissions	-rw-r--r--