Код IT
← Каталог

SmallDesktop на Morphic — практикум — 2.4. Операции и равно

Фрагмент из «SmallDesktop на Morphic — практикум»: 2.4. Операции и равно.

smalltalk smalltalkencyclopedia21 embed URL статья в энциклопедии
Smalltalk main.st 
computePending
	| left right result |
	left := pendingValue.
	right := display asNumber.
	result := pendingOperator = #+
		ifTrue: [ left + right ]
		ifFalse: [
			pendingOperator = #-
				ifTrue: [ left - right ]
				ifFalse: [
					pendingOperator = #*
						ifTrue: [ left * right ]
						ifFalse: [
							right ~= 0
								ifTrue: [ left / right ]
								ifFalse: [ left ] ] ] ].
	display := result printString.
	pendingValue := result
computePending
	| left right result |
	left := pendingValue.
	right := display asNumber.
	result := pendingOperator = #+
		ifTrue: [ left + right ]
		ifFalse: [
			pendingOperator = #-
				ifTrue: [ left - right ]
				ifFalse: [
					pendingOperator = #*
						ifTrue: [ left * right ]
						ifFalse: [
							right ~= 0
								ifTrue: [ left / right ]
								ifFalse: [ left ] ] ] ].
	display := result printString.
	pendingValue := result