给定以下函数,(借用自罗塞塔密码(
: (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”
如果>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