equal
deleted
inserted
replaced
12 |
12 |
13 on: aParser |
13 on: aParser |
14 ^ self new setParser: aParser |
14 ^ self new setParser: aParser |
15 ! ! |
15 ! ! |
16 |
16 |
17 !PPDelegateParser methodsFor:'*petitanalyzer-transforming'! |
|
18 |
|
19 replace: aParser with: anotherParser |
|
20 super replace: aParser with: anotherParser. |
|
21 parser == aParser ifTrue: [ parser := anotherParser ] |
|
22 ! ! |
|
23 |
17 |
24 !PPDelegateParser methodsFor:'accessing'! |
18 !PPDelegateParser methodsFor:'accessing'! |
25 |
19 |
26 children |
20 children |
27 ^ Array with: parser |
21 ^ Array with: parser |
33 parser := aParser |
27 parser := aParser |
34 ! ! |
28 ! ! |
35 |
29 |
36 !PPDelegateParser methodsFor:'parsing'! |
30 !PPDelegateParser methodsFor:'parsing'! |
37 |
31 |
38 parseOn: aStream |
32 parseOn: aPPContext |
39 ^ parser parseOn: aStream |
33 ^ parser parseOn: aPPContext |
40 ! ! |
34 ! ! |
41 |
35 |
42 !PPDelegateParser class methodsFor:'documentation'! |
36 !PPDelegateParser class methodsFor:'documentation'! |
43 |
37 |
44 version |
38 version |