1. ------------------------------------------------------------------------- 
  2.  --  GL.Errors - error support sub - programs. 
  3.  -- 
  4.  --  Copyright (c) Rod Kay 2007 
  5.  --  AUSTRALIA 
  6.  --  Permission granted to use this software, without any warranty, 
  7.  --  for any purpose, provided this copyright note remains attached 
  8.  --  and unmodified if sources are distributed further. 
  9.  ------------------------------------------------------------------------- 
  10.  
  11. package GL.Errors is 
  12.  
  13.    openGL_Error  : exception; 
  14.  
  15.    function Current return String; 
  16.    -- 
  17.    -- returns a descriptive string of the last occuring openGL error. 
  18.    -- returns "", when no error exists. 
  19.    -- clears any existing error. 
  20.  
  21.    procedure log (Prefix : String := ""); 
  22.    -- 
  23.    -- displays 'Current' error via ada.Text_IO.put_Line. 
  24.    -- clears any existing error. 
  25.    -- raises 'openGL_Error' when an opengl error has been detected. 
  26.  
  27.    procedure log (Prefix : String := "";   error_Occurred  : out Boolean); 
  28.    -- 
  29.    -- displays 'Current' via ada.Text_IO.put_Line. 
  30.    -- clears any existing error. 
  31.    -- sets error_Occurred to true, if a GL error was detected. 
  32.  
  33. end GL.Errors;