Re: Access type conversions, how?

[chris <spamoff.danx@ntlworld.com>]

Luke Guest wrote:
> "chris" <spamoff.danx@ntlworld.com> wrote in message
> news:LnTec.5$094.0@newsfe1-win...
> 
>>type GLMatrix is array (1 .. 15) of GLFloat;
>>pragma Convention(C, GLMatrix);
> 
> No.
> 
>>What do you want to do?  Pass an array to a C function or an array of
>>arrays?
> 
> Like I said, we have a GL package which is the OpenGL bindings (yeah, all
> the functions).
> 
> I want to have an abstraction layer so I can *hide* the details of the 3D
> API (or whatever I'm using on a particular platform), above my layer, 
> I don't want any other code to know about the lower levels, i.e. it should 
> not reply on GL.GLfloat, simple as that.

 From the code you posted it looks like a convoluted solution.  Maybe 
it's the lack of context.

I would do one of two things.  Either just stick with the native GL 
types or make Ada ones corresponding to them and convert like this...


type GLMatrix is array (1..15) of GLFloat;
pragma Convention (C, GLMatrix);

type OpenGLMatrix is array (1..15) of GLFloat;


A : OpenGLMatrix;

A (1..15) := OpenGLMatrix (SomeMatrix (1..15));

or A := OpenGLMatrix(SomeMatrix);

I think i'd stick with the GL types (possibly subtyping or creating new 
types from them), there seems to be no gain in hiding those since 
they're simple and easy enough to use.

subtype OpenGLMatrix is GL.GLMatrix;

> But as GL bindings use the GL types, I cannot get a pointer to convert to
> another pointer with the same base types.

Why do that?