1 USING: alien alien.c-types alien.syntax kernel windows.types ;
6 FUNCTION: HGLRC wglGetCurrentContext ( ) ;
7 FUNCTION: void* wglGetProcAddress ( c-string name ) ;
9 : gl-function-context ( -- context ) wglGetCurrentContext ; inline
10 : gl-function-address ( name -- address ) wglGetProcAddress ; inline
11 : gl-function-calling-convention ( -- str ) stdcall ; inline