@deffn {Scheme Procedure} addr-show [@var{device}]

Print the list of addresses for each device on standard output.  Setting

@code{device} to a link name or link identifier will restrict the output

to addresses of that device.

@end deffn

  #:use-module (srfi srfi-9)

(define-record-type <addr>

  (make-addr family prefix flags scope link label addr brd cacheinfo)

  addr?

  (family    addr-family)

  (prefix    addr-prefix)

  (flags     addr-flags)

  (scope     addr-scope)

  (link      addr-link)

  (label     addr-label)

  (addr      addr-addr)

  (brd       addr-brd)

  (cacheinfo addr-cacheinfo))

(define (get-addrs)

  (define request-num (random 65535))

  (define message

    (make-message

      RTM_GETADDR

      (logior NLM_F_REQUEST NLM_F_DUMP)

      request-num

      0

      (make-addr-message AF_UNSPEC 0 0 0 0 '())))

  (let ((sock (connect-route)))

    (send-msg message sock)

    (let* ((answer (receive-and-decode-msg sock %default-route-decoder))

           (addrs (filter

                    (lambda (msg) (equal? (message-kind msg) RTM_NEWADDR))

                    answer))

           (addrs (map

                    (lambda (msg)

                      (let* ((data (message-data msg))

                             (attrs (addr-message-attrs data)))

                        (make-addr

                          (addr-message-family data)

                          (addr-message-prefix-len data)

                          (map

                            int->ifa-flag

                            (split-flags (logior (addr-message-flags data)

                                                 (get-attr attrs IFA_FLAGS))))

                          (addr-message-scope data)

                          (addr-message-index data)

                          (get-attr attrs IFA_LABEL)

                          (get-attr attrs IFA_ADDRESS)

                          (get-attr attrs IFA_BROADCAST)

                          (get-attr attrs IFA_CACHEINFO))))

                    addrs)))

      (close-socket sock)

      addrs)))

(define print-addr

  (match-lambda

    (($ <addr> family prefix flags scope link label addr brd cacheinfo)

     (format #t "    ~a ~a"

             (match family (AF_INET "inet") (AF_INET6 "inet6"))

             addr)

     (when brd

       (format #t " brd ~a" brd))

     (when scope

       (format #t " scope ~a"

               (match scope

                 (RT_SCOPE_UNIVERSE "global")

                 (_ (substring (symbol->string (int->rtm-scope scope)) 8)))))

     (for-each

       (lambda (flag)

         (unless (equal? flag 'IFA_F_PERMANENT)

           (format #t " ~a"

                   (substring (symbol->string flag) 6))))

       flags)

     (when label

       (format #t " ~a" label))

     (format #t "~%")

     (when cacheinfo

       (if (member 'IFA_F_PERMANENT flags)

           (format #t "        valid_lft forever preferred_lft forever~%")

           (format #t "        valid_lft ??sec preferred_lft ??sec~%"))))))

(define* (addr-show #:optional (device #f))

  (define links (get-links))

  (define index

    (cond

      ((number? device) device)

      ((string? device) (link-name->index device))

      (else #f)))

  (define addrs (get-addrs))

  (for-each

    (lambda (link)

      (unless (and index (not (equal? (link-id link) index)))

        (print-link link)

        (for-each print-addr

                  (filter (lambda (addr) (equal? (link-id link) (addr-link addr)))

                          addrs))))

    links))

;; ifa_flags

(define-enum int->ifa-flag

  (IFA_F_SECONDARY      #x01)

  (IFA_F_TEMPORARY      #x01) 

  (IFA_F_NODAD          #x02)

  (IFA_F_OPTIMISTIC     #x04)

  (IFA_F_DADFAILED      #x08)

  (IFA_F_HOMEADDRESS    #x10)

  (IFA_F_DEPRECATED     #x20)

  (IFA_F_TENTATIVE      #x40)

  (IFA_F_PERMANENT      #x80)

  (IFA_F_MANAGETEMPADDR #x100)

  (IFA_F_NOPREFIXROUTE  #x200)

  (IFA_F_MCAUTOJOIN     #x400)

  (IFA_F_STABLE_PRIVACY #x800))

    (,IFA_FLAGS . ,deserialize-route-attr-data-u32)