basis/opengl/gl/windows/windows.factor

   1 USING: alien alien.c-types alien.syntax kernel windows.types ;
   2 IN: opengl.gl.windows
   3
   4 LIBRARY: gl
   5
   6 FUNCTION: HGLRC wglGetCurrentContext ( )
   7 FUNCTION: void* wglGetProcAddress ( c-string 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