Restructured Lexer combinators to use record return type

1 files changed, 58 insertions, 0 deletions

diff --git a/src/packrat-lexer.adb b/src/packrat-lexer.adb
new file mode 100644
index 0000000..f93b65b
--- /dev/null
+++ b/src/packrat-lexer.adb
@@ -0,0 +1,58 @@
+
+
+package body Packrat.Lexer is
+
+
+    procedure Initialize
+           (This : in out Combinator_Result) is
+    begin
+        null;
+    end Initialize;
+
+
+    procedure Adjust
+           (This : in out Combinator_Result) is
+    begin
+        null;
+    end Adjust;
+
+
+    procedure Finalize
+           (This : in out Combinator_Result) is
+    begin
+        null;
+    end Finalize;
+
+
+
+
+
+    function Create_Result
+           (Length : in Natural;
+            Status : in Result_Status;
+            Value  : in Element_Array)
+        return Combinator_Result is
+    begin
+        return Fail_Result;
+    end Create_Result;
+
+
+    function Join
+           (Left, Right : in Combinator_Result)
+        return Combinator_Result is
+    begin
+        return Fail_Result;
+    end Join;
+
+
+    function Is_Failure
+           (This : in Combinator_Result)
+        return Boolean is
+    begin
+        return True;
+    end Is_Failure;
+
+
+end Packrat.Lexer;
+
+