97 lines
2.5 KiB
Lua
97 lines
2.5 KiB
Lua
--[[ The function pointer loading function takes a string and returns either NULL or a valid pointer. It is the responsibility of the loader to take care of any platform-specific oddities in pointer fetching.
|
|
]]
|
|
|
|
return [====[
|
|
#if defined(__APPLE__)
|
|
#include <mach-o/dyld.h>
|
|
|
|
static void* AppleGLGetProcAddress (const GLubyte *name)
|
|
{
|
|
static const struct mach_header* image = NULL;
|
|
NSSymbol symbol;
|
|
char* symbolName;
|
|
if (NULL == image)
|
|
{
|
|
image = NSAddImage("/System/Library/Frameworks/OpenGL.framework/Versions/Current/OpenGL", NSADDIMAGE_OPTION_RETURN_ON_ERROR);
|
|
}
|
|
/* prepend a '_' for the Unix C symbol mangling convention */
|
|
symbolName = malloc(strlen((const char*)name) + 2);
|
|
strcpy(symbolName+1, (const char*)name);
|
|
symbolName[0] = '_';
|
|
symbol = NULL;
|
|
/* if (NSIsSymbolNameDefined(symbolName))
|
|
symbol = NSLookupAndBindSymbol(symbolName); */
|
|
symbol = image ? NSLookupSymbolInImage(image, symbolName, NSLOOKUPSYMBOLINIMAGE_OPTION_BIND | NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR) : NULL;
|
|
free(symbolName);
|
|
return symbol ? NSAddressOfSymbol(symbol) : NULL;
|
|
}
|
|
#endif /* __APPLE__ */
|
|
|
|
#if defined(__sgi) || defined (__sun)
|
|
#include <dlfcn.h>
|
|
#include <stdio.h>
|
|
|
|
static void* SunGetProcAddress (const GLubyte* name)
|
|
{
|
|
static void* h = NULL;
|
|
static void* gpa;
|
|
|
|
if (h == NULL)
|
|
{
|
|
if ((h = dlopen(NULL, RTLD_LAZY | RTLD_LOCAL)) == NULL) return NULL;
|
|
gpa = dlsym(h, "glXGetProcAddress");
|
|
}
|
|
|
|
if (gpa != NULL)
|
|
return ((void*(*)(const GLubyte*))gpa)(name);
|
|
else
|
|
return dlsym(h, (const char*)name);
|
|
}
|
|
#endif /* __sgi || __sun */
|
|
|
|
#if defined(_WIN32)
|
|
|
|
#ifdef _MSC_VER
|
|
#pragma warning(disable: 4055)
|
|
#pragma warning(disable: 4054)
|
|
#endif
|
|
|
|
static int TestPointer(const PROC pTest)
|
|
{
|
|
ptrdiff_t iTest;
|
|
if(!pTest) return 0;
|
|
iTest = (ptrdiff_t)pTest;
|
|
|
|
if(iTest == 1 || iTest == 2 || iTest == 3 || iTest == -1) return 0;
|
|
|
|
return 1;
|
|
}
|
|
|
|
static PROC WinGetProcAddress(const char *name)
|
|
{
|
|
HMODULE glMod = NULL;
|
|
PROC pFunc = wglGetProcAddress((LPCSTR)name);
|
|
if(TestPointer(pFunc))
|
|
{
|
|
return pFunc;
|
|
}
|
|
glMod = GetModuleHandleA("OpenGL32.dll");
|
|
return (PROC)GetProcAddress(glMod, (LPCSTR)name);
|
|
}
|
|
|
|
#define IntGetProcAddress(name) WinGetProcAddress(name)
|
|
#else
|
|
#if defined(__APPLE__)
|
|
#define IntGetProcAddress(name) AppleGLGetProcAddress(name)
|
|
#else
|
|
#if defined(__sgi) || defined(__sun)
|
|
#define IntGetProcAddress(name) SunGetProcAddress(name)
|
|
#else /* GLX */
|
|
#include <GL/glx.h>
|
|
|
|
#define IntGetProcAddress(name) (*glXGetProcAddressARB)((const GLubyte*)name)
|
|
#endif
|
|
#endif
|
|
#endif
|
|
]====]
|