Eiffel: недопустимое ограничение для формального универсального параметра

Question

Следуя странным шаблонам для некоторых, я не могу сделать это? Компилятор говорит Invalid constraint for formal generic parameter

class PARENT[G -> CHILD[like Current]]

feature -- Access

    children: LIST[G]

end

class CHILD[H -> PARENT[like Current]]

feature -- Access

    father: H
end

чтобы быть в состоянии сделать что-то вроде

class WIDOW_PARENT

inherit
    PARENT[BLACK_CHILD]

end

class BLACK_CHILD

inherit 
    CHILD[WIDOW_PARENT]

end

Если я не сделаю это с универсальностью, мне придется переопределить коллекцию детей из

• children: LIST[CHILD] в children: LIST[BLACK_CHILD] в класс WIDOW_PARENT
• father: PARENT в father: WIDOW_PARENT в класс BLACK_CHILD

вместо того, чтобы только указать это в предложении наследования... Надеюсь, что это имеет смысл

Обновить

Когда я решил это с ответом Александера, я застрял дальше, делая проверку соответствия. Я пытаюсь установить HTTP-маршрутизатор в зависимости от сущностей, и если это дочерняя сущность, он должен иметь возможность сделать http://host:port/entity/child_entity/id, чтобы получить все дочерние сущности от entity. Для этого я хотел бы добавить в общий маршрутизатор чек. На что-то вроде ANY_PARENT_DB_ENTITY такие как

if ({G}).conforms_to ({CHILD_DB_ENTITY[ANY_PARENT_DB_ENTITY]}) then
    friend.act_like_a_father 
else
    friend.act_like_a_mate
end

Answer 1

В современном Eiffel закрепленные типы не могут использоваться в формальных обобщенных ограничениях, поэтому это ошибка. Все еще возможно иметь взаимные ограничения, явно повторяя типы классов:

class PARENT [G -> CHILD [PARENT [G]]]
class CHILD  [H -> PARENT [CHILD [H]]]

С этим изменением пример компилируется.

Answer 2

Будучи лучшим решением для меня, единственное решение для всего моего шаблона - переопределить в моем классе маршрутизатора set_handler метод с

CHILD_DB_ENTITY

deferred class
    CHILD_DB_ENTITY[H -> PARENT_DB_ENTITY[CHILD_DB_ENTITY[H]]]

inherit
    DB_ENTITY

feature 

    parent: H

ENTITY_HANDLER

ENTITY_HANDLER[G -> DB_ENTITY, H -> DB_SERVICE[G] create make end]

feature

        item_prototype: detachable G

        set_handler
            do
                setting_url_("http://host:port/" + {like item_prototype}.out)
                ...
            end
end -- Class

CHILD_ENTITY_HANDLER

CHILD_ENTITY_HANDLER[G -> CHILD_DB_ENTITY[PARENT_DB_ENTITY[G]], H -> DB_SERVICE[G]]

inherit
    ENTITY_HANDLDER
        redefine
            set_handler
        end

feature

        set_handler
            do
                Precursor
                setting_url_("http://host:port/" + ({like item_prototype}).out + "/" + ({like item_prototype.parent}).out + "/{id}")
            end

end -- Class

PARENT_ENTITY_HANDLER

PARENT_ENTITY_HANDLER[G -> PARENT_DB_ENTITY[CHILD_DB_ENTITY[G]], H -> DB_SERVICE[G]]

inherit
    ENTITY_HANDLDER
        redefine
            set_handler
        end

feature

        set_handler
            do
                Precursor
                setting_url_("http://host:port/" + ({like item_prototype}).out + "/" + ({like item_prototype.children.item}).out + "/{id}")
                -- children being a LINKED_LIST[PARENT_DB_ENTITY]
            end

end -- Class

Я надеялся, что есть способ получить его с полиморфизмом в том же классе, но также имеет смысл пересмотреть его таким образом...