给出以下功能,(借鉴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
答案 0 :(得分:4)
type
is a word。您可以找到单词here
type c-addr u – core “type”
如果u> 0,则显示以c-addr中存储的字符开头的字符串中的u个字符。
在这种情况下你有
128 constant size
create buf size allot
然后将buf
设为read-socket
。这个type
到字符串并将其打印出来。
返回字符串的内存地址和大小。
cr s" foo bar " .s
输出:
<2> 94085808947584 8 ok
在这里,我们为type
提供内存地址和大小,并获取&#34; foo bar&#34;
cr 94085808947584 8 type
输出:
foo bar ok