-----------------------------------------------------------------------
--  servlet-parts-mockup -- Mockup servlet parts (ie, local files)
--  Copyright (C) 2020 Stephane Carrez
--  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
--  SPDX-License-Identifier: Apache-2.0
-----------------------------------------------------------------------

with Ada.Directories;
package body Servlet.Parts.Mockup is

   --  ------------------------------
   --  Get the size of the mime part.
   --  ------------------------------
   overriding
   function Get_Size (Data : in Part) return Natural is
   begin
      return Natural (Ada.Directories.Size (To_String (Data.Path)));
   end Get_Size;

   --  ------------------------------
   --  Get the content name submitted in the mime part.
   --  ------------------------------
   overriding
   function Get_Name (Data : in Part) return String is
   begin
      return To_String (Data.Name);
   end Get_Name;

   --  ------------------------------
   --  Get the path of the local file which contains the part.
   --  ------------------------------
   overriding
   function Get_Local_Filename (Data : in Part) return String is
   begin
      return To_String (Data.Path);
   end Get_Local_Filename;

   --  ------------------------------
   --  Get the content type of the part.
   --  ------------------------------
   overriding
   function Get_Content_Type (Data : in Part) return String is
   begin
      return To_String (Data.Content_Type);
   end Get_Content_Type;

   --  ------------------------------
   --  Create the part content by using a local file path.
   --  ------------------------------
   procedure Create (Into         : out Part;
                     Name         : in String;
                     Path         : in String;
                     Content_Type : in String) is
   begin
      Into.Name := To_Unbounded_String (Name);
      Into.Path := To_Unbounded_String (Path);
      Into.Content_Type := To_Unbounded_String (Content_Type);
   end Create;

end Servlet.Parts.Mockup;