diff options
Diffstat (limited to 'test/packrat-lexer-debug.ads')
-rw-r--r-- | test/packrat-lexer-debug.ads | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/test/packrat-lexer-debug.ads b/test/packrat-lexer-debug.ads index e8ddf7b..e68d6f4 100644 --- a/test/packrat-lexer-debug.ads +++ b/test/packrat-lexer-debug.ads @@ -1,5 +1,10 @@ +with + + Ada.Containers.Vectors; + + generic package Packrat.Lexer.Debug is @@ -26,12 +31,36 @@ package Packrat.Lexer.Debug is return String; + + + type Token_Vector is 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 Pass + (This : in Lexer_Context) + return access Element_Array; + + 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; |