#DOCUMENTATION by exept draft
authorClaus Gittinger <cg@exept.de>
Sun, 13 Oct 2019 18:27:55 +0200
changeset 647 ee23ff60ceec
parent 646 6e97d8145481
child 648 431478cee51d
#DOCUMENTATION by exept class: PPParser comment/format in: #matchesIn: #matchesIn:do: #matchesSkipIn:
PPParser.st
--- a/PPParser.st	Sun Sep 08 16:46:10 2019 +0200
+++ b/PPParser.st	Sun Oct 13 18:27:55 2019 +0200
@@ -424,31 +424,36 @@
 !
 
 matchesIn: anObject
-	"Search anObject repeatedly for the matches of the receiver. Answered an OrderedCollection of the matched parse-trees."
+        "Search anObject repeatedly for the matches of the receiver. 
+         Answer an OrderedCollection of the matched parse-trees."
 
-	| result |
-	result := OrderedCollection new.
-	self 
-		matchesIn: anObject
-		do: [ :each | result addLast: each ].
-	^ result
+        | result |
+        result := OrderedCollection new.
+        self 
+                matchesIn: anObject
+                do: [ :each | result addLast: each ].
+        ^ result
 !
 
 matchesIn: anObject do: aBlock
-	"Search anObject repeatedly for the matches of the receiver. Evaluate aBlock for each match with the matched parse-tree as the argument. Make sure to always consume exactly one character with each step, to not miss any match."
+        "Search anObject repeatedly for the matches of the receiver. 
+         Evaluate aBlock for each match with the matched parse-tree as the argument. 
+         Make sure to always consume exactly one character with each step, to not miss any match."
 
-	((self and ==> aBlock , #any asParser) / #any asParser) star parse: anObject
+        ((self and ==> aBlock , #any asParser) / #any asParser) star parse: anObject
 !
 
 matchesSkipIn: anObject
-	"Search anObject repeatedly for the matches of the receiver. Answer an OrderedCollection of the matched parse-trees. Skip over matches."
+        "Search anObject repeatedly for the matches of the receiver. 
+         Answer an OrderedCollection of the matched parse-trees. 
+         Skip over matches."
 
-	| result |
-	result := OrderedCollection new.
-	self 
-		matchesSkipIn: anObject
-		do: [ :each | result addLast: each ].
-	^ result
+        | result |
+        result := OrderedCollection new.
+        self 
+                matchesSkipIn: anObject
+                do: [ :each | result addLast: each ].
+        ^ result
 !
 
 matchesSkipIn: anObject do: aBlock