svd2ada_0.1.0_6eb0b591/src/descriptors-enumerate.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
------------------------------------------------------------------------------
--                                                                          --
--                          SVD Binding Generator                           --
--                                                                          --
--                    Copyright (C) 2015-2016, AdaCore                      --
--                                                                          --
-- SVD2Ada is free software;  you can  redistribute it  and/or modify it    --
-- under terms of the  GNU General Public License as published  by the Free --
-- Software  Foundation;  either version 3,  or (at your option) any later  --
-- version.  SVD2Ada is distributed in the hope that it will be useful, but --
-- WITHOUT ANY WARRANTY;  without even the  implied warranty of MERCHANTA-  --
-- BILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public  --
-- License for  more details.  You should have  received  a copy of the GNU --
-- General Public License  distributed with SVD2Ada; see file COPYING3.  If --
-- not, go to http://www.gnu.org/licenses for a complete copy of the        --
-- license.                                                                 --
--                                                                          --
------------------------------------------------------------------------------

with Ada.Containers.Vectors;
with Ada.Strings.Unbounded;          use Ada.Strings;

with DOM.Core;

with Base_Types;                     use Base_Types;

package Descriptors.Enumerate is

   type Enumerate_Value is record
      Name      : Unbounded.Unbounded_String;
      Descr     : Unbounded.Unbounded_String;
      Value     : Unsigned;
      IsDefault : Boolean := False;
   end record;

   package Enumerate_Values_Vectors is new Ada.Containers.Vectors
     (Positive, Enumerate_Value);

   type Enumerate_T is record
      Name   : Unbounded.Unbounded_String;
      Values : Enumerate_Values_Vectors.Vector;
      Usage  : Enum_Usage_Type := Read_Write;
   end record;

   package Enumerate_Vectors is new Ada.Containers.Vectors
     (Positive, Enumerate_T);

   function Read_Enumerate
     (Elt        : DOM.Core.Element;
      Vector     : Enumerate_Vectors.Vector;
      Write_Only : Boolean)
      return Enumerate_T;

end Descriptors.Enumerate;