Add initial prototype.

3-mid/opengl/private/gid/gid-headers.ads

@@ -0,0 +1,31 @@
+---------------------------------
+-- GID - Generic Image Decoder --
+---------------------------------
+--
+-- Private child of GID, with helpers for identifying
+-- image formats and reading header informations.
+--
+private package GID.Headers is
+
+  --
+  -- Crude image signature detection
+  --
+  procedure Load_signature (
+    image   : in out Image_descriptor;
+    try_tga :        Boolean:= False
+  );
+
+
+  --
+  -- Loading of various format's headers (past signature)
+  --
+
+  procedure Load_BMP_header (image: in out Image_descriptor);
+  procedure Load_FITS_header (image: in out Image_descriptor);
+  procedure Load_GIF_header (image: in out Image_descriptor);
+  procedure Load_JPEG_header (image: in out Image_descriptor);
+  procedure Load_PNG_header (image: in out Image_descriptor);
+  procedure Load_TGA_header (image: in out Image_descriptor);
+  procedure Load_TIFF_header (image: in out Image_descriptor);
+
+end;