@deffn {Scheme Procedure} default-route-attr-decoder @var{deserialize-addr}

Creates the default association list for a route protocol, given the specified

address deserializer.  This is useful because the @code{IFA_ADDRESS},

@code{IFA_BROADCAST}, etc, contain a different type of address depending on

the message type or its header.  This is defined an @code{(netlink route attrs)}

and used by the following variables:

@end deffn

@deffn {Scheme Variable} %default-route-link-attr-decoder

Contains the default association list for the known types of routing attributes

for link messages.  This list is defined in @code{(netlink route attrs)}.

    (link-attr ,(route:deserialize-route-attr 'link-attr)

               ,@route:%default-route-link-attr-decoder)))

           default-route-attr-decoder

           %default-route-link-attr-decoder))

(define (deserialize-route-attr message-type)

  (lambda (decoder bv pos)

    (let* ((len (bytevector-u16-ref bv pos (native-endianness)))

           (type (bytevector-u16-ref bv (+ pos 2) (native-endianness)))

           (deserialize (get-next-deserialize decoder message-type type))

           (data-bv (make-bytevector (- len 4))))

      (bytevector-copy! bv (+ pos 4) data-bv 0 (- len 4))

      (make-route-attr

        type

        (deserialize decoder data-bv 0)))))

(define %default-route-link-attr-decoder

  (default-route-attr-decoder deserialize-route-attr-data-ethernet))

(define (default-route-attr-decoder deserialize-addr)

    (,IFLA_ADDRESS . ,deserialize-addr)

    (,IFLA_BROADCAST . ,deserialize-addr)

    (,IFLA_PERM_ADDRESS . ,deserialize-addr)

            (let ((attr (deserialize 'link-attr decoder bv pos)))