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

Have glXGetProcAddress fall back to glXGetProcAddressARB if not present

db4
Joe Groff 2008-02-08 17:32:02 -08:00
parent c906d26b13
commit aa7f839948
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/x11/glx/glx.factor
View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
! !
! based on glx.h from xfree86, and some of glxtokens.h ! based on glx.h from xfree86, and some of glxtokens.h
USING: alien alien.c-types alien.syntax x11.xlib USING: alien alien.c-types alien.syntax alien.syntax.private x11.xlib
namespaces kernel sequences ; namespaces kernel sequences parser words ;
IN: x11.glx IN: x11.glx
LIBRARY: glx LIBRARY: glx
@ -78,6 +78,15 @@ FUNCTION: void glXSelectEvent ( Display* dpy, GLXDrawable draw, ulong event_mask
FUNCTION: void glXGetSelectedEvent ( Display* dpy, GLXDrawable draw, ulong* event_mask ) ; FUNCTION: void glXGetSelectedEvent ( Display* dpy, GLXDrawable draw, ulong* event_mask ) ;
! GLX 1.4 and later ! GLX 1.4 and later
! Fall back to the extension function glXGetProcAddressARB if necessary
<< "glx" load-library "glXGetProcAddress" dlsym
[ "void*" "glx" "glXGetProcAddress" { "char*" "procname" } define-function ]
[
"void*" "glx" "glXGetProcAddressARB" { "char*" "procname" } define-function
"glXGetProcAddress" create-in [ glXGetProcAddressARB ] define make-inline
]
if >>
FUNCTION: void* glXGetProcAddress ( char* procname ) ; FUNCTION: void* glXGetProcAddress ( char* procname ) ;
! GLX Events ! GLX Events