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.ads | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete mode 100644 src/fltk-show_argv.ads (limited to 'src/fltk-show_argv.ads') diff --git a/src/fltk-show_argv.ads b/src/fltk-show_argv.ads deleted file mode 100644 index 231b875..0000000 --- a/src/fltk-show_argv.ads +++ /dev/null @@ -1,35 +0,0 @@ - - --- Programmed by Jedidiah Barber --- Released into the public domain - - -with - - Interfaces.C; - - -private package FLTK.Show_Argv is - - - -- Used for implementing show(argc,argv) - - type Show_With_Args_Func is access procedure - (CObj : in Storage.Integer_Address; - Argc : in Interfaces.C.int; - Argv : in Storage.Integer_Address); - - procedure Dispatch - (Func : in Show_With_Args_Func; - CObj : in Storage.Integer_Address); - - -private - - - pragma Convention (C, Show_With_Args_Func); - - -end FLTK.Show_Argv; - - -- cgit