equal
deleted
inserted
replaced
202 ^ (self basicNew) receiver:r selector:selectorString args:nil lineno:0 |
202 ^ (self basicNew) receiver:r selector:selectorString args:nil lineno:0 |
203 |
203 |
204 "Modified: / 05-03-2007 / 15:11:26 / cg" |
204 "Modified: / 05-03-2007 / 15:11:26 / cg" |
205 ! ! |
205 ! ! |
206 |
206 |
|
207 !UnaryNode methodsFor:'accessing'! |
|
208 |
|
209 selectorPartPositions |
|
210 selectorPartPositions isNil ifTrue:[ |
|
211 selectorPartPositions := Array with: (selectorPosition to: selectorPosition + selector size - 1). |
|
212 ]. |
|
213 ^ selectorPartPositions |
|
214 |
|
215 "Created: / 19-10-2013 / 23:48:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
216 ! ! |
|
217 |
207 !UnaryNode methodsFor:'checks'! |
218 !UnaryNode methodsFor:'checks'! |
208 |
219 |
209 plausibilityCheckIn:aParser |
220 plausibilityCheckIn:aParser |
210 "check for funny selector - careful to do string compare instead |
221 "check for funny selector - careful to do string compare instead |
211 of symbol identity compare: I dont want to introduce these as symbols |
222 of symbol identity compare: I dont want to introduce these as symbols |
368 ! ! |
379 ! ! |
369 |
380 |
370 !UnaryNode class methodsFor:'documentation'! |
381 !UnaryNode class methodsFor:'documentation'! |
371 |
382 |
372 version |
383 version |
373 ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.59 2013-08-31 11:30:27 cg Exp $' |
384 ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.60 2013-10-19 23:05:27 vrany Exp $' |
374 ! |
385 ! |
375 |
386 |
376 version_CVS |
387 version_CVS |
377 ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.59 2013-08-31 11:30:27 cg Exp $' |
388 ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.60 2013-10-19 23:05:27 vrany Exp $' |
378 ! ! |
389 ! ! |
379 |
390 |