Better native origins

src/table_io.ads

@@ -0,0 +1,31 @@
+with Ada.Containers.Indefinite_Vectors;
+with Ada.Containers.Vectors;
+
+package Table_IO with Preelaborate is
+
+   type Table is tagged private;
+
+   procedure Append (T : in out Table; Cell : String);
+
+   procedure New_Row (T : in out Table);
+
+   procedure Print (T : Table; Separator : String := " ");
+
+private
+
+   package Natural_Vectors is new Ada.Containers.Vectors (Positive, Natural);
+
+   package String_Vectors is new Ada.Containers.Indefinite_Vectors (Positive,
+                                                                    String);
+   subtype Row is String_Vectors.Vector;
+   use all type Row;
+
+   package Row_Vectors is new Ada.Containers.Vectors (Positive, Row);
+
+   type Table is tagged record
+      Next_Column : Positive := 1;
+      Rows        : Row_Vectors.Vector;
+      Max_Widths  : Natural_Vectors.Vector;
+   end record;
+
+end Table_IO;