SIGN: различия между версиями
Перейти к навигации
Перейти к поиску
AtH (обсуждение | вклад) |
AtH (обсуждение | вклад) |
||
Строка 35: | Строка 35: | ||
== Реализация SIGN == | == Реализация SIGN == | ||
Следующее описание слова SIGN приводится у Юрия Семёнова (стр. 100) и у Баранова-Ноздрунова (стр. 37): | Следующее описание слова SIGN приводится у Юрия Семёнова (стр. 100) и у Баранова-Ноздрунова (стр. 37): | ||
: SIGN ( A --->) 0< IF '-' HOLD THEN ; | : SIGN ( A ---> ) 0< IF '-' HOLD THEN ; | ||
== История == | == История == |
Версия от 15:00, 10 сентября 2015
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 (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |
Это заготовка статьи. Вы можете помочь проекту, дополнив её. |