nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

physics.box2d.source.thin: Regenerate thin binding with swig.

Browse Source
This commit is contained in:
Rod Kay
2025-08-04 14:28:19 +10:00
parent fac32b4dcb
commit 59d478511e
9 changed files with 1063 additions and 1060 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
3-mid/physics/implement/box2d/source/thin/box2d_c-binding.ads
View File

@@ -157,7 +157,8 @@ collide_Connected : in swig.bool) return box2d_c.Pointers.Joint_Pointer;
procedure b2d_free_hinge_Joint (Self : in box2d_c.Pointers.Joint_Pointer);
function b2d_new_space_hinge_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;
function b2d_new_space_hinge_Joint (in_Space : in box2d_c.Pointers.Space_Pointer;
Object_A : in box2d_c.Pointers.Object_Pointer;
Frame_A : in c_math_c.Matrix_4x4.Pointer) return box2d_c.Pointers.Joint_Pointer;
function b2d_new_DoF6_Joint (Object_A : in box2d_c.Pointers.Object_Pointer;

28
3-mid/physics/implement/box2d/source/thin/box2d_c-pointers.ads
View File

@@ -1,13 +1,14 @@
-- This file is generated by SWIG. Please do not modify by hand.
--
with interfaces.C.Pointers,
System;
with Interfaces.C;
use Interfaces.C;
with interfaces.C.Pointers;
with System;
package box2d_c.Pointers
is
use System;
package box2d_c.Pointers is
@@ -16,7 +17,7 @@ is
package C_Shape_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.Shape,
element_Array => box2d_c.Shape_Array,
default_Terminator => null_Address);
default_Terminator => System.null_Address);
subtype Shape_Pointer is C_Shape_Pointers.Pointer;
@@ -31,7 +32,7 @@ subtype Shape_Pointer is C_Shape_Pointers.Pointer;
package C_Object_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.Object,
element_Array => box2d_c.Object_Array,
default_Terminator => null_Address);
default_Terminator => System.null_Address);
subtype Object_Pointer is C_Object_Pointers.Pointer;
@@ -46,7 +47,7 @@ subtype Object_Pointer is C_Object_Pointers.Pointer;
package C_Joint_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.Joint,
element_Array => box2d_c.Joint_Array,
default_Terminator => null_Address);
default_Terminator => System.null_Address);
subtype Joint_Pointer is C_Joint_Pointers.Pointer;
@@ -61,7 +62,7 @@ subtype Joint_Pointer is C_Joint_Pointers.Pointer;
package C_Space_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.Space,
element_Array => box2d_c.Space_Array,
default_Terminator => null_Address);
default_Terminator => System.null_Address);
subtype Space_Pointer is C_Space_Pointers.Pointer;
@@ -76,7 +77,7 @@ subtype Space_Pointer is C_Space_Pointers.Pointer;
package C_b2Joint_Pointers is new interfaces.c.Pointers (Index => interfaces.c.size_t,
Element => box2d_c.b2Joint,
element_Array => box2d_c.b2Joint_Array,
default_Terminator => null_Address);
default_Terminator => System.null_Address);
subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;
@@ -86,11 +87,4 @@ subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;
end box2d_c.Pointers;

52
3-mid/physics/implement/box2d/source/thin/box2d_c_wrap.cxx
View File

@@ -1329,18 +1329,24 @@ DllExport void * SWIGSTDCALL Ada_b2d_new_space_hinge_Joint (
,
void * a_arg2
,
void * a_arg3
)
{
void * jresult ;
Object *arg1 = (Object *) 0 ;
Matrix_4x4 *arg2 = (Matrix_4x4 *) 0 ;
Space *arg1 = (Space *) 0 ;
Object *arg2 = (Object *) 0 ;
Matrix_4x4 *arg3 = (Matrix_4x4 *) 0 ;
Joint *result = 0 ;
arg1 = (Object *)a_arg1;
arg1 = (Space *)a_arg1;
arg2 = (Matrix_4x4 *)a_arg2;
arg2 = (Object *)a_arg2;
result = (Joint *)b2d_new_space_hinge_Joint(arg1,arg2);
arg3 = (Matrix_4x4 *)a_arg3;
result = (Joint *)b2d_new_space_hinge_Joint(arg1,arg2,arg3);
jresult = (void *) result;
@@ -1527,26 +1533,26 @@ DllExport void* SWIGSTDCALL Ada_b2d_Joint_user_Data (
}
/* RAK
DllExport void SWIGSTDCALL Ada_b2d_Joint_user_Data_is (
void * a_arg1
,
void* a_arg2
)
{
Joint *arg1 = (Joint *) 0 ;
void *arg2 = (void *) 0 ;
// DllExport void SWIGSTDCALL Ada_b2d_Joint_user_Data_is (
// void * a_arg1
// ,
//
// void* a_arg2
// )
// {
// Joint *arg1 = (Joint *) 0 ;
// void *arg2 = (void *) 0 ;
//
// arg1 = (Joint *)a_arg1;
//
// arg2 = (void *)a_arg2;
//
// b2d_Joint_user_Data_is(arg1,arg2);
//
//
// }
arg1 = (Joint *)a_arg1;
arg2 = (void *)a_arg2;
b2d_Joint_user_Data_is(arg1,arg2);
}
*/
DllExport void * SWIGSTDCALL Ada_b2d_Joint_Object_A (

2
4-high/gel/source/joint/gel-hinge_joint.adb
View File

@@ -225,6 +225,8 @@ is
Self.Softness := Softness;
Self.bias_Factor := bias_Factor;
Self.relaxation_Factor := relaxation_Factor;
Self.apply_Limits;
end Limits_are;