diff -r e1b11f74e142 -r 90de244a7fa2 PPPredicateSequenceParser.st --- a/PPPredicateSequenceParser.st Mon Sep 12 19:48:53 2011 +0200 +++ b/PPPredicateSequenceParser.st Fri Jan 13 12:22:50 2012 +0100 @@ -1,4 +1,4 @@ -"{ Package: 'squeak:petitparser' }" +"{ Package: 'stx:goodies/petitparser' }" PPPredicateParser subclass:#PPPredicateSequenceParser instanceVariableNames:'size' @@ -9,18 +9,18 @@ PPPredicateSequenceParser comment:'A parser that accepts if a given predicate on an arbitrary number of elements of the input sequence holds. Instance Variables: - size The number of elements to consume.' + size The number of elements to consume.' ! !PPPredicateSequenceParser class methodsFor:'instance creation'! -on: aBlock message: aString negated: aNegatedBlock message: aNegatedString size: anInteger +on: aBlock message: aString negated: aNegatedBlock message: aNegatedString size: anInteger ^ self new initializeOn: aBlock message: aString negated: aNegatedBlock message: aNegatedString size: anInteger ! on: aBlock message: aString size: anInteger - ^ self on: aBlock message: aString negated: [ :each | (aBlock value: each) not ] message: 'no ' , aString size: anInteger + ^ self on: aBlock message: aString negated: [ :each | (aBlock value: each) not ] message: 'no ' , aString size: anInteger ! ! !PPPredicateSequenceParser methodsFor:'accessing'! @@ -38,15 +38,15 @@ predicateMessage := aString. negated := aNegatedBlock. negatedMessage := aNegatedString. - size := anInteger + size := anInteger ! ! !PPPredicateSequenceParser methodsFor:'operators'! negate "Answer a parser that is the negation of the receiving predicate parser." - - ^ self class + + ^ self class on: negated message: negatedMessage negated: predicate message: predicateMessage size: size @@ -67,5 +67,5 @@ !PPPredicateSequenceParser class methodsFor:'documentation'! version_SVN - ^ '$Id: PPPredicateSequenceParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $' + ^ '$Id: PPPredicateSequenceParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $' ! !