MCSystemCategoryParser.st
author Claus Gittinger <cg@exept.de>
Sat, 20 Aug 2011 14:00:34 +0200
changeset 271 53e2457ca483
parent 188 d945e450cfa5
child 689 0f8403716bf7
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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:''
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Monticello-Chunk Format'
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCSystemCategoryParser class methodsFor:'as yet unclassified'!
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
pattern
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
	^ 'SystemOrganization*'
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
! !
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
!MCSystemCategoryParser methodsFor:'as yet unclassified'!
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
addDefinitionsTo: aCollection
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	| definition |
188
d945e450cfa5 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 43
diff changeset
    21
	definition := aCollection detect: [:ea | ea isOrganizationDefinition ] ifNone: [aCollection add: (MCOrganizationDefinition categories: #())].
43
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	definition categories: (definition categories copyWith: self category).
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
category
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	| tokens  |
188
d945e450cfa5 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 43
diff changeset
    27
	tokens := Scanner new scanTokens: source.
43
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	tokens size = 3 ifFalse: [self error: 'Unrecognized category definition'].
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	^ tokens at: 3
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
!MCSystemCategoryParser class methodsFor:'documentation'!
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
271
53e2457ca483 initial checkin
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
    34
version
53e2457ca483 initial checkin
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
    35
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSystemCategoryParser.st,v 1.3 2011-08-20 12:00:34 cg Exp $'
53e2457ca483 initial checkin
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
    36
!
53e2457ca483 initial checkin
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
    37
188
d945e450cfa5 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 43
diff changeset
    38
version_CVS
271
53e2457ca483 initial checkin
Claus Gittinger <cg@exept.de>
parents: 188
diff changeset
    39
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSystemCategoryParser.st,v 1.3 2011-08-20 12:00:34 cg Exp $'
188
d945e450cfa5 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 43
diff changeset
    40
!
d945e450cfa5 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 43
diff changeset
    41
d945e450cfa5 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 43
diff changeset
    42
version_SVN
d945e450cfa5 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 43
diff changeset
    43
    ^ '§Id: MCSystemCategoryParser.st 5 2010-08-29 07:30:29Z vranyj1 §'
43
4133828deab7 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
! !