12 lines
394 B
Factor
12 lines
394 B
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
|