Пример «Действие Возврат»

Файлы:

Пример программы на языке программирования Перфо:

//Эта программа написана на языке программирования Перфо
//для демонстрации использования действия Возврат

//Действие Возврат:

//Синтаксис: (Возврат [Значение])
//Выполняет немедленный выход из функции и возвращает либо указанное значение, либо Неопределено.  

//Тесты:

(Функция (Тест0) 
    "Что-то..."
    "Без возврата возвращаем последнее значение"
)

(Функция (Тест1) 
    "До возврата"
    (Возврат "Вернули значение 1")
    "После возврата"
)

(Функция (Тест2) 
    (Перем Текст "Вернули значение 2")
    "До возврата"
    (Возврат Текст)
    "После возврата"
)

(Функция (Тест3) 
    "До возврата"
    (Возврат (+ "Вызов 2 из теста 3: " (Тест2)))
    "После возврата"
)

(Функция (Тест4) 
    "Начало функции"
    (Перем А 0)
    (Пока (< А 2)
        //тут мы зациклимся, если не сработает возврат...
        "До возврата"
        (Возврат (+ "Вызов 2 из теста 4: " (Тест2) " Не зациклились!!!"))
        "После возврата"
    ) 
    "Конец функции"
)

//проверим обычные функции
(Вывод (Тест0) пс)
(Вывод (Тест1) пс)
(Вывод (Тест2) пс)
(Вывод (Тест3) пс)
(Вывод (Тест4) пс)

//проверим анонимные функции
(Перем Ф1 
    (Функ () 
        "Начало функции"
        (Перем А 0)
        (Пока (< А 2)
            //тут мы зациклимся, если не сработает возврат...
            "До возврата"
            (Возврат (+ "Вызов 2 из теста Ф1: " (Тест2) " Не зациклились!!!"))
            "После возврата"
        ) 
        "Конец функции"
    )
)

//в переменной Ф1 у нас анонимная функция, просто вызовем её:
(Вывод (Ф1) пс)

//проверим возврат без значения
(Функция (Процедура) 
    ("тут что-то делаем...")
    (Возврат)
    ("а сюда не попадём...")
)

(Вывод (Если (Неопределено? (Процедура)) "(Возврат) вернул Неопределено!" "Это глюк интерпретатора!") пс)

К началу статьи