From d8e6a2bcf74f1059f83c681e646fd8a22876e737 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 19 Apr 2020 23:26:59 +1000 Subject: Removed Finish field from Tokens for Graph reasons --- src/packrat.ads | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) (limited to 'src/packrat.ads') diff --git a/src/packrat.ads b/src/packrat.ads index b2b0144..365cce5 100644 --- a/src/packrat.ads +++ b/src/packrat.ads @@ -113,20 +113,16 @@ package Packrat is type Token_Array is array (Positive range <>) of Token; - -- will probably have to remove the Finish field to accommodate graphs properly - - function Create (Ident : in Label_Enum; Start : in Positive; - Finish : in Natural; Value : in Element_Array) return Token; - -- Note: The Start and Finish indices indicate where the token was found - -- in whatever array it was lexed from. The Value does *not* have - -- to correspond with whatever is found in the Start .. Finish range. + -- Note: The Start index indicate where the token was found + -- in whatever array it was lexed from. The Value does *not* + -- have to correspond with whatever is found there. function Debug_String @@ -142,10 +138,6 @@ package Packrat is (This : in Token) return Positive; - function Finish - (This : in Token) - return Natural; - function Value (This : in Token) return Element_Array; @@ -160,7 +152,6 @@ package Packrat is type Token is record Identifier : Label_Enum; Start_At : Positive; - Finish_At : Natural; Token_Value : Value_Holders.Holder; end record; -- cgit