New Version ">", ">=" operators (#18)

alire-project · Feb 28, 2024 · cc2148c · cc2148c
1 parent 2f23fc5
commit cc2148c
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/semantic_versioning.ads b/src/semantic_versioning.ads
@@ -66,6 +66,15 @@ package Semantic_Versioning with Preelaborate is
    function "=" (L, R : Version) return Boolean;
    -- Conforming to Semver spec, the build metadata is not included in the comparison.
 
+   function ">" (L, R : Version) return Boolean
+   is (not (L < R or else L = R));
+
+   function "<=" (L, R : Version) return Boolean
+   is (not (L > R));
+
+   function ">=" (L, R : Version) return Boolean
+   is (not (L < R));
+
    function Major (V : Version) return Point;
    function Minor (V : Version) return Point;
    function Patch (V : Version) return Point;