Added Is_Ambiguous function to Parse_Graphs

1 files changed, 16 insertions, 0 deletions

diff --git a/src/packrat-parse_graphs.adb b/src/packrat-parse_graphs.adb
index 16b74dc..c911fb4 100644
--- a/src/packrat-parse_graphs.adb
+++ b/src/packrat-parse_graphs.adb
@@ -232,6 +232,22 @@ package body Packrat.Parse_Graphs is
 
 
 
+    function Is_Ambiguous
+           (Container : in Parse_Graph)
+        return Boolean is
+    begin
+        for N of Container.Nodes loop
+            if Finish_List (Container, N)'Length > 1 then
+                return True;
+            end if;
+        end loop;
+        return False;
+    end Is_Ambiguous;
+
+
+
+
+
     function Vector_To_Array
            (Input : in Type_Vectors.Vector)
         return Array_Type is