Пример 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. С его помощью можно распечатать определение функции, удалить ее, а также установить режим просмотра вызова для отдельно выбранной функции.
|
