взяти означення мавка/машина;
простір мавка {
дія заповнити_структуру_Параметр(
М: адреса<Машина>
) {
М.предмет_структури_Параметр.заборонити_наслідування = так;
}
дія створити_параметр(
М: адреса<Машина>,
назва: адреса<ПредметТексту>,
тип: адреса<Предмет>,
дія_значення: адреса<ПредметДії>
) -> адреса<ПредметПараметра> {
змінна предмет = виділити_предмет<ПредметПараметра>(М, М.предмет_структури_Параметр);
предмет.назва = назва;
предмет.тип_ = пусто;
предмет.дія_значення = дія_значення;
вернути предмет;
}
дія предмет_параметра_отримати_властивість(
М: адреса<Машина>,
предмет_параметра: адреса<ПредметПараметра>,
назва: адреса<ПредметТексту>, місцезнаходження: Місцезнаходження
) -> ЗначенняАбоСтанПадіння {
змінна предмет_методу = знайти_метод_в_структурі(
М,
М.предмет_структури_Параметр,
назва
);
якщо предмет_методу == пусто {
вернути НЕДІЙСНЕ;
}
вернути МАШИННИЙ_ПРЕДМЕТ(предмет_методу);
}
}