"{ Package: 'stx:goodies/monticello' }"
MCDoItParser subclass:#MCSystemCategoryParser
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'SCM-Monticello-Chunk Format'
!
!MCSystemCategoryParser class methodsFor:'documentation'!
documentation
"
I parse PackageInfo statement from Monticello packages file
"
! !
!MCSystemCategoryParser class methodsFor:'as yet unclassified'!
pattern
^ 'SystemOrganization*'
! !
!MCSystemCategoryParser methodsFor:'as yet unclassified'!
addDefinitionsTo: aCollection
| definition |
definition := aCollection detect: [:ea | ea isOrganizationDefinition ] ifNone: [aCollection add: (MCOrganizationDefinition categories: #())].
definition categories: (definition categories copyWith: self category).
!
category
| tokens |
tokens := Scanner new scanTokens: source.
tokens size = 3 ifFalse: [self error: 'Unrecognized category definition'].
^ tokens at: 3
! !
!MCSystemCategoryParser class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/goodies/monticello/MCSystemCategoryParser.st,v 1.5 2013-05-15 09:50:42 cg Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/monticello/MCSystemCategoryParser.st,v 1.5 2013-05-15 09:50:42 cg Exp $'
!
version_SVN
^ '$Id: MCSystemCategoryParser.st,v 1.5 2013-05-15 09:50:42 cg Exp $'
! !