Re: generic type identification

[gautier_niouzes@hotmail.com (Gautier)]

David Holm <david@realityrift.com>:

> In this case I'd rather create a couple of overloaded procedures as the idea 
> of the thick binding is to make it easier to access OpenGL from Ada.
> This method would just make it harder since it would require one extra call 
> for each time you pass values to OpenGL.

It's the simplest variant IMHO too...
Excerpt from my home-made bindings to OpenGL 1.1:

package GL is

  ....

  -- Specify vertices
  procedure Vertex (x,y: GL.double);
  procedure Vertex_f (x,y: GL.float);

  procedure Vertex (x,y: GL.int);
  procedure Vertex_s (x,y: GL.short);

  procedure Vertex (x,y,z: GL.double);
  procedure Vertex_f (x,y,z: GL.float);

  ....

private

  ....

  -- Wrapper for vertex2d
  procedure vertex2d (x,y: GL.double);
  procedure vertex (x,y: GL.double) renames vertex2d;

  -- Wrapper for vertex2f
  procedure vertex2f (x,y: GL.float);
  procedure vertex_f (x,y: GL.float) renames vertex2f;

  ....
  pragma Import (Stdcall, Vertex3d, "glVertex3d");
  pragma Import (Stdcall, Vertex3f, "glVertex3f");
  pragma Import (Stdcall, Vertex3i, "glVertex3i");
  ....

end GL;

Write me for an applet that produces the "renames" part
________________________________________________________
Gautier  --  http://www.mysunrise.ch/users/gdm/gsoft.htm

NB: For a direct answer, e-mail address on the Web site!