--- a/compiler/tests/extras/PPCompiledExpressionGrammarResource.st Mon May 25 02:49:22 2015 +0100
+++ b/compiler/tests/extras/PPCompiledExpressionGrammarResource.st Tue May 26 07:27:15 2015 +0100
@@ -9,6 +9,7 @@
category:'PetitCompiler-Extras-Tests-Expressions'
!
+
!PPCompiledExpressionGrammarResource methodsFor:'as yet unclassified'!
setUp
@@ -24,3 +25,10 @@
! !
+!PPCompiledExpressionGrammarResource class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/compiler/tests/extras/PPLL1ExpressionGrammar.st Mon May 25 02:49:22 2015 +0100
+++ b/compiler/tests/extras/PPLL1ExpressionGrammar.st Tue May 26 07:27:15 2015 +0100
@@ -13,12 +13,14 @@
add
^ prod, addPrime optional
- map: [ :_prod :_addPrime |
- _addPrime isNil
- ifTrue: [ _prod ]
- ifFalse: [ Array with: _prod withAll: _addPrime ]
-
- ]
+ map: [ :_prod :_addPrime |
+ _addPrime isNil
+ ifTrue: [ _prod ]
+ ifFalse: [ (Array with: _prod) , _addPrime ]
+
+ ]
+
+ "Modified (format): / 26-05-2015 / 07:23:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
addPrime
@@ -27,12 +29,14 @@
mul
^ prim, mulPrime optional
- map: [ :_prim :_mulPrime |
- _mulPrime isNil
- ifTrue: [ _prim ]
- ifFalse: [ Array with: _prim withAll: _mulPrime ]
-
- ]
+ map: [ :_prim :_mulPrime |
+ _mulPrime isNil
+ ifTrue: [ _prim ]
+ ifFalse: [ (Array with: _prim) , _mulPrime ]
+
+ ]
+
+ "Modified (format): / 26-05-2015 / 07:23:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
mulPrime
@@ -61,11 +65,13 @@
term
^ prod, termPrime optional
- map: [ :_prod :_termPrime |
+ map: [ :_prod :_termPrime |
_termPrime isNil
ifTrue: [ _prod ]
- ifFalse: [ Array with: _prod withAll: _termPrime ]
- ]
+ ifFalse: [ (Array with: _prod) , _termPrime ]
+ ]
+
+ "Modified: / 26-05-2015 / 07:24:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
termPrime
--- a/compiler/tests/extras/PPTokenizedExpressionGrammarResource.st Mon May 25 02:49:22 2015 +0100
+++ b/compiler/tests/extras/PPTokenizedExpressionGrammarResource.st Tue May 26 07:27:15 2015 +0100
@@ -20,7 +20,8 @@
time := Time millisecondsToRun: [
PPExpressionGrammar new compileWithConfiguration: configuration.
].
- Transcript crShow: 'Expression grammar tokenized in: ', time asString, 'ms'.
-
+ Transcript show: 'Expression grammar tokenized in: '; show: time asString; show: 'ms'; cr.
+
+ "Modified: / 26-05-2015 / 07:25:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
--- a/compiler/tests/extras/PPTokenizedLL1ExpressionGrammarResource.st Mon May 25 02:49:22 2015 +0100
+++ b/compiler/tests/extras/PPTokenizedLL1ExpressionGrammarResource.st Tue May 26 07:27:15 2015 +0100
@@ -20,7 +20,8 @@
time := Time millisecondsToRun: [
PPLL1ExpressionGrammar new compileWithConfiguration: configuration.
].
- Transcript crShow: 'LL1 Expression grammar tokenized in: ', time asString, 'ms'.
-
+ Transcript show: 'LL1 Expression grammar tokenized in: '; show: time asString; show: 'ms'; cr.
+
+ "Modified: / 26-05-2015 / 07:24:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !