equal
deleted
inserted
replaced
10 ! |
10 ! |
11 |
11 |
12 !PPCNotMessagePredicateNode methodsFor:'accessing'! |
12 !PPCNotMessagePredicateNode methodsFor:'accessing'! |
13 |
13 |
14 message |
14 message |
15 |
15 |
16 ^ message |
16 ^ message |
17 ! |
17 ! |
18 |
18 |
19 message: anObject |
19 message: anObject |
20 |
20 |
21 message := anObject |
21 message := anObject |
22 ! ! |
22 ! ! |
23 |
23 |
24 !PPCNotMessagePredicateNode methodsFor:'analysis'! |
24 !PPCNotMessagePredicateNode methodsFor:'analysis'! |
25 |
25 |
26 firstCharSet |
26 firstCharSet |
27 ^ PPCharSetPredicate on: [:e | (predicate value:e) not ] |
27 ^ PPCharSetPredicate on: [:e | (predicate value:e) not ] |
28 |
28 |
29 "Modified: / 23-04-2015 / 22:11:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
29 "Modified: / 23-04-2015 / 22:11:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
30 ! ! |
30 ! ! |
31 |
31 |
32 !PPCNotMessagePredicateNode methodsFor:'comparison'! |
32 !PPCNotMessagePredicateNode methodsFor:'comparison'! |
33 |
33 |
34 = anotherNode |
34 = anotherNode |
35 super = anotherNode ifFalse: [ ^ false ]. |
35 super = anotherNode ifFalse: [ ^ false ]. |
36 ^ message = anotherNode message. |
36 ^ message = anotherNode message. |
37 ! |
37 ! |
38 |
38 |
39 hash |
39 hash |
40 ^ super hash bitXor: message hash |
40 ^ super hash bitXor: message hash |
41 ! ! |
41 ! ! |
42 |
42 |
43 !PPCNotMessagePredicateNode methodsFor:'visiting'! |
43 !PPCNotMessagePredicateNode methodsFor:'visiting'! |
44 |
44 |
45 accept: visitor |
45 accept: visitor |
46 ^ visitor visitNotMessagePredicateNode: self |
46 ^ visitor visitNotMessagePredicateNode: self |
47 ! ! |
47 ! ! |
48 |
48 |