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:#PPCAbstractCharacterNode |
5 PPCNode subclass:#PPCAbstractCharacterNode |
4 instanceVariableNames:'character' |
6 instanceVariableNames:'character' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
25 prefix |
27 prefix |
26 ^ #char |
28 ^ #char |
27 ! ! |
29 ! ! |
28 |
30 |
29 !PPCAbstractCharacterNode methodsFor:'analysis'! |
31 !PPCAbstractCharacterNode methodsFor:'analysis'! |
30 |
|
31 firstCharParser |
|
32 ^ character asParser |
|
33 ! |
|
34 |
32 |
35 firstCharSet |
33 firstCharSet |
36 ^ PPCharSetPredicate on: [:e | e = character ] |
34 ^ PPCharSetPredicate on: [:e | e = character ] |
37 ! ! |
35 ! ! |
38 |
36 |