blob: cc1eef5c5085fb5de3ff1771f0af08168bc4cbc4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
with
Ada.Containers.Vectors,
Ada.Strings.Unbounded,
Ada.Text_IO;
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);
generic
type Vector_Index is range <>;
type Vector_Data is private;
with package Data_Vectors is new Ada.Containers.Vectors (Vector_Index, Vector_Data);
with function To_Unbounded_String
(Data : in Vector_Data)
return Ada.Strings.Unbounded.Unbounded_String is <>;
procedure Put_Row
(File_Handle : in Ada.Text_IO.File_Type;
Cells : in Data_Vectors.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;
|