equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser' }" |
1 "{ Package: 'stx:goodies/petitparser' }" |
2 |
2 |
3 Object subclass:#PPMemento |
3 Object subclass:#PPMemento |
4 instanceVariableNames:'result count position' |
4 instanceVariableNames:'result count context' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitParser-Core' |
7 category:'PetitParser-Core' |
8 ! |
8 ! |
9 |
9 |
14 ^ self basicNew initialize |
14 ^ self basicNew initialize |
15 ! ! |
15 ! ! |
16 |
16 |
17 !PPMemento methodsFor:'accessing'! |
17 !PPMemento methodsFor:'accessing'! |
18 |
18 |
19 position |
19 contextMemento |
20 ^ position |
20 ^ context |
21 ! |
21 ! |
22 |
22 |
23 position: anInteger |
23 contextMemento: aPPContextMemento |
24 position := anInteger |
24 context := aPPContextMemento |
25 ! |
25 ! |
26 |
26 |
27 result |
27 result |
28 ^ result |
28 ^ result |
29 ! |
29 ! |
62 ! |
62 ! |
63 |
63 |
64 version_SVN |
64 version_SVN |
65 ^ '§Id: PPMemento.st 2 2010-12-17 18:44:23Z vranyj1 §' |
65 ^ '§Id: PPMemento.st 2 2010-12-17 18:44:23Z vranyj1 §' |
66 ! ! |
66 ! ! |
|
67 |