factor/basis/opengl/gl/windows/windows.factor

USING: alien alien.c-types alien.syntax kernel windows.types ;
IN: opengl.gl.windows

LIBRARY: gl

FUNCTION: HGLRC wglGetCurrentContext ( ) ;
FUNCTION: void* wglGetProcAddress ( c-string name ) ;

: gl-function-context ( -- context ) wglGetCurrentContext ; inline
: gl-function-address ( name -- address ) wglGetProcAddress ; inline
: gl-function-calling-convention ( -- str ) stdcall ; inline
Fixing load errors 2010-04-10 20:24:44 -04:00			`USING: alien alien.c-types alien.syntax kernel windows.types ;`
OpenGL 2.1 support 2008-01-13 01:58:56 -05:00			`IN: opengl.gl.windows`

eliminate windows.opengl32 dependency from opengl.gl.windows so we can use opengl.gl.extensions to define wgl extensions 2009-04-30 21:38:18 -04:00			`LIBRARY: gl`

			`FUNCTION: HGLRC wglGetCurrentContext ( ) ;`
rename current string-mangling "char" to "c-string". char is now just a boring old pointer to char 2010-02-23 14:42:02 -05:00			`FUNCTION: void* wglGetProcAddress ( c-string name ) ;`
eliminate windows.opengl32 dependency from opengl.gl.windows so we can use opengl.gl.extensions to define wgl extensions 2009-04-30 21:38:18 -04:00
Remove useless alien-address call from opengl.gl.windows 2008-02-08 21:00:29 -05:00			`: gl-function-context ( -- context ) wglGetCurrentContext ; inline`
Do dynamic lookup of OpenGL 1.2+ functions on all platforms. Use fallback extension names when the official name is not available, e.g., if glUseProgram is missing try glUseProgramObjectARB instead 2008-02-08 01:43:05 -05:00			`: gl-function-address ( name -- address ) wglGetProcAddress ; inline`
"stdcall" -> stdcall 2010-03-31 22:29:04 -04:00			`: gl-function-calling-convention ( -- str ) stdcall ; inline`