;;;; This file is part of Guile Netlink

;;;;

;;;; 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 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 General Public License for more details.

;;;;

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

;;;; along with this library.  If not, see <https://www.gnu.org/licenses/>.

(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)))