1 "{ Package: 'stx:goodies/petitparser/analyzer' }"

     2 

     3 PPRule subclass:#PPReplaceRule

     4 	instanceVariableNames:'verificationBlock'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitAnalyzer-Core'

     8 !

     9 

    10 

    11 !PPReplaceRule methodsFor:'initialization'!

    12 

    13 initialize

    14 	super initialize.

    15 	verificationBlock := [ :parser | true ]

    16 !

    17 

    18 setVerificationBlock: aBlock

    19 	verificationBlock := aBlock

    20 ! !

    21 

    22 !PPReplaceRule methodsFor:'matching'!

    23 

    24 canMatch: aParser 

    25 	^ verificationBlock cull: aParser

    26 ! !

    27 

    28 !PPReplaceRule class methodsFor:'documentation'!

    29 

    30 version

    31     ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPReplaceRule.st,v 1.1 2014-03-04 15:41:49 cg Exp $'

    32 !

    33 

    34 version_CVS

    35     ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPReplaceRule.st,v 1.1 2014-03-04 15:41:49 cg Exp $'

    36 ! !

    37