video: Add SDL_GL_SetAttribute binding.

* sdl2/bindings.scm (sdl-get-set-attribute): New procedure.
* sdl2/video.scm (set-gl-attribute!): New procedure.

1 files changed, 28 insertions, 0 deletions

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index e03e1de..6c638ab 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -174,6 +174,34 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-gl-swap-window
   void "SDL_GL_SwapWindow" '(*))
 
+(define-public SDL_GL_RED_SIZE 0)
+(define-public SDL_GL_GREEN_SIZE 1)
+(define-public SDL_GL_BLUE_SIZE 2)
+(define-public SDL_GL_ALPHA_SIZE 3)
+(define-public SDL_GL_BUFFER_SIZE 4)
+(define-public SDL_GL_DOUBLEBUFFER 5)
+(define-public SDL_GL_DEPTH_SIZE 6)
+(define-public SDL_GL_STENCIL_SIZE 7)
+(define-public SDL_GL_ACCUM_RED_SIZE 8)
+(define-public SDL_GL_ACCUM_GREEN_SIZE 9)
+(define-public SDL_GL_ACCUM_BLUE_SIZE 10)
+(define-public SDL_GL_ACCUM_ALPHA_SIZE 11)
+(define-public SDL_GL_STEREO 12)
+(define-public SDL_GL_MULTISAMPLEBUFFERS 13)
+(define-public SDL_GL_MULTISAMPLESAMPLES 14)
+(define-public SDL_GL_ACCELERATED_VISUAL 15)
+(define-public SDL_GL_RETAINED_BACKING 16)
+(define-public SDL_GL_CONTEXT_MAJOR_VERSION 17)
+(define-public SDL_GL_CONTEXT_MINOR_VERSION 18)
+(define-public SDL_GL_CONTEXT_EGL 19)
+(define-public SDL_GL_CONTEXT_FLAGS 20)
+(define-public SDL_GL_CONTEXT_PROFILE_MASK 21)
+(define-public SDL_GL_SHARE_WITH_CURRENT_CONTEXT 22)
+(define-public SDL_GL_FRAMEBUFFER_SRGB_CAPABLE 23)
+
+(define-foreign sdl-gl-set-attribute
+  int "SDL_GL_SetAttribute" (list int int))
+
 (define-public SDL_RENDERER_SOFTWARE #x00000001)
 (define-public SDL_RENDERER_ACCELERATED #x00000002)
 (define-public SDL_RENDERER_PRESENTVSYNC #x00000004)