Spec for Packrat.Lexer Stamp, Scan, and derivative functions and procedures

1 files changed, 80 insertions, 0 deletions

diff --git a/src/packrat-lexer.adb b/src/packrat-lexer.adb
index ce793a5..614452b 100644
--- a/src/packrat-lexer.adb
+++ b/src/packrat-lexer.adb
@@ -153,6 +153,86 @@ package body Packrat.Lexer is
     end Debug_String;
 
 
+
+
+
+    procedure Stamp
+           (Context : in out Lexer_Context) is
+    begin
+        null;
+    end Stamp;
+
+
+    procedure Ignore
+           (Context : in out Lexer_Context) is
+    begin
+        null;
+    end Ignore;
+
+
+
+
+
+    function Scan
+           (Input   : in     Element_Array;
+            Context : in out Lexer_Context)
+        return Gen_Tokens.Token_Array
+    is
+        Result : Gen_Tokens.Token_Array (1 .. 0);
+    begin
+        return Result;
+    end Scan;
+
+
+    procedure Scan_Set
+           (Input   : in     Element_Array;
+            Context : in out Lexer_Context;
+            Output  :    out Gen_Tokens.Token_Array) is
+    begin
+        null;
+    end Scan_Set;
+
+
+    function Scan_Only
+           (Input   : in     Element_Array;
+            Context : in out Lexer_Context)
+        return Gen_Tokens.Token_Array
+    is
+        Result : Gen_Tokens.Token_Array (1 .. 0);
+    begin
+        return Result;
+    end Scan_Only;
+
+
+    procedure Scan_Set_Only
+           (Input   : in     Element_Array;
+            Context : in out Lexer_Context;
+            Output  :    out Gen_Tokens.Token_Array) is
+    begin
+        null;
+    end Scan_Set_Only;
+
+
+    function Scan_With
+           (Input   : in     Element_Array;
+            Context : in out Lexer_Context)
+        return Gen_Tokens.Token_Array
+    is
+        Result : Gen_Tokens.Token_Array (1 .. 0);
+    begin
+        return Result;
+    end Scan_With;
+
+
+    procedure Scan_Set_With
+           (Input   : in     Element_Array;
+            Context : in out Lexer_Context;
+            Output  :    out Gen_Tokens.Token_Array) is
+    begin
+        null;
+    end Scan_Set_With;
+
+
 end Packrat.Lexer;