From 79cc7c5d56a2b600f307a1c667b6f0d9c1813855 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sun, 31 Dec 2023 21:34:37 +1100 Subject: [PATCH] physics.box2d.thin: Add 'box2d_c.b2d_point_collision.ads'. --- .../thin/box2d_c-b2d_point_collision.ads | 84 +++++++++++++++++++ 1 file changed, 84 insertions(+) create mode 100644 3-mid/physics/implement/box2d/source/thin/box2d_c-b2d_point_collision.ads diff --git a/3-mid/physics/implement/box2d/source/thin/box2d_c-b2d_point_collision.ads b/3-mid/physics/implement/box2d/source/thin/box2d_c-b2d_point_collision.ads new file mode 100644 index 0000000..918ba84 --- /dev/null +++ b/3-mid/physics/implement/box2d/source/thin/box2d_c-b2d_point_collision.ads @@ -0,0 +1,84 @@ +-- 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_point_Collision is + + -- Item + -- + +type Item is + record + near_Object : access box2d_c.Object; + Site_world : 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_point_Collision.Item; + + + + -- Pointer + -- + package C_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t, + Element => box2d_c.b2d_point_Collision.Item, + element_Array => box2d_c.b2d_point_Collision.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_point_Collision.Pointer; + + + + -- Pointer_Pointer + -- + package C_Pointer_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t, + Element => box2d_c.b2d_point_Collision.Pointer, + element_Array => box2d_c.b2d_point_Collision.Pointer_Array, + default_Terminator => null); + +subtype Pointer_Pointer is C_Pointer_Pointers.Pointer; + + + + + + + function construct return box2d_c.b2d_point_Collision.Item; + + procedure destruct_0 (Self : in box2d_c.b2d_point_Collision.Item); + + procedure destruct (Self : in box2d_c.b2d_point_Collision.Item); + + + + + + + + + +private + + + + + pragma Import (CPP, construct, "ada_new_b2d_point_Collision_b2d_point_Collision"); + pragma Import (CPP, destruct_0, "_ZN19b2d_point_CollisionD1Ev"); + pragma Import (CPP, destruct, "_ZN19b2d_point_CollisionD1Ev"); + + + +end box2d_c.b2d_point_Collision;