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

"{ NameSpace: SmaCC }"

SmaCCParser subclass:#SmaCCAdvancedParser

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SmaCC-Runtime-Advanced'

!

!SmaCCAdvancedParser methodsFor:'accessing'!

lineNumber

    ^scanner lineNumber

    "Created: / 20-06-2006 / 08:31:54 / janfrog"

! !

!SmaCCAdvancedParser methodsFor:'error reporting'!

reportErrorMessage: aString

    | line lastCrPosition col stream token message|

    lastCrPosition := 0.

    line := 1.

    stream := scanner stream.

    token := errorToken ? currentToken.

    stream position:stream class zeroPosition.

    [ (stream position < token startPosition) and:[stream atEnd not]] whileTrue:[

        stream next == Character cr ifTrue:

            [line := line + 1.

            lastCrPosition := stream position]].

    col := token startPosition  - lastCrPosition.

    super reportErrorMessage: line printString , ':' , col printString, ' ' , aString

    "Created: / 20-06-2006 / 08:43:04 / janfrog"

    "Modified: / 05-01-2007 / 12:57:48 / janfrog"

! !

!SmaCCAdvancedParser class methodsFor:'documentation'!

version

    ^ '$Header: /opt/data/cvs/stx/goodies/smaCC/SmaCC__SmaCCAdvancedParser.st,v 1.3 2007-01-09 14:53:54 vranyj1 Exp $'

!

version_SVN

    ^ '$Id$'

! !