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

     2 

     3 PPReplaceRule subclass:#PPParserReplaceRule

     4 	instanceVariableNames:'replaceParser'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitAnalyzer-Core'

     8 !

     9 

    10 

    11 !PPParserReplaceRule class methodsFor:'instance creation'!

    12 

    13 searchFor: aSearchParser replaceWith: aReplaceParser when: aVerificationBlock

    14 	^ (self searchFor: aSearchParser) 

    15 		setReplaceParser: aReplaceParser;

    16 		setVerificationBlock: aVerificationBlock;

    17 		yourself

    18 ! !

    19 

    20 !PPParserReplaceRule methodsFor:'initialization'!

    21 

    22 setReplaceParser: aParser

    23 	replaceParser := aParser

    24 ! !

    25 

    26 !PPParserReplaceRule class methodsFor:'documentation'!

    27 

    28 version

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

    30 !

    31 

    32 version_CVS

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

    34 ! !

    35