diff options
Diffstat (limited to 'test/packrat-lexer-debug.adb')
-rw-r--r-- | test/packrat-lexer-debug.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/packrat-lexer-debug.adb b/test/packrat-lexer-debug.adb index f13a675..335e3d2 100644 --- a/test/packrat-lexer-debug.adb +++ b/test/packrat-lexer-debug.adb @@ -117,6 +117,21 @@ package body Packrat.Lexer.Debug is return This.Pass_Forward; end Pass; + function Length + (Vec : in Token_Vector) + return Natural is + begin + return Integer (Token_Vectors.Vector (Vec).Length); + end Length; + + function Element + (Vec : in Token_Vector; + Dex : in Positive) + return Gen_Tokens.Token is + begin + return Token_Vectors.Vector (Vec).Element (Dex); + end Element; + end Packrat.Lexer.Debug; |