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/csv.ads | |
| parent | b18a53cfaea8c3cf9e838e2a1cc8000a18324234 (diff) | |
Refactored packages
Diffstat (limited to 'src/csv.ads')
| -rw-r--r-- | src/csv.ads | 62 |
1 files changed, 0 insertions, 62 deletions
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; - - |