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

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

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

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

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

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

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

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