hg/stx-libcomp: ParseNode.st@14c0358f3c73 (annotated)

0 7ad01559b262 Initial revision claus parents: diff changeset	1	"
4 f6fd83437415 * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
53 c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	3	All Rights Reserved
0 7ad01559b262 Initial revision claus parents: diff changeset	4
7ad01559b262 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
7ad01559b262 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
7ad01559b262 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
7ad01559b262 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
7ad01559b262 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
7ad01559b262 Initial revision claus parents: diff changeset	10	hereby transferred.
7ad01559b262 Initial revision claus parents: diff changeset	11	"
1044 03b2cc4a5d5f migration support Claus Gittinger <cg@exept.de> parents: 914 diff changeset	12	"{ Package: 'stx:libcomp' }"
03b2cc4a5d5f migration support Claus Gittinger <cg@exept.de> parents: 914 diff changeset	13
0 7ad01559b262 Initial revision claus parents: diff changeset	14	Object subclass:#ParseNode
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	15	instanceVariableNames:'parent type comments parenthized startPosition endPosition
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	16	attributes'
1046 8e5818442eb9 newCode (for rel5) Claus Gittinger <cg@exept.de> parents: 1044 diff changeset	17	classVariableNames:''
244 2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	18	poolDictionaries:''
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	19	category:'System-Compiler-Support'
0 7ad01559b262 Initial revision claus parents: diff changeset	20	!
7ad01559b262 Initial revision claus parents: diff changeset	21
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	22	!ParseNode class methodsFor:'documentation'!
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	23
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	24	copyright
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	25	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	26	COPYRIGHT (c) 1989 by Claus Gittinger
53 c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	27	All Rights Reserved
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	28
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	29	This software is furnished under a license and may be used
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	30	only in accordance with the terms of that license and with the
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	31	inclusion of the above copyright notice. This software may not
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	32	be provided or otherwise made available to, or used by, any
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	33	other person. No title to or ownership of the software is
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	34	hereby transferred.
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	35	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	36	!
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	37
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	38	documentation
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	39	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	40	node for parse-trees; abstract class
261 0372e948ca2d commentary Claus Gittinger <cg@exept.de> parents: 244 diff changeset	41	This is a helper class for the compiler.
263 3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	42
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	43	[author:]
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	44	Claus Gittinger
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	45	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	46	! !
0 7ad01559b262 Initial revision claus parents: diff changeset	47
7ad01559b262 Initial revision claus parents: diff changeset	48	!ParseNode class methodsFor:'instance creation'!
7ad01559b262 Initial revision claus parents: diff changeset	49
7ad01559b262 Initial revision claus parents: diff changeset	50	type:t
7ad01559b262 Initial revision claus parents: diff changeset	51	^ (self basicNew) type:t
7ad01559b262 Initial revision claus parents: diff changeset	52	! !
7ad01559b262 Initial revision claus parents: diff changeset	53
2819 e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	54	!ParseNode methodsFor:'accessing'!
2694 254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	55
2819 e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	56	enclosingBlock
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	57	"Return closest enclosing block node or nil"
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	58
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	59	\| block \|
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	60	block := parent.
3485 594e31290d7b class: ParseNode Claus Gittinger <cg@exept.de> parents: 3483 diff changeset	61	[ block notNil and:[block realNode isBlockNode not] ] whileTrue:[
594e31290d7b class: ParseNode Claus Gittinger <cg@exept.de> parents: 3483 diff changeset	62	block := block realNode parent.
2819 e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	63	].
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	64	^block.
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	65
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	66	"Created: / 16-02-2012 / 22:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e23a27cdbbf2 added: #enclosingBlock Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2694 diff changeset	67	!
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	68
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	69	endPosition
3542 14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	70	"the node's last character position in the original source"
14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	71
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	72	^ endPosition
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	73	!
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	74
2265 b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	75	endPosition:aCharacterPosition
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	76
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	77	endPosition := aCharacterPosition
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	78
2618 256319b44ac8 More fixes for start/end position Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2564 diff changeset	79	"Modified: / 28-07-2011 / 10:03:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2265 b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	80	!
b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	81
2548 37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	82	line
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	83
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	84	"Compatibility"
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	85
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	86	^self lineNumber
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	87
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	88	"Created: / 09-07-2011 / 22:30:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	89	!
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	90
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	91	lineNumber
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	92
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	93	^nil
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	94
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	95	"Created: / 09-07-2011 / 22:30:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	96	!
37209a1def9a line & lineNumber Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2546 diff changeset	97
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	98	lineNumber:dummy
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	99	"set linenumber - ignored here"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	100
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	101	^ self
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	102	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	103
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	104	parent
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	105
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	106	^parent
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	107
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	108	"Created: / 11-07-2011 / 17:36:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	109	!
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	110
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	111	parent: aParseNode
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	112
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	113	parent := aParseNode
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	114
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	115	"Created: / 11-07-2011 / 17:36:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	116	!
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	117
1990 ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	118	parenthesized
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	119	^ parenthized ? false
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	120	!
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	121
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	122	parenthesized:aBoolean
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	123	parenthized := aBoolean
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	124	!
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	125
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	126	parenthized
1990 ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	127	"obsolete - typo in message name - use parenthesized"
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	128
1338 34bc621a29bc checkin from browser Claus Gittinger <cg@exept.de> parents: 1310 diff changeset	129	^ parenthized ? false
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	130	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	131
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	132	parenthized:aBoolean
1990 ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	133	"obsolete - typo in message name - use parenthesized:"
ede012b2bd5b oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1804 diff changeset	134
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	135	parenthized := aBoolean
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	136	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	137
3483 e86e885b0b6f class: ParseNode Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	138	realNode
e86e885b0b6f class: ParseNode Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	139	^ self
e86e885b0b6f class: ParseNode Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	140	!
e86e885b0b6f class: ParseNode Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	141
3300 72280566f178 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3296 diff changeset	142	selectorPartPositions:selectorPartPositions
72280566f178 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3296 diff changeset	143	"/ ignored here, but implemented because sent without checking
72280566f178 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3296 diff changeset	144	"/ when parsing keyword messages to an optimized messageNode
72280566f178 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3296 diff changeset	145	"/ (which become optimized to a constantNode by the folder)
72280566f178 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3296 diff changeset	146
72280566f178 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3296 diff changeset	147	"Created: / 28-08-2013 / 21:17:22 / cg"
72280566f178 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3296 diff changeset	148	!
72280566f178 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3296 diff changeset	149
598 f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	150	selectorPosition:aCharacterPosition
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	151	"ignored here"
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	152
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	153	"Created: 5.8.1997 / 16:32:17 / cg"
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	154	!
f3e50cf083a0 checkin from browser Claus Gittinger <cg@exept.de> parents: 395 diff changeset	155
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	156	startPosition
3542 14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	157	"the node's character position in the original source"
14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	158
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	159	^ startPosition
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	160	!
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	161
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	162	startPosition:start
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	163
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	164	startPosition := start
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	165
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	166	"Modified: / 08-04-2011 / 22:03:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2265 b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	167	!
b9d82cb3ecce added: Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	168
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	169	startPosition:start endPosition: end
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	170
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	171	startPosition := start.
2564 43f35a40884d - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2550 diff changeset	172	endPosition := end.
43f35a40884d - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2550 diff changeset	173	^self
2550 6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	174
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	175	"Created: / 11-07-2011 / 17:44:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	176	!
6413571dd955 Added parent instvar Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2548 diff changeset	177
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	178	type
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	179	"return the nodes type"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	180
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	181	^ type
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	182	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	183
3542 14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	184
2546 5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	185	!ParseNode methodsFor:'attributes access'!
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	186
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	187	objectAttributes
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	188
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	189	^attributes
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	190
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	191	"Created: / 09-07-2011 / 12:17:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	192	!
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	193
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	194	objectAttributes: anObject
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	195
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	196	attributes := anObject
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	197
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	198	"Created: / 09-07-2011 / 12:18:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	199	! !
5ae96e911e36 ParseNode: added attributes instvar for other tools to store Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2533 diff changeset	200
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	201	!ParseNode methodsFor:'checks'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	202
2095 3f04249873f7 alreadyWarned selectors Claus Gittinger <cg@exept.de> parents: 2089 diff changeset	203	plausibilityCheckIn:aParser
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	204	^ nil
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	205	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	206
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	207	!ParseNode methodsFor:'code generation'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	208
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	209	codeForSideEffectOn:aStream inBlock:b for:aCompiler
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	210	"generate code for this statement - value not needed"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	211
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	212	self codeOn:aStream inBlock:b for:aCompiler.
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	213	aStream nextPut:#drop
373 b7c6cf510024 added #codeLinrNr. Claus Gittinger <cg@exept.de> parents: 263 diff changeset	214	!
b7c6cf510024 added #codeLinrNr. Claus Gittinger <cg@exept.de> parents: 263 diff changeset	215
843 522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	216	codeForSimpleReturnOn:aStream inBlock:b lineNumber:lineNrOrNil for:aCompiler
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	217	"generate code to return myself as a simple method return"
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	218
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	219	self codeOn:aStream inBlock:b for:aCompiler.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	220	lineNrOrNil notNil ifTrue:[
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	221	self codeLineNumber:lineNrOrNil on:aStream for:aCompiler
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	222	].
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	223	aStream nextPut:#retTop.
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	224
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	225
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	226	!
522c116f86d9 boolean-return expression rewrite Claus Gittinger <cg@exept.de> parents: 816 diff changeset	227
1056 b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	228	codeInlineOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	229	"generate code for this statement - value is needed"
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	230
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	231	self codeOn:aStream inBlock:b for:aCompiler.
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	232	!
b1a8d2b2a0ab * empty log message * Claus Gittinger <cg@exept.de> parents: 1046 diff changeset	233
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	234	codeLineNumber:nr on:codeStream for:aCompiler
373 b7c6cf510024 added #codeLinrNr. Claus Gittinger <cg@exept.de> parents: 263 diff changeset	235	"generate lineNumber information"
b7c6cf510024 added #codeLinrNr. Claus Gittinger <cg@exept.de> parents: 263 diff changeset	236
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	237	aCompiler codeLineNumber:nr on:codeStream
2029 ce692c34a270 Move method to superclass Stefan Vogel <sv@exept.de> parents: 2000 diff changeset	238	!
ce692c34a270 Move method to superclass Stefan Vogel <sv@exept.de> parents: 2000 diff changeset	239
ce692c34a270 Move method to superclass Stefan Vogel <sv@exept.de> parents: 2000 diff changeset	240	codeOn:aStream inBlock:codeBlock for:aCompiler
ce692c34a270 Move method to superclass Stefan Vogel <sv@exept.de> parents: 2000 diff changeset	241	^ self subclassResponsibility
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	242	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	243
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	244	!ParseNode methodsFor:'code generation helpers'!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	245
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	246	emitPushGlobalWithLiteralIndex:litIndex on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	247	litIndex <= 255 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	248	aTokenCodeStream nextPut:#pushGlobalS; nextPut:litIndex
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	249	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	250	litIndex <= 16rFFFF ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	251	aTokenCodeStream nextPut:#pushGlobalL; nextPut:litIndex; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	252	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	253	aTokenCodeStream nextPut:#pushGlobalVL; nextPut:0; nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	254	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	255	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	256	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	257
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	258	emitPushLiteral:value on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	259	\|index\|
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	260
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	261	index := aCompiler addLiteral:value.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	262	self emitPushLiteralIndex:index on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	263	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	264
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	265	emitPushLiteralIndex:index on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	266	index <= 8 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	267	aTokenCodeStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	268	nextPut:(#(pushLit1 pushLit2 pushLit3 pushLit4
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	269	pushLit5 pushLit6 pushLit7 pushLit8) at:index).
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	270	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	271	index <= 255 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	272	aTokenCodeStream nextPut:#pushLitS; nextPut:index
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	273	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	274	index <= 16rFFFF ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	275	aTokenCodeStream nextPut:#pushLitL; nextPut:index; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	276	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	277	aTokenCodeStream nextPut:#pushLitVL; nextPut:0; nextPut:index; nextPut:0; nextPut:0; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	278	]
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	279	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	280	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	281	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	282
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	283	emitSendLiteralIndex:litIndex numArgs:nargs line:lineNr on:aStream for:aCompiler
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	284	lineNr >= 255 ifTrue:[
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	285	self codeLineNumber: lineNr on: aStream for:aCompiler.
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	286	].
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	287	(litIndex <= 255) ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	288	nargs <= 3 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	289	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	290	nextPut:(#(send0 send1 send2 send3) at:(nargs+1)); nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	291	nextPut:litIndex.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	292	^ self.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	293	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	294	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	295	nextPut:#send; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	296	nextPut:litIndex;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	297	nextPut:nargs.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	298	^ self.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	299	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	300
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	301	(litIndex <= 16rFFFF) ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	302	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	303	nextPut:#sendL; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	304	nextPut:litIndex; nextPut:0;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	305	nextPut:nargs.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	306	^ self.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	307	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	308
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	309	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	310	nextPut:#sendVL; nextPut:0; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	311	nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	312	nextPut:nargs.
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	313
f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	314	"Modified: / 13-04-2013 / 11:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	315	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	316
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	317	emitStoreGlobalWithLiteralIndex:litIndex on:aTokenCodeStream for:aCompiler
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	318	litIndex <= 255 ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	319	aTokenCodeStream nextPut:#storeGlobalS; nextPut:litIndex
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	320	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	321	litIndex <= 16rFFFF ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	322	aTokenCodeStream nextPut:#storeGlobalL; nextPut:litIndex; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	323	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	324	aTokenCodeStream nextPut:#storeGlobalVL; nextPut:0; nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0; nextPut:0
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	325	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	326	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	327	!
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	328
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	329	emitSuperSendLiteralIndex:litIndex classLiteralIndex:clsLitIndex numArgs:nargs line:lineNr on:aStream for:aCompiler
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	330	lineNr >= 255 ifTrue:[
3165 7894a735faac Emit #lineno16 byte codes only, if line number really changes Stefan Vogel <sv@exept.de> parents: 3110 diff changeset	331	self codeLineNumber: lineNr on: aStream for:aCompiler.
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	332	].
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	333	(litIndex <= 255 and:[clsLitIndex <= 255]) ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	334	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	335	nextPut:#superSend; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	336	nextPut:litIndex;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	337	nextPut:nargs;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	338	nextPut:clsLitIndex.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	339	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	340	(litIndex <= 16rFFFF and:[clsLitIndex <= 16rFFFF]) ifTrue:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	341	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	342	nextPut:#superSendL; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	343	nextPut:litIndex; nextPut:0;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	344	nextPut:nargs;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	345	nextPut:clsLitIndex; nextPut:0.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	346	] ifFalse:[
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	347	aStream
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	348	nextPut:#superSendVL; nextPut:0; nextPut:lineNr;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	349	nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	350	nextPut:nargs;
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	351	nextPut:clsLitIndex; nextPut:0; nextPut:0; nextPut:0.
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	352	].
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	353	].
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	354
f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	355	"Modified: / 13-04-2013 / 11:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1804 7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	356	! !
7c22dbaa8d10 some code savers for common code-emit Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	357
1503 5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	358	!ParseNode methodsFor:'enumeration'!
5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	359
3337 e3c5a9b64a98 class: ParseNode Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	360	allNodesDo:aBlock
e3c5a9b64a98 class: ParseNode Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	361	"evaluate aBlock for each variable-node here and in subnodes"
e3c5a9b64a98 class: ParseNode Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	362
e3c5a9b64a98 class: ParseNode Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	363	aBlock value:self
e3c5a9b64a98 class: ParseNode Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	364	!
e3c5a9b64a98 class: ParseNode Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	365
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	366	messageNodesDo:aBlock
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	367	"evaluate aBlock for each message-node here and in subnodes"
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	368
3315 b4e70ea35630 enumerators Claus Gittinger <cg@exept.de> parents: 3300 diff changeset	369	self messagesDo:aBlock
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	370	!
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	371
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	372	messageSelectors
3337 e3c5a9b64a98 class: ParseNode Stefan Vogel <sv@exept.de> parents: 3315 diff changeset	373	"return a collection of message selectors"
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	374
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	375	\|setOfSymbols\|
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	376
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	377	setOfSymbols := Set new.
3279 2dae90cce9e5 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	378	self messageSelectorsDo:[:each \| setOfSymbols add:each ].
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	379	^ setOfSymbols
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	380	!
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	381
3279 2dae90cce9e5 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	382	messageSelectorsDo:aBlock
2dae90cce9e5 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	383	"evaluate aBlock for each message-selector here and in subnodes"
2dae90cce9e5 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	384
2dae90cce9e5 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	385	^ self
2dae90cce9e5 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	386	!
2dae90cce9e5 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	387
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	388	messages
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	389	"return a collection of messageNodes"
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	390
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	391	\|setOfMessages\|
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	392
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	393	setOfMessages := Set new.
3279 2dae90cce9e5 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	394	self messagesDo:[:each \| setOfMessages add:each ].
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	395	^ setOfMessages
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	396	!
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	397
1503 5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	398	messagesDo:aBlock
3275 921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	399	"evaluate aBlock for each message-node here and in subnodes"
921a8afad859 renamed messagesDo: to messageNodes: do Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	400
1503 5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	401	^ self
3315 b4e70ea35630 enumerators Claus Gittinger <cg@exept.de> parents: 3300 diff changeset	402	!
b4e70ea35630 enumerators Claus Gittinger <cg@exept.de> parents: 3300 diff changeset	403
b4e70ea35630 enumerators Claus Gittinger <cg@exept.de> parents: 3300 diff changeset	404	variableNodesDo:aBlock
b4e70ea35630 enumerators Claus Gittinger <cg@exept.de> parents: 3300 diff changeset	405	"evaluate aBlock for each variable-node here and in subnodes"
b4e70ea35630 enumerators Claus Gittinger <cg@exept.de> parents: 3300 diff changeset	406
b4e70ea35630 enumerators Claus Gittinger <cg@exept.de> parents: 3300 diff changeset	407	^ self
1503 5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	408	! !
5feba91aa28a +messagesDo: enumerator Claus Gittinger <cg@exept.de> parents: 1383 diff changeset	409
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	410	!ParseNode methodsFor:'evaluation'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	411
1383 3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	412	evaluate
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	413	^ self evaluateIn:nil
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	414	!
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	415
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	416	evaluateForCascade
1383 3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	417	^ self evaluateForCascadeIn:nil
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	418	!
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	419
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	420	evaluateForCascadeIn:anEnvironment
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	421	^ self evaluateIn:anEnvironment
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	422	!
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	423
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	424	evaluateIn:anEnvironment
3d485eefbb36 evaluate -> evaluateIn: Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	425	self subclassResponsibility
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	426	!
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	427
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	428	isStatement
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	429	^false.
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	430
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	431	"Created: / 22-02-2011 / 16:29:50 / Jakub <zelenja7@fel.cvut.cz>"
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	432	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	433
3542 14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	434
14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	435
1080 bd3f19f6009a category change Claus Gittinger <cg@exept.de> parents: 1056 diff changeset	436	!ParseNode methodsFor:'printing & storing'!
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	437
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	438	printOn:aStream
914 e67e983a8897 comment Claus Gittinger <cg@exept.de> parents: 862 diff changeset	439	"append a user printed representation of the receiver to aStream.
e67e983a8897 comment Claus Gittinger <cg@exept.de> parents: 862 diff changeset	440	The format is suitable for a human - not meant to be read back."
e67e983a8897 comment Claus Gittinger <cg@exept.de> parents: 862 diff changeset	441
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	442	self printOn:aStream indent:0
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	443	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	444
1588 4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	445	printOn:aStream indent:indent
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	446	"append a user printed representation of the receiver to aStream.
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	447	The format is suitable for a human - not meant to be read back."
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	448
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	449	self subclassResponsibility
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	450
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	451	"Created: / 20-04-2005 / 14:21:46 / cg"
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	452	!
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	453
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	454	printOn:aStream indent:indent parenthized:parenthized
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	455	parenthized ifTrue:[
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	456	aStream nextPutAll:'('
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	457	].
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	458	self printOn:aStream indent:indent.
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	459	parenthized ifTrue:[
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	460	aStream nextPutAll:')'
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	461	].
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	462
4c3183dfaa5f printing Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	463	"Created: / 20-04-2005 / 14:21:28 / cg"
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	464	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	465
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	466	!ParseNode methodsFor:'private'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	467
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	468	type:t
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	469	"set the nodes type"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	470
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	471	type := t
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	472	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	473
0 7ad01559b262 Initial revision claus parents: diff changeset	474	!ParseNode methodsFor:'queries'!
7ad01559b262 Initial revision claus parents: diff changeset	475
244 2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	476	canReuseAsArg:anotherNode
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	477	^ false
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	478
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	479	"Created: 14.4.1996 / 00:43:08 / cg"
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	480	!
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	481
395 16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	482	collectBlocksInto:aCollection
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	483	^ self
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	484
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	485	"Created: 23.10.1996 / 15:45:00 / cg"
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	486	!
16156d8711c2 added block collector Claus Gittinger <cg@exept.de> parents: 383 diff changeset	487
2382 5f84c8b618d0 added: #containsReturn Claus Gittinger <cg@exept.de> parents: 2327 diff changeset	488	containsReturn
5f84c8b618d0 added: #containsReturn Claus Gittinger <cg@exept.de> parents: 2327 diff changeset	489	^ false
5f84c8b618d0 added: #containsReturn Claus Gittinger <cg@exept.de> parents: 2327 diff changeset	490	!
5f84c8b618d0 added: #containsReturn Claus Gittinger <cg@exept.de> parents: 2327 diff changeset	491
3296 36bcb09481fc class: ParseNode Claus Gittinger <cg@exept.de> parents: 3279 diff changeset	492	positionToInsertPeriodForStatementSeparation
36bcb09481fc class: ParseNode Claus Gittinger <cg@exept.de> parents: 3279 diff changeset	493	^ self endPosition + (parenthized == true ifTrue:1 ifFalse:0)
36bcb09481fc class: ParseNode Claus Gittinger <cg@exept.de> parents: 3279 diff changeset	494
36bcb09481fc class: ParseNode Claus Gittinger <cg@exept.de> parents: 3279 diff changeset	495	"Created: 14.4.1996 / 00:43:08 / cg"
36bcb09481fc class: ParseNode Claus Gittinger <cg@exept.de> parents: 3279 diff changeset	496	!
36bcb09481fc class: ParseNode Claus Gittinger <cg@exept.de> parents: 3279 diff changeset	497
2327 88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	498	precedence
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	499	^ 9999
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	500	!
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	501
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	502	withConstantValueDo:aBlock
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	503	"return true, if this evaluates to a constant value
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	504	and evaluate aBlock with it"
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	505
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	506	^ false
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	507	! !
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	508
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	509	!ParseNode methodsFor:'testing'!
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	510
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	511	isAssignment
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	512	"return true, if this is a node for an assignment"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	513
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	514	^ false
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	515	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	516
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	517	isBinaryMessage
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	518	"return true, if this is a node for a binary send"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	519
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	520	^ false
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	521	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	522
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	523	isBlockNode
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	524	"return true, if this is a node for a block"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	525
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	526	^ false
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	527	!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	528
2533 6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	529	isBreakPointNode
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	530	^ false
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	531
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	532	"Created: / 05-07-2011 / 21:14:01 / cg"
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	533	!
6bceeea254c6 added: #isBreakPointNode Claus Gittinger <cg@exept.de> parents: 2505 diff changeset	534
744 e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	535	isCascade
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	536	^ false
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	537
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	538	"Created: / 16.7.1998 / 20:11:33 / cg"
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	539	!
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	540
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	541	isCascadeToSuper
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	542	^ false
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	543
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	544	"Created: / 16.7.1998 / 19:51:07 / cg"
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	545	!
e871f9f072f8 changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 598 diff changeset	546
0 7ad01559b262 Initial revision claus parents: diff changeset	547	isConstant
13 30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	548	"return true, if this is a node for a constant"
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	549
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	550	^ false
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	551	!
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	552
1533 bff4a03d6d48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	553	isErrorNode
bff4a03d6d48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	554	^ false
bff4a03d6d48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	555	!
bff4a03d6d48 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	556
53 c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	557	isGlobal
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	558	"return true, if this is a node for a global variable"
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	559
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	560	^ false
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	561	!
c5dd7abf8431 * empty log message * claus parents: 33 diff changeset	562
2000 5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	563	isGlobalNamed:globalName
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	564	"return true, if this is a node for a particular global variable"
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	565
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	566	^ false
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	567
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	568	"Created: / 05-03-2007 / 15:13:23 / cg"
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	569	!
5439196a4bb4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1990 diff changeset	570
1310 feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	571	isGlobalVariable
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	572	^ false
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	573	!
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	574
1528 855c084e2f67 * empty log message * ca parents: 1503 diff changeset	575	isImmutable
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	576	"not used with ST/X -
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	577	for JavaScript nodes return true here."
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	578
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	579	^ true
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	580	!
855c084e2f67 * empty log message * ca parents: 1503 diff changeset	581
2403 79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	582	isImplicitJavaScriptMessage
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	583	"return true, if this is a node for an implicit getter/setter send"
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	584
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	585	^ false
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	586
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	587	"Created: / 05-07-2010 / 14:11:41 / cg"
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	588	!
79c95fae81e8 added: #isImplicitJavaScriptMessage Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	589
1725 728ba29d1872 JavaScript support Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	590	isInnerJavaScriptBlock
728ba29d1872 JavaScript support Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	591	^ false
728ba29d1872 JavaScript support Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	592	!
728ba29d1872 JavaScript support Claus Gittinger <cg@exept.de> parents: 1720 diff changeset	593
2862 fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	594	isJAVA
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	595	"Return true, if receiver is global variable node JAVA.
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	596	Used to highlight Java class references."
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	597
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	598	^false
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	599
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	600	"Created: / 19-04-2012 / 09:36:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	601	!
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	602
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	603	isJavaPackageReference
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	604	"Return true, given node is JAVA package reference in form:
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	605	JAVA package1 package2
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	606	"
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	607
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	608	^false
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	609
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	610	"Created: / 19-04-2012 / 09:53:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	611	!
fbb540cd74bd added: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2819 diff changeset	612
3184 ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	613	isJavaScriptAndExpression
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	614	^ false
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	615	!
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	616
2402 da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	617	isJavaScriptArrayAccess
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	618	"return true, if this is a node for a javascript array reference i.e. expr[]"
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	619
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	620	^ false
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	621
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	622	"Created: / 05-07-2010 / 14:04:27 / cg"
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	623	!
da3d16a4193d changed: #testplanItem:groupPattern:executor:testPlanExecutor: Claus Gittinger <cg@exept.de> parents: 2401 diff changeset	624
2400 c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	625	isJavaScriptBlock
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	626	"return true, if this is a node for a javascript block"
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	627
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	628	^ false
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	629
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	630	"Created: / 09-06-2010 / 01:53:19 / cg"
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	631	!
c7e4a0c68ec1 added: #isJavaScriptBlock Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	632
3438 17a3729be92b class: ParseNode Claus Gittinger <cg@exept.de> parents: 3414 diff changeset	633	isJavaScriptClassNode
17a3729be92b class: ParseNode Claus Gittinger <cg@exept.de> parents: 3414 diff changeset	634	^ false
17a3729be92b class: ParseNode Claus Gittinger <cg@exept.de> parents: 3414 diff changeset	635	!
17a3729be92b class: ParseNode Claus Gittinger <cg@exept.de> parents: 3414 diff changeset	636
2401 3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	637	isJavaScriptConditionalExpression
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	638	"return true, if this is a node for a ?: expression"
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	639
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	640	^ false
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	641
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	642	"Created: / 09-06-2010 / 01:55:15 / cg"
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	643	!
3bfe65bdcc64 added: #isJavaScriptConditionalExpression Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	644
3184 ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	645	isJavaScriptOrExpression
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	646	^ false
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	647	!
ce57fb8b3acb class: ParseNode Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	648
3474 3098a958431d class: ParseNode Claus Gittinger <cg@exept.de> parents: 3438 diff changeset	649	isLocalVariable
3098a958431d class: ParseNode Claus Gittinger <cg@exept.de> parents: 3438 diff changeset	650	^ false
3098a958431d class: ParseNode Claus Gittinger <cg@exept.de> parents: 3438 diff changeset	651	!
3098a958431d class: ParseNode Claus Gittinger <cg@exept.de> parents: 3438 diff changeset	652
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	653	isMessage
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	654	"return true, if this is a node for a message expression"
19 84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	655
84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	656	^ false
84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	657	!
84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	658
3414 8a5275cba38b class: ParseNode Stefan Vogel <sv@exept.de> parents: 3406 diff changeset	659	isMethodNode
8a5275cba38b class: ParseNode Stefan Vogel <sv@exept.de> parents: 3406 diff changeset	660	^ false
8a5275cba38b class: ParseNode Stefan Vogel <sv@exept.de> parents: 3406 diff changeset	661	!
8a5275cba38b class: ParseNode Stefan Vogel <sv@exept.de> parents: 3406 diff changeset	662
1310 feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	663	isMethodVariable
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	664	^ false
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	665	!
feb30ab0c221 better variabletype queries. Claus Gittinger <cg@exept.de> parents: 1114 diff changeset	666
2327 88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	667	isNew
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	668	"return true, if this is a new XXXX node"
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	669
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	670	^ false
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	671	!
88c2ba0ae517 category change Claus Gittinger <cg@exept.de> parents: 2265 diff changeset	672
2088 b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	673	isPostIncDec
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	674	"for JavaScript"
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	675
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	676	^ false
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	677	!
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	678
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	679	isPreIncDec
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	680	"for JavaScript"
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	681
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	682	^ false
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	683	!
b06c5a88c2e1 testing for javascript Claus Gittinger <cg@exept.de> parents: 2078 diff changeset	684
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	685	isPrimary
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	686	"return true, if this is a node for a primary (i.e. non-send)"
13 30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	687
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	688	^ false
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	689	!
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	690
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	691	isReturnNode
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	692	"return true, if this is a node for a return expression"
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	693
0 7ad01559b262 Initial revision claus parents: diff changeset	694	^ false
7ad01559b262 Initial revision claus parents: diff changeset	695	!
7ad01559b262 Initial revision claus parents: diff changeset	696
862 2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	697	isSelf
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	698	"return true, if this is a self-node"
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	699
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	700	^ false
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	701	!
2e3aefb24308 added #isSelf Claus Gittinger <cg@exept.de> parents: 843 diff changeset	702
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	703	isStatementNode
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	704	"return true, if this is a statement node"
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	705
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	706	^ false
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	707
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	708	"Created: / 13-06-2011 / 11:26:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	709	!
d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	710
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	711	isSuper
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	712	"return true, if this is a super-node"
13 30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	713
0 7ad01559b262 Initial revision claus parents: diff changeset	714	^ false
7ad01559b262 Initial revision claus parents: diff changeset	715	!
7ad01559b262 Initial revision claus parents: diff changeset	716
2089 7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	717	isThis
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	718	"for JavaScript"
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	719
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	720	^ false
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	721	!
7bce7ca994bb javaScript support Claus Gittinger <cg@exept.de> parents: 2088 diff changeset	722
0 7ad01559b262 Initial revision claus parents: diff changeset	723	isUnaryMessage
13 30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	724	"return true, if this is a node for a unary send"
30e69e21d1d1 * empty log message * claus parents: 4 diff changeset	725
0 7ad01559b262 Initial revision claus parents: diff changeset	726	^ false
244 2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	727	!
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	728
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	729	isVariable
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	730	"return true, if this is a node for a variable"
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	731
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	732	^ false
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	733
2ce60e837d52 use dup if possible when pushing args Claus Gittinger <cg@exept.de> parents: 148 diff changeset	734	"Created: 14.4.1996 / 00:46:44 / cg"
2694 254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	735	!
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	736
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	737	isVariableNode
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	738	"return true, if this is a node for a variable"
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	739
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	740	^ self isVariable
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	741
254e7adda5ca added: #isVariableNode Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	742	"Created: / 12-09-2011 / 09:32:17 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	743	! !
7ad01559b262 Initial revision claus parents: diff changeset	744
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	745	!ParseNode class methodsFor:'documentation'!
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	746
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	747	version
3542 14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	748	^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.83 2014-12-05 16:40:58 cg Exp $'
3276 a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	749	!
a97fbe62a73c class: ParseNode Claus Gittinger <cg@exept.de> parents: 3275 diff changeset	750
2505 d3ac50ae2d1f Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2403 diff changeset	751	version_CVS
3542 14c0358f3c73 class: ParseNode Claus Gittinger <cg@exept.de> parents: 3485 diff changeset	752	^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.83 2014-12-05 16:40:58 cg Exp $'
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	753	! !
3110 f517641d3673 Emit LINE16 bytecode insn just before a SEND bytecode is emmited when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2862 diff changeset	754

author	Claus Gittinger <cg@exept.de>
	Fri, 05 Dec 2014 17:40:58 +0100
changeset 3542	14c0358f3c73
parent 3485	594e31290d7b
child 3553	8f7a25d595bc
permissions	-rw-r--r--