sockets - 如何获得连接的客户端的IP地址？

Question

如果我有一个 super 简单线程化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的documentation表示:

Variable holding the address specifier of the current client connection.

而<threaded-server>上的文档说:

The handler slot of a threaded server instance should be set to a quotation which handles client connections. Client handlers are run in their own thread, with the following variables rebound:

• input-stream
• output-stream
• local-address
• remote-address
• threaded-server

伟大的!这意味着我可以获取客户的IP。

然后，它链接到似乎相关的Address specifiers，但没有明确说明如何从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 ;