Alejandro R Mosteo
42 lines
1.3 KiB
Ada
42 lines
1.3 KiB
Ada
with Semantic_Versioning;
|
|
|
|
package Alire.Milestones with Preelaborate is
|
|
|
|
type Milestone (<>) is tagged private;
|
|
|
|
function "<" (L, R : Milestone) return Boolean;
|
|
|
|
function New_Milestone (Name : Alire.Project;
|
|
Version : Semantic_Versioning.Version) return Milestone;
|
|
|
|
function Project (M : Milestone) return Alire.Project;
|
|
|
|
function Version (M : Milestone) return Semantic_Versioning.Version;
|
|
|
|
function Image (M : Milestone) return String;
|
|
|
|
private
|
|
|
|
type Milestone (Name_Len : Natural) is tagged record
|
|
Name : Alire.Project (1 .. Name_Len);
|
|
Version : Semantic_Versioning.Version;
|
|
end record;
|
|
|
|
use all type Semantic_Versioning.Version;
|
|
|
|
function "<" (L, R : Milestone) return Boolean is
|
|
(L.Name < R.Name or else (L.Name = R.Name and then L.Version < R.Version));
|
|
|
|
function New_Milestone (Name : Alire.Project;
|
|
Version : Semantic_Versioning.Version) return Milestone is
|
|
(Name'Length, Name, Version);
|
|
|
|
function Project (M : Milestone) return Alire.Project is (M.Name);
|
|
|
|
function Version (M : Milestone) return Semantic_Versioning.Version is (M.Version);
|
|
|
|
function Image (M : Milestone) return String is
|
|
(+M.Project & "=" & Image (M.Version));
|
|
|
|
end Alire.Milestones;
|