Refactored packages

1 files changed, 44 insertions, 0 deletions

diff --git a/src/deckdata-csv.ads b/src/deckdata-csv.ads
new file mode 100644
index 0000000..f05cba1
--- /dev/null
+++ b/src/deckdata-csv.ads
@@ -0,0 +1,44 @@
+
+
+--  This source is licensed under the Sunset License v1.0
+
+
+with
+
+    Ada.Containers.Vectors,
+    Ada.Strings.Unbounded,
+    Ada.Text_IO;
+
+
+generic
+
+    Separator_Char : Character := ',';
+    Quote_Char     : Character := '"';
+    Escape_Char    : Character := '\';
+
+package Deckdata.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 Field_ID_Vector);
+
+
+    procedure Put_Row
+           (File_Handle : in Ada.Text_IO.File_Type;
+            Cells       : in Field_Vector;
+            Quantity    : in Positive);
+
+
+end Deckdata.CSV;
+
+