equal
deleted
inserted
replaced
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
|
12 |
12 !PPCAbstractPredicateNode methodsFor:'accessing'! |
13 !PPCAbstractPredicateNode methodsFor:'accessing'! |
|
14 |
|
15 defaultName |
|
16 ^ #predicate |
|
17 ! |
13 |
18 |
14 predicate |
19 predicate |
15 |
20 |
16 ^ predicate |
21 ^ predicate |
17 ! |
22 ! |
18 |
23 |
19 predicate: anObject |
24 predicate: anObject |
20 |
25 |
21 predicate := anObject |
26 predicate := anObject |
22 ! |
|
23 |
|
24 prefix |
|
25 ^ #predicate |
|
26 ! ! |
27 ! ! |
27 |
28 |
28 !PPCAbstractPredicateNode methodsFor:'analysis'! |
29 !PPCAbstractPredicateNode methodsFor:'analysis'! |
29 |
30 |
30 acceptsEpsilon |
31 acceptsEpsilon |
63 |
64 |
64 extendClassification: classification |
65 extendClassification: classification |
65 ^ (classification asOrderedCollection addLast: false; yourself) asArray |
66 ^ (classification asOrderedCollection addLast: false; yourself) asArray |
66 ! ! |
67 ! ! |
67 |
68 |
|
69 !PPCAbstractPredicateNode class methodsFor:'documentation'! |
|
70 |
|
71 version_HG |
|
72 |
|
73 ^ '$Changeset: <not expanded> $' |
|
74 ! ! |
|
75 |