CURRENT

Материал из ПМК вики
Перейти к: навигация, поиск

CURRENT (текущий) — фортовская переменная Каллисто.

CURRENT        ( −− a )                             Переменная, текущий пополняемый набор слов.

Переменная указывает набор слов, в который добавляются определения новых слов.

К переменной CURRENT редко обращаются по имени. Обычно её значение меняют с помощью слова DEFINITIONS.

Ввод слова CURRENT[править]

В режиме ЛАТ последовательно нажмите клавиши  С/П   3   ×   ×   ИП   4   2 

GET-CURRENT и SET-CURRENT в стандарте ANS Forth[править]

 16.6.1.1643   GET-CURRENT                                                SEARCH
            ( -- wid )
            Возвращает wid, идентификатор списка слов компиляции.

 16.6.1.2195   SET-CURRENT                                                SEARCH
            ( wid -- )
            Устанавливает список слов компиляции на список слов, 
            идентифицированный wid.

История[править]

Слово из стандарта Forth 83. Было исключено из стандарта ANS Forth в пользу механизма ALSO/ONLY.

CURRENT в предыдущем стандарте Forth-83 (англ.)[править]

     CURRENT      -- addr                       U,79
          The address of a variable specifying the vocabulary in which
          new word definitions are appended.

CURRENT в стандарте Forth-79 (англ.)[править]

CURRENT        -- addr                       U,137
    Leave the address of a variable specifying the vocabulary into
    which new word definitions are to be entered.

Реализация[править]

  93 rrCURRENT       .EQU     1106                   ; 11106  CURRENT − Указатель, к какому словарю будет отнесено новое слово
  94 pCURRENT        .EQU      106
  95 rlCURRENT       .EQU     1107
…
2849 ;#CURRENT
2850 ; CURRENT          ( −− a )                             Переменная, текущий пополняемый список слов.
2851 LCURRENT:       .DB     7
2852                 .TEXT   "CURRENT"
2853                 .DW     LCONTEXT
2854 CURR:           .DW     SUSE
2855                 .DB pCURRENT                    ; Переменная указывает список слов, в который вводятся определения новых слов.

Реализация из SP-Forth 4.20:

  USER CURRENT     \ дает wid текущего словаря компиляции
…
: SET-CURRENT ( wid -- ) \ 94 SEARCH
\ Установить список компиляции на список, идентифицируемый wid.
  CURRENT !
;

: GET-CURRENT ( -- wid ) \ 94 SEARCH
\ Возвращает wid - идентификатор списка компиляции.
  CURRENT @
;

Советская реализация[править]

Описание и определение переменной CURRENT в ядре ФОРТ-ЕС:

CURRENT  П->А ПЕРЕМЕННАЯ - СПИСОК ДЛЯ ДОБАВЛЕНИЯ СЛОВ           7

                      Экран номер 7
( 09.09.86 КОНСТАНТЫ И СИСТЕМНЫЕ ПЕРЕМЕННЫЕ      )

VARIABLE  CURRENT     ( ТЕКУЩИЙ СПИСОК - КУДА ДОБАВЛЯЕМ)

Определение переменной CURRENT в FORTH ИТЭФ:

            HEAD     207Q, 'CURREN',324Q,CURR,$USE        ; CURRENT
            DW 52Q

Ссылки[править]


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


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