steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

eliminate windows.opengl32 dependency from opengl.gl.windows so we can use opengl.gl.extensions to define wgl extensions

db4
Joe Groff 2009-04-30 20:38:18 -05:00
parent 76d375b56b
commit 3edd57aaa4
2 changed files with 9 additions and 3 deletions
basis
opengl/gl/windows
windows/opengl32

7
basis/opengl/gl/windows/windows.factor
View File

@ -1,6 +1,11 @@
USING: kernel windows.opengl32 ;
USING: alien.syntax kernel windows.types ;
IN: opengl.gl.windows
LIBRARY: gl
FUNCTION: HGLRC wglGetCurrentContext ( ) ;
FUNCTION: void* wglGetProcAddress ( char* name ) ;
: gl-function-context ( -- context ) wglGetCurrentContext ; inline
: gl-function-address ( name -- address ) wglGetProcAddress ; inline
: gl-function-calling-convention ( -- str ) "stdcall" ; inline

5
basis/windows/opengl32/opengl32.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2005, 2006 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.syntax parser namespaces kernel
math math.bitwise windows.types windows.types init assocs
sequences libc ;
math math.bitwise windows.types init assocs
sequences libc opengl.gl ;
IN: windows.opengl32
! PIXELFORMATDESCRIPTOR flags
@ -100,5 +100,6 @@ LIBRARY: gl
FUNCTION: HGLRC wglCreateContext ( HDC hDC ) ;
FUNCTION: BOOL wglDeleteContext ( HGLRC hRC ) ;
FUNCTION: BOOL wglMakeCurrent ( HDC hDC, HGLRC hglrc ) ;
FUNCTION: HGLRC wglGetCurrentContext ( ) ;
FUNCTION: void* wglGetProcAddress ( char* name ) ;