Alejandro R Mosteo
51 lines
1.3 KiB
Ada
51 lines
1.3 KiB
Ada
with Alire.Index;
|
|
|
|
package body Alire.Root is
|
|
|
|
Root : access Roots.Root;
|
|
-- Root dependency (the working project). If Is_Empty we know we must recompile,
|
|
-- unless the hash already matches. In this case, we know the project file is
|
|
-- missing the Set call
|
|
|
|
-------------
|
|
-- Current --
|
|
-------------
|
|
|
|
function Current return Roots.Root is (Root.all);
|
|
|
|
------------
|
|
-- Is_Set --
|
|
------------
|
|
|
|
function Is_Set return Boolean is (Root /= null);
|
|
|
|
---------
|
|
-- Set --
|
|
---------
|
|
|
|
function Set (Project : Projects.Names;
|
|
Version : Semantic_Versioning.Version)
|
|
return Roots.Root
|
|
is
|
|
begin
|
|
Root := new Roots.Root'(Roots.New_Root (Index.Find (Projects.Image (Project), Version)));
|
|
Trace.Debug ("Storing indexed release as root: " & Root.Release.Milestone.Image);
|
|
return Root.all;
|
|
end Set;
|
|
|
|
---------
|
|
-- Set --
|
|
---------
|
|
|
|
function Set (Project : Name_String;
|
|
Dependencies : Conditional.Dependencies)
|
|
return Roots.Root
|
|
is
|
|
begin
|
|
Trace.Debug ("Storing unindexed project as root:" & Project);
|
|
Root := new Roots.Root'(Roots.New_Root (Project, Dependencies));
|
|
return Root.all;
|
|
end Set;
|
|
|
|
end Alire.Root;
|