equal
deleted
inserted
replaced
|
1 "{ Package: 'stx:goodies/petitparser/devtools' }" |
|
2 |
|
3 PPParser subclass:#PPDebuggingParser |
|
4 instanceVariableNames:'parser debugger' |
|
5 classVariableNames:'' |
|
6 poolDictionaries:'' |
|
7 category:'PetitParser-Debugging' |
|
8 ! |
|
9 |
|
10 |
|
11 !PPDebuggingParser class methodsFor:'instance creation'! |
|
12 |
|
13 parser: parser debugger: debugger |
|
14 |
|
15 ^self new parser: parser; debugger: debugger |
|
16 |
|
17 "Created: / 12-03-2012 / 16:47:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
18 ! ! |
|
19 |
|
20 !PPDebuggingParser methodsFor:'accessing'! |
|
21 |
|
22 debugger |
|
23 ^ debugger |
|
24 ! |
|
25 |
|
26 debugger:aPPDebugger |
|
27 debugger := aPPDebugger. |
|
28 ! |
|
29 |
|
30 parser |
|
31 ^ parser |
|
32 ! |
|
33 |
|
34 parser:aPPParser |
|
35 parser := aPPParser. |
|
36 ! ! |
|
37 |
|
38 !PPDebuggingParser methodsFor:'parsing'! |
|
39 |
|
40 parseOn:aStream |
|
41 | result | |
|
42 |
|
43 debugger enterParser: parser stream: aStream. |
|
44 result := parser parseOn: aStream. |
|
45 debugger leaveParser: parser stream: aStream result: result. |
|
46 ^result. |
|
47 |
|
48 "Modified: / 12-03-2012 / 16:41:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
49 ! ! |
|
50 |
|
51 !PPDebuggingParser class methodsFor:'documentation'! |
|
52 |
|
53 version |
|
54 ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebuggingParser.st,v 1.1 2012-05-05 14:49:17 vrany Exp $' |
|
55 ! |
|
56 |
|
57 version_CVS |
|
58 ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebuggingParser.st,v 1.1 2012-05-05 14:49:17 vrany Exp $' |
|
59 ! |
|
60 |
|
61 version_SVN |
|
62 ^ '§Id: PPDebuggingParser.st 10 2012-05-04 18:54:13Z vranyj1 §' |
|
63 ! ! |