Редактирование: UNLOOP

'''UNLOOP''' (читается «анлуп») — стандартное слово [[Каллисто]].

Снимает со [[Стек возвратов Каллисто|стека возвратов]] служебную информацию одного цикла [[FOR]] … [[NEXT]], что позволяет использовать слово [[EXIT]] для досрочного выхода из определения. Чтобы покинуть слово изнутри несколько вложенных циклов [[FOR]] … [[NEXT]], требуется предварительно выполнить слово UNLOOP нужное число раз.

== Ввод слова UNLOOP ==
В [[Режим ЛАТ|режиме ЛАТ]] последовательно нажмите белые клавиши [[Клавиша 3|{{Серая клавиша|3}}]] [[Клавиша 4|{{Серая клавиша|4}}]] [[Клавиша -|{{Серая клавиша|−}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша 5|{{Серая клавиша|5}}]] [[Клавиша 6|{{Серая клавиша|6}}]]

== UNLOOP в стандарте ANS Forth ==
 6.1.2380   UNLOOP                                                          CORE
        Интерпретация: Семантика интерпретации для этого слова не определена.

        Выполнение: ( -- ) ( R: loop-sys -- )
            Снимает параметры управления циклом для текущего уровня 
            вложенности. UNLOOP требуется для каждого уровня вложенности 
            прежде, чем может быть выполнено EXIT определения. Неопределенная 
            ситуация существует если параметры управления циклом недоступны.

        См.: 3.2.3.3 Стек возвратов.

 A.6.1.2380   UNLOOP
 Типичное использование:
        : X  ...
         limit first
         DO
           ... test IF ... UNLOOP EXIT THEN ...
         LOOP ...
        ;

 UNLOOP позволяет использование EXIT в пределах контекста, DO ... LOOP и 
 связанной do-loop конструкции. UNLOOP как функция был назван UNDO. UNLOOP более 
 выражает действие: ничто не отменяется - мы просто прекращаем делать это.

== Замечание ==
Хотя в стандарте ANS Forth это явно не указано, после слова UNLOOP должно быть исполнено слово [[EXIT]].  Конечно, между ними могут быть выполнены и другие действия. Но если [[EXIT]] не будет выполнен до конца цикла, ситуация станет неопределённой.

== Ссылки ==
* Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.2380 UNLOOP] и [http://forth.sourceforge.net/standard/dpans/dpansa6.htm#A.6.1.2380 комментарий к нему] в стандарте ANS Forth ''(англ.)''
* Слово [http://www.forth200x.org/documents/html3/core/UNLOOP.html UNLOOP] и [http://www.forth200x.org/documents/html3/rationale.html#rat:core:UNLOOP комментарий к нему] в черновике Forth 200x ''(англ.)''
* См. также слово [[LEAVE]]


{{нет иллюстраций}}
{{заготовка}}
[[Категория:Слова Каллисто]]
[[Категория:Примитивы]]
[[Категория:Структуры управления Каллисто]]
[[Категория:Слова Каллисто без стековых диаграмм]]
@@ Строка 1: / Строка 1: @@
-'''UNLOOP''' (разциклить, читается «анлуп») — стандартное слово [[Каллисто]].
+'''UNLOOP''' (читается «анлуп») — стандартное слово [[Каллисто]].
- UNLOOP         ( −− )                               Снять со стека возвратов параметры управления циклом FOR
-                                                     для текущего уровня вложенности.
-Слово UNLOOP снимает со [[Стек возвратов Каллисто|стека возвратов]] служебную информацию одного цикла [[FOR]] … [[NEXT]], что позволяет использовать слово [[EXIT]] для досрочного выхода из определения. Чтобы покинуть слово изнутри несколько вложенных циклов [[FOR]] … [[NEXT]], требуется предварительно выполнить слово UNLOOP нужное число раз.
-Также (это характерно для [[Каллисто]], но не работает в большинстве Фортов) слово UNLOOP можно использовать перед словом [[LEAVE]], чтобы выйти сразу из нескольких вложенных циклов [[FOR]].
+Снимает со [[Стек возвратов Каллисто|стека возвратов]] служебную информацию одного цикла [[FOR]] … [[NEXT]], что позволяет использовать слово [[EXIT]] для досрочного выхода из определения. Чтобы покинуть слово изнутри несколько вложенных циклов [[FOR]] … [[NEXT]], требуется предварительно выполнить слово UNLOOP нужное число раз.
-Хотя само слово UNLOOP не влияет на [[Стек данных|стек]], надо учитывать, что слова после [[NEXT]] чаще всего ожидают некоторое определённое состояние [[Стек данных|стека]].
 == Ввод слова UNLOOP ==
@@ Строка 12: / Строка 7: @@
 == UNLOOP в стандарте ANS Forth ==
-<PRE>
 .1.2380   UNLOOP                                                          CORE
          Интерпретация: Семантика интерпретации для этого слова не определена.
@@ Строка 36: / Строка 30: @@
   связанной do-loop конструкции. UNLOOP как функция был назван UNDO. UNLOOP более
   выражает действие: ничто не отменяется - мы просто прекращаем делать это.
-</PRE>
 == Замечание ==
 Хотя в стандарте ANS Forth это явно не указано, после слова UNLOOP должно быть исполнено слово [[EXIT]].  Конечно, между ними могут быть выполнены и другие действия. Но если [[EXIT]] не будет выполнен до конца цикла, ситуация станет неопределённой.
-Также UNLOOP может быть использован перед словом [[LEAVE]], если требуется завершить внешний цикл.
-UNLOOP может быть использован несколько раз, для выхода из вложенных циклов.
-== Реализация ==
-<pre>
-JUNLOOP:        4                               ; Обработчик UNLOOP
-NLEV:           RM2 + M2                        ; Убрать из стека возвратов два слова, счётчик и адрес
-                 KGOTO9
-…
-;#UNLOOP
-; UNLOOP           ( −− )                               Снять со стека возвратов параметры управления циклом FOR для текущего уровня вложенности.
-LUNLOOP:        .DB     6
-                 .TEXT   "UNLOOP"
-                 .DW     LLEAVE
-UNLOOP:         .DW     JUNLOOP                 ; Обычно используется перед EXIT для выхода изнутри цикла со счётчиком.
-</pre>
-Реализации из SP-Forth 4.20:
-<pre>
-: UNLOOP  \ 94
-\ Интерпретация: семантика неопределена.
-\ Выполнение: ( -- ) ( R: loop-sys -- )
-\ Убрать параметры цикла текущего уровня. UNLOOP требуется для каждого
-\ уровня вложения циклов перед выходом из определения по EXIT.
-\ Неоднозначная ситуация возникает, если параметры цикла недоступны.
-  ?COMP
-  SetOP  0C24648D , \ lea esp, 0c [esp]
-; IMMEDIATE
-</pre>
-<pre>
-: UNLOOP  \ 94
-  ?COMP
-  SetOP  0C24648D , \ lea esp, 0c [esp]
-; IMMEDIATE
-</pre>
 == Ссылки ==
-* {{Исходник|UNLOOP|UNLOOP}}
-* См. слова [[EXIT]], [[LEAVE]], [[RDROP]], [[FOR]], [[NEXT]], [[Слово I|I]], [[Слово J|J]] и [[Слово K|K]]
 * Слово [http://forth.sourceforge.net/standard/dpans/dpans6.htm#6.1.2380 UNLOOP] и [http://forth.sourceforge.net/standard/dpans/dpansa6.htm#A.6.1.2380 комментарий к нему] в стандарте ANS Forth ''(англ.)''
-* Слово [http://forth-standard.org/standard/core/UNLOOP UNLOOP] и [http://forth-standard.org/standard/rationale#rat:core:UNLOOP комментарий к нему] в черновике Forth 200x ''(англ.)''
+* Слово [http://www.forth200x.org/documents/html3/core/UNLOOP.html UNLOOP] и [http://www.forth200x.org/documents/html3/rationale.html#rat:core:UNLOOP комментарий к нему] в черновике Forth 200x ''(англ.)''
+* См. также слово [[LEAVE]]
@@ Строка 89: / Строка 45: @@
 [[Категория:Примитивы]]
 [[Категория:Структуры управления Каллисто]]
-[[Категория:Операции со стеком возвратов Каллисто]]
+[[Категория:Слова Каллисто без стековых диаграмм]]
-[[Категория:Стандартные слова]]
-[[Категория:1994 CORE]]
-[[Категория:2012 CORE]]