Re: C code to Ada

[Simon Wright <simon@pushface.org>]

Jeffrey Carter <jrcarter@acm.org> writes:

> function Dlsym (File : Handle; Symbol : ICS.Chars_Ptr) return Handle;

The function return corresponding to a subprogram is an
access-to-subprogram (probably with convention C -- certainly a thin
pointer). I would have thought you'd need several overloadings, which
would probably have to be supplied by the user:

  type p is procedure (x : integer);
  pragma convention (c, p);

  type f is function return integer;
  pragma convention (c, f);

  type ip is access all integer;
  pragma convention (c, ip);        --  OTT for plain integers, I guess

  function dlsym (in_library : handle; named : ics.chars_ptr) return p; 
  function dlsym (in_library : handle; named : ics.chars_ptr) return f; 
  function dlsym (in_library : handle; named : ics.chars_ptr) return ip; 
  pragma import (c, dlsym, "dlsym");