alire/alire-index-community
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactorings concerning to origins

Browse Source 
Plus fix on empty dependencies
This commit is contained in:
A
2018-02-20 17:21:40 +01:00
parent 1db246d08c
commit 1a27d522fc
10 changed files with 93 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/alire-index.ads
+35 -34
View File
@@ -40,22 +40,22 @@ package Alire.Index is
-- Requisites are properties that dependencies have to fulfill, again not used yet.
-- Available_On are properties the platform has to fulfill; these are checked on registration.
function Register_Git (Project : Project_Name;
Version : Semantic_Versioning.Version;
Description : Project_Description;
Hosting : URL;
Commit : Origins.Git_Commit;
-- Optional
Properties : Alire.Properties.Vector := No_Properties;
Requisites : Alire.Requisites.Tree := No_Requisites;
Depends_On : Dependencies := No_Dependencies) return Release;
-- Shortcuts for common origins:
function Git (URL : Alire.URL; Commit : Origins.Git_Commit) return Origins.Origin renames Origins.New_Git;
function Hg (URL : Alire.URL; Commit : Origins.Hg_Commit) return Origins.Origin renames Origins.New_Hg;
-- Shortcuts to give dependencies:
function V (Semantic_Version : String) return Semantic_Versioning.Version
renames Semantic_Versioning.New_Version;
function Current (R : Release) return Dependencies;
-- Within the major of R,
-- it will accept the newest/oldest version according to the resolution policy (by default, newest)
-- Note: it might be older than R itself
function Within_Major (R : Release) return Dependencies;
function Within_Minor (R : Release) return Dependencies;
function At_Least (R : Release) return Dependencies;
function At_Most (R : Release) return Dependencies;
@@ -67,7 +67,11 @@ package Alire.Index is
subtype Version is Semantic_Versioning.Version;
subtype Version_Set is Semantic_Versioning.Version_Set;
function Current (P : Project_Name) return Dependencies;
-- Will accept the newest/oldest version according to the resolution policy (by default, newest)
function Within_Major (P : Project_Name; V : Version) return Dependencies;
function Within_Minor (P : Project_Name; V : Version) return Dependencies;
function At_Least (P : Project_Name; V : Version) return Dependencies;
function At_Most (P : Project_Name; V : Version) return Dependencies;
@@ -77,16 +81,18 @@ package Alire.Index is
function Except (P : Project_Name; V : Version) return Dependencies;
-- Shortcuts for properties/requisites:
use all type Alire.Dependencies.Vectors.Vector;
use all type Compilers.Compilers;
use all type Operating_Systems.Operating_Systems;
use all type Dependencies;
use all type Properties.Property'Class; -- for "and" operator
use all type Properties.Property'Class;
use all type Requisites.Requisite'Class;
use all type Requisites.Tree; -- for logical operators
use all type Requisites.Tree;
-- These "use all" are useful for alire-index-* packages, but not for project_alr metadata files
Default_Properties : constant Properties.Vector := No_Properties;
function "and" (Dep1, Dep2 : Dependencies) return Dependencies renames Alire.Dependencies.Vectors."and";
function Verifies (P : Properties.Property'Class) return Properties.Vector;
function "+" (P : Properties.Property'Class) return Properties.Vector renames Verifies;
@@ -114,29 +120,18 @@ package Alire.Index is
-- 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.
private
function Register_Git (Project : Project_Name;
Version : Semantic_Versioning.Version;
Description : Project_Description;
Hosting : URL;
Commit : Origins.Git_Commit;
Properties : Alire.Properties.Vector := No_Properties;
Requisites : Alire.Requisites.Tree := No_Requisites;
Depends_On : Dependencies := No_Dependencies) return Release
is (Register (Project,
Version,
Description,
Origins.New_Git (Hosting, Commit),
Depends_On,
Properties => Properties,
Requisites => Requisites,
Native => False));
private
use Semantic_Versioning;
function Current (R : Release) return Dependencies is
(New_Dependency (R.Project, Within_Major (New_Version (Major (R.Version)))));
function Within_Major (R : Release) return Dependencies is
(New_Dependency (R.Project, Within_Major (R.Version)));
function Within_Minor (R : Release) return Dependencies is
(New_Dependency (R.Project, Within_Minor (R.Version)));
function At_Least (R : Release) return Dependencies is
(New_Dependency (R.Project, At_Least (R.Version)));
@@ -157,8 +152,14 @@ private
(New_Dependency (R.Project, Except (R.Version)));
function Current (P : Project_Name) return Dependencies is
(New_Dependency (P, At_Least (V ("0.0.0"))));
function Within_Major (P : Project_Name; V : Version) return Dependencies is
(New_Dependency (P, Within_Major (V)));
(New_Dependency (P, Within_Major (V)));
function Within_Minor (P : Project_Name; V : Version) return Dependencies is
(New_Dependency (P, Within_Minor (V)));
function At_Least (P : Project_Name; V : Version) return Dependencies is
(New_Dependency (P, At_Least (V)));
src/alire-origins.ads
+18 -5
View File
@@ -7,10 +7,11 @@ package Alire.Origins with Preelaborate is
-- The actual capabilities for check-outs or fetches are in alr proper
type Kinds is (Filesystem, -- Not really an origin, but a working copy of a project
type Kinds is (Apt, -- Native platform package
Filesystem, -- Not really an origin, but a working copy of a project
Git, -- Remote git repo
Local_Apt -- Native platform package
);
Hg -- Remote hg repo
);
type Origin is tagged private;
@@ -23,6 +24,7 @@ package Alire.Origins with Preelaborate is
-- Helper types
subtype Git_Commit is String (1 .. 40);
subtype Hg_Commit is String (1 .. 40);
-- Constructors
@@ -32,7 +34,11 @@ package Alire.Origins with Preelaborate is
Id : Git_Commit)
return Origin;
function New_Local_Apt (Id_As_Package_Name : String) return Origin;
function New_Hg (URL : Alire.URL;
Id : Hg_Commit)
return Origin;
function New_Apt (Id_As_Package_Name : String) return Origin;
private
@@ -56,7 +62,14 @@ private
To_Unbounded_String (URL),
To_Unbounded_String (Id));
function New_Local_Apt (Id_As_Package_Name : String) return Origin is
function New_Hg (URL : Alire.URL;
Id : Hg_Commit)
return Origin is
(Hg,
To_Unbounded_String (URL),
To_Unbounded_String (Id));
function New_Apt (Id_As_Package_Name : String) return Origin is
(Filesystem,
To_Unbounded_String (Id_As_Package_Name),
Null_Unbounded_String);
src/alire-query.adb
+5
View File
@@ -119,6 +119,11 @@ package body Alire.Query is
begin
Success := False;
if Deps.Is_Empty then
Success := True;
return Empty_Instance;
end if;
return I : constant Instance := Resolve (Deps, Containers.Project_Release_Maps.Empty_Map, Success) do
if not Success then
Log ("Dependency resolution failed");