86 lines
2.1 KiB
Ada
86 lines
2.1 KiB
Ada
-- This file is generated by SWIG. Please do not modify by hand.
|
|
--
|
|
with c_math_c.Vector_3;
|
|
with Interfaces.C;
|
|
|
|
use Interfaces.C;
|
|
with interfaces.C.Pointers;
|
|
|
|
|
|
|
|
package box2d_c.b2d_Contact is
|
|
|
|
-- Item
|
|
--
|
|
|
|
type Item is
|
|
record
|
|
Object_A : access box2d_c.Object;
|
|
Object_B : access box2d_c.Object;
|
|
Site : aliased c_math_c.Vector_3.Item;
|
|
end record;
|
|
|
|
|
|
|
|
-- Item_Array
|
|
--
|
|
type Item_Array is array (interfaces.C.Size_t range <>) of aliased box2d_c.b2d_Contact.Item;
|
|
|
|
|
|
|
|
-- Pointer
|
|
--
|
|
package C_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
|
|
Element => box2d_c.b2d_Contact.Item,
|
|
element_Array => box2d_c.b2d_Contact.Item_Array,
|
|
default_Terminator => (others => <>));
|
|
|
|
subtype Pointer is C_Pointers.Pointer;
|
|
|
|
-- Pointer_Array
|
|
--
|
|
type Pointer_Array is array (interfaces.C.Size_t range <>) of aliased box2d_c.b2d_Contact.Pointer;
|
|
|
|
|
|
|
|
-- Pointer_Pointer
|
|
--
|
|
package C_Pointer_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
|
|
Element => box2d_c.b2d_Contact.Pointer,
|
|
element_Array => box2d_c.b2d_Contact.Pointer_Array,
|
|
default_Terminator => null);
|
|
|
|
subtype Pointer_Pointer is C_Pointer_Pointers.Pointer;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function construct return box2d_c.b2d_Contact.Item;
|
|
|
|
procedure destruct_0 (Self : in box2d_c.b2d_Contact.Item);
|
|
|
|
procedure destruct (Self : in box2d_c.b2d_Contact.Item);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
private
|
|
|
|
|
|
|
|
|
|
pragma Import (CPP, construct, "ada_new_b2d_Contact_b2d_Contact");
|
|
pragma Import (CPP, destruct_0, "_ZN11b2d_ContactD1Ev");
|
|
pragma Import (CPP, destruct, "_ZN11b2d_ContactD1Ev");
|
|
|
|
|
|
|
|
end box2d_c.b2d_Contact;
|