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/fmd.ads | 106 ------------------------------------------------------------ 1 file changed, 106 deletions(-) delete mode 100644 src/fmd.ads (limited to 'src/fmd.ads') diff --git a/src/fmd.ads b/src/fmd.ads deleted file mode 100644 index 610aa88..0000000 --- a/src/fmd.ads +++ /dev/null @@ -1,106 +0,0 @@ - - --- This source is licensed under the Sunset License v1.0 - - -with - - Ada.Containers.Vectors, - Ada.Strings.Unbounded, - Ada.Text_IO, - Datatypes; - -private with - - Ada.Strings.Fixed, - Ada.Strings.Maps; - - -package FMD is - - - procedure Put_Header - (File_Handle : in Ada.Text_IO.File_Type; - Version : in String := "1.4"); - - - - - procedure Put_Fields - (File_Handle : in Ada.Text_IO.File_Type; - Field_IDs : in Datatypes.Field_ID_Vector); - - - - - procedure Start_Pack_Section - (File_Handle : in Ada.Text_IO.File_Type); - - procedure Put_Pack - (File_Handle : in Ada.Text_IO.File_Type; - Q_Data : in Datatypes.Field_ID_Vector; - A_Data : in Datatypes.Field_ID_Vector) - with Pre => not Q_Data.Is_Empty and not A_Data.Is_Empty; - - procedure End_Pack_Section - (File_Handle : in Ada.Text_IO.File_Type); - - - - - procedure Start_Entry_Section - (File_Handle : in Ada.Text_IO.File_Type); - - procedure Put_Entry - (File_Handle : in Ada.Text_IO.File_Type; - Data : in Datatypes.Field_Vector; - Quantity : in Positive); - - procedure End_Entry_Section - (File_Handle : in Ada.Text_IO.File_Type); - - - - - procedure Put_Footer - (File_Handle : in Ada.Text_IO.File_Type); - - -private - - - package SU renames Ada.Strings.Unbounded; - - - function "+" - (S : in String) - return SU.Unbounded_String - renames SU.To_Unbounded_String; - - function "-" - (US : in SU.Unbounded_String) - return String - renames SU.To_String; - - - - - procedure Replace_All - (Text : in out SU.Unbounded_String; - Char : in Character; - Sub : in String) - with Pre => Ada.Strings.Fixed.Count (Sub, Ada.Strings.Maps.To_Set (Char)) = 0; - - procedure Replace_All - (Text : in out SU.Unbounded_String; - Item : in String; - Sub : in String); - - function Prep - (Text : in SU.Unbounded_String) - return SU.Unbounded_String; - - -end FMD; - - -- cgit