--- a/compiler/PPCCompiler.st Mon Jun 15 19:13:49 2015 +0100
+++ b/compiler/PPCCompiler.st Tue Jun 16 06:45:26 2015 +0100
@@ -218,6 +218,12 @@
self add: 'self clearError.'.
!
+codeDot
+ self addOnLine:'.'.
+
+ "Created: / 16-06-2015 / 06:09:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
codeError
self add: 'self error: ''message notspecified''.'.
!
@@ -270,6 +276,12 @@
"Modified: / 10-05-2015 / 07:39:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+codeIf: condition then: then
+ self codeIf: condition then: then else: nil
+
+ "Created: / 16-06-2015 / 06:07:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
codeIf: condition then: then else: else
currentMethod
add: '(';
@@ -285,8 +297,22 @@
addOnLine:' ifFalse:';
codeBlock: else.
].
+ self codeDot.
"Created: / 01-06-2015 / 22:43:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 16-06-2015 / 06:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+codeIfErrorThen: then
+ ^ self codeIf: 'error' then: then else: nil
+
+ "Created: / 16-06-2015 / 06:06:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+codeIfErrorThen: then else: else
+ ^ self codeIf: 'error' then: then else: else
+
+ "Created: / 16-06-2015 / 06:05:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
codeNextToken