--- a/extensions.st Tue Mar 04 16:55:01 2014 +0100
+++ b/extensions.st Tue Mar 04 16:56:58 2014 +0100
@@ -32,6 +32,18 @@
"Created: / 19-12-2010 / 18:13:19 / Jan Kurs <kurs.jan@post.cz>"
! !
+!Collection methodsFor:'*petitparser-core-converting'!
+
+asChoiceParser
+ ^ PPChoiceParser withAll: (self collect: [ :each | each asParser ])
+! !
+
+!Collection methodsFor:'*petitparser-core-converting'!
+
+asSequenceParser
+ ^ PPSequenceParser withAll: (self collect: [ :each | each asParser ])
+! !
+
!Interval methodsFor:'*petitparser-converting'!
asParser
@@ -153,6 +165,6 @@
!stx_goodies_petitparser class methodsFor:'documentation'!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.10 2014-03-04 15:53:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.11 2014-03-04 15:56:58 cg Exp $'
! !