Compilation fixed, removed obsolete methods
...to make it in sync with:
Name: PetitCompiler-JanKurs.71
Author: JanKurs
Time: 18-11-2014, 09:48:35.425 AM
UUID: 06352c33-3c76-4382-8536-0cc48e225117
--- a/compiler/PPCAbstractActionNode.st Mon Apr 13 22:00:44 2015 +0100
+++ b/compiler/PPCAbstractActionNode.st Tue Apr 14 07:40:53 2015 +0100
@@ -9,6 +9,7 @@
category:'PetitCompiler-Nodes'
!
+
!PPCAbstractActionNode methodsFor:'accessing'!
block
@@ -38,3 +39,10 @@
^ super hash bitXor: block hash
! !
+!PPCAbstractActionNode class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/compiler/PPCCompiler.st Mon Apr 13 22:00:44 2015 +0100
+++ b/compiler/PPCCompiler.st Tue Apr 14 07:40:53 2015 +0100
@@ -353,6 +353,12 @@
]
!
+installMethodsAndVariables: class
+ self installVariables: class.
+ self installMethods: class.
+
+!
+
installVariables: class
| string |
string := class constants keys inject: '' into: [:r :e | r, ' ', e ].
--- a/compiler/PPCompiledParser.st Mon Apr 13 22:00:44 2015 +0100
+++ b/compiler/PPCompiledParser.st Tue Apr 14 07:40:53 2015 +0100
@@ -19,12 +19,10 @@
!PPCompiledParser class methodsFor:'as yet unclassified'!
addConstant: value as: id
- self constants at: id ifPresent: [ :ignored |
- ((self constants at: id) = value) ifFalse: [self error: 'ooups']].
-
- self constants at: id put: value.
-
- "Modified: / 21-11-2014 / 12:32:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ self constants at: id ifPresent: [
+ ((self constants at: id) = value) ifFalse: [self error: 'ooups']].
+
+ self constants at: id put: value.
!
addParser: aPPParser as: id