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 ! !