TRUE

Материал из ПМК вики
Перейти к: навигация, поиск

TRUE («истина») — стандартная константа Каллисто.

TRUE           ( -- -1 )                       Истина. Число -1.
Пример работы слова TRUE

Примитив TRUE кладёт на стек число -1. Хотя это стандартное значение для истины, надо помнить, что истиной в Каллисто также считается любое число, отличное от нуля.

Ввод слова TRUE[править]

В режиме ЛАТ нажмите  2   ×   3   ИП 

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 году.

Если на Каллисто переносятся более древние программы, надо учитывать, что до 1983 года значение истины в Форте равнялось единице. Следы этого старого соглашения остались в Каллисто 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 названо константой по его действию. В Каллисто 1.0 оно не имеет отношения к порождающему слову CONSTANT и является примитивом.

Слово TRUE занимает меньше места в шитом коде, компилируется и исполняется быстрее, чем литерал -1. Поэтому его удобно использовать вместо числа -1, например TRUE p +! уменьшает переменную p на единицу.

2667 ;#TRUE
2668 ; TRUE             ( −− −1 )                            Истина. Число −1.
2669 LTRUE:          .DB     4
2670                 .TEXT   "TRUE"
2671                 .DW     LTWO
2672 TRUE:           .DW     JTRUE
2673 JTRUE:          1 +/− KM3  KGOTO9

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

-1 CONSTANT TRUE ( -- true ) \ 94 CORE EXT
\ Вернуть флаг "истина", ячейку со всеми установленными битами.

Советская реализация[править]

Формально слова 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 в качестве булевского значения ИСТИНА.

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