20 PrimaryNode comment:' |
20 PrimaryNode comment:' |
21 |
21 |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.5 1994-01-16 03:51:42 claus Exp $ |
25 $Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.6 1994-03-30 10:09:38 claus Exp $ |
26 written 88 by claus |
26 written 88 by claus |
27 '! |
27 '! |
28 |
28 |
29 !PrimaryNode methodsFor:'accessing'! |
29 !PrimaryNode methodsFor:'accessing'! |
30 |
30 |
31 value |
31 value |
32 ^ value |
32 ^ value |
33 ! ! |
33 ! ! |
34 |
34 |
|
35 !PrimaryNode methodsFor:'queries'! |
|
36 |
|
37 isPrimary |
|
38 "return true, if this is a node for a primary (i.e. non-send)" |
|
39 |
|
40 ^ true |
|
41 ! ! |
|
42 |
35 !PrimaryNode methodsFor:'evaluating'! |
43 !PrimaryNode methodsFor:'evaluating'! |
36 |
44 |
37 evaluate |
45 evaluate |
38 self subclassResponsibility |
46 ^ self subclassResponsibility |
39 ! |
47 ! |
40 |
48 |
41 store:aValue |
49 store:aValue |
42 self subclassResponsibility |
50 ^ self subclassResponsibility |
43 ! ! |
51 ! ! |
44 |
52 |
45 !PrimaryNode methodsFor:'code generation'! |
53 !PrimaryNode methodsFor:'code generation'! |
46 |
54 |
47 codeForSideEffectOn:aStream inBlock:b |
55 codeForSideEffectOn:aStream inBlock:b |
48 "no code at all" |
56 "no code at all" |
49 ^ self |
57 ^ self |
50 ! |
58 ! |
51 |
59 |
52 codeOn:aStream inBlock:codeBlock |
60 codeOn:aStream inBlock:codeBlock |
53 self subclassResponsibility |
61 ^ self subclassResponsibility |
54 ! |
62 ! |
55 |
63 |
56 codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded |
64 codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded |
57 self subclassResponsibility |
65 ^ self subclassResponsibility |
58 ! ! |
66 ! ! |
59 |
67 |
60 !PrimaryNode methodsFor:'printing'! |
68 !PrimaryNode methodsFor:'printing'! |
61 |
69 |
62 displayString |
70 displayString |
63 self subclassResponsibility |
71 ^ self subclassResponsibility |
64 ! |
72 ! |
65 |
73 |
66 printOn:aStream indent:i |
74 printOn:aStream indent:i |
67 self subclassResponsibility |
75 ^ self subclassResponsibility |
68 ! ! |
76 ! ! |