hg/stx-libcomp: BinaryNode.st@fa5637faa969 (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
52 d80ec10c3321 * empty log message * claus parents: 49 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	"
7ad01559b262 Initial revision claus parents: diff changeset	12
7ad01559b262 Initial revision claus parents: diff changeset	13	MessageNode subclass:#BinaryNode
253 759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	14	instanceVariableNames:''
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	15	classVariableNames:''
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	16	poolDictionaries:''
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	17	category:'System-Compiler-Support'
0 7ad01559b262 Initial revision claus parents: diff changeset	18	!
7ad01559b262 Initial revision claus parents: diff changeset	19
20 f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	20	!BinaryNode class methodsFor:'documentation'!
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	21
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	22	copyright
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	23	"
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	24	COPYRIGHT (c) 1989 by Claus Gittinger
52 d80ec10c3321 * empty log message * claus parents: 49 diff changeset	25	All Rights Reserved
20 f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	26
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	27	This software is furnished under a license and may be used
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	28	only in accordance with the terms of that license and with the
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	29	inclusion of the above copyright notice. This software may not
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	30	be provided or otherwise made available to, or used by, any
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	31	other person. No title to or ownership of the software is
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	32	hereby transferred.
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	33	"
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	34	!
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	35
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	36	documentation
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	37	"
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	38	node for parse-trees, representing binary message sends
261 0372e948ca2d commentary Claus Gittinger <cg@exept.de> parents: 253 diff changeset	39	This is a helper class for the compiler.
263 3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	40
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	41	[author:]
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	42	Claus Gittinger
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	43
20 f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	44	"
f8dd8ba75205 * empty log message * claus parents: 13 diff changeset	45	! !
0 7ad01559b262 Initial revision claus parents: diff changeset	46
7ad01559b262 Initial revision claus parents: diff changeset	47	!BinaryNode methodsFor:'accessing'!
7ad01559b262 Initial revision claus parents: diff changeset	48
7ad01559b262 Initial revision claus parents: diff changeset	49	arg
7ad01559b262 Initial revision claus parents: diff changeset	50	^ argArray at:1
7ad01559b262 Initial revision claus parents: diff changeset	51	! !
7ad01559b262 Initial revision claus parents: diff changeset	52
7ad01559b262 Initial revision claus parents: diff changeset	53	!BinaryNode methodsFor:'code generation'!
7ad01559b262 Initial revision claus parents: diff changeset	54
104 2016bfa4cd45 . claus parents: 103 diff changeset	55	codeOn:aStream inBlock:b for:aCompiler
96 ae3b3d960476 . claus parents: 76 diff changeset	56	\|arg1 recVal argVal code\|
0 7ad01559b262 Initial revision claus parents: diff changeset	57
49 02660b790c3e * empty log message * claus parents: 32 diff changeset	58	receiver isSuper ifFalse:[
253 759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	59	(aCompiler isBuiltInBinarySelector:selector forReceiver:receiver) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	60	"/ ( #(== ~~ = ~= + - < <= > >=) includes:selector) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	61	arg1 := argArray at:1.
76 55d64cb1ffea * empty log message * claus parents: 52 diff changeset	62
253 759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	63	receiver isConstant ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	64	recVal := receiver value.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	65	(receiver type == #Integer) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	66	((selector == #==) or:[selector == #~~]) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	67	recVal == 0 ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	68	arg1 codeOn:aStream inBlock:b for:aCompiler.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	69	(selector == #==) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	70	code := #eq0
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	71	] ifFalse:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	72	code := #ne0
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	73	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	74	aStream nextPut:code.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	75	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	76	]
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	77	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	78	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	79	recVal == nil ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	80	arg1 codeOn:aStream inBlock:b for:aCompiler.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	81	(selector == #==) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	82	code := #isNil
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	83	] ifFalse:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	84	code := #notNil
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	85	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	86	aStream nextPut:code.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	87	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	88	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	89	(selector == #+) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	90	(recVal == 1) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	91	arg1 codeOn:aStream inBlock:b for:aCompiler.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	92	(selector == #+) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	93	code := #plus1
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	94	] ifFalse:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	95	code := #minus1
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	96	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	97	aStream nextPut:code; nextPut:lineNr.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	98	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	99	]
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	100	]
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	101	].
76 55d64cb1ffea * empty log message * claus parents: 52 diff changeset	102
253 759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	103	receiver codeOn:aStream inBlock:b for:aCompiler.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	104	arg1 isConstant ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	105	argVal := arg1 value.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	106	(arg1 type == #Integer) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	107	((selector == #==) or:[selector == #~~]) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	108	(argVal == 0) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	109	(selector == #==) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	110	code := #eq0
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	111	] ifFalse:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	112	code := #ne0
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	113	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	114	aStream nextPut:code.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	115	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	116	]
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	117	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	118	selector == #> ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	119	argVal == 0 ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	120	aStream nextPut:#gt0; nextPut:lineNr.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	121	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	122	]
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	123	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	124	((selector == #+) or:[selector == #-]) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	125	(argVal == 1) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	126	(selector == #+) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	127	code := #plus1
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	128	] ifFalse:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	129	code := #minus1
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	130	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	131	aStream nextPut:code; nextPut:lineNr.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	132	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	133	]
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	134	]
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	135	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	136	argVal isNil ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	137	(selector == #==) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	138	aStream nextPut:#isNil.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	139	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	140	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	141	(selector == #~~) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	142	aStream nextPut:#notNil.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	143	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	144	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	145	]
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	146	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	147	arg1 codeOn:aStream inBlock:b for:aCompiler.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	148	aStream nextPut:selector.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	149	(aCompiler hasLineNumber:selector) ifTrue:[
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	150	aStream nextPut:lineNr.
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	151	].
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	152	^ self
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	153	]
0 7ad01559b262 Initial revision claus parents: diff changeset	154	].
104 2016bfa4cd45 . claus parents: 103 diff changeset	155	^ super codeOn:aStream inBlock:b for:aCompiler
253 759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	156
759ba0ddb672 oops - must check for receiver when attempting built-in basicNew Claus Gittinger <cg@exept.de> parents: 199 diff changeset	157	"Modified: 17.4.1996 / 22:34:31 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	158	! !
7ad01559b262 Initial revision claus parents: diff changeset	159
140 1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	160	!BinaryNode methodsFor:'evaluating'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	161
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	162	evaluate
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	163	receiver isSuper ifTrue:[
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	164	^ super evaluate
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	165	].
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	166	^ (receiver evaluate) perform:selector with:(argArray at:1) evaluate
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	167	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	168
0 7ad01559b262 Initial revision claus parents: diff changeset	169	!BinaryNode methodsFor:'printing'!
7ad01559b262 Initial revision claus parents: diff changeset	170
7ad01559b262 Initial revision claus parents: diff changeset	171	printOn:aStream indent:i
7ad01559b262 Initial revision claus parents: diff changeset	172	\|needParen\|
7ad01559b262 Initial revision claus parents: diff changeset	173
7ad01559b262 Initial revision claus parents: diff changeset	174	needParen := false.
7ad01559b262 Initial revision claus parents: diff changeset	175	receiver isMessage ifTrue:[
52 d80ec10c3321 * empty log message * claus parents: 49 diff changeset	176	receiver isUnaryMessage ifFalse:[
d80ec10c3321 * empty log message * claus parents: 49 diff changeset	177	needParen := true
d80ec10c3321 * empty log message * claus parents: 49 diff changeset	178	].
0 7ad01559b262 Initial revision claus parents: diff changeset	179	].
7ad01559b262 Initial revision claus parents: diff changeset	180	needParen ifTrue:[
52 d80ec10c3321 * empty log message * claus parents: 49 diff changeset	181	aStream nextPutAll:'('
0 7ad01559b262 Initial revision claus parents: diff changeset	182	].
7ad01559b262 Initial revision claus parents: diff changeset	183	receiver printOn:aStream.
7ad01559b262 Initial revision claus parents: diff changeset	184	needParen ifTrue:[
52 d80ec10c3321 * empty log message * claus parents: 49 diff changeset	185	aStream nextPutAll:') '
0 7ad01559b262 Initial revision claus parents: diff changeset	186	].
7ad01559b262 Initial revision claus parents: diff changeset	187
7ad01559b262 Initial revision claus parents: diff changeset	188	aStream space.
7ad01559b262 Initial revision claus parents: diff changeset	189	selector printString printOn:aStream.
7ad01559b262 Initial revision claus parents: diff changeset	190	aStream space.
7ad01559b262 Initial revision claus parents: diff changeset	191
7ad01559b262 Initial revision claus parents: diff changeset	192	needParen := false.
7ad01559b262 Initial revision claus parents: diff changeset	193	self arg isMessage ifTrue:[
52 d80ec10c3321 * empty log message * claus parents: 49 diff changeset	194	self arg isUnaryMessage ifFalse:[
d80ec10c3321 * empty log message * claus parents: 49 diff changeset	195	needParen := true
d80ec10c3321 * empty log message * claus parents: 49 diff changeset	196	].
0 7ad01559b262 Initial revision claus parents: diff changeset	197	].
7ad01559b262 Initial revision claus parents: diff changeset	198	needParen ifTrue:[
52 d80ec10c3321 * empty log message * claus parents: 49 diff changeset	199	aStream nextPutAll:'('
0 7ad01559b262 Initial revision claus parents: diff changeset	200	].
7ad01559b262 Initial revision claus parents: diff changeset	201	self arg printOn:aStream.
7ad01559b262 Initial revision claus parents: diff changeset	202	needParen ifTrue:[
52 d80ec10c3321 * empty log message * claus parents: 49 diff changeset	203	aStream nextPutAll:') '
0 7ad01559b262 Initial revision claus parents: diff changeset	204	].
7ad01559b262 Initial revision claus parents: diff changeset	205	! !
140 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	!BinaryNode methodsFor:'queries'!
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	208
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	209	isBinaryMessage
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	210	^ true
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	211	! !
1ef1d1395146 checkin from browser Claus Gittinger <cg@exept.de> parents: 135 diff changeset	212
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	213	!BinaryNode class methodsFor:'documentation'!
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	214
ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	215	version
263 3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 261 diff changeset	216	^ '$Header: /cvs/stx/stx/libcomp/BinaryNode.st,v 1.23 1996-04-25 17:09:42 cg Exp $'
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 140 diff changeset	217	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 12 Nov 1996 13:18:57 +0100
changeset 441	fa5637faa969
parent 263	3b21d0991eff
child 596	7e1d73e3bc06
permissions	-rw-r--r--