with Ada.Characters.Handling;
with Ada.Directories;

with WL.Images.DDS;
with WL.Images.TGA;

package body WL.Images.Reader is

   ---------------------
   -- Read_Image_File --
   ---------------------

   procedure Read_Image_File
     (Image : out Image_Type'Class;
      Path  : String)
   is
      Ext : constant String :=
              Ada.Characters.Handling.To_Lower
                (Ada.Directories.Extension (Path));
   begin
      if Ext = "dds" then
         WL.Images.DDS.Read_DDS (Image, Path);
      elsif Ext = "tga" then
         WL.Images.TGA.Read_TGA (Image, Path);
      else
         raise Constraint_Error with
           "unknown image format: " & Ext;
      end if;
   end Read_Image_File;

end WL.Images.Reader;