equal
deleted
inserted
replaced
14 ^ self new initializeOn: aBlock message: aString negated: aNegatedBlock message: aNegatedString size: anInteger |
14 ^ self new initializeOn: aBlock message: aString negated: aNegatedBlock message: aNegatedString size: anInteger |
15 ! |
15 ! |
16 |
16 |
17 on: aBlock message: aString size: anInteger |
17 on: aBlock message: aString size: anInteger |
18 ^ self on: aBlock message: aString negated: [ :each | (aBlock value: each) not ] message: 'no ' , aString size: anInteger |
18 ^ self on: aBlock message: aString negated: [ :each | (aBlock value: each) not ] message: 'no ' , aString size: anInteger |
|
19 ! ! |
|
20 |
|
21 !PPPredicateSequenceParser methodsFor:'*petitanalyzer-matching'! |
|
22 |
|
23 match: aParser inContext: aDictionary seen: anIdentitySet |
|
24 ^ (super match: aParser inContext: aDictionary seen: anIdentitySet) and: [ self size = aParser size ] |
19 ! ! |
25 ! ! |
20 |
26 |
21 !PPPredicateSequenceParser methodsFor:'accessing'! |
27 !PPPredicateSequenceParser methodsFor:'accessing'! |
22 |
28 |
23 size |
29 size |
60 ! ! |
66 ! ! |
61 |
67 |
62 !PPPredicateSequenceParser class methodsFor:'documentation'! |
68 !PPPredicateSequenceParser class methodsFor:'documentation'! |
63 |
69 |
64 version |
70 version |
65 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateSequenceParser.st,v 1.3 2012-05-04 22:08:28 vrany Exp $' |
71 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateSequenceParser.st,v 1.4 2014-03-04 14:33:22 cg Exp $' |
66 ! |
72 ! |
67 |
73 |
68 version_CVS |
74 version_CVS |
69 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateSequenceParser.st,v 1.3 2012-05-04 22:08:28 vrany Exp $' |
75 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateSequenceParser.st,v 1.4 2014-03-04 14:33:22 cg Exp $' |
70 ! |
76 ! |
71 |
77 |
72 version_SVN |
78 version_SVN |
73 ^ '§Id: PPPredicateSequenceParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
79 ^ '$Id: PPPredicateSequenceParser.st,v 1.4 2014-03-04 14:33:22 cg Exp $' |
74 ! ! |
80 ! ! |
|
81 |