?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

Ссылки

• Исходный текст слова ?PAIRS в Каллисто Классик 1.0
• См. слова ?COMP, ?CSP, ?EXEC, ?LOADING, ?STACK и ?ERROR

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

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