@deffn {Scheme Procedure} receive-and-decode-msg @var{sock} @var{decoder} @

    [#:@var{addr}]

Receives one or more messages from @var{sock} from @var{addr}.  this procedure

is blocking.  If not passed, @var{addr} defaults to the address of the kernel.

This procedure returns a list of messages that were decoded using @var{decoder}.

When the answer has the @code{NLM_F_MULTI} flag, this procedure decodes the next

message, until it receives a @code{NLMSG_DONE} message.  It returns the list

of every netlink messages it received, including the @code{NLMSG_DONE}.

@end deffn

            receive-and-decode-msg

(define* (receive-and-decode-msg sock decoder

                                 #:key (addr (get-addr AF_NETLINK 0 0)))

  (let* ((answer (receive-msg sock #:addr addr))

         (size (bytevector-length answer)))

    (let loop ((messages '()) (pos 0))

      (if (>= pos size)

          (let ((last-message (car messages)))

            (if (and

                  (equal? (logand (message-flags last-message) NLM_F_MULTI)

                          NLM_F_MULTI)

                  (> (message-kind last-message) NLMSG_OVERUN))

                (append (reverse messages)

                        (receive-and-decode-msg sock decoder #:addr addr))

                (reverse messages)))

          (let ((message (deserialize 'message decoder answer pos)))

            (loop (cons message messages)

                  (+ (data-size message) pos)))))))