From 554d2ab14921c48d628b0ffa86cc7492836477ac Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 11 Jan 2019 14:23:49 +1100
Subject: Restructured Lexer combinators to use record return type

---
 src/packrat-lexer.adb | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 src/packrat-lexer.adb

(limited to 'src/packrat-lexer.adb')

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;
+
+
-- 
cgit