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

build_all: Updates.

Browse Source
This commit is contained in:
Rod Kay
2024-06-22 20:32:47 +10:00
parent 0889c6c07c
commit d24de3e1f9
6 changed files with 33 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
3-mid/opengl/private/gl/source/gl-safe.ads
View File

@@ -1,5 +1,7 @@
with
Interfaces.C.Pointers;
Interfaces.C.Pointers,
System;
package GL.safe
--
@@ -42,7 +44,7 @@ is
package GLvoid_Pointers is new C.Pointers (Index => C.size_t,
Element => GLvoid,
Element_Array => GLvoid_array,
Default_Terminator => 0);
Default_Terminator => system.null_Address);
subtype GLvoid_Pointer is GLvoid_Pointers.Pointer;

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

@@ -1,13 +1,13 @@
-- This file is generated by SWIG. Please do not modify by hand.
--
with Interfaces.C;
use Interfaces.C;
with interfaces.C.Pointers;
with interfaces.C.Pointers,
System;
package box2d_c.Pointers is
package box2d_c.Pointers
is
use System;
@@ -16,7 +16,7 @@ package box2d_c.Pointers 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 => 0);
default_Terminator => null_Address);
subtype Shape_Pointer is C_Shape_Pointers.Pointer;
@@ -31,7 +31,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 => 0);
default_Terminator => null_Address);
subtype Object_Pointer is C_Object_Pointers.Pointer;
@@ -46,7 +46,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 => 0);
default_Terminator => null_Address);
subtype Joint_Pointer is C_Joint_Pointers.Pointer;
@@ -61,7 +61,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 => 0);
default_Terminator => null_Address);
subtype Space_Pointer is C_Space_Pointers.Pointer;
@@ -76,7 +76,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 => 0);
default_Terminator => null_Address);
subtype b2Joint_Pointer is C_b2Joint_Pointers.Pointer;

5
4-high/gel/applet/demo/sprite/chains_2d/launch_chains_2d.adb
View File

@@ -26,6 +26,7 @@ is
space_Kind => physics.Box2D);
the_Ground : constant gel.Sprite.view := new_rectangle_Sprite (the_Applet.gui_World,
Name => "the_Ground",
Mass => 0.0,
Width => 100.0,
Height => 1.0,
@@ -43,8 +44,8 @@ begin
--
declare
ball_Count : constant := 39;
the_root_Ball : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, Mass => 0.0);
the_Balls : constant gel.Sprite.views := [1 .. ball_Count => new_circle_Sprite (the_Applet.gui_World, Mass => 1.0)];
the_root_Ball : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, Name => "the_root_Ball", Mass => 0.0);
the_Balls : constant gel.Sprite.views := [1 .. ball_Count => new_circle_Sprite (the_Applet.gui_World, Name => "the_Balls", Mass => 1.0)];
Parent : gel.Sprite.view := the_root_Ball;
new_Joint : gel.Joint .view;

4
4-high/gel/applet/demo/sprite/mixed_joints_2d/launch_mixed_joints_2d.adb
View File

@@ -47,8 +47,8 @@ begin
-- Hinge
--
declare
the_hinge_Box_1 : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, mass => 0.0);
the_hinge_Box_2 : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, mass => 1.0);
the_hinge_Box_1 : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, Name => "the_hinge_Box_1", mass => 0.0);
the_hinge_Box_2 : constant gel.Sprite.view := new_circle_Sprite (the_Applet.gui_World, Name => "the_hinge_Box_2", mass => 1.0);
new_Joint : gel. Joint .view;
Frame_A : constant math.Matrix_4x4 := math.Identity_4x4;

4
5-all/applet/build_all/build_all_lace.adb
View File

@@ -49,7 +49,7 @@ with
launch_Client,
launch_Server,
launch_Pong,
-- launch_Pong,
launch_Hello_gel,
launch_opengl_Model,
launch_Mouse_motion,
@@ -122,7 +122,7 @@ begin
launch_Client;
launch_Server;
launch_Pong;
-- launch_Pong;
launch_Hello_gel;
launch_opengl_Model;
launch_Mouse_motion;

2
5-all/applet/build_all/build_all_lace.gpr
View File

@@ -80,7 +80,7 @@ with
"../../../4-high/gel/applet/demo/distributed/dsa/demo_dsa",
"../../../4-high/gel/applet/demo/distributed/fused/gel_fused",
"../../../4-high/gel/applet/demo/game/box2d_test/gel_box2d_test",
"../../../4-high/gel/applet/demo/game/pong-gtk/pong",
-- "../../../4-high/gel/applet/demo/game/pong-gtk/pong",
"../../../4-high/gel/applet/demo/hello_gel/hello_sdl_gel",
"../../../4-high/gel/applet/demo/models/opengl_model/opengl_model",
"../../../4-high/gel/applet/demo/mouse/mouse_motion/mouse_motion",