diff options
Diffstat (limited to 'test/packrat-lexer-debug.ads')
-rw-r--r-- | test/packrat-lexer-debug.ads | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/packrat-lexer-debug.ads b/test/packrat-lexer-debug.ads index e68d6f4..77614aa 100644 --- a/test/packrat-lexer-debug.ads +++ b/test/packrat-lexer-debug.ads @@ -33,7 +33,7 @@ package Packrat.Lexer.Debug is - type Token_Vector is private; + type Token_Vector is tagged private; function So_Far (This : in Lexer_Context) @@ -51,6 +51,15 @@ package Packrat.Lexer.Debug is (This : in Lexer_Context) return access Element_Array; + function Length + (Vec : in Token_Vector) + return Natural; + + function Element + (Vec : in Token_Vector; + Dex : in Positive) + return Gen_Tokens.Token; + private |