Слово J

J (внешний счётчик, читается «джэй») — стандартное слово Каллисто.

J              ( −− D )                             Дать текущее значение счётчика внешнего цикла FOR.

Помещает в стек данных значение счётчика внешнего цикла FOR…NEXT.

Ввод слова J

В режиме ЛАТ нажмите белую клавишу  8 

J в стандарте ANS Forth

6.1.1730   J                                                               CORE
       Интерпретация: Семантика интерпретации для этого слова не определена.

       Выполнение:( -- n|u )( R: loop-sys1 loop-sys2 -- loop-sys1 loop-sys2 )
           n|u - копия следующего-внешнего индекса цикла. Неопределенная 
           ситуация существует, если параметры управления цикла следующего-
           внешнего цикла, loop-sys1, недоступны.

A.6.1.1730   J
J может только использоваться со вложенными, DO...LOOP, DO...+LOOP, ?DO...LOOP, 
or ?DO...+LOOP, например, в форме:

       : X ... DO ... DO ... J ... LOOP ... +LOOP ... ;

J в предыдущем стандарте Forth-83 (англ.)

         J            -- w                          C,79                 
              w is a copy of the index of the next outer loop.  May only
              be used within a nested DO-LOOP or DO-+LOOP in the form, for
              example:                              
                      DO ... DO ... J ... LOOP ... +LOOP

J в стандарте Forth-79 (англ.)

J              -- n                          C,225
    Return  the index of the next outer loop.   May only  be  used
    within a nested DO-LOOP in the form:
         DO ... DO ... J ... LOOP ... LOOP

Совместимость

В Каллисто цикл FOR кладёт на стек возвратов два 16-битных значения. Поэтому слово J считывает значение третьего сверху слова в стеке возвратов — а не второго, как в Форте.

Реализация

Слово J в ФОРТ-ЕС было примитивом. Вот его описание и определение:

J      К  ->W TEKУЩEE ЗНАЧЕНИЕ W СЧЕТЧИКА ВТОРОГО               24
             ОБЪЕМЛЮЩЕГО ЦИКЛА "DO"

                     Экран номер 24
( 09.09.86 ЦИКЛЫ СО СЧЕТЧИКОМ: (DO/ I I' J   LEAVE)

CODE J  ( ->U ТЕКУЩЕЕ ЗНАЧЕНИЕ СЧЕТЧИКА 2-ГО ЦИКЛА)
      RW1 RFIRST 6 +(, LH, PUSHRW1 В, END-CODE

Ссылки

• Исходный текст слова J в Каллисто Классик 1.0
• Слово J и комментарий к нему в стандарте ANS Forth (англ.)
• Слово J и комментарий к нему в черновике Forth 200x (англ.)
• Счётчик цикла в Википедии
• The Philosophy of Fixed Point в книге Leo Brodie Starting Forth (англ.)
• Throw It For a Loop в книге Leo Brodie Starting Forth (англ.)

У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их.

Это заготовка статьи. Вы можете помочь проекту, дополнив её.