diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2021-11-09 17:05:44 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2021-11-09 17:05:44 +1300 |
| commit | 36b0cbf19bd44c94bbe5aa67730347290f20628c (patch) | |
| tree | d2171132faa9dc6b2ffe99e87b7bbef102c9a9c0 /src/fmd.ads | |
| parent | b18a53cfaea8c3cf9e838e2a1cc8000a18324234 (diff) | |
Refactored packages
Diffstat (limited to 'src/fmd.ads')
| -rw-r--r-- | src/fmd.ads | 106 |
1 files changed, 0 insertions, 106 deletions
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; - - |