equal
deleted
inserted
replaced
90 stop: stop; |
90 stop: stop; |
91 type: type; |
91 type: type; |
92 value: value |
92 value: value |
93 |
93 |
94 "Created: / 14-02-2010 / 17:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
94 "Created: / 14-02-2010 / 17:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
95 ! |
|
96 |
|
97 from: start to: stop type: type value: value assigned:assigned |
|
98 |
|
99 ^self new |
|
100 start: start; |
|
101 stop: stop; |
|
102 type: type; |
|
103 value: value; |
|
104 assigned: assigned |
|
105 |
|
106 "Created: / 14-02-2010 / 17:41:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
95 ! ! |
107 ! ! |
96 |
108 |
97 !SyntaxElement methodsFor:'accessing'! |
109 !SyntaxElement methodsFor:'accessing'! |
98 |
110 |
99 firstElementInChain |
111 firstElementInChain |
197 |
209 |
198 !SyntaxElement methodsFor:'comparing'! |
210 !SyntaxElement methodsFor:'comparing'! |
199 |
211 |
200 < anObject |
212 < anObject |
201 anObject isNumber ifTrue:[^stop < anObject]. |
213 anObject isNumber ifTrue:[^stop < anObject]. |
202 anObject class == self class ifFalse:[^false]. |
214 "/ anObject class == self class ifFalse:[^false]. |
203 |
215 |
204 ^stop < anObject start |
216 ^stop < anObject stop |
205 |
217 |
206 "Created: / 14-02-2010 / 13:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
218 "Created: / 14-02-2010 / 13:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
207 "Modified (format): / 27-07-2012 / 21:53:22 / cg" |
219 "Modified (format): / 27-07-2012 / 21:53:22 / cg" |
208 ! |
220 ! |
209 |
221 |
242 super printOn:aStream. |
254 super printOn:aStream. |
243 aStream nextPutAll:'('. |
255 aStream nextPutAll:'('. |
244 type printOn: aStream. |
256 type printOn: aStream. |
245 aStream nextPutAll:' -> '. |
257 aStream nextPutAll:' -> '. |
246 value printOn:aStream. |
258 value printOn:aStream. |
|
259 aStream nextPut:$[. |
|
260 start printOn:aStream. |
|
261 aStream nextPutAll:' .. '. |
|
262 stop printOn:aStream. |
|
263 aStream nextPut:$]. |
247 aStream nextPut:$). |
264 aStream nextPut:$). |
248 |
265 |
249 "Modified: / 25-06-2010 / 13:20:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
266 "Modified: / 25-06-2010 / 13:20:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
250 "Modified: / 21-08-2011 / 09:33:51 / cg" |
267 "Modified: / 21-08-2011 / 09:33:51 / cg" |
251 ! ! |
268 ! ! |
263 |
280 |
264 "Created: / 21-08-2011 / 09:31:20 / cg" |
281 "Created: / 21-08-2011 / 09:31:20 / cg" |
265 ! |
282 ! |
266 |
283 |
267 isVariable |
284 isVariable |
268 ^ type == #variable |
285 ^ false |
269 |
|
270 "Created: / 21-08-2011 / 09:09:00 / cg" |
|
271 ! |
286 ! |
272 |
287 |
273 isVariableOrSelf |
288 isVariableOrSelf |
274 ^ self isVariable or:[self isSelf] |
289 ^ self isVariable or:[self isSelf] |
275 |
290 |
281 version |
296 version |
282 ^ '$Id: SyntaxElement.st 8048 2012-09-07 17:28:09Z vranyj1 $' |
297 ^ '$Id: SyntaxElement.st 8048 2012-09-07 17:28:09Z vranyj1 $' |
283 ! |
298 ! |
284 |
299 |
285 version_CVS |
300 version_CVS |
286 ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.5 2013-01-11 09:56:30 cg Exp $' |
301 ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.6 2013-06-14 14:30:48 cg Exp $' |
287 ! |
302 ! |
288 |
303 |
289 version_HG |
304 version_HG |
290 |
305 |
291 ^ '$Changeset: <not expanded> $' |
306 ^ '$Changeset: <not expanded> $' |
292 ! |
307 ! |
293 |
308 |
294 version_SVN |
309 version_SVN |
295 ^ '§Id: SyntaxElement.st 7582 2010-06-25 13:26:33Z vranyj1 §' |
310 ^ '$Id: SyntaxElement.st,v 1.6 2013-06-14 14:30:48 cg Exp $' |
296 ! ! |
311 ! ! |
297 |
312 |