equal
deleted
inserted
replaced
35 chars: aCollection message: aString |
35 chars: aCollection message: aString |
36 ^ self on: (PPCharSetPredicate on: [ :char | aCollection includes: char ]) message: aString |
36 ^ self on: (PPCharSetPredicate on: [ :char | aCollection includes: char ]) message: aString |
37 ! |
37 ! |
38 |
38 |
39 cr |
39 cr |
40 ^ self char: Character cr message: 'carriage return expected' |
40 Smalltalk isSmalltalkX ifTrue:[ |
|
41 ^ self char: Character return message: 'carriage return expected' |
|
42 ]. |
|
43 ^ self char: Character cr message: 'carriage return expected' |
41 ! |
44 ! |
42 |
45 |
43 digit |
46 digit |
44 ^ self on: (PPCharSetPredicate on: [ :char | char isDigit ]) message: 'digit expected' |
47 ^ self on: (PPCharSetPredicate on: [ :char | char isDigit ]) message: 'digit expected' |
45 ! |
48 ! |
64 lowercase |
67 lowercase |
65 ^ self on: (PPCharSetPredicate on: [ :char | char isLowercase ]) message: 'lowercase letter expected' |
68 ^ self on: (PPCharSetPredicate on: [ :char | char isLowercase ]) message: 'lowercase letter expected' |
66 ! |
69 ! |
67 |
70 |
68 newline |
71 newline |
69 ^ self chars: (String with: Character cr with: Character lf) message: 'newline expected' |
72 Smalltalk isSmalltalkX ifTrue:[ |
|
73 ^ self chars: (String with: Character return with: Character lf) message: 'newline expected' |
|
74 ]. |
|
75 ^ self chars: (String with: Character cr with: Character lf) message: 'newline expected' |
70 ! |
76 ! |
71 |
77 |
72 punctuation |
78 punctuation |
73 ^ self chars: '.,"''?!!;:#$%&()*+-/<>=@[]\^_{}|~' message: 'punctuation expected' |
79 ^ self chars: '.,"''?!!;:#$%&()*+-/<>=@[]\^_{}|~' message: 'punctuation expected' |
74 ! |
80 ! |
153 ! ! |
159 ! ! |
154 |
160 |
155 !PPPredicateObjectParser class methodsFor:'documentation'! |
161 !PPPredicateObjectParser class methodsFor:'documentation'! |
156 |
162 |
157 version |
163 version |
158 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.3 2012-05-04 22:05:48 vrany Exp $' |
164 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.4 2012-12-01 14:29:54 cg Exp $' |
159 ! |
165 ! |
160 |
166 |
161 version_CVS |
167 version_CVS |
162 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.3 2012-05-04 22:05:48 vrany Exp $' |
168 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.4 2012-12-01 14:29:54 cg Exp $' |
163 ! |
169 ! |
164 |
170 |
165 version_SVN |
171 version_SVN |
166 ^ '§Id: PPPredicateObjectParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
172 ^ '§Id: PPPredicateObjectParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
167 ! ! |
173 ! ! |