--- a/extensions.st Mon Feb 17 02:30:41 2014 +0100
+++ b/extensions.st Mon Feb 17 02:30:49 2014 +0100
@@ -12,30 +12,6 @@
^ PPPluggableParser on: self
! !
-!Character methodsFor:'arithmetic'!
-
-- aMagnitude
- "Return the Character that is <aMagnitude> lower than the receiver.
- Wrap if the resulting value is not a legal Character value. (JS)
- claus:
- modified to return the difference as integer, if the argument
- is another character. If the argument is a number, a character is
- returned."
-
- aMagnitude isCharacter ifTrue:[
- ^ asciivalue - aMagnitude asInteger
- ].
- ^ Character codePoint:((asciivalue - aMagnitude asInteger) \\ 16r3FFFFFFF)
-
- "
- $z - $a
- $d - 3
- "
-
- "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
@@ -46,7 +22,7 @@
ppMinus: aCharacter
"Create a range of characters between the receiver and the argument."
-
+
^ PPPredicateObjectParser between: self and: aCharacter
"Created: / 19-12-2010 / 18:13:19 / Jan Kurs <kurs.jan@post.cz>"
@@ -73,14 +49,14 @@
!PositionableStream methodsFor:'*petitparser-core-converting'!
asPetitStream
- "Some of my subclasses do not use the instance-variables collection, position and readLimit but instead have a completely different internal representation. In these cases just use the super implementation that is inefficient but should work in all cases."
+ "Some of my subclasses do not use the instance-variables collection, position and readLimit but instead have a completely different internal representation. In these cases just use the super implementation that is inefficient but should work in all cases."
- "DUNNO WHY, but on: collection from: position to: last set the start to position -1"
- self breakPoint: #petitparser.
+ "DUNNO WHY, but on: collection from: position to: last set the start to position -1"
+ self breakPoint: #petitparser.
- ^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ])
- ifFalse: [ PPStream on: collection from: (position +1) to: readLimit ]
- ifTrue: [ super asPetitStream ]
+ ^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ])
+ ifFalse: [ PPStream on: collection from: (position +1) to: readLimit ]
+ ifTrue: [ super asPetitStream ]
"/ ^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ])
@@ -149,5 +125,5 @@
!stx_goodies_petitparser class methodsFor:'documentation'!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.4 2012-05-04 22:14:41 vrany Exp $'
-! !
\ No newline at end of file
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.5 2014-02-17 01:30:49 cg Exp $'
+! !