basis/opengl/gl/windows/windows.factor

   1 USING: alien.syntax kernel windows.types ;
   2 IN: opengl.gl.windows
   3
   4 LIBRARY: gl
   5
   6 FUNCTION: HGLRC wglGetCurrentContext ( ) ;
   7 FUNCTION: void* wglGetProcAddress ( char* name ) ;
   8
   9 : gl-function-context ( -- context ) wglGetCurrentContext ; inline
  10 : gl-function-address ( name -- address ) wglGetProcAddress ; inline
  11 : gl-function-calling-convention ( -- str ) "stdcall" ; inline