Split public API and private implementation files into different directories

1 files changed, 0 insertions, 50 deletions

diff --git a/src/fltk-show_argv.adb b/src/fltk-show_argv.adb
deleted file mode 100644
index 52e22e2..0000000
--- a/src/fltk-show_argv.adb
+++ /dev/null
@@ -1,50 +0,0 @@
-
-
---  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;
-
-