39 lines
1.1 KiB
Ada
39 lines
1.1 KiB
Ada
|
-- 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;
|