-- Mavlink connection
-- Copyright Fil Andrii root.fi36@gmail.com 2022

with Interfaces;
with Mavlink.Messages;
with X25CRC;

package Mavlink.Connection is

   pragma Pure (Mavlink.Connection);

   type Connection (System_Id : Interfaces.Unsigned_8) is tagged private;

   function Parse_Byte (Conn : in out Connection; Val : Interfaces.Unsigned_8)
                        return Boolean;

   function Get_Msg_Id (Conn : Connection) return Msg_Id;

   function Pack (Conn : in out Connection;
                  Msg : Mavlink.Messages.Message'Class) return Byte_Arrray;

   procedure Unpack (Conn : in out Connection;
                     Msg  : in out Mavlink.Messages.Message'Class);

private

   Pos_Msg_Id : constant Natural := 5;

   type Connection (System_Id : Interfaces.Unsigned_8) is tagged record
      Component_Id : Interfaces.Unsigned_8 := 1;
      In_Buf       : Byte_Arrray (0 .. 255 + 8) := (others => 0);
      In_Ptr       : Natural := 0;
      Len          : Natural := 0;
      Out_Sequency : Interfaces.Unsigned_8 := 0;
      Checksum     : X25CRC.Checksum;
   end record;

end Mavlink.Connection;