equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 Object subclass:#PPCCompilationContext |
5 Object subclass:#PPCCompilationContext |
6 instanceVariableNames:'parserClass scannerClass' |
6 instanceVariableNames:'options parserClass scannerClass' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Core' |
9 category:'PetitCompiler-Core' |
10 ! |
10 ! |
11 |
11 |
16 |
16 |
17 ^ self basicNew initialize. |
17 ^ self basicNew initialize. |
18 ! ! |
18 ! ! |
19 |
19 |
20 !PPCCompilationContext methodsFor:'accessing'! |
20 !PPCCompilationContext methodsFor:'accessing'! |
|
21 |
|
22 options |
|
23 ^ options |
|
24 ! |
|
25 |
|
26 options:aPPCCompilationOptions |
|
27 options := aPPCCompilationOptions. |
|
28 ! |
21 |
29 |
22 parserClass |
30 parserClass |
23 "Return parser class as PPCClass" |
31 "Return parser class as PPCClass" |
24 |
32 |
25 parserClass isNil ifTrue:[ |
33 parserClass isNil ifTrue:[ |
43 ^ scannerClass |
51 ^ scannerClass |
44 |
52 |
45 "Created: / 24-08-2015 / 23:59:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
53 "Created: / 24-08-2015 / 23:59:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
46 ! ! |
54 ! ! |
47 |
55 |
|
56 !PPCCompilationContext methodsFor:'initialization'! |
|
57 |
|
58 initialize |
|
59 "Invoked when a new instance is created." |
|
60 |
|
61 options := PPCCompilationOptions default. |
|
62 |
|
63 "Modified: / 26-08-2015 / 19:49:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
64 ! ! |
|
65 |