diff options
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; - - |