Back to... GLOBE_3D

Source file : gl-errors.ads


-------------------------------------------------------------------------
--  GL.Errors - error support sub-programs.
--
--  Copyright (c) Rod Kay 2016
--  AUSTRALIA
--
--  Permission granted to use this software, without any warranty,
--  for any purpose, provided this copyright note remains attached
--  and unmodified if sources are distributed further.
-------------------------------------------------------------------------

package GL.Errors is

   openGL_Error : exception;

   function Current return String;
   --
   -- Returns a descriptive string of the last occuring openGL error.
   -- Returns "", when no error exists.
   -- Clears any existing error.

   procedure Log (Prefix : in String := "");
   --
   -- Displays 'Current' error via Ada.Text_IO.Put_Line.
   -- Clears any existing error.
   -- Raises 'openGL_Error' when an opengl error has been detected.

   procedure Log (Prefix : in String := "";   error_Occurred : out Boolean);
   --
   -- Displays 'Current' via Ada.Text_IO.Put_Line.
   -- Clears any existing error.
   -- Sets error_Occurred to true, if a GL error was detected.

end GL.Errors;

GLOBE_3D: Ada library for real-time 3D rendering. Ada programming.