src/stv.adb


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


with Ada.Text_IO;
with Ada.Strings.Unbounded;
with CSV;
with Candidates;


procedure STV is


    package My_CSV is new CSV;


    Result : My_CSV.CSV_Record;


begin


    Result := My_CSV.Parse_Line ("123,4""56,78""9764,3,""4,5"",");


    for Item of Result loop
        Ada.Text_IO.Put_Line (Ada.Strings.Unbounded.To_String (Item));
    end loop;


    Ada.Text_IO.Put_Line (My_CSV.Unparse_Record (Result));

end STV;