21 enterParser: aPPParser stream: aStream |
21 enterParser: aPPParser stream: aStream |
22 |
22 |
23 indent timesRepeat:[Transcript nextPutAll:' ']. |
23 indent timesRepeat:[Transcript nextPutAll:' ']. |
24 Transcript nextPutAll:'{ '. |
24 Transcript nextPutAll:'{ '. |
25 Transcript nextPutAll: aPPParser name ? aPPParser printString. |
25 Transcript nextPutAll: aPPParser name ? aPPParser printString. |
26 Transcript nextPutAll: ' pos = '; nextPutAll: aStream position. |
26 [ |
|
27 Transcript nextPutAll: ' pos = '; nextPutAll: aStream position printString. |
|
28 ] on: Error do:[:ex| |
|
29 Debugger enter. |
|
30 ]. |
27 Transcript cr. |
31 Transcript cr. |
28 indent := indent + 1. |
32 indent := indent + 1. |
29 |
33 |
30 "Created: / 12-03-2012 / 16:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
34 "Created: / 12-03-2012 / 16:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
35 "Modified: / 11-01-2013 / 15:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
31 ! |
36 ! |
32 |
37 |
33 leaveParser: aPPParser stream: aStream result: result |
38 leaveParser: aPPParser stream: aStream result: result |
34 |
39 |
35 indent := indent - 1. |
40 indent := indent - 1. |
36 indent timesRepeat:[Transcript nextPutAll:' ']. |
41 indent timesRepeat:[Transcript nextPutAll:' ']. |
37 Transcript nextPutAll:'} '. |
42 Transcript nextPutAll:'} '. |
38 Transcript nextPutAll: aPPParser name ? aPPParser printString. |
43 Transcript nextPutAll: aPPParser name ? aPPParser printString. |
39 Transcript nextPutAll: ' pos = '; nextPutAll: aStream position. |
44 Transcript nextPutAll: ' pos = '; nextPutAll: aStream position printString. |
40 Transcript nextPutAll: ' result = '. |
45 Transcript nextPutAll: ' result = '. |
41 result isPetitFailure ifTrue:[ |
46 result isPetitFailure ifTrue:[ |
42 Transcript nextPutAll: 'FAILURE '. |
47 Transcript nextPutAll: 'FAILURE '. |
43 ]. |
48 ]. |
44 Transcript nextPutAll: result printString. |
49 Transcript nextPutAll: result printString. |
45 Transcript cr. |
50 Transcript cr. |
46 |
51 |
47 "Created: / 12-03-2012 / 16:41:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
52 "Created: / 12-03-2012 / 16:41:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
53 "Modified: / 11-01-2013 / 15:17:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
48 ! ! |
54 ! ! |
49 |
55 |
50 !PPDebugger methodsFor:'initialization'! |
56 !PPDebugger methodsFor:'initialization'! |
51 |
57 |
52 initialize |
58 initialize |
61 ! ! |
67 ! ! |
62 |
68 |
63 !PPDebugger class methodsFor:'documentation'! |
69 !PPDebugger class methodsFor:'documentation'! |
64 |
70 |
65 version |
71 version |
66 ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebugger.st,v 1.1 2012-05-05 14:48:51 vrany Exp $' |
72 ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebugger.st,v 1.2 2013-01-11 15:17:28 vrany Exp $' |
67 ! |
73 ! |
68 |
74 |
69 version_CVS |
75 version_CVS |
70 ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebugger.st,v 1.1 2012-05-05 14:48:51 vrany Exp $' |
76 ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebugger.st,v 1.2 2013-01-11 15:17:28 vrany Exp $' |
71 ! |
77 ! |
72 |
78 |
73 version_SVN |
79 version_SVN |
74 ^ '§Id: PPDebugger.st 10 2012-05-04 18:54:13Z vranyj1 §' |
80 ^ '§Id: PPDebugger.st 10 2012-05-04 18:54:13Z vranyj1 §' |
75 ! ! |
81 ! ! |