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/csv.ads | 62 ------------------------------------------------------------- 1 file changed, 62 deletions(-) delete mode 100644 src/csv.ads (limited to 'src/csv.ads') diff --git a/src/csv.ads b/src/csv.ads deleted file mode 100644 index c2df2e9..0000000 --- a/src/csv.ads +++ /dev/null @@ -1,62 +0,0 @@ - - --- This source is licensed under the Sunset License v1.0 - - -with - - Ada.Containers.Vectors, - Ada.Strings.Unbounded, - Ada.Text_IO, - Datatypes; - - -generic - - Separator_Char : Character := ','; - Quote_Char : Character := '"'; - Escape_Char : Character := '\'; - -package CSV is - - - procedure Put_Cell - (File_Handle : in Ada.Text_IO.File_Type; - Data : in String); - - procedure Put_Cell - (File_Handle : in Ada.Text_IO.File_Type; - Data : in Ada.Strings.Unbounded.Unbounded_String); - - - procedure Put_Header - (File_Handle : in Ada.Text_IO.File_Type; - Titles : in Datatypes.Field_ID_Vector); - - - procedure Put_Row - (File_Handle : in Ada.Text_IO.File_Type; - Cells : in Datatypes.Field_Vector; - Quantity : in Positive); - - -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; - - -end CSV; - - -- cgit