From 81c4526fa275a256bfefe0f8a7cd638369ea1252 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 28 Nov 2020 16:24:04 +1100
Subject: Cleaned up Lexer, Util package names

---
 src/packrat-utilities.ads | 77 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 src/packrat-utilities.ads

(limited to 'src/packrat-utilities.ads')

diff --git a/src/packrat-utilities.ads b/src/packrat-utilities.ads
new file mode 100644
index 0000000..15cd357
--- /dev/null
+++ b/src/packrat-utilities.ads
@@ -0,0 +1,77 @@
+
+
+with
+
+    Ada.Strings.Maps;
+
+
+package Packrat.Utilities is
+
+
+    generic
+        Set : in Ada.Strings.Maps.Character_Set;
+    function In_Set
+           (Element : in Character)
+        return Boolean;
+
+    generic
+        Set : in Ada.Strings.Maps.Character_Set;
+    function Not_In_Set
+           (Element : in Character)
+        return Boolean;
+
+
+
+
+    function Is_Digit
+           (Char : in Character)
+        return Boolean;
+
+    function Is_Hex
+           (Char : in Character)
+        return Boolean;
+
+    function Is_Letter
+           (Char : in Character)
+        return Boolean;
+
+    function Is_Alphanumeric
+           (Char : in Character)
+        return Boolean;
+
+    function Is_Punctuation
+           (Char : in Character)
+        return Boolean;
+
+    function Is_ASCII
+           (Char : in Character)
+        return Boolean;
+
+    function Is_Extended_ASCII
+           (Char : in Character)
+        return Boolean;
+
+    function Is_Space
+           (Char : in Character)
+        return Boolean;
+
+    function Is_Linespace
+           (Char : in Character)
+        return Boolean;
+
+    function Is_End_Of_Line
+           (Char : in Character)
+        return Boolean;
+
+    function Is_Whitespace
+           (Char : in Character)
+        return Boolean;
+
+    function Not_Whitespace
+           (Char : in Character)
+        return Boolean;
+
+
+end Packrat.Utilities;
+
+
-- 
cgit