Add initial prototype.

3-mid/opengl/private/gl/source/gl-pointers.ads

@@ -0,0 +1,23 @@
+with
+     GL.lean,
+     Interfaces.C.Strings,
+     System;
+
+package GL.Pointers
+--
+--  Provides pointer conversions.
+--
+is
+   function to_GLvoid_access (From : in     system.Address)      return access GLvoid;
+   function to_GLvoid_access (From : access C.unsigned_char)     return access GLvoid;
+   function to_GLchar_access (From : in     C.Strings.chars_ptr) return access lean.GLchar;
+
+   function to_GLchar_Pointer_access
+                             (From : access C.Strings.chars_ptr_array)
+                                                                 return access lean.GLchar_Pointer;
+
+   function "+" (From : in     system.Address)      return access GLvoid      renames to_GLvoid_access;
+   function "+" (From : access C.unsigned_char)     return access GLvoid      renames to_GLvoid_access;
+   function "+" (From : in     C.Strings.chars_ptr) return access lean.GLchar renames to_GLchar_access;
+
+end GL.Pointers;