1 "{ Package: 'squeak:petitparser' }"

     2 

     3 PPActionParser subclass:#PPWrappingParser

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitParser-Parsers'

     8 !

     9 

    10 PPWrappingParser comment:'A parser that performs an action block upon activation with the stream and a continuation block.'

    11 !

    12 

    13 

    14 !PPWrappingParser methodsFor:'parsing'!

    15 

    16 parseOn: aStream

    17 	^ block value: aStream value: [ parser parseOn: aStream ]

    18 ! !

    19 

    20 !PPWrappingParser class methodsFor:'documentation'!

    21 

    22 version_SVN

    23     ^ '$Id: PPWrappingParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $'

    24 ! !