M agpl-chronos.adb

M agpl-chronos.ads
mosteo · Jul 17, 2006 · dc436cd · dc436cd
1 parent ec9c68f
commit dc436cd
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/agpl-chronos.adb b/agpl-chronos.adb
@@ -70,4 +70,13 @@ package body Agpl.Chronos is
       return (Start => Ada.Calendar.Clock);
    end Clock;
 
+   -----------
+   -- Value --
+   -----------
+
+   function Value (This : in Object) return Ada.Calendar.Time is
+   begin
+      return This.Start;
+   end Value;
+
 end Agpl.Chronos;
diff --git a/agpl-chronos.ads b/agpl-chronos.ads
@@ -59,6 +59,10 @@ package Agpl.Chronos is
    ------------------------------------------------------------------------
    function Image (This : in Object) return String;
 
+   function Value (This : in Object) return Ada.Calendar.Time;
+   pragma Inline (Value);
+   --  This start time of this object
+
    function Clock return Object; -- An object denoting current time
    pragma Inline (Clock);