254 lines
9.7 KiB
Ada
254 lines
9.7 KiB
Ada
with
|
|
Interfaces.C,
|
|
System;
|
|
|
|
package GLX
|
|
is
|
|
use Interfaces;
|
|
|
|
---------
|
|
-- Types
|
|
--
|
|
|
|
-- XEventQueueOwner
|
|
--
|
|
type XEventQueueOwner is (nil);
|
|
|
|
for XEventQueueOwner use (nil => 0);
|
|
pragma Convention (C, XEventQueueOwner);
|
|
|
|
type XEventQueueOwner_Pointer is access all XEventQueueOwner;
|
|
|
|
type XEventQueueOwner_array is array (C.size_t range <>) of aliased XEventQueueOwner;
|
|
type XEventQueueOwner_Pointers is array (C.size_t range <>) of aliased XEventQueueOwner_Pointer;
|
|
|
|
|
|
-- XEventQueueOwner_Pointer_Pointer
|
|
--
|
|
type XEventQueueOwner_Pointer_Pointer is access all glx.XEventQueueOwner_Pointer;
|
|
|
|
|
|
-- VisualID
|
|
--
|
|
subtype VisualID is C.unsigned_long;
|
|
type VisualID_array is array (C.size_t range <>) of aliased VisualID;
|
|
|
|
|
|
-- XVisualInfo
|
|
--
|
|
subtype XVisualInfo is system.Address;
|
|
type XVisualInfo_array is array (C.size_t range <>) of aliased XVisualInfo;
|
|
|
|
|
|
-- Pixmap
|
|
--
|
|
subtype Pixmap is system.Address;
|
|
type Pixmap_array is array (C.size_t range <>) of aliased Pixmap;
|
|
|
|
|
|
-- Font
|
|
--
|
|
subtype Font is system.Address;
|
|
type Font_array is array (C.size_t range <>) of aliased Font;
|
|
|
|
|
|
-- Window
|
|
--
|
|
subtype Window is system.Address;
|
|
type Window_array is array (C.size_t range <>) of aliased Window;
|
|
|
|
|
|
-- Bool
|
|
--
|
|
subtype Bool is C.int;
|
|
type Bool_array is array (C.size_t range <>) of aliased Bool;
|
|
|
|
|
|
-- ContextRec
|
|
--
|
|
subtype ContextRec is system.Address;
|
|
type ContextRec_array is array (C.size_t range <>) of aliased ContextRec;
|
|
|
|
|
|
-- XID
|
|
--
|
|
subtype XID is system.Address;
|
|
type XID_array is array (C.size_t range <>) of aliased XID;
|
|
|
|
|
|
-- GLXPixmap
|
|
--
|
|
subtype GLXPixmap is XID;
|
|
type GLXPixmap_array is array (C.size_t range <>) of aliased glxPixmap;
|
|
|
|
|
|
-- GLXDrawable
|
|
--
|
|
subtype Drawable is glx.XID;
|
|
type Drawable_array is array (C.size_t range <>) of aliased Drawable;
|
|
|
|
|
|
|
|
-- FBConfig
|
|
--
|
|
subtype FBConfig is system.Address;
|
|
type FBConfig_array is array (C.size_t range <>) of aliased FBConfig;
|
|
|
|
|
|
-- FBConfigID
|
|
--
|
|
subtype FBConfigID is XID;
|
|
type FBConfigID_array is array (C.size_t range <>) of aliased FBConfigID;
|
|
|
|
|
|
-- ContextID
|
|
--
|
|
subtype ContextID is XID;
|
|
type ContextID_array is array (C.size_t range <>) of aliased ContextID;
|
|
|
|
|
|
-- Window
|
|
--
|
|
subtype GLXWindow is XID;
|
|
type GLXWindow_array is array (C.size_t range <>) of aliased GLXWindow;
|
|
|
|
|
|
-- GLXPbuffer
|
|
--
|
|
subtype PBuffer is XID;
|
|
type PBuffer_array is array (C.size_t range <>) of aliased PBuffer;
|
|
|
|
|
|
-------------
|
|
-- Constants
|
|
--
|
|
GLX_VERSION_1_1 : constant := 1;
|
|
GLX_VERSION_1_2 : constant := 1;
|
|
GLX_VERSION_1_3 : constant := 1;
|
|
GLX_VERSION_1_4 : constant := 1;
|
|
GLX_USE_GL : constant := 1;
|
|
GLX_BUFFER_SIZE : constant := 2;
|
|
GLX_LEVEL : constant := 3;
|
|
GLX_RGBA : constant := 4;
|
|
GLX_DOUBLEBUFFER : constant := 5;
|
|
GLX_STEREO : constant := 6;
|
|
GLX_AUX_BUFFERS : constant := 7;
|
|
GLX_RED_SIZE : constant := 8;
|
|
GLX_GREEN_SIZE : constant := 9;
|
|
GLX_BLUE_SIZE : constant := 10;
|
|
GLX_ALPHA_SIZE : constant := 11;
|
|
GLX_DEPTH_SIZE : constant := 12;
|
|
GLX_STENCIL_SIZE : constant := 13;
|
|
GLX_ACCUM_RED_SIZE : constant := 14;
|
|
GLX_ACCUM_GREEN_SIZE : constant := 15;
|
|
GLX_ACCUM_BLUE_SIZE : constant := 16;
|
|
GLX_ACCUM_ALPHA_SIZE : constant := 17;
|
|
GLX_BAD_SCREEN : constant := 1;
|
|
GLX_BAD_ATTRIBUTE : constant := 2;
|
|
GLX_NO_EXTENSION : constant := 3;
|
|
GLX_BAD_VISUAL : constant := 4;
|
|
GLX_BAD_CONTEXT : constant := 5;
|
|
GLX_BAD_VALUE : constant := 6;
|
|
GLX_BAD_ENUM : constant := 7;
|
|
GLX_VENDOR : constant := 1;
|
|
GLX_VERSION : constant := 2;
|
|
GLX_EXTENSIONS : constant := 3;
|
|
GLX_CONFIG_CAVEAT : constant := 16#20#;
|
|
GLX_DONT_CARE : constant := 16#ffffffff#;
|
|
GLX_X_VISUAL_TYPE : constant := 16#22#;
|
|
GLX_TRANSPARENT_TYPE : constant := 16#23#;
|
|
GLX_TRANSPARENT_INDEX_VALUE : constant := 16#24#;
|
|
GLX_TRANSPARENT_RED_VALUE : constant := 16#25#;
|
|
GLX_TRANSPARENT_GREEN_VALUE : constant := 16#26#;
|
|
GLX_TRANSPARENT_BLUE_VALUE : constant := 16#27#;
|
|
GLX_TRANSPARENT_ALPHA_VALUE : constant := 16#28#;
|
|
GLX_WINDOW_BIT : constant := 16#1#;
|
|
GLX_PIXMAP_BIT : constant := 16#2#;
|
|
GLX_PBUFFER_BIT : constant := 16#4#;
|
|
GLX_AUX_BUFFERS_BIT : constant := 16#10#;
|
|
GLX_FRONT_LEFT_BUFFER_BIT : constant := 16#1#;
|
|
GLX_FRONT_RIGHT_BUFFER_BIT : constant := 16#2#;
|
|
GLX_BACK_LEFT_BUFFER_BIT : constant := 16#4#;
|
|
GLX_BACK_RIGHT_BUFFER_BIT : constant := 16#8#;
|
|
GLX_DEPTH_BUFFER_BIT : constant := 16#20#;
|
|
GLX_STENCIL_BUFFER_BIT : constant := 16#40#;
|
|
GLX_ACCUM_BUFFER_BIT : constant := 16#80#;
|
|
GLX_NONE : constant := 16#8000#;
|
|
GLX_SLOW_CONFIG : constant := 16#8001#;
|
|
GLX_TRUE_COLOR : constant := 16#8002#;
|
|
GLX_DIRECT_COLOR : constant := 16#8003#;
|
|
GLX_PSEUDO_COLOR : constant := 16#8004#;
|
|
GLX_STATIC_COLOR : constant := 16#8005#;
|
|
GLX_GRAY_SCALE : constant := 16#8006#;
|
|
GLX_STATIC_GRAY : constant := 16#8007#;
|
|
GLX_TRANSPARENT_RGB : constant := 16#8008#;
|
|
GLX_TRANSPARENT_INDEX : constant := 16#8009#;
|
|
GLX_VISUAL_ID : constant := 16#800b#;
|
|
GLX_SCREEN : constant := 16#800c#;
|
|
GLX_NON_CONFORMANT_CONFIG : constant := 16#800d#;
|
|
GLX_DRAWABLE_TYPE : constant := 16#8010#;
|
|
GLX_RENDER_TYPE : constant := 16#8011#;
|
|
GLX_X_RENDERABLE : constant := 16#8012#;
|
|
GLX_FBCONFIG_ID : constant := 16#8013#;
|
|
GLX_RGBA_TYPE : constant := 16#8014#;
|
|
GLX_COLOR_INDEX_TYPE : constant := 16#8015#;
|
|
GLX_MAX_PBUFFER_WIDTH : constant := 16#8016#;
|
|
GLX_MAX_PBUFFER_HEIGHT : constant := 16#8017#;
|
|
GLX_MAX_PBUFFER_PIXELS : constant := 16#8018#;
|
|
GLX_PRESERVED_CONTENTS : constant := 16#801b#;
|
|
GLX_LARGEST_PBUFFER : constant := 16#801c#;
|
|
GLX_WIDTH : constant := 16#801d#;
|
|
GLX_HEIGHT : constant := 16#801e#;
|
|
GLX_EVENT_MASK : constant := 16#801f#;
|
|
GLX_DAMAGED : constant := 16#8020#;
|
|
GLX_SAVED : constant := 16#8021#;
|
|
GLX_WINDOW : constant := 16#8022#;
|
|
GLX_PBUFFER : constant := 16#8023#;
|
|
GLX_PBUFFER_HEIGHT : constant := 16#8040#;
|
|
GLX_PBUFFER_WIDTH : constant := 16#8041#;
|
|
GLX_RGBA_BIT : constant := 16#1#;
|
|
GLX_COLOR_INDEX_BIT : constant := 16#2#;
|
|
GLX_PBUFFER_CLOBBER_MASK : constant := 16#8000000#;
|
|
GLX_SAMPLE_BUFFERS : constant := 16#186a0#;
|
|
GLX_SAMPLES : constant := 16#186a1#;
|
|
GLX_PbufferClobber : constant := 0;
|
|
GLX_BufferSwapComplete : constant := 1;
|
|
a_a_GLX_NUMBER_EVENTS : constant := 17;
|
|
GLX_ARB_render_texture : constant := 1;
|
|
GLX_EXT_texture_from_pixmap : constant := 1;
|
|
GLX_BIND_TO_TEXTURE_RGB_EXT : constant := 16#20d0#;
|
|
GLX_BIND_TO_TEXTURE_RGBA_EXT : constant := 16#20d1#;
|
|
GLX_BIND_TO_MIPMAP_TEXTURE_EXT : constant := 16#20d2#;
|
|
GLX_BIND_TO_TEXTURE_TARGETS_EXT : constant := 16#20d3#;
|
|
GLX_Y_INVERTED_EXT : constant := 16#20d4#;
|
|
GLX_TEXTURE_FORMAT_EXT : constant := 16#20d5#;
|
|
GLX_TEXTURE_TARGET_EXT : constant := 16#20d6#;
|
|
GLX_MIPMAP_TEXTURE_EXT : constant := 16#20d7#;
|
|
GLX_TEXTURE_FORMAT_NONE_EXT : constant := 16#20d8#;
|
|
GLX_TEXTURE_FORMAT_RGB_EXT : constant := 16#20d9#;
|
|
GLX_TEXTURE_FORMAT_RGBA_EXT : constant := 16#20da#;
|
|
GLX_TEXTURE_1D_BIT_EXT : constant := 16#1#;
|
|
GLX_TEXTURE_2D_BIT_EXT : constant := 16#2#;
|
|
GLX_TEXTURE_RECTANGLE_BIT_EXT : constant := 16#4#;
|
|
GLX_TEXTURE_1D_EXT : constant := 16#20db#;
|
|
GLX_TEXTURE_2D_EXT : constant := 16#20dc#;
|
|
GLX_TEXTURE_RECTANGLE_EXT : constant := 16#20dd#;
|
|
GLX_FRONT_LEFT_EXT : constant := 16#20de#;
|
|
GLX_FRONT_RIGHT_EXT : constant := 16#20df#;
|
|
GLX_BACK_LEFT_EXT : constant := 16#20e0#;
|
|
GLX_BACK_RIGHT_EXT : constant := 16#20e1#;
|
|
GLX_FRONT_EXT : constant := 16#20de#;
|
|
GLX_BACK_EXT : constant := 16#20e0#;
|
|
GLX_AUX0_EXT : constant := 16#20e2#;
|
|
GLX_AUX1_EXT : constant := 16#20e3#;
|
|
GLX_AUX2_EXT : constant := 16#20e4#;
|
|
GLX_AUX3_EXT : constant := 16#20e5#;
|
|
GLX_AUX4_EXT : constant := 16#20e6#;
|
|
GLX_AUX5_EXT : constant := 16#20e7#;
|
|
GLX_AUX6_EXT : constant := 16#20e8#;
|
|
GLX_AUX7_EXT : constant := 16#20e9#;
|
|
GLX_AUX8_EXT : constant := 16#20ea#;
|
|
GLX_AUX9_EXT : constant := 16#20eb#;
|
|
|
|
end GLX;
|