Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Создание интернет-магазина от 350 руб!
Большой выбор шаблонов. Поддержка 24/7. Месяц бесплатно!

5.4.4. Реализация наследования

В языке Eiffel список наследования помещается вслед за ключевым словом inherit:


	class ITEM

	export

	  cut, move, pick, ungroup

	feature

	  cut is deferred end;

	  move (deltax, deltay: REAL) is deferred end;

	  pick (x, y: REAL): BOOLEAN is deferred end;

	  ungroup () is deferred end

	class SHAPE

	export

	  cut, draw, erase, move, pick, ungroup, write

	inherit ITEM

	feature

	* x, y: REAL;

	  cut is <body> end;

	  draw is <body> end;

	  erase is <body> end;

	  move (deltax, deltay: REAL) is <body> end;

	  pick (x, y: REAL): BOOLEAN is <body> end;

	  ungroup is <body> end;

	  write (acolor: COLOR) is deferred end;

	end

	classrBOX

	export pick, write

	inherit SHAPE redefine pick, write

	feature

	  width, height: REAL;

	  Create (x0, y0, width0, height0:*REAL) is <body> end;

	  pick (x, y: REAL): BOOLEAN is <body> end;

	  write (acolor: COLOR) is <body> end

	end

	class CIRCLE

	export pick, write

	inherit SHAPE redefine pick, write

	feature

	  radius: REAL;

	  Create (x0, y0, radius0: REAL) is <body> end;

	  pick (x, y: REAL): BOOLEAN is <body> end;

	  write (acolor: COLOR) is <body> end

	end

Для обозначения абстрактных операций используется ключевое слово deferred; такие операции должны быть реализованы во всех подклассах. Переопределение свойств класса в подклассе отмечается в разделе redefine.

В языке Smalltalk описание класса Item, его подкласса Shape, а также подклассов Box и Circle класса Shape может иметь следующий вид:


	class name Item

	superclass Object

	 

	class name Shape

	superclass Item

	instance variables

	  x

	  y

	instance methods

	  cut

	  draw

	  erase

	  move: aPoint

	  ungroup

	 

	class name Box

	superclass Shape

	instance variables

	  width

	  height

	instance methods

	  pick: aPoint

	  write: aColor

	class methods

	  createAt: aPoint width: widthSize length: lengthSize

	 

	class name Circle

	superclass Shape

	instance variables

	  radius

	instance methods

	  pick: aPoint

	  write: aColor

	class methods

	  createAt: aPoint radius: radiusSize

Все атрибуты суперкласса доступны всем его потомкам. Все методы могут быть переопределены в подклассах. Множественное наследование не поддерживается.

Назад | Содержание | Вперед

Новости мира IT:

Архив новостей

Последние комментарии:

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 985 1945361
Пресс-релизы — pr@citforum.ru
Обратная связь
Информация для авторов
Rambler's Top100 TopList liveinternet.ru: показано число просмотров за 24 часа, посетителей за 24 часа и за сегодня This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2015 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...