equal
deleted
inserted
replaced
9 category:'PetitIslands-Parsers' |
9 category:'PetitIslands-Parsers' |
10 ! |
10 ! |
11 |
11 |
12 PPNonEmptyParser comment:'I return failure, if the delegate parser did not consumed any input.' |
12 PPNonEmptyParser comment:'I return failure, if the delegate parser did not consumed any input.' |
13 ! |
13 ! |
|
14 |
14 |
15 |
15 !PPNonEmptyParser methodsFor:'parsing'! |
16 !PPNonEmptyParser methodsFor:'parsing'! |
16 |
17 |
17 parseOn: aPPContext |
18 parseOn: aPPContext |
18 | position result | |
19 | position result | |
24 ^ PPFailure message: 'Epsilon parse not allowed' context: aPPContext at: position |
25 ^ PPFailure message: 'Epsilon parse not allowed' context: aPPContext at: position |
25 ]. |
26 ]. |
26 ^ result |
27 ^ result |
27 ! ! |
28 ! ! |
28 |
29 |
|
30 !PPNonEmptyParser class methodsFor:'documentation'! |
|
31 |
|
32 version_HG |
|
33 |
|
34 ^ '$Changeset: <not expanded> $' |
|
35 ! ! |
|
36 |