Root_Project -> Root_Release

This commit is contained in:
Alejandro R Mosteo
2018-03-09 12:05:32 +01:00
parent 36db1405e7
commit 6f5a5c7b57
4 changed files with 7 additions and 20 deletions
+4 -8
View File
@@ -15,7 +15,7 @@ with Alire.Releases;
with Alire.Requisites;
with Alire.Requisites.Dependencies;
with Alire.Requisites.Platform;
with Alire.Root_Project;
with Alire.Root_Release;
with Alire.Utils;
with Semantic_Versioning;
@@ -249,14 +249,10 @@ package Alire.Index is
function Word_Size is new Requisites.Platform.Word_Sizes.Factory;
use all type Requisites.Platform.Word_Sizes.Comparable;
----------------------
-- Set_Root_Project --
----------------------
function Set_Root_Project (Project : Alire.Project_Name;
Version : Semantic_Versioning.Version;
function Set_Root_Release (Project : Alire.Project_Name;
Version : Semantic_Versioning.Version;
Dependencies : Conditional.Dependencies := No_Dependencies)
return Release renames Root_Project.Set;
return Release renames Root_Release.Set;
-- This function must be called in the working project alire file.
-- Otherwise alr does not know what's the current project, and its version and dependencies
-- The returned Release is the same; this is just a trick to be able to use it in an spec file.
-7
View File
@@ -1,7 +0,0 @@
with Alire.Index;
package Alire.Project renames Alire.Index;
-- Since the facilities used to register projects in the index are the same used
-- by a working project to state dependencies, instead of duplicating them or
-- forcing clients to with everything around, everything is done inside Index
@@ -3,11 +3,9 @@ with Alire.Releases;
with Semantic_Versioning;
package Alire.Root_Project is
package Alire.Root_Release is
-- Only file needed from the project alr file (project_alr.ads).
-- Besides the important Set_Root_Project, unfortunately it renames most of Alire.Index to
-- make it directly visible in project_alr.ads
-- When alr self-compiles it inserts a call to this function, so the dependency root is stablished
function Set (Project : Project_Name;
Version : Semantic_Versioning.Version;
@@ -22,4 +20,4 @@ package Alire.Root_Project is
function Is_Set return Boolean;
end Alire.Root_Project;
end Alire.Root_Release;