--- a/extensions.st Tue Mar 04 16:47:18 2014 +0100
+++ b/extensions.st Tue Mar 04 16:53:53 2014 +0100
@@ -3,6 +3,8 @@
!Block methodsFor:'*petitparser-core-converting'!
asParser
+ "Answer a parser implemented in the receiving one-argument block."
+
^ PPPluggableParser on: self
! !
@@ -12,9 +14,11 @@
^ PPPluggableParser on: self
! !
-!Character methodsFor:'*petitparser-converting'!
+!Character methodsFor:'*petitparser-core-converting'!
asParser
+ "Answer a parser that accepts the receiving character."
+
^ PPLiteralObjectParser on: self
! !
@@ -47,6 +51,8 @@
!Object methodsFor:'*petitparser-core-converting'!
asParser
+ "Answer a parser accepting the receiving object."
+
^ PPPredicateObjectParser expect: self
! !
@@ -109,12 +115,16 @@
!String methodsFor:'*petitparser-core-converting'!
asParser
+ "Answer a parser that accepts the receiving string."
+
^ PPLiteralSequenceParser on: self
! !
!Symbol methodsFor:'*petitparser-core-converting'!
asParser
+ "Answer a predicate parser named after the receiving symbol. Possible symbols are the method selectors on the class-side of PPPredicateObjectParser."
+
^ PPPredicateObjectParser perform: self
! !
@@ -135,11 +145,14 @@
!UndefinedObject methodsFor:'*petitparser-converting'!
asParser
+ "Answer a parser that succeeds and does not consume anything."
+
^ PPEpsilonParser new
! !
!stx_goodies_petitparser class methodsFor:'documentation'!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.9 2014-02-17 15:08:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.10 2014-03-04 15:53:53 cg Exp $'
! !
+