From 6c296b5615699eac0fb569b5cfe29e96986904a5 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 28 Nov 2020 14:24:02 +1100 Subject: Skeleton of Packrat.Parsers --- src/packrat-tokens.ads | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/packrat-tokens.ads') 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; -- cgit