1 files changed, 33 insertions, 0 deletions
diff --git a/src/misc.ads b/src/misc.ads
new file mode 100644
index 0000000..fb99d95
--- /dev/null
+++ b/src/misc.ads
@@ -0,0 +1,33 @@
+
+
+with
+
+    Ada.Command_Line,
+    Ada.Directories;
+
+
+package Misc is
+
+
+    Origin : constant String;
+
+
+    function Max
+           (A, B : in Integer)
+        return Integer;
+
+
+    function Min
+           (A, B : in Integer)
+        return Integer;
+
+
+private
+
+
+    Origin : constant String := Ada.Directories.Containing_Directory
+        (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name));
+
+
+end Misc;
+