summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/packrat-util.adb5
-rw-r--r--src/packrat-util.ads3
2 files changed, 6 insertions, 2 deletions
diff --git a/src/packrat-util.adb b/src/packrat-util.adb
index dc9968b..c1335e0 100644
--- a/src/packrat-util.adb
+++ b/src/packrat-util.adb
@@ -9,6 +9,7 @@ package body Packrat.Util is
package Latin renames Ada.Characters.Latin_1;
+ package Strmaps renames Ada.Strings.Maps;
@@ -17,7 +18,7 @@ package body Packrat.Util is
(Element : in Character)
return Boolean is
begin
- return False;
+ return Strmaps.Is_In (Element, Set);
end In_Set;
@@ -25,7 +26,7 @@ package body Packrat.Util is
(Element : in Character)
return Boolean is
begin
- return False;
+ return not Strmaps.Is_In (Element, Set);
end Not_In_Set;
diff --git a/src/packrat-util.ads b/src/packrat-util.ads
index ffc4d66..cada441 100644
--- a/src/packrat-util.ads
+++ b/src/packrat-util.ads
@@ -20,6 +20,9 @@ package Packrat.Util is
(Element : in Character)
return Boolean;
+
+
+
function Is_Digit
(Char : in Character)
return Boolean;