From b4438b2fbe895694be98e6e8426103deefc51448 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 21 Jan 2025 21:04:54 +1300 Subject: Split public API and private implementation files into different directories --- src/fltk-show_argv.adb | 50 -------------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 src/fltk-show_argv.adb (limited to 'src/fltk-show_argv.adb') 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; - - -- cgit