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

Object subclass:#MCScanner

	instanceVariableNames:'stream'

	classVariableNames:''

	poolDictionaries:''

	category:'Monticello-Chunk Format'

!

!MCScanner class methodsFor:'as yet unclassified'!

scan: aStream

    | v |

    "Kludge"

    ^ (self new stream: aStream) next

    "

    [ 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

!

version_CVS

!

version_SVN

    ^ '§Id: MCScanner.st 23 2010-10-29 14:41:24Z vranyj1 §'

! !