--- a/extensions.st Mon Sep 12 19:47:59 2011 +0200
+++ b/extensions.st Mon Sep 12 19:48:53 2011 +0200
@@ -1,17 +1,17 @@
-"{ Package: 'squeak:petitparser' }"
-
-!
+"{ Package: 'squeak:petitparser' }"!
!Block methodsFor:'*petitparser-core-converting'!
asParser
^ PPPluggableParser on: self
! !
+
!BlockContext methodsFor:'*petitparser-core-converting'!
asParser
^ PPPluggableParser on: self
! !
+
!Character methodsFor:'arithmetic'!
- aMagnitude
@@ -35,11 +35,13 @@
"Modified: / 27-06-1996 / 12:35:34 / cg"
"Modified: / 19-12-2010 / 18:36:56 / Jan Kurs <kurs.jan@post.cz>"
! !
+
!Character methodsFor:'*petitparser-converting'!
asParser
^ PPLiteralObjectParser on: self
! !
+
!Character methodsFor:'arithmetic'!
ppMinus: aCharacter
@@ -49,21 +51,25 @@
"Created: / 19-12-2010 / 18:13:19 / Jan Kurs <kurs.jan@post.cz>"
! !
+
!Object methodsFor:'*petitparser-core-converting'!
asParser
^ PPPredicateObjectParser expect: self
! !
+
!Object methodsFor:'*petitparser-core-testing'!
isPetitFailure
^ false
! !
+
!Object methodsFor:'*petitparser-core-testing'!
isPetitParser
^ false
! !
+
!PositionableStream methodsFor:'*petitparser-core-converting'!
asPetitStream
@@ -83,36 +89,43 @@
"Modified: / 18-12-2010 / 17:38:01 / Jan Kurs <kurs.jan@post.cz>"
! !
+
!SequenceableCollection methodsFor:'*petitparser-core-converting'!
asParser
^ PPSequenceParser withAll: (self collect: [ :each | each asParser ])
! !
+
!SequenceableCollection methodsFor:'*petitparser-core-converting'!
asPetitStream
^ PPStream on: self
! !
+
!Set methodsFor:'*petitparser-core-converting'!
asParser
^ PPChoiceParser withAll: (self collect: [ :each | each asParser ])
! !
+
!Stream methodsFor:'*petitparser-core-converting'!
asPetitStream
^ self contents asPetitStream
! !
+
!String methodsFor:'*petitparser-core-converting'!
asParser
^ PPLiteralSequenceParser on: self
! !
+
!Symbol methodsFor:'*petitparser-core-converting'!
asParser
^ PPPredicateObjectParser perform: self
! !
+
!Symbol methodsFor:'Compatibility-Squeak'!
value:anObject
@@ -120,13 +133,21 @@
"Created: / 18-12-2010 / 16:47:22 / Jan Kurs <kurs.jan@post.cz>"
! !
+
!Text methodsFor:'*petitparser-core'!
asPetitStream
^ string asPetitStream
! !
+
!UndefinedObject methodsFor:'*petitparser-converting'!
asParser
^ PPEpsilonParser new
! !
+
+!squeak_petitparser class methodsFor:'documentation'!
+
+extensionsVersion_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.2 2011-09-12 17:48:53 cg Exp $'
+! !
\ No newline at end of file