equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libcomp' }" |
12 "{ Package: 'stx:libcomp' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 ParseNode subclass:#PrimaryNode |
16 ParseNode subclass:#PrimaryNode |
15 instanceVariableNames:'value line charIndex' |
17 instanceVariableNames:'value line charIndex' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
84 |
86 |
85 codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler |
87 codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler |
86 ^ self subclassResponsibility |
88 ^ self subclassResponsibility |
87 ! ! |
89 ! ! |
88 |
90 |
|
91 |
89 !PrimaryNode methodsFor:'evaluation'! |
92 !PrimaryNode methodsFor:'evaluation'! |
90 |
93 |
91 store:aValue |
94 store:aValue |
92 ^ self subclassResponsibility |
95 ^ self subclassResponsibility |
93 ! ! |
96 ! ! |
110 |
113 |
111 isArgument |
114 isArgument |
112 ^ false |
115 ^ false |
113 ! |
116 ! |
114 |
117 |
|
118 isBlockArg |
|
119 "return false here; to be redefined in subclass(es)" |
|
120 |
|
121 ^ false |
|
122 ! |
|
123 |
|
124 isBlockVariable |
|
125 "return false here; to be redefined in subclass(es)" |
|
126 |
|
127 ^ false |
|
128 ! |
|
129 |
115 isClassVariable |
130 isClassVariable |
116 ^ false |
131 ^ false |
117 ! |
132 ! |
118 |
133 |
119 isInstanceVariable |
134 isInstanceVariable |
126 |
141 |
127 isMethodArg |
142 isMethodArg |
128 ^ false |
143 ^ false |
129 ! |
144 ! |
130 |
145 |
|
146 isPoolVariable |
|
147 "return false here; to be redefined in subclass(es)" |
|
148 |
|
149 ^ false |
|
150 ! |
|
151 |
131 isPrimary |
152 isPrimary |
132 "return true, if this is a node for a primary (i.e. non-send)" |
153 "return true, if this is a node for a primary (i.e. non-send)" |
133 |
154 |
134 ^ true |
155 ^ true |
135 ! |
156 ! |
139 ! ! |
160 ! ! |
140 |
161 |
141 !PrimaryNode class methodsFor:'documentation'! |
162 !PrimaryNode class methodsFor:'documentation'! |
142 |
163 |
143 version_CVS |
164 version_CVS |
144 ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.31 2011-07-25 21:52:50 vrany Exp $' |
165 ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.32 2015-04-17 15:15:29 stefan Exp $' |
145 ! |
166 ! |
146 |
167 |
147 version_SVN |
168 version_SVN |
148 ^ '§ Id §' |
169 ^ '$ Id $' |
149 ! ! |
170 ! ! |
|
171 |