diff options
author | Jed Barber <jjbarber@y7mail.com> | 2019-01-14 19:03:33 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2019-01-14 19:03:33 +1100 |
commit | 5a01394fadfe73cc9bfdc3576a58ac3cd4dcb1f2 (patch) | |
tree | af359ceafee1b8e1dc7d37c9027ac941c2b37ad0 /test/packrat-lexer-debug.adb | |
parent | c0ba281a0bf3edc564a4fee61375691f35632be4 (diff) |
Implemented details of Lexer_Context type
Diffstat (limited to 'test/packrat-lexer-debug.adb')
-rw-r--r-- | test/packrat-lexer-debug.adb | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/test/packrat-lexer-debug.adb b/test/packrat-lexer-debug.adb index fdd9ae4..f13a675 100644 --- a/test/packrat-lexer-debug.adb +++ b/test/packrat-lexer-debug.adb @@ -86,6 +86,38 @@ package body Packrat.Lexer.Debug is end Debug_String; + + + + function So_Far + (This : in Lexer_Context) + return Token_Vector is + begin + return (This.Result_So_Far with null record); + end So_Far; + + function Position + (This : in Lexer_Context) + return Positive is + begin + return This.Position; + end Position; + + function Status + (This : in Lexer_Context) + return Result_Status is + begin + return This.Status; + end Status; + + function Pass + (This : in Lexer_Context) + return access Element_Array is + begin + return This.Pass_Forward; + end Pass; + + end Packrat.Lexer.Debug; |