Выйти из задачи.

[Aveiro]

Здравствуйте.
Задача:
Есть цикл. При выполнении условия нужно выйти из цикла и задачи одновременно.
В хэлпе читаю:

Чтобы выйти и из цикла, и из задачи используйте конструкцию UNLOOP EXIT:
DO ... IF UNLOOP EXIT THEN ... LOOP

Задачу упростил до минимума- ошибка

Code: Select all

#( test_1
NoActive
Action:
3 * 0 DO
    FILE-EXIST: "C:\STOP.flag"  NOT 
    IF                                                                                                 
        BALLOON: "Пример" "! TEST"
        UNLOOP EXIT                                                               
    THEN
    PAUSE: 1000   
LOOP
)#

[VoidVolker]

Из цикла со счетчиком можно принудительно выйти, используя слово LEAVE

http://www.nncron.ru/help/RU/add_info/f ... q.htm#loop

Code: Select all

#( test_1
NoActive
Action:
3 * 0 DO
    FILE-EXIST: "C:\STOP.flag"  NOT 
    IF                                                                                                 
        BALLOON: "Пример" "! TEST"
        LEAVE EXIT                                                               
    THEN
    PAUSE: 1000   
LOOP
)#


[Aveiro]

Спасибо, многое забыл.
А как выйти из:

Code: Select all

BEGIN
    Выйти
AGAIN

[VoidVolker]

Это же бесконечный цикл - никак или сразу из задачи/слова через EXIT. Или использовать цикл с условием:

Code: Select all

BEGIN <flag> WHILE
    <code>
REPEAT


BEGIN
    <code>
    <flag>
REPEAT

[Aveiro]

Мне нужно выйти полностью из задачи, использую EXIT - выдается ошибка.

[VoidVolker]

Какая ошибка? Код?

[Aveiro]

Ошибка стека в Action. По коду пытаюсь найти ошибку.... Пока все ведет к EXIT . В простом примере ошибки нет. Ерунда какая-то. Как будто что-то остается....

[Morituruz]

Code: Select all

3 * 0 DO

То, что лежит на стеке до тройки умножается на тройку, а лежит там явно не ваше, отсюда и ошибка.

[VoidVolker]

Да, точно, что-то мне показался пример мутным - умножение лишнее.