Alejandro R Mosteo
56 lines
1.7 KiB
Ada
56 lines
1.7 KiB
Ada
with Alire.Utils;
|
|
|
|
with Semantic_Versioning;
|
|
|
|
package Alire.Dependencies with Preelaborate is
|
|
|
|
subtype Names is Alire.Project;
|
|
|
|
-- A single dependency is a project name plus a version set
|
|
|
|
type Dependency (<>) is tagged private;
|
|
|
|
function New_Dependency (Project : Alire.Project;
|
|
Versions : Semantic_Versioning.Version_Set) return Dependency;
|
|
|
|
function Project (Dep : Dependency) return Names;
|
|
|
|
function Versions (Dep : Dependency) return Semantic_Versioning.Version_Set;
|
|
|
|
function Image (Dep : Dependency) return String;
|
|
|
|
function Unavailable return Dependency;
|
|
-- Special never available dependency to beautify a bit textual outputs
|
|
|
|
private
|
|
|
|
use all type Semantic_Versioning.Version;
|
|
|
|
type Dependency (Name_Len : Natural) is tagged record
|
|
Project : Alire.Project (1 .. Name_Len);
|
|
Versions : Semantic_Versioning.Version_Set;
|
|
end record;
|
|
|
|
function New_Dependency (Project : Alire.Project;
|
|
Versions : Semantic_Versioning.Version_Set) return Dependency
|
|
is (Project'Length, Project, Versions);
|
|
|
|
function Project (Dep : Dependency) return Names is (Dep.Project);
|
|
|
|
function Versions (Dep : Dependency) return Semantic_Versioning.Version_Set is
|
|
(Dep.Versions);
|
|
|
|
use all type Alire.Project;
|
|
|
|
function Image (Dep : Dependency) return String is -- Exceptional case: alire=0.0.0 means Unavailable
|
|
(if Dep = Unavailable
|
|
then "Unavailable"
|
|
else
|
|
(Utils.To_Lower_Case (+Dep.Project) & " is " &
|
|
Semantic_Versioning.Image (Dep.Versions)));
|
|
|
|
function Unavailable return Dependency is
|
|
(New_Dependency ("alire", Semantic_Versioning.Exactly (Semantic_Versioning.V ("0"))));
|
|
|
|
end Alire.Dependencies;
|