forth - `type` 这个词有什么作用？

Question

给定以下函数，（借自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

Answer 1

type是一个词。你可以在这里找到单词列表

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并获取“foo bar”

cr 94085808947584 8 type

输出：

foo bar  ok