diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-03-02 16:06:45 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-03-02 16:06:45 +1300 |
| commit | f2352c6df585d817b3613145ec81446f917dcc21 (patch) | |
| tree | 3b43830d3f8dc7e9fba186db127d2ddf91b3feda /body/fltk-show_argv.ads | |
| parent | d5fd3906e62969fce7fec7f2fccdc5a7436cbdbc (diff) | |
Filled holes in FLTK.Static API
Diffstat (limited to 'body/fltk-show_argv.ads')
| -rw-r--r-- | body/fltk-show_argv.ads | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/body/fltk-show_argv.ads b/body/fltk-show_argv.ads deleted file mode 100644 index faa93a4..0000000 --- a/body/fltk-show_argv.ads +++ /dev/null @@ -1,37 +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) - - -- Dispatch marshalls the data, calls the function, then does cleanup - - 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; - - |