sockets - 如何写入双工流？

Question

假设我有一个 super 简单套接字服务器，它在localhost的端口上接受连接:

: server-new ( port -- stream ) f swap <inet4> utf8 <server> accept drop ;

我可以像这样使用它:

IN: scratchpad 1204 server-new 

哪个等待连接。在终端中:

$ curl localhost:1204
_ 

然后等待服务器回复。 server-new在堆栈上保留一个 duplex-stream。

T{ duplex-stream
    { in
        T{ decoder
            { stream
                T{ input-port
                    { handle T{ fd { fd 36 } } }
                    { buffer
                        T{ buffer
                            { size 65536 }
                            { ptr ALIEN: 1a44530 }
                        }
                    }
                }
            }
            { code utf8 }
        }
    }
    { out
        T{ encoder
            { stream
                T{ output-port
                    { handle T{ fd { fd 36 } } }
                    { buffer
                        T{ buffer
                            { size 65536 }
                            { ptr ALIEN: 1d42b30 }
                        }
                    }
                }
            }
            { code utf8 }
        }
    }
}

我想给客户端写一个字符串。我该怎么做呢？

似乎 with-stream或其他某种方式可以解决问题，但这只是消耗了流对象，而没有任何内容写入我的 curl客户端。

Answer 1

它可能在某处缺少冲洗:

[ "hello from Factor" print flush ] with-stream

还要注意，报价结束时 with-stream将关闭流。如果要使其保持打开状态，请改为使用 with-stream*。