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:#PPCAnyNode |
5 PPCNode subclass:#PPCAnyNode |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
24 compiler startMethod: id. |
26 compiler startMethod: id. |
25 compiler add: '^ context next ifNil: [ error := true. ].'. |
27 compiler add: '^ context next ifNil: [ error := true. ].'. |
26 ^ compiler stopMethod. |
28 ^ compiler stopMethod. |
27 ! |
29 ! |
28 |
30 |
29 firstCharParser |
|
30 ^ #any asParser |
|
31 |
|
32 ! |
|
33 |
|
34 firstCharSet |
31 firstCharSet |
35 ^ PPCharSetPredicate on: [:e | true ] |
32 ^ PPCharSetPredicate on: [:e | true ] |
36 ! |
33 ! |
37 |
34 |
38 prefix |
35 prefix |