diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-15 18:39:50 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-15 18:39:50 +0200 |
commit | 7791faea231292a261acfaf8e5a6c4f256744df3 (patch) | |
tree | 60dc2b00629caafc287bdfe044922ca786d782ff /src/edif/edif-nutils.ads | |
parent | 3d528d7ce6dc1848286c951dc7851f4361170a5b (diff) | |
download | ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.tar.gz ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.tar.bz2 ghdl-7791faea231292a261acfaf8e5a6c4f256744df3.zip |
Add edif parser.
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; |