From 36b0cbf19bd44c94bbe5aa67730347290f20628c Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 9 Nov 2021 17:05:44 +1300 Subject: Refactored packages --- src/datatypes.ads | 93 ------------------------------------------------------- 1 file changed, 93 deletions(-) delete mode 100644 src/datatypes.ads (limited to 'src/datatypes.ads') diff --git a/src/datatypes.ads b/src/datatypes.ads deleted file mode 100644 index 5ad2f75..0000000 --- a/src/datatypes.ads +++ /dev/null @@ -1,93 +0,0 @@ - - --- This source is licensed under the Sunset License v1.0 - - -with - - Ada.Containers.Vectors, - Ada.Containers.Ordered_Maps, - Ada.Strings.Unbounded; - - -package Datatypes is - - - package SU renames Ada.Strings.Unbounded; - - - - - type Field_Ordinal is new Positive; - type Field_ID is new SU.Unbounded_String; - - package Field_ID_Vectors is new Ada.Containers.Vectors - (Index_Type => Field_Ordinal, - Element_Type => Field_ID); - - subtype Field_ID_Vector is Field_ID_Vectors.Vector; - - - type Template is record - Question : Field_ID_Vectors.Vector; - Answer : Field_ID_Vectors.Vector; - end record; - - package Template_Vectors is new Ada.Containers.Vectors - (Index_Type => Positive, - Element_Type => Template); - - subtype Template_Vector is Template_Vectors.Vector; - - - type Model_ID is new SU.Unbounded_String; - - type Model is record - Fields : Field_ID_Vectors.Vector; - Templates : Template_Vectors.Vector; - end record; - - package Model_Maps is new Ada.Containers.Ordered_Maps - (Key_Type => Model_ID, - Element_Type => Model); - - subtype Model_Map is Model_Maps.Map; - - - type Field is new SU.Unbounded_String; - - package Field_Vectors is new Ada.Containers.Vectors - (Index_Type => Field_Ordinal, - Element_Type => Field); - - subtype Field_Vector is Field_Vectors.Vector; - - - type Note is record - Model : Model_ID; - Fields : Field_Vectors.Vector; - end record; - - package Note_Vectors is new Ada.Containers.Vectors - (Index_Type => Positive, - Element_Type => Note); - - subtype Note_Vector is Note_Vectors.Vector; - - - 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_Name, - Element_Type => Media_ID); - - type Media_Collection is record - Filename : SU.Unbounded_String; - Map : Media_Maps.Map; - end record; - - -end Datatypes; - - -- cgit