"{ Encoding: utf8 }"

"{ Package: 'stx:libjava/tools' }"

"{ NameSpace: Smalltalk }"

JavaScanner subclass:#GroovyScanner
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Languages-Groovy-Tools-Source'
!


!GroovyScanner class methodsFor:'initialization'!

setupKeywordTable
    "initialize the scanners actionTables - these are used to dispatch
     into scanner methods as characters are read"

    super setupKeywordTable.
    KeywordTable at: 'def' put: #def.

    "Created: / 14-05-2014 / 14:06:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GroovyScanner methodsFor:'error reporting'!

warnPossibleIncompatibility:aString position:smallInteger1 to:smallInteger2

    "Created: / 12-05-2014 / 16:23:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GroovyScanner methodsFor:'reading next token'!

nextString:delimiter character:ignored
    |s pos nextChar inString inTrippleQuoteString |

    s := (String new:20) writeStream.

    pos := source position.
    source next.
    nextChar := source next.
    inString := true.
    inTrippleQuoteString := false.

    (delimiter == $" and:[nextChar == $"]) ifTrue:[
        source peek == $" ifTrue:[
            inTrippleQuoteString := true.
            nextChar := source next.
            nextChar := source next.
        ].
    ].
    (delimiter == $' and:[nextChar == $']) ifTrue:[
        source peek == $' ifTrue:[
            inTrippleQuoteString := true.
            nextChar := source next.
            nextChar := source next.
        ].
    ]. 

    [inString] whileTrue:[
        nextChar isNil ifTrue:[
            allowRunawayString ifTrue:[
                tokenValue := s contents.
                tokenType := #String.          
                ^ tokenType.
            ].
            self syntaxError:'unexpected end-of-input in String'
                    position:pos + 1 to:(source position).
            tokenValue := nil.
            tokenType := #EOF.
            ^ tokenType
        ].
        nextChar == $\ ifTrue:[
            nextChar := source next.
            nextChar := self characterEscape:nextChar.
        ] ifFalse:[
            (nextChar == Character cr) ifTrue:[
                lineNr := lineNr + 1
            ] ifFalse:[
                (nextChar == delimiter) ifTrue:[
                    inTrippleQuoteString ifTrue:[
                        nextChar := source next.
                        nextChar == delimiter ifTrue:[
                            "/ OK, two $"/$' found...
                            nextChar := source next.
                            nextChar == delimiter ifTrue:[
                                inString := false.
                            ] ifFalse:[
                                s nextPut:delimiter.
                                s nextPut:delimiter.
                            ].
                        ] ifFalse:[
                            s nextPut:delimiter.
                        ].
                    ] ifFalse:[
                        (source peekOrNil == delimiter) ifTrue:[
                            source next
                        ] ifFalse:[
                            inString := false
                        ]
                    ]
                ].
            ].
        ].
        inString ifTrue:[
            s nextPut:nextChar.
            nextChar := source next
        ]
    ].

    tokenValue := s contents.
    tokenType := #String.

    ^ tokenType

    "Created: / 18-10-2013 / 12:54:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 18-09-2014 / 11:40:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

nextToken
    "Refefined here to support hash-bang"

    source position < 1 ifTrue:[ 
        source peek == $# ifTrue:[ 
            source next.
            source peek == $!! ifTrue:[ 
                source nextLine.
            ].
        ].
    ].
    ^ super nextToken

    "Created: / 12-05-2014 / 16:21:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GroovyScanner class methodsFor:'documentation'!

version_CVS

    ^ '$Header$'
!

version_HG

    ^ '$Changeset: <not expanded> $'
! !