;;;; Copyright (C) 2020 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 (netlink deserialize)

  #:use-module (netlink constant)

  #:use-module ((netlink route addr) #:prefix route:)

  #:use-module ((netlink route attrs) #:prefix route:)

  #:use-module ((netlink route link) #:prefix route:)

  #:use-module ((netlink route route) #:prefix route:)

  #:use-module (netlink standard)

  #:use-module (netlink message)

  #:export (%default-message-decoder

            %default-route-decoder))

(define %default-message-decoder

  `((,NLMSG_NOOP . ,deserialize-no-data)

    (,NLMSG_ERROR . ,deserialize-error-message)

    (,NLMSG_DONE . ,deserialize-no-data)))

;; for RTNETLINK

(define %default-route-decoder

  `((message ,deserialize-message

      ,@%default-message-decoder

      (,RTM_NEWLINK . ,route:deserialize-link-message)

      (,RTM_DELLINK . ,route:deserialize-link-message)

      (,RTM_GETLINK . ,route:deserialize-link-message)

      (,RTM_SETLINK . ,route:deserialize-link-message)

      (,RTM_NEWADDR . ,route:deserialize-addr-message)

      (,RTM_DELADDR . ,route:deserialize-addr-message)

      (,RTM_GETADDR . ,route:deserialize-addr-message)

      (,RTM_NEWROUTE . ,route:deserialize-route-message)

      (,RTM_DELROUTE . ,route:deserialize-route-message)

      (,RTM_GETROUTE . ,route:deserialize-route-message))

    (message-hdr ,deserialize-message-header '())

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

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

    (ipv4-addr-attr ,(route:deserialize-route-attr 'ipv4-addr-attr)

                    ,@route:%default-route-addr-ipv4-attr-decoder)

    (ipv6-addr-attr ,(route:deserialize-route-attr 'ipv6-addr-attr)

                    ,@route:%default-route-addr-ipv6-attr-decoder)

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

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

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

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

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

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