with Ada.Strings.Hash;
package body Agpl.Stochastics.Mdp.State is
--------------
-- Distance --
--------------
function Distance (This : in Object) return Distances
is
pragma Unreferenced (This);
begin
return 0.0;
end Distance;
---------
-- "<" --
---------
function "<" (L, R : in Object'Class) return Boolean is
LD : constant Distances := L.Distance;
RD : constant Distances := R.Distance;
begin
if LD = RD then
return L.Get_Id < R.Get_Id;
else
return LD < RD;
end if;
end "<";
----------
-- Hash --
----------
function Hash (Id : in Object_Id) return Ada.Containers.Hash_Type is
begin
return Ada.Strings.Hash (String (Id));
end Hash;
---------------
-- To_String --
---------------
function To_String (This : in Object) return String is
begin
return String (Get_Id (Object'Class (This)));
end To_String;
end Agpl.Stochastics.Mdp.State;