19 lines
975 B
Ada
19 lines
975 B
Ada
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;
|