Содержание 7.2. Языки LOOPS и FLAVORS 7.2.1. Передача сообщений 7.2. Формирование объекта класса на языке CLIPS defclass ship (is-a INITIAL_OBJECT) (slot x-velocity (create-accessor read-write)) (slot y-velocity (create-accessor read-write) definstances ships (titanic of ship (x-velocity 12) (y-velocity (10) defmessage-handler ship speed () (sqrt ( + { ?self:x-velocity ?self:x-velocity) ( ?self:y-velocity ?self:y-velocity))) ) 7.2.2. Проблема наложения методов Рис. 7.2. Иерархическая система классов окон найти подходящие методы в базовых классах; скомбинировать их таким образом, чтобы получить желаемый эффект. Рис. 7.4. Структура классов в языке LOOPS Рис. 7.5. Вставка метакласса, определенного пользователем
|