--- 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