equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 PPCListNode subclass:#PPCChoiceNode |
5 PPCListNode subclass:#PPCChoiceNode |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
63 |
65 |
64 prefix |
66 prefix |
65 ^ #ch |
67 ^ #ch |
66 ! ! |
68 ! ! |
67 |
69 |
68 !PPCChoiceNode methodsFor:'optimizing'! |
|
69 |
|
70 optimize: params status: changeStatus |
|
71 | retval | |
|
72 retval := self. |
|
73 retval := retval rewrite: params status: changeStatus. |
|
74 retval := retval inline: params status: changeStatus. |
|
75 |
|
76 ^ retval |
|
77 ! ! |
|
78 |
|