ParseErrorNode.st
author Claus Gittinger <cg@exept.de>
Thu, 25 Nov 2004 15:30:33 +0100
changeset 1561 175735dcd732
parent 1532 9c2adf12f271
child 1570 8ce7594e9b55
permissions -rw-r--r--
do not check for endOfInput if parsing from a Stream
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1532
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libcomp' }"
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
Object subclass:#ParseErrorNode
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'errorString'
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'System-Compiler-Support'
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!ParseErrorNode class methodsFor:'instance creation'!
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
errorString:arg
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
    ^ self new errorString:arg
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
! !
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
!ParseErrorNode methodsFor:'accessing'!
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
errorString
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
    ^ errorString
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
errorString:something
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
    errorString := something.
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
! !
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
!ParseErrorNode methodsFor:'queries'!
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
isErrorNode
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
    ^ true
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
! !
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
!ParseErrorNode class methodsFor:'documentation'!
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
version
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
    ^ '$Header: /cvs/stx/stx/libcomp/ParseErrorNode.st,v 1.1 2004-07-07 09:17:41 cg Exp $'
9c2adf12f271 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
! !