From 6537721f85aa4f0d8607c9df506a343fb0093bef Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 13 Jan 2019 00:31:06 +1100 Subject: Added equals function overload for Tokens --- src/packrat.ads | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/packrat.ads') diff --git a/src/packrat.ads b/src/packrat.ads index 41035fc..0ee8463 100644 --- a/src/packrat.ads +++ b/src/packrat.ads @@ -9,7 +9,7 @@ with package Packrat is - type Result_Status is (Failure, Partial, Success); + type Result_Status is (Failure, Needs_More, Optional_More, Success); Parser_Error : exception; @@ -117,6 +117,10 @@ package Packrat is Value : in Element_Array) return Token; + function "=" + (Left, Right : in Token) + return Boolean; + -- Note: The Start and Finish indices indicate where the token was found -- in whatever array it was lexed from. The Value does *not* have -- cgit