# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393948433 -3600
# Node ID b38781d329c51262c5a0f32a60c2f5ae94d2cfc5
# Parent  4717e419eabc89d126e003235e039af9c7f4a878
comments

diff -r 4717e419eabc -r b38781d329c5 extensions.st
--- 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 $'
 ! !
+