Add edif parser.

1 files changed, 21 insertions, 0 deletions

diff --git a/src/edif/edif-nutils.adb b/src/edif/edif-nutils.adb
new file mode 100644
index 000000000..c7755dc08
--- /dev/null
+++ b/src/edif/edif-nutils.adb
@@ -0,0 +1,21 @@
+package body Edif.Nutils is
+   procedure Init_Constr (Constr : out Constr_Type) is
+   begin
+      Constr := (Null_Node, Null_Node);
+   end Init_Constr;
+
+   procedure Append_Node (Constr : in out Constr_Type; N : Node) is
+   begin
+      if Constr.First = Null_Node then
+         Constr.First := N;
+      else
+         Set_Chain (Constr.Last, N);
+      end if;
+      Constr.Last := N;
+   end Append_Node;
+
+   function Get_Constr_Chain (Constr : Constr_Type) return Node is
+   begin
+      return Constr.First;
+   end Get_Constr_Chain;
+end Edif.Nutils;