From ea022446ea40844831a7daa3c6e6d9f7d91c01f2 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 13 Jan 2021 18:57:43 +1100 Subject: Removed superfluous Line_End/Input_End lexer combinators --- src/packrat-lexers.adb | 33 --------------------------------- src/packrat-lexers.ads | 17 ----------------- 2 files changed, 50 deletions(-) (limited to 'src') diff --git a/src/packrat-lexers.adb b/src/packrat-lexers.adb index bf5d109..cd81635 100644 --- a/src/packrat-lexers.adb +++ b/src/packrat-lexers.adb @@ -687,39 +687,6 @@ package body Packrat.Lexers is end Take_Until; - - - - function Line_End - (Input : in Traits.Element_Array; - Start : in Positive) - return Combinator_Result is - begin - if Start > Input'Last then - return Empty_Fail; - elsif Input (Start) = EOL_Item then - return (Start, Success); - else - return Empty_Fail; - end if; - end Line_End; - - - function Input_End - (Input : in Traits.Element_Array; - Start : in Positive) - return Combinator_Result is - begin - if Start > Input'Last then - return Empty_Fail; - elsif Input (Start) = EOF_Item then - return (Start, Success); - else - return Empty_Fail; - end if; - end Input_End; - - end Packrat.Lexers; diff --git a/src/packrat-lexers.ads b/src/packrat-lexers.ads index ac0ba2b..4b6bbc9 100644 --- a/src/packrat-lexers.ads +++ b/src/packrat-lexers.ads @@ -268,23 +268,6 @@ package Packrat.Lexers is return Combinator_Result; - - - generic - EOL_Item : in Traits.Element_Type; - function Line_End - (Input : in Traits.Element_Array; - Start : in Positive) - return Combinator_Result; - - generic - EOF_Item : in Traits.Element_Type; - function Input_End - (Input : in Traits.Element_Array; - Start : in Positive) - return Combinator_Result; - - private -- cgit