Jano at Zelda
37 lines
1.1 KiB
Ada
37 lines
1.1 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 : Project_Name;
|
|
Version : Semantic_Versioning.Version) return Milestone;
|
|
|
|
function Project (M : Milestone) return Project_Name;
|
|
|
|
function Version (M : Milestone) return Semantic_Versioning.Version;
|
|
|
|
private
|
|
|
|
type Milestone (Name_Len : Positive) is tagged record
|
|
Name : Project_Name (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 : Project_Name;
|
|
Version : Semantic_Versioning.Version) return Milestone is
|
|
(Name'Length, Name, Version);
|
|
|
|
function Project (M : Milestone) return Project_Name is (M.Name);
|
|
|
|
function Version (M : Milestone) return Semantic_Versioning.Version is (M.Version);
|
|
|
|
end Alire.Milestones;
|