TRUE
TRUE («истина») — стандартная константа Каллисто.
TRUE ( -- -1 ) Истина. Число -1.
Примитив TRUE кладёт на стек число -1. Хотя это стандартное значение для истины, надо помнить, что истиной в Каллисто также считается любое число, отличное от нуля.
Ввод слова TRUE
В режиме ЛАТ нажмите 2 × 3 ИП
Детали реализации
Слово TRUE названо константой по его действию. В Каллисто оно не имеет отношения к порождающему слову CONSTANT и является примитивом.
Слово TRUE занимает меньше места в шитом коде, компилируется и исполняется быстрее, чем литерал -1. Поэтому его удобно использовать вместо числа -1, например TRUE p +! уменьшает переменную p на единицу.
TRUE в стандарте ANS Forth
6.2.2298 TRUE CORE EXT ( -- true ) Возвращает флаг true, значение одна-ячейка со всеми установленными битами. См.: 3.1.3.1 Флаги. A.6.2.2298 TRUE TRUE эквивалентно фразе 0 0=.
История
Истина стала кодироваться числом -1 в 1983 году, в этом виде и вошло в Каллисто. Само слово TRUE стало стандартным для Форта в 1994 году.
Если на Каллисто переносятся более древние программы, надо учитывать, что тогда значение истины в Форте равнялось единице. Следы этого старого соглашения остались в Каллисто 1.0 — см. слова DIGIT, FINDN, (FIND).
Значение TRUE в Форте-83
true A non-zero value represents the true state of a flag. Any non-zero value will be accepted by a standard word as 'true'; all standard words return a 16-bit value with all bits set to one when returning a 'true' flag.
Значение TRUE в Форте-79
true A non-zero value represents the true condition flag. Any non- zero value will be accepted by a standard word as 'true'; all standard words return one when leaving a ' true' flag.
Реализация
Формально слова TRUE в FORTH ИТЭФ не было, но в исходном тексте есть такие строчки:
; ** Стандартные слова ** ; ** Условные операторы ** HEAD 202Q,'0',275Q,ZEQU ; 0= POP AX CMP AX, 0 JE TRUE FALSE: SUB AX, AX PUT: PUSH AX NEXT TRUE: MOV AX, 1 JMP PUT
ФОРТ-ЕС использовал -1 в качестве булевского значения ИСТИНА.
Ссылки
- Исходный текст слова TRUE в Каллисто Классик 1.0
- См. слова FALSE, 1 и 2
- Слово TRUE и комментарий к нему в стандарте ANS Forth (англ.)
- Слово TRUE и комментарий к нему в черновике Forth 200x (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |