Re: generic type identification

[tmoran@acm.org]

>For instance, glVertex has 24 different declarations depending on whether
>you use (C) floats, doubles, integers, shorts etc and whether your send it
  So you don't really need to know the "type" in the Ada sense of the
word, just in the C sense.  If it's OK to call the "double" version for
any float, and the "int" version for shorts as well as ints, then one
generic for int and one for double should do the job.  So how about:

generic
  type An_Integer_Type is range <>;
  type A_Float_Type is digits <>;
package Example
  procedure Some_Procedure(Item: in An_Integer_Type);
  procedure Some_Procedure(Item: in A_Float_Type);
end Example;

package body Example is

  procedure Some_Procedure(Item: in An_Integer_Type) is
  begin gl_i_SomeProcedure(Interfaces.C.Int(Item));end Some_Procedure;

  procedure Some_Procedure(Item: in A_Float_Type) is
  begin gl_d_SomeProcedure(Interfaces.C.Double(Item));end Some_Procedure;

end Example;