Re: Question[s] about aliased extended return.

[sbelmont700@gmail.com]

On Friday, November 9, 2012 2:42:37 PM UTC-5, Shark8 wrote:
> 
> Ah that's kinda the point, this is WRT the implementation part [of my OpenGL binding] and therefore the interface between the thin/raw-imports and the more useful/friendly Ada world. (By Vector I mean something like "Array (Positive Range <>) of Float" [or whatever], not the Containers's Vector.)
> 


Perhaps something like this:

Function GetTexGen (coord : Texture_Coordinate_Type; 
                    pname : Texture_Coordinate_Generation) 
                    Return Double_Vector_Type is

  procedure Thin (coord  : in Texture_Coordinate_Type; 
                  pname  : in Texture_Coordinate_Generation) 
                  params : aliased in out Double_Vector_Type) is
  begin
    glGetTexGendv(coord  => coord, 
                  pname  => pname, 
                  params => params'Unchecked_Access);
  end Thin;
                  
begin 
  return Result : Double_Vector_Type(1..Get_Elements( pname )) do 
   C_Kludge(coord  => coord, 
            pname  => pname, 
            params => Result);
   End Return; 
end GetTexGen;

In either case, I'm always of the opinion that the 'thin' binding should match the API and just change types (pointers to arrays, etc), and the 'thick' binding should change the structure (procedures to functions, return codes to exceptions, etc).

-ab