| author | Jan Vrany <jan.vrany@fit.cvut.cz> |
| Mon, 24 Aug 2015 23:42:53 +0100 | |
| changeset 529 | 439c4057517f |
| parent 512 | 694a247a12ba |
| permissions | -rw-r--r-- |
|
512
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
"{ NameSpace: Smalltalk }"
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
PPCLRPContainedElement subclass:#PPCLRPErrorNode |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
instanceVariableNames:'block interpretedBlock' |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
classVariableNames:'' |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
poolDictionaries:'' |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
category:'PetitCompiler-Extras-Tests-LRP' |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
! |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
|
|
529
439c4057517f
PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
512
diff
changeset
|
12 |
|
|
512
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
!PPCLRPErrorNode methodsFor:'error handing'! |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
onErrorNode: aBlock parser: aLRPParser |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
aLRPParser failWithValue: (aBlock value: self) |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
! ! |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
!PPCLRPErrorNode methodsFor:'testing'! |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
isError |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
^true |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
! ! |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
!PPCLRPErrorNode methodsFor:'visiting'! |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
|
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
acceptVisitor: aLRPNodeVisitor |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
aLRPNodeVisitor visitErrorNode: self. |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
! ! |
|
694a247a12ba
Added smoke tests for LRPParser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
|
|
529
439c4057517f
PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
512
diff
changeset
|
32 |
!PPCLRPErrorNode class methodsFor:'documentation'! |
|
439c4057517f
PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
512
diff
changeset
|
33 |
|
|
439c4057517f
PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
512
diff
changeset
|
34 |
version_HG |
|
439c4057517f
PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
512
diff
changeset
|
35 |
|
|
439c4057517f
PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
512
diff
changeset
|
36 |
^ '$Changeset: <not expanded> $' |
|
439c4057517f
PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
512
diff
changeset
|
37 |
! ! |
|
439c4057517f
PPCConfiguration refactoring [1/10]: renamed PPCArguments to PPCCompilationOptions
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
512
diff
changeset
|
38 |