diff options
Diffstat (limited to 'src/deckdata-csv.ads')
-rw-r--r-- | src/deckdata-csv.ads | 44 |
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; + + |