equal
deleted
inserted
replaced
32 ^ PPPredicateSequenceParser on: [ :value | literal sameAs: value ] message: message size: size |
32 ^ PPPredicateSequenceParser on: [ :value | literal sameAs: value ] message: message size: size |
33 ! ! |
33 ! ! |
34 |
34 |
35 !PPLiteralSequenceParser methodsFor:'parsing'! |
35 !PPLiteralSequenceParser methodsFor:'parsing'! |
36 |
36 |
37 parseOn: aStream |
37 parseOn: aPPContext |
38 | position result | |
38 | memento result | |
39 position := aStream position. |
39 memento := aPPContext remember. |
40 result := aStream next: size. |
40 result := aPPContext next: size. |
41 literal = result ifTrue: [ ^ result ]. |
41 literal = result ifTrue: [ ^ result ]. |
42 aStream position: position. |
42 aPPContext restore: memento. |
43 ^ PPFailure message: message at: aStream position |
43 ^ PPFailure message: message context: aPPContext |
44 ! ! |
44 ! ! |
45 |
45 |
46 !PPLiteralSequenceParser class methodsFor:'documentation'! |
46 !PPLiteralSequenceParser class methodsFor:'documentation'! |
47 |
47 |
48 version |
48 version |
54 ! |
54 ! |
55 |
55 |
56 version_SVN |
56 version_SVN |
57 ^ '§Id: PPLiteralSequenceParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
57 ^ '§Id: PPLiteralSequenceParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
58 ! ! |
58 ! ! |
|
59 |