with
ada.unchecked_Conversion,
system.Address_to_Access_Conversions;
package body GL.Pointers
is
type GLvoid_access is access all GLvoid;
type GLchar_access is access all lean.GLchar;
type GLchar_Pointer_access is access all lean.GLchar_Pointer;
type chars_ptr_access is access all C.strings.chars_ptr;
package Conversions is new system.Address_To_Access_Conversions (GLvoid);
function to_GLvoid_access (From : in system.Address) return access GLvoid
is
begin
return Conversions.to_Pointer (From);
end to_GLvoid_access;
function to_GLvoid_access (From : access C.unsigned_char) return access GLvoid
is
type unsigned_Char_access is access all C.unsigned_char;
function Convert is new ada.unchecked_Conversion (unsigned_Char_access, GLvoid_access);
begin
return Convert (unsigned_Char_access (From));
end to_GLvoid_access;
function to_GLchar_access (From : in C.Strings.chars_ptr) return access lean.GLchar
is
function Convert is new ada.unchecked_Conversion (C.Strings.chars_ptr, GLchar_access);
begin
return Convert (From);
end to_GLchar_access;
function to_GLchar_Pointer_access (From : access C.Strings.chars_ptr_array) return access lean.GLchar_Pointer
is
function Convert is new ada.unchecked_Conversion (chars_ptr_access, GLchar_Pointer_access);
begin
return Convert (From (From'First)'unchecked_Access);
end to_GLchar_Pointer_access;
end GL.Pointers;