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

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

author	Claus Gittinger <cg@exept.de>
	Wed, 21 Aug 2019 19:37:00 +0200
changeset 4501	d8b0a5d31348
parent 4471	970c73f20faf
child 4506	c5b6671d3761
permissions	-rw-r--r--