从LISP的套接字中读取c++结构

我们有一个定义为通过网络传输的c++类的应用协议。我想连接到以这种格式发送数据的服务器。我想用lisp写一个客户端(最好是sbcl)来与这个服务器通信。我更喜欢用纯lisp编写，而不是使用CFFI来包装c++ dll。示例结构看起来像这样:

class Header
{
public:
    int MsgType;
    uint64_t Length;
}
class SampleMsg
{
public:
    Header MsgHeader;
    char Field1[256];
    bool Field2;
    double Field3;
    SomeOtherClass Field4;
}

我想知道如何在lisp中映射这些结构体，使它们与二进制兼容，以及如何读写这些结构体。是否有比在结构中打包/拆包每个字段更简单的方法?

例如，在c#中，您可以像下面这样映射二进制结构并直接从字节数组中读取它:

[StructLayout(LayoutKind.Sequential)]
public struct Header
{
    public int MsgType;
    public ulong Length;
}
[StructLayout(LayoutKind.Sequential)]
public struct SampleMsg
{
public:
    public Header MsgHeader;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 256)]
    public string Field1;
    public bool Field2;
    public double Field3;
    public SomeOtherClass Field4;
}

如果类似的方法在lisp中是可能的，那将是理想的。如果没有，我愿意做一些管道，只要它是可控的。

尝试Svante的建议:

(ql:quickload "userial")
(in-package :sb-bsd-sockets)
(defun read-buffer (host port)
  (let ((socket (make-instance 'inet-socket :type :stream :protocol :tcp)))
    (socket-connect socket host port)
    (let ((buf (socket-receive socket nil 1024 :element-type '(unsigned-byte 8))))
      (socket-close socket)
      buf)))

(defstruct header
  msg-type
  length)

(userial:make-slot-serializer (:header header (make-header))
                  :int64 msg-type
                  :uint64 length)
(defvar *buffer*)
(defvar *b*)
(setq *buffer* (read-buffer #(10 1 2 75) 5003))
(setq *b* (make-array 2048 :element-type '(unsigned-byte 8) :fill-pointer 0 :adjustable t))
(map 'vector #'(lambda (x) (vector-push x *b*)) *buffer*)
(setf (fill-pointer *b*) 0)

此时，*b*的值是这样的:#(7 0 0 0 0 0 0 0 176 2 0 0 0 0 0 0 45 71 253 83 0 0 0 0 165 30 11 11 0 0 0 ...)。第一个7对应于msg类型，它应该是7。长度应该是688(176 + 2*256)。

现在我知道了(userial:with-buffer *b* (userial:unserialize :header))。这给了我

#S(HEADER :MSG-TYPE 504403158265495552 :LENGTH 12682699500628738048)
#(7 0 0 0 0 0 0 0 176 2 0 0 0 0 0 0)

似乎是一个顺序问题。如何解决这个问题?我找不到任何方法来处理userial lib中的端序。

EDIT2:

最终放弃了使用，并写了这些(以下实用通用Lisp书):

(defun read-64 (buf)
  (let ((u 0))
    (setf (ldb (byte 8 56) u) (aref buf 7))
    (setf (ldb (byte 8 48) u) (aref buf 6))
    (setf (ldb (byte 8 40) u) (aref buf 5))
    (setf (ldb (byte 8 32) u) (aref buf 4))
    (setf (ldb (byte 8 24) u) (aref buf 3))
    (setf (ldb (byte 8 16) u) (aref buf 2))
    (setf (ldb (byte 8 8) u) (aref buf 1))
    (setf (ldb (byte 8 0) u) (aref buf 0))
    u))
(defun read-32 (buf)
   (let ((u 0))
    (setf (ldb (byte 8 24) u) (aref buf 3))
    (setf (ldb (byte 8 16) u) (aref buf 2))
    (setf (ldb (byte 8 8) u) (aref buf 1))
    (setf (ldb (byte 8 0) u) (aref buf 0))
    u))
(defun read-16 (buf)
  (let ((u 0))
    (setf (ldb (byte 8 8) u) (aref buf 1))
    (setf (ldb (byte 8 0) u) (aref buf 0))
    u))

现在我可以写(read-uint64 (subseq *buffer* 8 16))来获得msg的长度。谢谢你的帮助。