initial checkin
authorClaus Gittinger <cg@exept.de>
Wed, 07 Jul 2004 11:17:41 +0200
changeset 1532 9c2adf12f271
parent 1531 47f714bc1981
child 1533 bff4a03d6d48
initial checkin
ParseErrorNode.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ParseErrorNode.st	Wed Jul 07 11:17:41 2004 +0200
@@ -0,0 +1,37 @@
+"{ Package: 'stx:libcomp' }"
+
+Object subclass:#ParseErrorNode
+	instanceVariableNames:'errorString'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Compiler-Support'
+!
+
+
+!ParseErrorNode class methodsFor:'instance creation'!
+
+errorString:arg
+    ^ self new errorString:arg
+! !
+
+!ParseErrorNode methodsFor:'accessing'!
+
+errorString
+    ^ errorString
+!
+
+errorString:something
+    errorString := something.
+! !
+
+!ParseErrorNode methodsFor:'queries'!
+
+isErrorNode
+    ^ true
+! !
+
+!ParseErrorNode class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseErrorNode.st,v 1.1 2004-07-07 09:17:41 cg Exp $'
+! !