#:use-module (srfi srfi-9)

  #:export (make-nl-data

            nl-data-data nl-data-size-proc nl-data-serialize-proc

            serialize deserialize

            get-current-deserialize get-next-deserialize

            define-data-type))

(define (serialize data pos bv)

  ((nl-data-serialize-proc data) (nl-data-data data) pos bv))

(define (get-next-deserialize decoder current-type target-type)

  (match (assoc-ref decoder current-type)

    ((_ . type-alist)

        (bytevector-u32-ref bv (+ pos 8) (native-endianness))

        (bytevector-u32-ref bv (+ pos 12) (native-endianness))

        (if (< (data-size data) (- len 16))

            data)))))

(define (deserialize-message-header decoder bv pos)

(define (deserialize-error-message decoder bv pos)

  (make-error-message

    (bytevector-s32-ref bv pos (native-endianness))

(define no-data

  (make-nl-data