From 5a8a3749f46828f1db5cbd6bd55d22ea9e188ab1 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 5 Feb 2017 00:43:59 +1100
Subject: CSV package done, sketched out Candidates package

---
 src/stv.adb | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/stv.adb

(limited to 'src/stv.adb')

diff --git a/src/stv.adb b/src/stv.adb
new file mode 100644
index 0000000..3297da2
--- /dev/null
+++ b/src/stv.adb
@@ -0,0 +1,32 @@
+
+
+with Ada.Text_IO;
+with Ada.Strings.Unbounded;
+with CSV;
+
+
+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;
+
+
-- 
cgit