1 files changed, 19 insertions, 0 deletions
diff --git a/shell/command_line_arguments.adb b/shell/command_line_arguments.adb
new file mode 100644
index 0000000..0610d67
--- /dev/null
+++ b/shell/command_line_arguments.adb
@@ -0,0 +1,19 @@
+with Interfaces.C;          use Interfaces.C;
+with Interfaces.C.Strings;  use Interfaces.C.Strings;
+with Interfaces.C.Pointers;
+with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
+
+package body Command_Line_Arguments is
+
+   function Get_Argument(
+      Argv   : Argument_Vector_Type;
+      Index  : Argument_Count_Type)
+   return String is
+      Arguments : Argument_Array(1 .. Index);
+   begin
+      Arguments := Argument_Vector_Package.Value (ArgV, Index);
+
+      return To_String (To_Unbounded_String (Value(Arguments (Index))));
+   end Get_Argument;
+
+end Command_Line_Arguments;