186 ! ! |
186 ! ! |
187 |
187 |
188 !SyntaxElement methodsFor:'comparing'! |
188 !SyntaxElement methodsFor:'comparing'! |
189 |
189 |
190 < anObject |
190 < anObject |
191 |
|
192 anObject isNumber ifTrue:[^stop < anObject]. |
191 anObject isNumber ifTrue:[^stop < anObject]. |
193 anObject class == self class ifFalse:[^false]. |
192 anObject class == self class ifFalse:[^false]. |
194 |
193 |
195 ^stop < anObject start |
194 ^stop < anObject start |
196 |
195 |
197 "Created: / 14-02-2010 / 13:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
196 "Created: / 14-02-2010 / 13:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
197 "Modified (format): / 27-07-2012 / 21:53:22 / cg" |
198 ! |
198 ! |
199 |
199 |
200 = anObject |
200 = anObject |
201 |
|
202 anObject class == self class ifFalse:[^false]. |
201 anObject class == self class ifFalse:[^false]. |
203 |
202 |
204 ^start == (anObject start) and: |
203 ^start == (anObject start) and: |
205 [stop == (anObject stop) and: |
204 [stop == (anObject stop) and: |
206 [type == (anObject type)]]. |
205 [type == (anObject type)]]. |
207 |
206 |
208 "Created: / 14-02-2010 / 13:33:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
207 "Created: / 14-02-2010 / 13:33:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
208 "Modified (format): / 27-07-2012 / 21:53:24 / cg" |
209 ! |
209 ! |
210 |
210 |
211 hash |
211 hash |
212 |
|
213 ^start hash bitXor:[stop hash bitXor:[type hash]]. |
212 ^start hash bitXor:[stop hash bitXor:[type hash]]. |
214 |
213 |
215 "Created: / 14-02-2010 / 13:30:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
214 "Created: / 14-02-2010 / 13:30:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
215 "Modified (format): / 27-07-2012 / 21:53:28 / cg" |
216 ! ! |
216 ! ! |
217 |
217 |
218 !SyntaxElement methodsFor:'double dispatching'! |
218 !SyntaxElement methodsFor:'double dispatching'! |
219 |
219 |
220 lessFromInteger:anInteger |
220 lessFromInteger:anInteger |
221 |
|
222 ^stop < anInteger |
221 ^stop < anInteger |
223 |
222 |
224 "Created: / 14-02-2010 / 13:49:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
223 "Created: / 14-02-2010 / 13:49:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
224 "Modified (format): / 27-07-2012 / 21:53:33 / cg" |
225 ! ! |
225 ! ! |
226 |
226 |
227 !SyntaxElement methodsFor:'printing & storing'! |
227 !SyntaxElement methodsFor:'printing & storing'! |
228 |
228 |
229 printOn:aStream |
229 printOn:aStream |