equal
deleted
inserted
replaced
8 ! |
8 ! |
9 |
9 |
10 |
10 |
11 !PPNotParser methodsFor:'parsing'! |
11 !PPNotParser methodsFor:'parsing'! |
12 |
12 |
13 parseOn: aStream |
13 parseOn: aPPContext |
14 | element position | |
14 | element memento | |
15 position := aStream position. |
15 memento := aPPContext remember. |
16 element := parser parseOn: aStream. |
16 element := parser parseOn: aPPContext. |
17 aStream position: position. |
17 aPPContext restore: memento. |
18 ^ element isPetitFailure |
18 ^ element isPetitFailure |
19 ifFalse: [ PPFailure message: '' at: aStream position ] |
19 ifFalse: [ PPFailure message: '' context: aPPContext ] |
20 ! ! |
20 ! ! |
21 |
21 |
22 !PPNotParser class methodsFor:'documentation'! |
22 !PPNotParser class methodsFor:'documentation'! |
23 |
23 |
24 version |
24 version |
30 ! |
30 ! |
31 |
31 |
32 version_SVN |
32 version_SVN |
33 ^ '§Id: PPNotParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
33 ^ '§Id: PPNotParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
34 ! ! |
34 ! ! |
|
35 |