with Ada.Directories;
with Ada.Environment_Variables;
package body SP.Platform is
function Home_Dir return String is
package Env renames Ada.Environment_Variables;
User_Profile : constant String := "HOME";
begin
if Env.Exists (User_Profile) then
return Ada.Directories.Full_Name (Env.Value (User_Profile));
else
-- TODO: Add a better fallback case here.
return "";
end if;
end Home_Dir;
function Path_Separator return Character is ('\');
function Path_Opposite_Separator return Character is ('/');
end SP.Platform;