equal
deleted
inserted
replaced
32 scannerClass removeFromSystem |
32 scannerClass removeFromSystem |
33 ]. |
33 ]. |
34 ! |
34 ! |
35 |
35 |
36 compile: aPPParser |
36 compile: aPPParser |
37 parser := aPPParser compileUsingCompiler: compiler |
37 parser := compiler compile: aPPParser. |
38 |
38 |
39 "Modified: / 07-09-2015 / 10:08:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
39 "Modified: / 07-09-2015 / 12:36:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
40 ! |
40 ! |
41 |
41 |
42 context |
42 context |
43 ^ context := PPCProfilingContext new |
43 ^ context := PPCProfilingContext new |
44 ! |
44 ! |
45 |
45 |
46 setUp |
46 setUp |
47 options := (PPCCompilationOptions default) |
47 options := (PPCCompilationOptions new) |
48 profile:true; |
48 profile:true; |
49 tokenize:true; |
49 tokenize:true; |
50 yourself. |
50 yourself. |
51 compiler := PPCCompiler new. |
51 compiler := PPCCompiler new. |
52 compiler context options:options. |
52 compiler options:options. |
53 self cleanClass. |
53 self cleanClass. |
54 fooToken := ('foo' asParser token trim) |
54 fooToken := ('foo' asParser token trim) |
55 name:'foo'; |
55 name:'foo'; |
56 yourself. |
56 yourself. |
57 idToken := ((#word asParser plus) token trim) |
57 idToken := ((#word asParser plus) token trim) |
65 yourself. |
65 yourself. |
66 assignmentToken := ((':=' asParser) token trim) |
66 assignmentToken := ((':=' asParser) token trim) |
67 name:'assignment'; |
67 name:'assignment'; |
68 yourself. |
68 yourself. |
69 |
69 |
70 "Modified: / 04-09-2015 / 16:21:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
70 "Modified: / 07-09-2015 / 11:05:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
71 ! |
71 ! |
72 |
72 |
73 tearDown |
73 tearDown |
74 "self cleanClass" |
74 "self cleanClass" |
75 ! |
75 ! |