Skeleton of Packrat.Parsers

1 files changed, 10 insertions, 0 deletions

diff --git a/src/packrat-tokens.ads b/src/packrat-tokens.ads
index bfb70ac..cd691b5 100644
--- a/src/packrat-tokens.ads
+++ b/src/packrat-tokens.ads
@@ -12,6 +12,7 @@ generic
     type Element_Array is array (Positive range <>) of Element_Type;
 
     with function "<" (Left, Right : in Element_Type) return Boolean is <>;
+    with function "<" (Left, Right : in Element_Array) return Boolean is <>;
 
 package Packrat.Tokens is
 
@@ -24,6 +25,10 @@ package Packrat.Tokens is
            (Left, Right : in Token)
         return Boolean;
 
+    function "<"
+           (Left, Right : in Token_Array)
+        return Boolean;
+
 
     function Create
            (Ident  : in Label_Enum;
@@ -61,6 +66,11 @@ private
     package Value_Holders is new Ada.Containers.Indefinite_Holders (Element_Array);
 
 
+    function "<"
+           (Left, Right : in Value_Holders.Holder)
+        return Boolean;
+
+
     type Token is record
         Identifier  : Label_Enum;
         Start_At    : Positive;