# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393947683 -3600
# Node ID 80010945e57b2f48b7a3bda2d424a750d230e60e
# Parent  f4f055fbacdc7b958677b790b75fba877c2da8ef
initial checkin

diff -r f4f055fbacdc -r 80010945e57b analyzer/PPParserReplaceRule.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/analyzer/PPParserReplaceRule.st	Tue Mar 04 16:41:23 2014 +0100
@@ -0,0 +1,35 @@
+"{ Package: 'stx:goodies/petitparser/analyzer' }"
+
+PPReplaceRule subclass:#PPParserReplaceRule
+	instanceVariableNames:'replaceParser'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitAnalyzer-Core'
+!
+
+
+!PPParserReplaceRule class methodsFor:'instance creation'!
+
+searchFor: aSearchParser replaceWith: aReplaceParser when: aVerificationBlock
+	^ (self searchFor: aSearchParser) 
+		setReplaceParser: aReplaceParser;
+		setVerificationBlock: aVerificationBlock;
+		yourself
+! !
+
+!PPParserReplaceRule methodsFor:'initialization'!
+
+setReplaceParser: aParser
+	replaceParser := aParser
+! !
+
+!PPParserReplaceRule class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.1 2014-03-04 15:41:23 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.1 2014-03-04 15:41:23 cg Exp $'
+! !
+