Default packages

src/grl-coordinates.ads

@@ -1,3 +1,6 @@
+generic
+   type Meta is private;
+   type H is digits <>;
 package Grl.Coordinates with
   SPARK_Mode => On
 is
@@ -59,7 +62,7 @@ is
       Format_DMS.Cardinal_Lat in North | South
       and then Format_DMS.Cardinal_Lon in East | West;
 
-   --  DDM
+     --  DDM
    type Format_DDM is record
       Degree_Lat   : DM_Degree_Lat;
       Degree_Lon   : DM_Degree_Lon;
@@ -92,6 +95,15 @@ is
       end case;
    end record;
 
+   --  ------------------------  --
+   --  Location Type Definition  --
+   --  ------------------------  --
+   type Location is record
+      Where     : Coordinate;
+      Heuristic : H;
+      Data      : Meta;
+   end record;
+
    --  ----------------------------  --
    --  Converter / helper functions  --
    --  ----------------------------  --

src/grl-default.ads

@@ -0,0 +1,3 @@
+with Grl.Coordinates;
+
+package Grl.Default is new Grl.Coordinates (Meta => Natural, H => Float);

src/grl.ads

@@ -1,3 +1,2 @@
 package Grl is
-
 end Grl;