デュプレックスストリームに書き込む方法を教えてください。

Question

は、私が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*を使用してください。