Re: wayland client in Guile without libwayland-client

[Matt Wette]

On 11/18/22 2:34 PM, Maxime Devos wrote:

> On 18-11-2022 17:54, Matt Wette wrote:
> > cm-buf is a bytevector of control messages (`man cmsg`).  To deal
> > with control messages I have generated these procedures:
> >
> >    (cmsg-list->bytevector cmsg-list) => bytevector
> >    (bytevector->cmsg-list bytevector) => cmsg-list
>
> I have previously written an implementation for encoding/decoding cmsg 
> at 
> <https://git.gnunet.org/gnunet-scheme.git/tree/gnu/gnunet/util/cmsg.scm>, 
> with a bunch of tests at 
> <https://git.gnunet.org/gnunet-scheme.git/tree/tests/cmsg.scm> (no 
> bindings for sendmsg, recvmsg!, though).
>
> To compare, could you share your implementation of 
> cmsg-list->bytevector and bytevector->cmsg-list?.
>
> Greetings,
> Maxime.
OK.  I have not used yet.

And I want to mention, because my sendmsg() recvmsg() explanation was 
not clear,
those routines will accept a bytevector or vector of bytevectors for iobuf.

Here is the cmsg code.  I have not used it yet, so not really tested.
I will check your stuff out.
#define CMSG_SZ(cmsg) ((cmsg->cmsg_len) - sizeof(struct cmsghdr))

size_t
scm_c_cmsg_len (SCM cmsg)
{
  SCM bv;
  size_t ln;

  // SCM_ASSERT (scm_is_vector (cmsg), cmsg, 0, scm_c_cmsg_len);
  bv = scm_c_vector_ref (cmsg, 2);
  // SCM_ASSERT (scm_is_bytevector (bv), cmsg, 0, scm_c_cmsg_len);
  ln = CMSG_LEN (scm_c_bytevector_length (bv));
  return ln;
}

SCM_DEFINE(scm_cmsg_list_to_bytevector, "cmsg-list->bytevector", 1, 0, 0,
       (SCM cmsgl),
       "control message list to bytevector")
#define FUNC_NAME s_scm_cmsg_list_to_bytevector
{
  SCM ml, cm, bv, cb;
  size_t ln;
  struct cmsghdr *cmsg;

  for (ml = cmsgl, ln = 0; ml != SCM_EOL; ml = SCM_CDR (ml)) {
    cm = SCM_CAR (ml);
    ln += CMSG_ALIGN (scm_c_cmsg_len (cm));
  }

  bv = scm_c_make_bytevector (ln);

  cmsg = (struct cmsghdr *) SCM_BYTEVECTOR_CONTENTS (bv);
  memset(cmsg, 0, ln);
  for (ml = cmsgl, ln = 0; ml != SCM_EOL; ml = SCM_CDR (ml)) {
    cm = SCM_CAR (ml);
    cmsg->cmsg_len = scm_c_cmsg_len (cm);
    cmsg->cmsg_level = scm_to_int (scm_c_vector_ref (cm, 0));
    cmsg->cmsg_type = scm_to_int (scm_c_vector_ref (cm, 1));
    cb = scm_c_vector_ref (cm, 2);
    memcpy (CMSG_DATA(cmsg), SCM_BYTEVECTOR_CONTENTS (cb),
        scm_c_bytevector_length (cb));
    cmsg = (struct cmsghdr *)((unsigned char *) cmsg
                  + CMSG_ALIGN (cmsg->cmsg_len));
  }

  return bv;
}
#undef FUNC_NAME

SCM_DEFINE(scm_bytevector_to_cmsg_list, "bytevector->cmsg-list", 1, 0, 0,
       (SCM bv),
       "extract cmsg-list from bytevector")
#define FUNC_NAME s_scm_bytevector_to_cmsg_list
{
  SCM res, bv1, ctl;
  struct msghdr *mhp;
  struct cmsghdr *cmsg;
  union { struct msghdr mh; double d; } x;

  mhp = &x.mh;

  SCM_VALIDATE_BYTEVECTOR (1, bv);
  mhp->msg_control = (struct cmsghdr *) SCM_BYTEVECTOR_CONTENTS (bv);
  mhp->msg_controllen = SCM_BYTEVECTOR_LENGTH (bv);

  res = SCM_EOL;
  for (cmsg = CMSG_FIRSTHDR (mhp); cmsg != NULL;
       cmsg = CMSG_NXTHDR (mhp, cmsg)) {
    ctl = scm_c_make_vector (3, SCM_BOOL_F);
    scm_c_vector_set_x (ctl, 0, scm_from_int (cmsg->cmsg_level));
    scm_c_vector_set_x (ctl, 1, scm_from_int (cmsg->cmsg_type));
    bv1 = scm_c_make_bytevector (CMSG_SZ (cmsg));
    memcpy(SCM_BYTEVECTOR_CONTENTS (bv1), CMSG_DATA (cmsg), CMSG_SZ 
(cmsg));
    scm_c_vector_set_x (ctl, 2, bv1);
    res = scm_cons(ctl, res);
  }
  res = scm_reverse_x (res, SCM_UNDEFINED);
  return res;
}
#undef FUNC_NAME