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:#PPCNilNode |
5 PPCNode subclass:#PPCNilNode |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
27 compiler startMethod: id. |
29 compiler startMethod: id. |
28 compiler add: '^ nil.'. |
30 compiler add: '^ nil.'. |
29 ^ compiler stopMethod. |
31 ^ compiler stopMethod. |
30 ! |
32 ! |
31 |
33 |
32 firstCharParser |
|
33 ^ PPFailingParser new |
|
34 ! |
|
35 |
|
36 firstCharSet |
34 firstCharSet |
37 ^ PPCharSetPredicate on: [:e | false ] |
35 ^ PPCharSetPredicate on: [:e | false ] |
38 ! |
36 ! |
39 |
37 |
40 prefix |
38 prefix |