equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
1 "{ Package: 'stx:goodies/petitparser/compiler' }" |
2 |
2 |
3 PPCNode subclass:#PPCStarCharSetPredicateNode |
3 PPCStarNode subclass:#PPCStarCharSetPredicateNode |
4 instanceVariableNames:'predicate' |
4 instanceVariableNames:'predicate' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitCompiler-Nodes' |
7 category:'PetitCompiler-Nodes' |
8 ! |
8 ! |
54 predicate := anObject |
54 predicate := anObject |
55 ! |
55 ! |
56 |
56 |
57 prefix |
57 prefix |
58 ^ #starPredicate |
58 ^ #starPredicate |
|
59 ! |
|
60 |
|
61 rewrite: changeStatus |
|
62 "Nothing TODO" |
59 ! ! |
63 ! ! |
60 |
64 |
|
65 !PPCStarCharSetPredicateNode methodsFor:'comparing'! |
|
66 |
|
67 = anotherNode |
|
68 super = anotherNode ifFalse: [ ^ false ]. |
|
69 ^ predicate = anotherNode predicate. |
|
70 ! |
|
71 |
|
72 hash |
|
73 ^ super hash bitXor: predicate hash |
|
74 ! ! |
|
75 |