hg/stx-libcomp: PrimaryNode.st@30e69e21d1d1 (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
0 7ad01559b262 Initial revision claus parents: diff changeset	3	All Rights Reserved
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	"
7ad01559b262 Initial revision claus parents: diff changeset	12
7ad01559b262 Initial revision claus parents: diff changeset	13	ParseNode subclass:#PrimaryNode
13 30e69e21d1d1 * empty log message * claus parents: 7 diff changeset	14	instanceVariableNames:'value'
0 7ad01559b262 Initial revision claus parents: diff changeset	15	classVariableNames:''
7ad01559b262 Initial revision claus parents: diff changeset	16	poolDictionaries:''
7ad01559b262 Initial revision claus parents: diff changeset	17	category:'System-Compiler-Support'
7ad01559b262 Initial revision claus parents: diff changeset	18	!
7ad01559b262 Initial revision claus parents: diff changeset	19
7ad01559b262 Initial revision claus parents: diff changeset	20	PrimaryNode comment:'
7ad01559b262 Initial revision claus parents: diff changeset	21
4 f6fd83437415 * empty log message * claus parents: 3 diff changeset	22	COPYRIGHT (c) 1989 by Claus Gittinger
0 7ad01559b262 Initial revision claus parents: diff changeset	23	All Rights Reserved
7ad01559b262 Initial revision claus parents: diff changeset	24
13 30e69e21d1d1 * empty log message * claus parents: 7 diff changeset	25	$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.5 1994-01-16 03:51:42 claus Exp $
0 7ad01559b262 Initial revision claus parents: diff changeset	26	written 88 by claus
7ad01559b262 Initial revision claus parents: diff changeset	27	'!
7ad01559b262 Initial revision claus parents: diff changeset	28
7ad01559b262 Initial revision claus parents: diff changeset	29	!PrimaryNode methodsFor:'accessing'!
7ad01559b262 Initial revision claus parents: diff changeset	30
7ad01559b262 Initial revision claus parents: diff changeset	31	value
7ad01559b262 Initial revision claus parents: diff changeset	32	^ value
7ad01559b262 Initial revision claus parents: diff changeset	33	! !
7ad01559b262 Initial revision claus parents: diff changeset	34
7ad01559b262 Initial revision claus parents: diff changeset	35	!PrimaryNode methodsFor:'evaluating'!
7ad01559b262 Initial revision claus parents: diff changeset	36
7ad01559b262 Initial revision claus parents: diff changeset	37	evaluate
13 30e69e21d1d1 * empty log message * claus parents: 7 diff changeset	38	self subclassResponsibility
0 7ad01559b262 Initial revision claus parents: diff changeset	39	!
7ad01559b262 Initial revision claus parents: diff changeset	40
7ad01559b262 Initial revision claus parents: diff changeset	41	store:aValue
13 30e69e21d1d1 * empty log message * claus parents: 7 diff changeset	42	self subclassResponsibility
0 7ad01559b262 Initial revision claus parents: diff changeset	43	! !
7ad01559b262 Initial revision claus parents: diff changeset	44
7ad01559b262 Initial revision claus parents: diff changeset	45	!PrimaryNode methodsFor:'code generation'!
7ad01559b262 Initial revision claus parents: diff changeset	46
7ad01559b262 Initial revision claus parents: diff changeset	47	codeForSideEffectOn:aStream inBlock:b
7ad01559b262 Initial revision claus parents: diff changeset	48	"no code at all"
7ad01559b262 Initial revision claus parents: diff changeset	49	^ self
7ad01559b262 Initial revision claus parents: diff changeset	50	!
7ad01559b262 Initial revision claus parents: diff changeset	51
7ad01559b262 Initial revision claus parents: diff changeset	52	codeOn:aStream inBlock:codeBlock
13 30e69e21d1d1 * empty log message * claus parents: 7 diff changeset	53	self subclassResponsibility
0 7ad01559b262 Initial revision claus parents: diff changeset	54	!
7ad01559b262 Initial revision claus parents: diff changeset	55
7ad01559b262 Initial revision claus parents: diff changeset	56	codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded
13 30e69e21d1d1 * empty log message * claus parents: 7 diff changeset	57	self subclassResponsibility
0 7ad01559b262 Initial revision claus parents: diff changeset	58	! !
7ad01559b262 Initial revision claus parents: diff changeset	59
7ad01559b262 Initial revision claus parents: diff changeset	60	!PrimaryNode methodsFor:'printing'!
7ad01559b262 Initial revision claus parents: diff changeset	61
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	62	displayString
13 30e69e21d1d1 * empty log message * claus parents: 7 diff changeset	63	self subclassResponsibility
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	64	!
6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	65
0 7ad01559b262 Initial revision claus parents: diff changeset	66	printOn:aStream indent:i
13 30e69e21d1d1 * empty log message * claus parents: 7 diff changeset	67	self subclassResponsibility
0 7ad01559b262 Initial revision claus parents: diff changeset	68	! !

author	claus
	Sun, 16 Jan 1994 04:51:45 +0100
changeset 13	30e69e21d1d1
parent 7	6c2bc76f0b8f
child 19	84a1ddf215a5
permissions	-rw-r--r--