with Interfaces;
with Interfaces.C;
package Agila_ABI is
   subtype Word is Interfaces.Unsigned_32;
   subtype Code is Interfaces.C.int;
   function Create (Owner : Word) return Word
     with Export, Convention => C, External_Name => "agila_port_create";
   function Allow_Sender (Handle, Owner, Sender : Word) return Code
     with Export, Convention => C, External_Name => "agila_port_allow_sender";
   function Revoke_Sender (Handle, Owner, Sender : Word) return Code
     with Export, Convention => C, External_Name => "agila_port_revoke_sender";
   function Send (Handle, Caller, Value : Word) return Code
     with Export, Convention => C, External_Name => "agila_port_send";
   function Receive (Handle, Caller : Word; Value : access Word) return Code
     with Export, Convention => C, External_Name => "agila_port_receive";
   function Close (Handle, Caller : Word) return Code
     with Export, Convention => C, External_Name => "agila_port_close";
end Agila_ABI;