From 6c296b5615699eac0fb569b5cfe29e96986904a5 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 28 Nov 2020 14:24:02 +1100
Subject: Skeleton of Packrat.Parsers

---
 src/packrat.ads | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/packrat.ads')

diff --git a/src/packrat.ads b/src/packrat.ads
index 7f124e1..e61fbc9 100644
--- a/src/packrat.ads
+++ b/src/packrat.ads
@@ -29,6 +29,17 @@ private
         renames Ada.Strings.Unbounded.To_String;
 
 
+
+
+    generic
+        type Base_Type is private;
+        type Array_Type is array (Positive range <>) of Base_Type;
+        with function "<" (Left, Right : in Base_Type) return Boolean is <>;
+    function Array_Less_Than
+           (Left, Right : in Array_Type)
+        return Boolean;
+
+
 end Packrat;
 
 
-- 
cgit