diff options
Diffstat (limited to 'src/edif/edif-nutils.ads')
-rw-r--r-- | src/edif/edif-nutils.ads | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/edif/edif-nutils.ads b/src/edif/edif-nutils.ads new file mode 100644 index 000000000..a53f46bfc --- /dev/null +++ b/src/edif/edif-nutils.ads @@ -0,0 +1,15 @@ +with Edif.Nodes; use Edif.Nodes; + +package Edif.Nutils is + type Constr_Type is limited private; + + procedure Init_Constr (Constr : out Constr_Type); + procedure Append_Node (Constr : in out Constr_Type; N : Node); + function Get_Constr_Chain (Constr : Constr_Type) return Node; + +private + type Constr_Type is record + First : Node; + Last : Node; + end record; +end Edif.Nutils; |