Implemented details of Lexer_Context type

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;