From c2f324ac23ea143dfea308229f0ac0376ed4f745 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 6 Feb 2017 02:32:14 +1100 Subject: Most of the Main procedure done, a Simple Time package added --- src/simple_time.ads | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 src/simple_time.ads (limited to 'src/simple_time.ads') diff --git a/src/simple_time.ads b/src/simple_time.ads new file mode 100644 index 0000000..01aaa23 --- /dev/null +++ b/src/simple_time.ads @@ -0,0 +1,21 @@ + + +with Ada.Calendar; + + +package Simple_Time is + + + subtype Time is Ada.Calendar.Time; + + + function Now return Time renames Ada.Calendar.Clock; + function To_String (Moment : in Time) return String; + + + function "-" (Left, Right : in Time) return Duration renames Ada.Calendar."-"; + + +end Simple_Time; + + -- cgit