equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 PPCNode subclass:#PPCAbstractLiteralNode |
5 PPCNode subclass:#PPCAbstractLiteralNode |
4 instanceVariableNames:'literal' |
6 instanceVariableNames:'literal' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
9 |
11 |
10 !PPCAbstractLiteralNode methodsFor:'accessing'! |
12 !PPCAbstractLiteralNode methodsFor:'accessing'! |
11 |
13 |
12 acceptsEpsilon |
14 acceptsEpsilon |
13 ^ literal size = 0 |
15 ^ literal size = 0 |
14 ! |
|
15 |
|
16 firstCharParser |
|
17 ^ literal first asParser |
|
18 ! |
16 ! |
19 |
17 |
20 firstCharSet |
18 firstCharSet |
21 | letter | |
19 | letter | |
22 letter := literal first. |
20 letter := literal first. |