diff options
Diffstat (limited to 'src/datatypes.ads')
-rw-r--r-- | src/datatypes.ads | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/datatypes.ads b/src/datatypes.ads index 164e7c9..7229f2d 100644 --- a/src/datatypes.ads +++ b/src/datatypes.ads @@ -72,14 +72,17 @@ package Datatypes is subtype Note_Vector is Note_Vectors.Vector; - type Media_ID is new SU.Unbounded_String; type Media_Name is new SU.Unbounded_String; + type Media_ID is new SU.Unbounded_String; package Media_Maps is new Ada.Containers.Ordered_Maps - (Key_Type => Media_ID, - Element_Type => Media_Name); + (Key_Type => Media_Name, + Element_Type => Media_ID); - subtype Media_Map is Media_Maps.Map; + type Media_Collection is record + Filename : SU.Unbounded_String; + Map : Media_Maps.Map; + end record; end Datatypes; |