?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

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


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


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