From 5860ed71fb42d50bdfb67443c57ff1ada1097e85 Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Wed, 24 Apr 2024 19:13:34 +1000
Subject: [PATCH] opengl.errors: Add a 'Debugging' function with separate
 bodies for debugging and not debugging.

---
 3-mid/opengl/library/opengl_core.gpr               | 14 +++++++++++++-
 3-mid/opengl/source/opengl-errors-debugging.adb    |  7 +++++++
 .../opengl/source/opengl-errors-not_debugging.adb  |  7 +++++++
 3-mid/opengl/source/opengl-errors.adb              |  5 +++++
 3-mid/opengl/source/opengl-errors.ads              |  5 +++++
 5 files changed, 37 insertions(+), 1 deletion(-)
 create mode 100644 3-mid/opengl/source/opengl-errors-debugging.adb
 create mode 100644 3-mid/opengl/source/opengl-errors-not_debugging.adb

diff --git a/3-mid/opengl/library/opengl_core.gpr b/3-mid/opengl/library/opengl_core.gpr
index 23977df..f3bf032 100644
--- a/3-mid/opengl/library/opengl_core.gpr
+++ b/3-mid/opengl/library/opengl_core.gpr
@@ -30,7 +30,19 @@ is
                         "../source/platform/" & external ("opengl_platform", "egl") & "/private", 
                         "../source/platform/" & external ("opengl_platform", "egl") & "/private/thin");
 
-   
+   package Naming
+   is
+      case Lace_shared.lace_Build_Mode
+      is
+         when "debug" => 
+            for Body ("openGL.Errors.Debugging") use "opengl-errors-debugging.adb";  
+      
+         when others  => 
+            for Body ("openGL.Errors.Debugging") use "opengl-errors-not_debugging.adb";  
+      end case;
+   end Naming;
+      
+        
    package Builder renames Lace_shared.Builder;
 
 
diff --git a/3-mid/opengl/source/opengl-errors-debugging.adb b/3-mid/opengl/source/opengl-errors-debugging.adb
new file mode 100644
index 0000000..126ad2d
--- /dev/null
+++ b/3-mid/opengl/source/opengl-errors-debugging.adb
@@ -0,0 +1,7 @@
+separate (openGL.Errors)
+
+function Debugging return Boolean
+is
+begin
+   return True;
+end Debugging;
diff --git a/3-mid/opengl/source/opengl-errors-not_debugging.adb b/3-mid/opengl/source/opengl-errors-not_debugging.adb
new file mode 100644
index 0000000..2b69ab2
--- /dev/null
+++ b/3-mid/opengl/source/opengl-errors-not_debugging.adb
@@ -0,0 +1,7 @@
+separate (openGL.Errors)
+
+function Debugging return Boolean
+is
+begin
+   return False;
+end Debugging;
diff --git a/3-mid/opengl/source/opengl-errors.adb b/3-mid/opengl/source/opengl-errors.adb
index 20141bb..63b8351 100644
--- a/3-mid/opengl/source/opengl-errors.adb
+++ b/3-mid/opengl/source/opengl-errors.adb
@@ -70,4 +70,9 @@ is
    end log;
 
 
+
+
+   function Debugging return Boolean is separate;
+
+
 end openGL.Errors;
diff --git a/3-mid/opengl/source/opengl-errors.ads b/3-mid/opengl/source/opengl-errors.ads
index 3ff911b..765b916 100644
--- a/3-mid/opengl/source/opengl-errors.ads
+++ b/3-mid/opengl/source/opengl-errors.ads
@@ -22,4 +22,9 @@ is
    --  Clears any existing error.
    --  Sets 'Error_occurred' to true, if a GL error was detected.
 
+
+   function Debugging return Boolean;
+   --
+   -- True when the build mode is
+
 end openGL.Errors;