ip/addr.scm \

  ip/link.scm \

  ip/utils.scm

@node Addr

@section Addr

The @code{(ip addr)} module introduces procedures to access and modify the

network addresses on your machine.  They are equivalent to the @command{ip addr}

family of commands, from @code{iproute2}.

@deffn {Scheme Procedure} addr-del @var{device} @var{cidr} [@var{#:ipv6?} #f]

Delete the address given in @var{cidr} from @var{device}. @var{device} can

contain the name of the link, as a string, or its index, as a number.

@var{cidr} must be a string containing the address and prefix length, in

CIDR notation (@code{addr/prefix}).

@example

(addr-del "enp1s0" "192.0.2.15/24")

@end example

If you wish to remove an IPv6 address instead, set @code{#:ipv6} to @code{#t},

as in the following example.

@example

(addr-del "enp1s0" "2001:db8::1a4c/64" #:ipv6? #t)

@end example

Note that using the wrong ip type with the wrong value for the @code{#:ipv6?}

flag will result in a @code{Bad address} error from netlink.

@end deffn

;;;; Copyright (C) 2021 Julien Lepiller <julien@lepiller.eu>

;;;; 

;;;; This library is free software; you can redistribute it and/or

;;;; modify it under the terms of the GNU Lesser General Public

;;;; License as published by the Free Software Foundation; either

;;;; version 3 of the License, or (at your option) any later version.

;;;; 

;;;; This library is distributed in the hope that it will be useful,

;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

;;;; Lesser General Public License for more details.

;;;; 

;;;; You should have received a copy of the GNU Lesser General Public

;;;; License along with this library; if not, write to the Free Software

;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

;;;; 

(define-module (ip addr)

  #:use-module (ice-9 match)

  #:use-module (ip link)

  #:use-module (ip utils)

  #:use-module (netlink route addr)

  #:use-module (netlink route attrs)

  #:use-module (netlink connection)

  #:use-module (netlink constant)

  #:use-module (netlink deserialize)

  #:use-module (netlink message)

  #:use-module (netlink standard)

  #:use-module (srfi srfi-1)

  #:export (addr-add

            addr-del

            addr-show))

(define (cidr->addr str)

  (match (string-split str #\/)

    ((addr) addr)

    ((addr prefix) addr)

    (_ (throw 'incorrect-cidr-notation str))))

(define (cidr->prefix str)

  (match (string-split str #\/)

    ((addr) #f)

    ((addr prefix) (string->number prefix))

    (_ (throw 'incorrect-cidr-notation str))))

(define* (addr-del device cidr #:key (ipv6? #f))

  (define request-num (random 65535))

  (define prefix (cidr->prefix cidr))

  (define addr (cidr->addr cidr))

  (define index

    (cond

      ((number? device) device)

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

  (define message

    (make-message

      RTM_DELADDR

      (logior NLM_F_REQUEST NLM_F_ACK)

      request-num

      0

      (make-addr-message

        (if ipv6? AF_INET6 AF_INET)

        (if prefix prefix 0)

        0

        0

        index

        (list

          (make-route-attr IFA_LOCAL

            ((if ipv6?

                 make-ipv6-route-attr

                 make-ipv4-route-attr)

             addr))

          (make-route-attr IFA_ADDRESS

            ((if ipv6?

                 make-ipv6-route-attr

                 make-ipv4-route-attr)

             addr))))))

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

    (send-msg message sock)

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

      (close-socket sock)

      (answer-ok? (last answer)))))

  #:use-module (ip utils)

            link-show

            link-name->index))

;;;; Copyright (C) 2021 Julien Lepiller <julien@lepiller.eu>

;;;; 

;;;; This library is free software; you can redistribute it and/or

;;;; modify it under the terms of the GNU Lesser General Public

;;;; License as published by the Free Software Foundation; either

;;;; version 3 of the License, or (at your option) any later version.

;;;; 

;;;; This library is distributed in the hope that it will be useful,

;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

;;;; Lesser General Public License for more details.

;;;; 

;;;; You should have received a copy of the GNU Lesser General Public

;;;; License along with this library; if not, write to the Free Software

;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

;;;; 

(define-module (ip utils)

  #:use-module (netlink constant)

  #:use-module (netlink data)

  #:use-module (netlink message)

  #:use-module (netlink standard)

  #:export (answer-ok?))

(define (answer-ok? answer)

  (cond

    ((equal? (message-kind answer) NLMSG_DONE)

     #t)

    ((equal? (message-kind answer) NLMSG_ERROR)

     (let ((data (message-data answer)))

       (if (nl-data-data data)

           (let ((err (error-message-err data)))

             (if (equal? err 0)

                 #t

                 (begin

                   (format #t "RTNETLINK answers: ~a~%" (strerror (- err)))

                   #f)))

           #f)))))