equal
deleted
inserted
replaced
20 UnaryNode comment:' |
20 UnaryNode comment:' |
21 |
21 |
22 COPYRIGHT (c) 1989-93 by Claus Gittinger |
22 COPYRIGHT (c) 1989-93 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 %W% %E% |
25 $Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.2 1993-10-13 00:26:20 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !UnaryNode class methodsFor:'instance creation'! |
28 !UnaryNode class methodsFor:'instance creation'! |
29 |
29 |
30 receiver:r selector:s |
30 receiver:r selector:s |
98 ! ! |
98 ! ! |
99 |
99 |
100 !UnaryNode methodsFor:'checks'! |
100 !UnaryNode methodsFor:'checks'! |
101 |
101 |
102 plausibilityCheck |
102 plausibilityCheck |
103 |rec arg operand| |
|
104 |
|
105 "check for funny selector - careful to do string compare instead |
103 "check for funny selector - careful to do string compare instead |
106 of symbol identity compare: I dont want to introduce these as symbols |
104 of symbol identity compare: I dont want to introduce these as symbols |
107 into the system (would make the '... is nowhere implemented' warning |
105 into the system (would make the '... is nowhere implemented' warning |
108 go away." |
106 go away." |
109 |
107 |
110 ((selector = 'self') or:[ |
108 ((selector = 'self') or:[ |
111 (selector = 'super') or:[ |
109 (selector = 'super') or:[ |
112 (Smalltalk includesKey:selector)]]) ifTrue:[ |
110 (Smalltalk includesKey:selector)]]) ifTrue:[ |
113 ^ 'funny selector; possible missing ''.'' or keyword' |
111 ^ 'funny selector; possible missing ''.'' or keyword' |
114 ]. |
112 ]. |
|
113 "more to come ..." |
115 ^ nil |
114 ^ nil |
116 ! ! |
115 ! ! |
117 |
116 |
118 !UnaryNode methodsFor:'evaluating'! |
117 !UnaryNode methodsFor:'evaluating'! |
119 |
118 |