Most of the Main procedure done, a Simple Time package added

1 files changed, 21 insertions, 0 deletions

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;
+
+