From 81c4526fa275a256bfefe0f8a7cd638369ea1252 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 28 Nov 2020 16:24:04 +1100 Subject: Cleaned up Lexer, Util package names --- test/packrat-lexer-debug.ads | 89 -------------------------------------------- 1 file changed, 89 deletions(-) delete mode 100644 test/packrat-lexer-debug.ads (limited to 'test/packrat-lexer-debug.ads') diff --git a/test/packrat-lexer-debug.ads b/test/packrat-lexer-debug.ads deleted file mode 100644 index bd6c2de..0000000 --- a/test/packrat-lexer-debug.ads +++ /dev/null @@ -1,89 +0,0 @@ - - -with - - Ada.Containers.Vectors; - - -generic -package Packrat.Lexer.Debug is - - - Empty_Fail : constant Combinator_Result; - - - function Create_Result - (Finish : in Natural; - Status : in Result_Status) - return Combinator_Result; - - function Join - (Left, Right : in Combinator_Result) - return Combinator_Result; - - function Status - (This : in Combinator_Result) - return Result_Status; - - function Debug_String - (This : in Combinator_Result) - return String; - - - - - type Token_Vector is tagged private; - - function So_Far - (This : in Lexer_Context) - return Token_Vector; - - function Position - (This : in Lexer_Context) - return Positive; - - function Status - (This : in Lexer_Context) - return Result_Status; - - function Has_Pass - (This : in Lexer_Context) - return Boolean; - - function Pass - (This : in Lexer_Context) - return Traits.Element_Array; - - function Length - (Vec : in Token_Vector) - return Natural; - - function Element - (Vec : in Token_Vector; - Dex : in Positive) - return Traits.Tokens.Token; - - - - - function Is_Failure - (Result : in Component_Result) - return Boolean; - - function Is_Success - (Result : in Component_Result) - return Boolean; - - -private - - - Empty_Fail : constant Combinator_Result := Packrat.Lexer.Empty_Fail; - - - type Token_Vector is new Token_Vectors.Vector with null record; - - -end Packrat.Lexer.Debug; - - -- cgit