如何获取已连接客户端的 IP 地址？

Question

如果我有一个超级简单线程TCP服务器，比如：

USING: accessors io io.encodings.utf8 io.servers 
    io.sockets kernel prettyprint threads ;
: handle-client ( -- )
   remote-address . ;
: <my-server> ( -- threaded-server )
    utf8 <threaded-server>
        "server" >>name
        1234 >>insecure
        [ handle-client ] >>handler ;
: start-my-server ( -- )
    <my-server> [ start-server ] in-thread start-server drop ;

这只会将文本remote-address打印到客户端，这非常有帮助。那是因为remote-address是一个符号。。。它的价值在哪里？remote-address的文档中写道：

保存当前客户端连接的地址说明符的变量。

<threaded-server>上的文档说：

线程服务器实例的处理程序槽应设置为处理客户端连接的报价。客户端处理程序在中运行他们自己的线程，与以下变量反弹：

•输入流
•输出流
•本地地址
•远程地址
•线程服务器

太棒了！这意味着我可以访问客户的IP。

然后它链接到地址说明符，这似乎是相关的，但没有明确解释如何从remote-address获取数据。

如何获取客户端的IP地址？

Answer 1

@fede s在评论中指出：get将取variable，get为其值。

所以我的问题代码变成了：

: handle-client ( -- )
   remote-address get host>> print flush ;
: <my-server> ( -- threaded-server )
    utf8 <threaded-server>
        "server" >>name
        1234 >>insecure
        [ handle-client ] >>handler ;
: start-my-server ( -- )
    <my-server> [ start-server ] in-thread start-server drop ;