Определение 15.61. Функция switch

(switch <выражение>)

<условие-ветвления>*

[<условие>])

<условие-ветвления> ::= (case <выражение> then <действие>*)

<действия-по-умолчанию> ::= (default действие>*)

Для эффективного применения функции switch необходимо наличие, по крайней мере, трех альтернативных групп действий, зависящих от заданного условного выражения.

Функция switch в первую очередь проводит вычисление аргумента <выражение>, а затем сравнивает его со всеми условиями ветвления по очереди. Если значение заданного выражения совпадает с одним из условий ветвления, выполняются соответствующие действия, и работа функции за­вершается. Если совпадений обнаружить не удалось, функция возвращает результат последнего сеанса выбора (если таковой имеется) или значение false. Ниже приведен пример использования функции switch (см. также рис. 15.21).

Пример 15.24. Использование функции switch

(defglobal ?*x* = 0)

(defglobal ?*y* = 1)

(def function foo (?val)

(switch ?val

(case ?*x* then *x*)

(case ?*y* then *y*)

(default none) ) )

(foo 0)

(foo 1)

(foo 2)

Рис. 15.21.Использование функции switch