hg/stx-libcomp: PrimaryNode.st@3b11fb3ede98 (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
4730 2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	3	COPYRIGHT (c) 2021 Patrik Svestka
104 2016bfa4cd45 . claus parents: 103 diff changeset	4	All Rights Reserved
0 7ad01559b262 Initial revision claus parents: diff changeset	5
7ad01559b262 Initial revision claus parents: diff changeset	6	This software is furnished under a license and may be used
7ad01559b262 Initial revision claus parents: diff changeset	7	only in accordance with the terms of that license and with the
7ad01559b262 Initial revision claus parents: diff changeset	8	inclusion of the above copyright notice. This software may not
7ad01559b262 Initial revision claus parents: diff changeset	9	be provided or otherwise made available to, or used by, any
7ad01559b262 Initial revision claus parents: diff changeset	10	other person. No title to or ownership of the software is
7ad01559b262 Initial revision claus parents: diff changeset	11	hereby transferred.
7ad01559b262 Initial revision claus parents: diff changeset	12	"
1080 bd3f19f6009a category change Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	13	"{ Package: 'stx:libcomp' }"
bd3f19f6009a category change Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	14
3623 55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	15	"{ NameSpace: Smalltalk }"
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	16
0 7ad01559b262 Initial revision claus parents: diff changeset	17	ParseNode subclass:#PrimaryNode
2504 5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	18	instanceVariableNames:'value line charIndex'
261 0372e948ca2d commentary Claus Gittinger <cg@exept.de> parents: 148 diff changeset	19	classVariableNames:''
0372e948ca2d commentary Claus Gittinger <cg@exept.de> parents: 148 diff changeset	20	poolDictionaries:''
0372e948ca2d commentary 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	!PrimaryNode 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
4730 2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	29	COPYRIGHT (c) 2021 Patrik Svestka
104 2016bfa4cd45 . claus parents: 103 diff changeset	30	All Rights Reserved
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	31
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	32	This software is furnished under a license and may be used
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	33	only in accordance with the terms of that license and with the
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	34	inclusion of the above copyright notice. This software may not
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	35	be provided or otherwise made available to, or used by, any
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	36	other person. No title to or ownership of the software is
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	37	hereby transferred.
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
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	41	documentation
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	42	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	43	node for parse-trees, representing primaries (variables & literals)
261 0372e948ca2d commentary Claus Gittinger <cg@exept.de> parents: 148 diff changeset	44	This is a helper class for the compiler.
263 3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	45
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	46	[author:]
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	47	Claus Gittinger
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	48	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	49	! !
0 7ad01559b262 Initial revision claus parents: diff changeset	50
7ad01559b262 Initial revision claus parents: diff changeset	51	!PrimaryNode methodsFor:'accessing'!
7ad01559b262 Initial revision claus parents: diff changeset	52
2504 5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	53	charIndex
4474 bbe2b03fe57a #DOCUMENTATION by exept Claus Gittinger <cg@exept.de> parents: 4236 diff changeset	54	<resource: #obsolete>
2504 5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	55	^ charIndex
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	56	!
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	57
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	58	charIndex:something
4474 bbe2b03fe57a #DOCUMENTATION by exept Claus Gittinger <cg@exept.de> parents: 4236 diff changeset	59	<resource: #obsolete>
2504 5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	60	charIndex := something.
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	61	!
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	62
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	63	line
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	64	^ line
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	65	!
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	66
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	67	line:something
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	68	line := something.
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	69	!
5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	70
4730 2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	71	lineNumber
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	72
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	73	"Compatibility"
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	74
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	75	^ self line
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	76
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	77	"Created: / 24-11-2021 / 10:02:30 / Patrik Svestka <patrik.svestka@gmail.com>"
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	78	!
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	79
1786 59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	80	type:t value:val
59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	81	type := t.
59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	82	value := val
59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	83	!
59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	84
0 7ad01559b262 Initial revision claus parents: diff changeset	85	value
7ad01559b262 Initial revision claus parents: diff changeset	86	^ value
1786 59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	87	!
59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	88
59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	89	value:val
59c642a17b3d methods moved up Claus Gittinger <cg@exept.de> parents: 1590 diff changeset	90	value := val
0 7ad01559b262 Initial revision claus parents: diff changeset	91	! !
7ad01559b262 Initial revision claus parents: diff changeset	92
7ad01559b262 Initial revision claus parents: diff changeset	93	!PrimaryNode methodsFor:'code generation'!
7ad01559b262 Initial revision claus parents: diff changeset	94
104 2016bfa4cd45 . claus parents: 103 diff changeset	95	codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler
19 84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	96	^ self subclassResponsibility
0 7ad01559b262 Initial revision claus parents: diff changeset	97	! !
7ad01559b262 Initial revision claus parents: diff changeset	98
4236 89aa6c00833a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3852 diff changeset	99	!PrimaryNode methodsFor:'enumeration'!
89aa6c00833a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3852 diff changeset	100
89aa6c00833a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3852 diff changeset	101	allSubNodesDo:aBlock
89aa6c00833a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3852 diff changeset	102	"no subnodes"
89aa6c00833a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3852 diff changeset	103
89aa6c00833a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3852 diff changeset	104	^ self
89aa6c00833a #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3852 diff changeset	105	! !
3623 55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	106
1035 8848672cb893 category rename Claus Gittinger <cg@exept.de> parents: 711 diff changeset	107	!PrimaryNode methodsFor:'evaluation'!
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	108
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	109	store:aValue
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	110	^ self subclassResponsibility
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	111	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	112
1080 bd3f19f6009a category change Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	113	!PrimaryNode methodsFor:'printing & storing'!
0 7ad01559b262 Initial revision claus parents: diff changeset	114
7ad01559b262 Initial revision claus parents: diff changeset	115	printOn:aStream indent:i
19 84a1ddf215a5 * empty log message * claus parents: 13 diff changeset	116	^ self subclassResponsibility
0 7ad01559b262 Initial revision claus parents: diff changeset	117	! !
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	118
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	119	!PrimaryNode methodsFor:'queries'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	120
2317 76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	121	precedence
76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	122	^ 200
76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	123
76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	124	"Created: / 20-04-2005 / 14:12:04 / cg"
76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	125	! !
76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	126
76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	127	!PrimaryNode methodsFor:'testing'!
76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	128
1586 8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	129	isArgument
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	130	^ false
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	131	!
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	132
3623 55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	133	isBlockArg
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	134	"return false here; to be redefined in subclass(es)"
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	135
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	136	^ false
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	137	!
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	138
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	139	isBlockVariable
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	140	"return false here; to be redefined in subclass(es)"
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	141
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	142	^ false
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	143	!
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	144
1586 8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	145	isClassVariable
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	146	^ false
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	147	!
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	148
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	149	isInstanceVariable
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	150	^ false
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	151	!
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	152
3852 7a27f5382e9d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3623 diff changeset	153	isInstanceVariableNamed:name
7a27f5382e9d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3623 diff changeset	154	^ false
7a27f5382e9d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3623 diff changeset	155	!
7a27f5382e9d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3623 diff changeset	156
1586 8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	157	isLocal
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	158	^ false
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	159	!
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	160
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	161	isMethodArg
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	162	^ false
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	163	!
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	164
3623 55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	165	isPoolVariable
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	166	"return false here; to be redefined in subclass(es)"
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	167
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	168	^ false
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	169	!
55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	170
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	171	isPrimary
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	172	"return true, if this is a node for a primary (i.e. non-send)"
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	173
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	174	^ true
1586 8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	175	!
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	176
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	177	isUndeclared
8ac383cb3c12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1528 diff changeset	178	^ false
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	179	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	180
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	181	!PrimaryNode class methodsFor:'documentation'!
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	182
2504 5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	183	version_CVS
3852 7a27f5382e9d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3623 diff changeset	184	^ '$Header$'
2317 76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	185	!
76f93ff5ecfd category change Claus Gittinger <cg@exept.de> parents: 2135 diff changeset	186
4730 2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	187	version_HG
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	188
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	189	^ '$Changeset: <not expanded> $'
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	190	!
2e7755434a0f Adding #lineNumber accessor for compatibility reasons. Patrik Svestka <patrik.svestka@gmail.com> parents: 4723 diff changeset	191
2504 5e3f0550143a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2317 diff changeset	192	version_SVN
3623 55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	193	^ '$ Id $'
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	194	! !
3623 55908c119f44 class: PrimaryNode Stefan Vogel <sv@exept.de> parents: 2586 diff changeset	195

author	Jan Vrany <jan.vrany@labware.com>
	Thu, 27 Oct 2022 14:53:59 +0100
branch	jv
changeset 4735	3b11fb3ede98
parent 4730	2e7755434a0f
permissions	-rw-r--r--