diff options
author | Jed Barber <jjbarber@y7mail.com> | 2020-11-28 16:24:04 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2020-11-28 16:24:04 +1100 |
commit | 81c4526fa275a256bfefe0f8a7cd638369ea1252 (patch) | |
tree | 9792101c649932617db8848ec5c88ab493705490 /test/packrat-lexers-debug.ads | |
parent | 6c296b5615699eac0fb569b5cfe29e96986904a5 (diff) |
Cleaned up Lexer, Util package names
Diffstat (limited to 'test/packrat-lexers-debug.ads')
-rw-r--r-- | test/packrat-lexers-debug.ads | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/test/packrat-lexers-debug.ads b/test/packrat-lexers-debug.ads new file mode 100644 index 0000000..5c5320a --- /dev/null +++ b/test/packrat-lexers-debug.ads @@ -0,0 +1,89 @@ + + +with + + Ada.Containers.Vectors; + + +generic +package Packrat.Lexers.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.Lexers.Empty_Fail; + + + type Token_Vector is new Token_Vectors.Vector with null record; + + +end Packrat.Lexers.Debug; + + |