?COMP: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) |
||
Строка 23: | Строка 23: | ||
3018 .DW BRAN,RQERR | 3018 .DW BRAN,RQERR | ||
</pre> | </pre> | ||
Реализация | |||
=== Реализация в SP-Forth 4.20 === | |||
<pre> | <pre> | ||
: ?COMP ( -> ) | : ?COMP ( -> ) |
Текущая версия от 12:43, 16 марта 2019
?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
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |