?PAIRS

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

?PAIRS (операторы парные?) — фортовское слово Каллисто. Проверка парности операторных скобок.

?PAIRS         ( y x −− )                           Сгенерировать ошибку 19, если x отлично от y.

Убедиться в парности структур управления, сравнив два верхних числа на стеке. Если они не равны, выдать сообщение об ошибке.

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

В режиме NUM последовательно нажмите клавиши  K     Р-ГРД-Г   6   ШГ←   7   ×   1 

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

?PAIRS в fig-FORTH Release 1 glossary, май 1979 (англ.)[править]

?PAIRS n1 n2 --
       Issue an error message if n1 does not equal n2. The message
       indicates that compiled conditionals do not match.

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

В некоторых реализациях это слово называлось ?PAIR

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

3029 ;#qPAIRS
3030 ; ?PAIRS           ( y x −− )                           Сгенерировать ошибку 19, если x отлично от y.
3031 LQPAIR:         .DB     6
3032                 .TEXT   "?PAIRS"
3033                 .DW     LQEXEC
3034 QPAIR:          .DW CALL, SUB, LITB
3035                 .DB 19
3036                 .DW BRAN,RQERR

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

Cледующее определение оператора ?PAIRS через слово ABORT" приведено у Баранова-Ноздрунова (стр. 57):

 : ?PAIRS  ( A1,A2 ---> )  - ABORT" НЕПАРНЫЕ СКОБКИ" ;

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

?PAIRS  * W1,W2-> ВЫДАТЬ ОШИБКУ, "НЕПАРНЫЕ СКОБКИ",             29
          ЕСЛИ W1 НЕ РАВНО W2

                     Экран номер 29
( 31.03.86 ПРОВЕРКИ И СИГНАЛИЗАЦИИ ОБ ОШИБКАХ )

: ABORT"  ( F->)  COMPILE (A") ," ; IMMEDIATE

: ?PAIRS ( N1,N2-> )  - ABORT" НЕПАРНЫЕ СКОБКИ" ;

Определение слова ?PAIR в FORTH ИТЭФ:

             HEAD    205Q,'?PAI',322Q,QPAIR,$COL          ; ?PAIR
             DW  SUB,LIT,23Q,QERR,SEMI

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


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


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