equal
deleted
inserted
replaced
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitParser-Parsers' |
7 category:'PetitParser-Parsers' |
8 ! |
8 ! |
9 |
9 |
10 PPPredicateParser comment:'An abstract parser that accepts if a given predicate holds. |
|
11 Instance Variables: |
|
12 predicate <BlockClosure> The block testing for the predicate. |
|
13 predicateMessage <String> The error message of the predicate. |
|
14 negated <BlockClosure> The block testing for the negation of the predicate. |
|
15 negatedMessage <String> The error message of the negated predicate.' |
|
16 ! |
|
17 |
|
18 |
10 |
19 !PPPredicateParser methodsFor:'accessing'! |
11 !PPPredicateParser methodsFor:'accessing'! |
20 |
12 |
21 block |
13 block |
22 "Answer the predicate block of the receiver." |
14 "Answer the predicate block of the receiver." |
23 |
15 |
24 ^ predicate |
16 ^ predicate |
25 ! |
17 ! |
26 |
18 |
27 message |
19 message |
28 "Answer the failure message." |
20 "Answer the failure message." |
29 |
21 |
30 ^ predicateMessage |
22 ^ predicateMessage |
31 ! ! |
23 ! ! |
32 |
24 |
33 !PPPredicateParser methodsFor:'printing'! |
25 !PPPredicateParser methodsFor:'printing'! |
34 |
26 |
37 aStream nextPutAll: ', '; print: predicateMessage |
29 aStream nextPutAll: ', '; print: predicateMessage |
38 ! ! |
30 ! ! |
39 |
31 |
40 !PPPredicateParser class methodsFor:'documentation'! |
32 !PPPredicateParser class methodsFor:'documentation'! |
41 |
33 |
|
34 version |
|
35 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateParser.st,v 1.3 2012-05-04 22:01:37 vrany Exp $' |
|
36 ! |
|
37 |
|
38 version_CVS |
|
39 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateParser.st,v 1.3 2012-05-04 22:01:37 vrany Exp $' |
|
40 ! |
|
41 |
42 version_SVN |
42 version_SVN |
43 ^ '$Id: PPPredicateParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $' |
43 ^ '§Id: PPPredicateParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
44 ! ! |
44 ! ! |