DEPTH
DEPTH (глубина, читается «дэпф») — стандартное слово Каллисто.
DEPTH ( -- u ) Глубина стека. u — количество значений на стеке данных.
Выдаёт в стек полное количество чисел, хранившихся в стеке до исполнения этой команды.
Ввод слова DEPTH
В режиме ЛАТ последовательно нажмите клавиши K ИП 6 2 ПП
DEPTH в стандарте ANS Forth
6.1.1200 DEPTH CORE ( -- +n ) +n - количество одно-ячеечных значений, содержавшихся на стеке данных перед тем, как +n было помещено на стек.
FDEPTH в стандарте ANS Forth
12.6.1.1497 FDEPTH "f-depth" FLOATING ( -- +n ) +n - число значений, содержащихся на отделенном по умолчанию стеке с плавающей точкой. Если числа с плавающей точкой сохраняются на стеке данных, +n является текущим числом возможных значений с плавающей точкой, содержащихся на стеке данных.
DEPTH в предыдущем стандарте Forth-83 (англ.)
DEPTH -- +n 79 +n is the number of 16-bit values contained in the data stack before +n was placed on the stack.
DEPTH в стандарте Forth-79 (англ.)
DEPTH -- n 238 Leave the number of the quantity of 16-bit values contained in the data stack, before n added.
История
В Форте FSP88M это слово известно под именем DPT
Английское слово depth означает «глубина».
Реализация
Юрий Семёнов приводит следующее определение слова DEPTH (стр. 151):
: DEPTH S0 @ SP@ 2+ - 2/ ;
Описание и определение слова DEPTH в ядре ФОРТ-ЕС:
DEPTH ->+N КОЛИЧЕСТВО ЗНАЧЕНИИ НА СТЕКЕ ДО +N 20 Экран номер 20 ( 31.03.86 SP@ SP! RP@ RP! 2/ 2* 2@ 2! DEPTH ) : DEPTH ( ->+N) SP@ S0 @ SWAP - 2/ ;
Определение слова DEPTH в FORTH ИТЭФ:
HEAD 205Q,'DEPT',310Q,DEPTH,$COL ; DEPTH DW SZERO,AT,SPAT,TWOP,SUB,DIV2,SEMI
Ссылки
- Слова DEPTH и FDEPTH (f-depth) в стандарте ANS Forth (англ.)
- Слова DEPTH и FDEPTH (f-depth) в черновике Forth 200x (англ.)
У этой статьи нет иллюстраций. Вы можете помочь проекту, добавив их. |