1 files changed, 50 insertions, 0 deletions
diff --git a/src/fltk-show_argv.adb b/src/fltk-show_argv.adb
new file mode 100644
index 0000000..52e22e2
--- /dev/null
+++ b/src/fltk-show_argv.adb
@@ -0,0 +1,50 @@
+
+
+--  Programmed by Jedidiah Barber
+--  Released into the public domain
+
+
+with
+
+    Ada.Command_Line,
+    Interfaces.C.Strings;
+
+
+package body FLTK.Show_Argv is
+
+
+    package ACom renames Ada.Command_Line;
+    package IntC renames Interfaces.C;
+    package ICS  renames Interfaces.C.Strings;
+
+
+    function Create_Argv
+        return ICS.chars_ptr_array
+    is
+        Result : ICS.chars_ptr_array (0 .. IntC.size_t (ACom.Argument_Count));
+    begin
+        Result (0) := ICS.New_String (ACom.Command_Name);
+        for Index in Integer range 1 .. ACom.Argument_Count loop
+            Result (IntC.size_t (Index)) := ICS.New_String (ACom.Argument (Index));
+        end loop;
+        return Result;
+    end Create_Argv;
+
+
+    procedure Dispatch
+           (Func : in Show_With_Args_Func;
+            CObj : in Storage.Integer_Address)
+    is
+        Argv : ICS.chars_ptr_array := Create_Argv;
+    begin
+        Func (CObj, IntC.int (ACom.Argument_Count + 1),
+            Storage.To_Integer (Argv (Argv'First)'Address));
+        for Ptr of Argv loop
+            ICS.Free (Ptr);
+        end loop;
+    end Dispatch;
+
+
+end FLTK.Show_Argv;
+
+