"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2018 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

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

"{ NameSpace: Smalltalk }"

JavaScanner subclass:#GroovyScanner

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Groovy-Tools-Source'

!

!GroovyScanner class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2018 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!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> $'

! !