'N

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

'N (штрих-эн) — адаптированное слово Каллисто.

'N             ( −− a )                             Ищет следующее слово, возвращая его NFA.

Фраза 'N XXX ищет слово с именем XXX (из входного или экранного буфера) в словаре Форта. Если поиск увенчался успехом, адрес поля имени (NFA, а не PFA) XXX будет записан в стек. При неудачном поиске выдаётся сообщение об ошибке.

Слово 'N вводит очередное слово и ищет его в словаре, возвращая адрес поля имени найденной статьи. Если слово не найдено, это считается ошибкой.

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

В режиме NUM последовательно нажмите четыре клавиши  F   1     Р-ГРД-Г   4 

Для возврата в режим NUM нажмите синюю клавишу  P .

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

В fig-Форте и Форте-79 слово ' возвращало PFA. Начиная с Форта-83 слово ' возвращает CFA, он же xt. В Каллисто ни из CFA, ни из PFA невозможно получить NFA.

Поэтому в Каллисто есть специальное слово 'N, которое возвращает NFA.

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

3604 ;#TickN
3605 ; 'N               ( −− a )                             Искать следующее слово, вернуть его NFA.
3606 ; Фраза 'N XXX ищет слово с именем XXX (из входного или экранного буфера) в словаре Форта.
3607 ; Если поиск увенчался успехом, положить на стек адрес поля имени (NFA, а не PFA) XXX
3608 ; При неудачном поиске выдать сообщение об ошибке.
3609 LTICK:          .DB     2
3610                 .TEXT   "'N"                    ; ( −− nfa )
3611                 .DW     LTHRU
3612 TICK:           .DW CALL, BL,WORD, FIND, ZEQU, ZERO,QERR, DROP, EXIT

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

У Баранова-Ноздрунова определение слова 'N выглядит так (стр. 65):

: 'N  ( ---> A )   BL  WORD  FINDN  IF  EXIT  THEN
  COUNT  TYPE  -1  ABORT"  ?"  ;

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


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


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