with Alire.Platforms.Posix;

package body Alire.Platforms.Current is

   --  OpenBSD implementation (very close to Linux/FreeBSD)

   ---------------------------
   -- Detected_Distribution --
   ---------------------------

   function Detected_Distribution return Platforms.Distributions
   is (Platforms.Distribution_Unknown);

   -----------------------
   -- Distribution_Root --
   -----------------------

   function Distribution_Root return Absolute_Path
   is ("/");

   ----------------------
   -- Load_Environment --
   ----------------------

   procedure Load_Environment (Ctx : in out Alire.Environment.Context)
   is null;

   ----------------------
   -- Operating_System --
   ----------------------

   function Operating_System return Alire.Platforms.Operating_Systems
   is (Alire.Platforms.OpenBSD);

   ----------------
   -- Initialize --
   ----------------

   procedure Initialize is null;

   ---------------------
   -- Running_As_Root --
   ---------------------

   function Running_As_Root return Boolean
   is (Posix.Running_As_Root);

end Alire.Platforms.Current;
