?COMP

?COMP — фортовское слово Каллисто. Проверка состояния компиляции.

?COMP          ( −− )                               Сгенерировать ошибку 17, если нет состояния компиляции.

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

Ввод слова ?COMP

В режиме NUM последовательно нажмите клавиши  K     Р-ГРД-Г   С/П   5   ÷   6 

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

?COMP в fig-FORTH Release 1 glossary, май 1979 (англ.)

?COMP
       Issue error message if not compiling.

Реализация

3011 ;#qCOMP
3012 ; ?COMP            ( −− )                               Сгенерировать ошибку 17, если нет состояния компиляции.
3013 LQCOMP:         .DB     5
3014                 .TEXT   "?COMP"
3015                 .DW     LQERR
3016 QCOMP:          .DW CALL, STATE,UAT,ZEQU, LITB
3017                 .DB 17
3018                 .DW BRAN,RQERR

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

: ?COMP ( -> )
  STATE @ 0= IF -312 THROW THEN ( Только для режима компиляции )
;

Советская реализация

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

?COMP   * -> ПРОВЕРИТЬ, ЧТО ТЕКУЩИЙ РЕЖИМ - КОМПИЛЯЦИЯ          29

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

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

: ?COMP ( ->) STATE @ NOT ABORT" ТРЕБУЕТСЯ РЕЖИМ КОМПИЛЯЦИИ" ;

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

             HEAD    205Q,'?COM',320Q,QCOMP,$COL          ; ?COMP
             DW  STATE,AT,ZEQU,LIT,21Q,QERR,SEMI

Ссылки

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

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

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