DLLs / shared objects

["kat-Zygfryd" <6667@wp.pl>]

I'd like to have a plugin system in my Ada program -
loading functions/procedures from dll's/so's unknown at compiletime,
but found by the app at runtime. All information I found concerned
only Windows DLLs and involved statically linking parts of the dynamic libs,
which is unacceptable.
Is there any way in Ada to do so? (GNAT 3.14p, x86 Windows/Linux)

kZ

A schematical example of what I mean:

<DLL>
type PluginFunc is access function (someparam) return someresult;
type Callback is access procedure (FuncName: String; FuncCode: PluginFunc);
procedure Init(proc: Callback) is
begin
  proc("SomePluginFunc",MyFunc'Access);
end Init;
function MyFunc(...

<Program>
type PluginFunc is access function (someparam) return someresult;
type Callback is access procedure (FuncName: String; FuncCode: PluginFunc);
procedure SetFunc(FuncName: String; FuncCode: PluginFunc) is
begin
    Add(FuncHashTable,FuncName,FuncCode);
end SetFunc;
...
loop
  SomeDLL := FindDLL(...);
  exit when ...;
  InitProc := ObtainInitProc(SomeDLL); <--- ???
  InitProc(SetFunc);
end loop;