Учитывая следующую функцию (заимствовано из Rosetta Code)
: (echo) ( sock buf -- sock buf )
begin
cr ." waiting..."
2dup 2dup size read-socket nip
dup 0>
while
." got: " 2dup type ( <-- HERE )
rot write-socket
repeat
drop drop drop ;
Что делает type в,
." got: " 2dup type
type – это слово. Вы можете найти список слов здесь< /а>
type c-addr u – core “type”Если u›0, отобразить u символов из строки, начинающейся с символа, хранящегося по адресу c-addr.
В этом случае у вас есть
128 constant size
create buf size allot
Затем вы устанавливаете buf с помощью read-socket. Это type преобразует его в строку и распечатывает.
Возвращает адрес памяти для строки и размер.
cr s" foo bar " .s
Выход:
<2> 94085808947584 8 ok
Здесь мы указываем адрес и размер памяти для type и получаем foo bar
cr 94085808947584 8 type
Выход:
foo bar ok
