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 PPCConfiguration subclass:#PPCTokenizingConfiguration |
5 PPCConfiguration subclass:#PPCTokenizingConfiguration |
6 instanceVariableNames:'' |
6 instanceVariableNames:'codeGen' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Core' |
9 category:'PetitCompiler-Core' |
10 ! |
10 ! |
11 |
11 |
12 |
12 |
13 !PPCTokenizingConfiguration methodsFor:'compiling'! |
13 !PPCTokenizingConfiguration methodsFor:'compiling'! |
|
14 |
|
15 buildClass: compiler |
|
16 | builder | |
|
17 builder := PPCClassBuilder new. |
|
18 |
|
19 builder compiledClassName: arguments parserName. |
|
20 builder compiledSuperclass: PPTokenizingCompiledParser. |
|
21 builder methodDictionary: compiler methodDictionary. |
|
22 builder constants: compiler constants. |
|
23 |
|
24 ^ builder compileClass. |
|
25 ! |
14 |
26 |
15 invokePhases |
27 invokePhases |
16 self toPPCIr. |
28 self toPPCIr. |
17 self createTokens. |
29 self createTokens. |
18 self cacheFirstFollow. |
30 self cacheFirstFollow. |
24 self specialize. |
36 self specialize. |
25 self inline. |
37 self inline. |
26 self merge. |
38 self merge. |
27 self check. |
39 self check. |
28 self cacheFirstFollow. |
40 self cacheFirstFollow. |
|
41 self generateScanner. "Please note that codeGen is shared between these two phases" |
29 self generate. |
42 self generate. |
30 ! ! |
43 ! ! |
31 |
44 |
32 !PPCTokenizingConfiguration methodsFor:'hooks'! |
45 !PPCTokenizingConfiguration methodsFor:'hooks'! |
|
46 |
|
47 codeCompiler |
|
48 codeGen isNil ifTrue: [ codeGen := PPCTokenizingCodeGen on: arguments ]. |
|
49 ^ codeGen |
|
50 ! |
33 |
51 |
34 codeCompilerOn: args |
52 codeCompilerOn: args |
35 ^ PPCTokenizingCompiler on: args |
53 ^ PPCTokenizingCompiler on: args |
36 ! |
54 ! |
37 |
55 |
44 createLL1Choices |
62 createLL1Choices |
45 ir := PPCLL1Visitor new |
63 ir := PPCLL1Visitor new |
46 arguments: arguments; |
64 arguments: arguments; |
47 visit: ir. |
65 visit: ir. |
48 self remember: #LL1 |
66 self remember: #LL1 |
|
67 ! |
|
68 |
|
69 generateScanner |
|
70 | generator scanner | |
|
71 generator := PPCTokenCodeGenerator new |
|
72 compiler: self codeCompiler; |
|
73 arguments: arguments; |
|
74 yourself. |
|
75 |
|
76 generator visit: ir. |
|
77 |
|
78 scanner := generator compileScanner. |
|
79 self codeCompiler addConstant: scanner as: #scannerClass. |
49 ! |
80 ! |
50 |
81 |
51 tokenize |
82 tokenize |
52 " |
83 " |
53 This will try transform the parser into the tokenizing parser |
84 This will try transform the parser into the tokenizing parser |