# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393947654 -3600
# Node ID 520b7167815c5585665bd8de2e27ea2c48b375e4
# Parent  8e3e1e4d9bf195ba3321519c9d05a7680954f728
initial checkin

diff -r 8e3e1e4d9bf1 -r 520b7167815c analyzer/PPBlockReplaceRule.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/analyzer/PPBlockReplaceRule.st	Tue Mar 04 16:40:54 2014 +0100
@@ -0,0 +1,41 @@
+"{ Package: 'stx:goodies/petitparser/analyzer' }"
+
+PPReplaceRule subclass:#PPBlockReplaceRule
+	instanceVariableNames:'replaceBlock'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitAnalyzer-Core'
+!
+
+
+!PPBlockReplaceRule class methodsFor:'instance creation'!
+
+searchFor: aSearchParser replaceWith: aReplaceBlock when: aVerificationBlock
+	^ (self searchFor: aSearchParser) 
+		setReplaceBlock: aReplaceBlock;
+		setVerificationBlock: aVerificationBlock;
+		yourself
+! !
+
+!PPBlockReplaceRule methodsFor:'initialization'!
+
+setReplaceBlock: aBlock
+	replaceBlock := aBlock
+! !
+
+!PPBlockReplaceRule methodsFor:'matching'!
+
+foundMatchFor: aParser 
+	^ replaceBlock cull: aParser
+! !
+
+!PPBlockReplaceRule class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPBlockReplaceRule.st,v 1.1 2014-03-04 15:40:54 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPBlockReplaceRule.st,v 1.1 2014-03-04 15:40:54 cg Exp $'
+! !
+