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

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

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 29 May 2018 22:27:59 +0100
branch	jv
changeset 4275	e06f4b087e47
parent 4259	c707f9aa7015
child 4315	734f7d2b6efe
child 4384	aee25576d864
permissions	-rw-r--r--