Брак по расчету
В приведенных примерах оба родителя играли симметричные роли, но это не всегда так. Иногда вклад каждого из них различен по своей природе.
Важным приложением множественного наследования является обеспечение реализации абстракции, описанной отложенным классом, используя свойства, обеспечиваемые эффективным классом. Один класс абстрактен, второй - эффективен.
Рис. 15.11. Брак по расчету
Рассмотрим реализацию стека, заданную массивом. У нас уже есть классы для поддержки стеков и массивов в отдельности (абстрактный
indexing
description: 'Стек, реализованный массивом'
class ARRAYED_STACK [G] inherit
STACK [G]
ARRAY [G]
... Здесь будут добавлены предложения переименования ...
feature
...Реализация отложенных подпрограмм класса STACK
в терминах операций класса ARRAY (см. ниже)...
end
Вот схема некоторых типичных компонентов:
full: BOOLEAN is
-- Является ли стек (его представление) заполненным?
do
Result := (count = capacity)
end
Компонент
count: INTEGER
Это пример эффективной реализации отложенного компонента как атрибута. Наконец,
put (x: G) is
-- Втолкнуть x на вершину.
require
not full
do
count := count + 1
array_put (x, count)
end
Процедура array_put унаследована от класса
| Компоненты |
Класс
Помимо эффективной реализации методов, отложенных (deferred) в классе
array_put (x, count)
Указание на переопределение компонента следует ввести в предложение наследования:
class ARRAYED_STACK [G] inherit
STACK [G]
redefine change_top end
... Остальное, как прежде ...
Инвариант этого класса может иметь вид
invariant
non_negative_count: count >= 0
bounded: count <= capacity
