SIGN

SIGN (знак) — стандартное слово Каллисто.

Вводит знак "минус" в выходной буфер PAD, если n<0

SIGN в стандарте ANS Forth

6.1.2210   SIGN                                                            CORE
           ( n -- )
           Если n - отрицательное, добавляет знак "минус" в начало выходной 
           строки отображаемого числа. Неопределенная ситуация существует, 
           если SIGN выполняется вне <# #> ограничивающих преобразование 
           числа.

SIGN в предыдущем стандарте Forth-83 (англ.)

     SIGN         n --                          83
          If n is negative, an ASCII "-" (minus sign) is appended to
          the pictured numeric output string.  Typically used between
          <# and #> .

SIGN в стандарте Forth-79 (англ.)

SIGN           n --                          C,140
    Insert  the ASCII "-" (minus sign) into the  pictured  numeric
    output string, if n is negative.

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

SIGN          n  d  ---  d                      L0
       Stores an ascii "-" sign just before a converted numeric output
       string in the text output buffer when n is negative. n is discarded
       but double number d is maintained. Must be used between <# and #>.

Реализация SIGN

Описание слова SIGN приводится у Юрия Семёнова (стр. 100) и у Баранова-Ноздрунова (стр. 37):

 : SIGN   ( A ---> )   0< IF '-' HOLD THEN ;

История

Начиная с Форта-79, SIGN берёт свой аргумент с вершины стека. Это означает, что обращение к SIGN в Каллисто обычно выглядит так: ↔ SIGN

Ссылки

• Слово SIGN в стандарте ANS Forth (англ.)
• Слово SIGN в черновике Forth 200x (англ.)

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

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