"{ Package: 'stx:goodies/monticello' }"

Object subclass:#MCScanner
	instanceVariableNames:'stream'
	classVariableNames:''
	poolDictionaries:''
	category:'SCM-Monticello-Chunk Format'
!

!MCScanner class methodsFor:'documentation'!

documentation
"
    I scan / tokenize metadata  (package name, version info, ancestry, dependencies, ...) found in .mcz files.

    For example, try:

    MCScanner scan:  '(name ''MyPackage-ll.6'' message ''Fix bug xxx'' id ''b21dbd73-f1c3-2746-a3cc-92f1d4edea28'')' readStream
"
! !

!MCScanner class methodsFor:'as yet unclassified'!

scan: aStream
    ^ (self new stream: aStream) next

    "kludge:

    | v |
    [ v := (self new stream: aStream) next ]
        on: RecursionInterruptSignal do:[:ex|ex proceed].
    ^v
    "

    "Modified: / 13-10-2010 / 15:52:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

scanTokens: aString
	"compatibility"
	^ Array with: (self scan: aString readStream)
! !

!MCScanner methodsFor:'as yet unclassified'!

next

    | token stack array |
    token := self nextToken.
    token == $) ifTrue:[self error: 'Array not opened'].
    token ~= $( ifTrue:[^token].
    stack := Stack with: (array := OrderedCollection new).
    [ stack isEmpty ] whileFalse:[
        token := self nextToken.
        token == $( 
            ifTrue:
                [stack push: OrderedCollection new]
            ifFalse:
                [token == $) 
                    ifTrue:
                        [|top|
                        top := stack top asArray.
                        stack pop.
                        stack size > 0 ifTrue:[stack top add: top]]
                    ifFalse:
                        [stack top add: token]]].

    ^array asArray

    "Modified: / 28-10-2010 / 13:31:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

nextArray
	stream next. "("
	^ Array streamContents:
		[:s |
		[stream skipSeparators.
		(stream peek = $)) or: [stream atEnd]] whileFalse: [s nextPut: self next].
		stream next = $) ifFalse: [self error: 'Unclosed array']]
!

nextString
	^ stream nextDelimited: $'
!

nextSymbol
	^ (String streamContents:
		[:s |
		[stream peek isAlphaNumeric] whileTrue: [s nextPut: stream next]]) asSymbol
			
!

nextToken
        | c |
        stream skipSeparators.
        c := stream peek.
        c = $# ifTrue: [c := stream next; peek].
        c = $' ifTrue: [^ self nextString].
        c = $( ifTrue: [stream next.^ $(].
        c = $) ifTrue: [stream next.^ $)].
        c isAlphaNumeric ifTrue: [^ self nextSymbol].
        self error: 'Unknown token type'.

    "Created: / 28-10-2010 / 13:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

stream: aStream
	stream := aStream
! !

!MCScanner class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $'
!

version_SVN
    ^ '$Id: MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $'
! !