--- a/extensions.st Mon Feb 17 02:33:26 2014 +0100
+++ b/extensions.st Mon Feb 17 02:33:27 2014 +0100
@@ -78,6 +78,22 @@
^ PPStream on: self
! !
+!Interval methodsFor:'*petitparser-core-converting'!
+
+asParser
+ "Create a parser for any in a range of characters between start and stop."
+
+ self assert:start isCharacter.
+ self assert:stop isCharacter.
+ self assert:step == 1.
+ ^ PPPredicateObjectParser between: start and: stop
+
+ "
+ ($a to:$f) asParser parse:'a'
+ ($a to:$f) asParser parse:'g'
+ "
+! !
+
!Set methodsFor:'*petitparser-core-converting'!
asParser
@@ -125,5 +141,5 @@
!stx_goodies_petitparser class methodsFor:'documentation'!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.5 2014-02-17 01:30:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.6 2014-02-17 01:33:27 cg Exp $'
! !