sockets - 如何在Clozure Common Lisp中通过套接字进行通信？

Question

在一个CCL REPL中，输入:

(WITH-OPEN-SOCKET (socket :LOCAL-PORT 6667 
                          :LOCAL-HOST "localhost" 
                          :CONNECT :PASSIVE 
                          :REUSE-ADDRESS t)
  (let ((stream (ACCEPT-CONNECTION socket :wait t)))
    (format stream "hello from server.~%")))

它等待连接。

在另一个CCL流程中，我输入:

(WITH-OPEN-SOCKET (socket-stream :REMOTE-PORT 6667 
                                 :REMOTE-HOST "localhost" 
                                 :CONNECT :ACTIVE 
                                 :REUSE-ADDRESS t)
    (format t (READ-LINE socket-stream)))

在这一点上，这个过程进入等待状态。它既不从服务器读取也不退出。

但是，客户端连接到服务器后，服务器将以NIL退出。显然，至少建立了连接，但是字符串“Hello from server”。永远不会沟通。

我确信这是我忽略的基本知识。我如何发送消息？ READ-LINE不是从流中读取的正确方法吗？我从服务器写的不正确吗？如何建立基于双向简单字符串的通信？

Answer 1

您知道输出可以缓冲吗？

那是一个典型的问题。参见FINISH-OUTPUT and FORCE-OUTPUT。

如果写入缓冲流，则必须确保缓冲输出实际上已完全交付。

? (WITH-OPEN-SOCKET (socket-stream :REMOTE-PORT 6667 
                                 :REMOTE-HOST "localhost" 
                                 :CONNECT :ACTIVE 
                                 :REUSE-ADDRESS t)
    (format t (READ-LINE socket-stream)))
hello from server.
NIL


---

? (WITH-OPEN-SOCKET (socket :LOCAL-PORT 6667 
                          :LOCAL-HOST "localhost" 
                          :CONNECT :PASSIVE 
                          :REUSE-ADDRESS t)
  (let ((stream (ACCEPT-CONNECTION socket :wait t)))
    (format stream "hello from server.~%")
    (finish-output stream)
    stream))
#<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/21) #x302000E3FD9D>