Пример 8.3. Создание взаимно рекурсивных функций

(deffunction foo ())

(deffunction bar ()

(foo))

(deffunction foo ()

(bar) )

Внимательно следите за рекурсивными вызовами функций, слишком боль­шой уровень рекурсии может привести к переполнению стека памяти. Например, приведенный выше пример с функциями bar и foo приводит к результату, представленному на рис. 8.2, и аварийному завершению CLIPS.

Рис. 8.2.Переполнение стека

Обратите внимание, что на рис. 8.2 в главном окне CLIPS выводится информация о запуске каждой функции. Для установки этого режима восполь­зуйтесь диалоговым окном Watch Options.Для этого откройте диалоговое окно, выбрав пункт Watchиз меню Execution,и установите флажок Deffunctions,как показано на рис. 8.3. Этот режим также позволяет просматривать аргументы, которые использовались при каждом конкретном вызове функции.

Рис. 8.3.Установка режима просмотра вызова функций

Так же как и для правил, предопределенных фактов, глобальных перемен­ных Windows-версия CLIPS предоставляет специальный инструмент для ра­боты с функциями — Deffunction Manager(Менеджер функций). Для запус­ка этого инструмента воспользуйтесь пунктом Deffunction Managerиз меню Browse. Вслучае если в CLIPS не определена ни одна функция, данный пункт меню недоступен. Менеджер функций, отображающий функции, соз­данные нами в этой главе, изображен на рис. 8.4.

Рис. 8.4.Окно менеджера функций

Общее количество внешних функций отображается в заголовке окна менеджера — Deffunction Manager — 4 Items.С его помощью можно распечатать определение функции, удалить ее, а также установить режим просмотра вызова для отдельно выбранной функции.