X-Git-Url: http://git.tdb.fi/?p=gldbg.git;a=blobdiff_plain;f=source%2Fglwrap.c;h=4c17edfca772755f16a983253e96d37cf3ef0de6;hp=0a22c3c1ce4b6677c0bb66cdb10d559294fbe160;hb=4aba13fc7690cf79e949d9765b371e85e7530207;hpb=6475e8951e1901b247f5d1d1dd9fcfc1e77e163a

diff --git a/source/glwrap.c b/source/glwrap.c
index 0a22c3c..4c17edf 100644
--- a/source/glwrap.c
+++ b/source/glwrap.c
@@ -1,43 +1,89 @@
 /* $Id$
 
 This file is part of gldbg
-Copyright © 2009  Mikko Rasa, Mikkosoft Productions
+Copyright © 2009-2010  Mikko Rasa, Mikkosoft Productions
 Distributed under the GPL
 */
 
 #include <stdlib.h>
 #include <stdio.h>
 #include <string.h>
+#include <errno.h>
 #include <dlfcn.h>
+#include <fcntl.h>
 #include <sys/uio.h>
-#include <X11/Xlib.h>
-#include <GL/gl.h>
-#include <GL/glx.h>
-#include "functions.h"
 
-static inline void *glsym(const char *sym)
+#define INTERNAL __attribute__((visibility("internal")))
+
+INTERNAL inline const char *get_lib_names(void)
+{
+	const char *env = getenv("GLWRAP_LIBS");
+	if(env)
+		return env;
+	return "libGL.so";
+}
+
+INTERNAL inline void *glsym(const char *name)
 {
-	static void *libgl = NULL;
-	if(!libgl)
+	static void **gl_libs = NULL;
+	unsigned i;
+
+	if(!gl_libs)
 	{
-		libgl = dlopen("libGL.so", RTLD_NOW);
-		if(!libgl)
+		char *lib_names = strdup(get_lib_names());
+		unsigned n_libs = 1;
+		unsigned j;
+
+		for(i=0; lib_names[i]; ++i)
+			if(lib_names[i]==':')
+				++n_libs;
+
+		gl_libs = (void **)malloc((n_libs+1)*sizeof(void *));
+		i = 0;
+		n_libs = 0;
+		for(j=0;; ++j)
 		{
-			fprintf(stderr, "Could not open libGL: %s\n", dlerror());
-			abort();
+			if(lib_names[j]==':' || lib_names[j]==0)
+			{
+				int at_end = (lib_names[j]==0);
+				lib_names[j] = 0;
+
+				gl_libs[n_libs] = dlopen(lib_names+i, RTLD_NOW);
+				if(!gl_libs[n_libs])
+				{
+					fprintf(stderr, "Could not open %s: %s\n", lib_names+i, dlerror());
+					abort();
+				}
+
+				i = j+1;
+				++n_libs;
+
+				if(at_end)
+					break;
+			}
 		}
+
+		gl_libs[n_libs] = 0;
+		free(lib_names);
 	}
 
-	return dlsym(libgl, sym);
+	for(i=0; gl_libs[i]; ++i)
+	{
+		void *sym = dlsym(gl_libs[i], name);
+		if(sym)
+			return sym;
+	}
+
+	return NULL;
 }
 
-static char *buffer = 0;
-static char *write_pos;
-static struct iovec *iovecs = 0;
-static struct iovec *cur_vec;
-static unsigned length;
+INTERNAL char *buffer = 0;
+INTERNAL char *write_pos;
+INTERNAL struct iovec *iovecs = 0;
+INTERNAL struct iovec *cur_vec;
+INTERNAL unsigned length;
 
-static inline void next_vec()
+INTERNAL inline void next_vec(void)
 {
 	if(write_pos!=cur_vec->iov_base)
 	{
@@ -48,59 +94,54 @@ static inline void next_vec()
 	}
 }
 
-static inline void write_bytes(const char *ptr, unsigned size)
+INTERNAL inline void write_bytes(const char *ptr, unsigned size)
 {
 	unsigned i;
 	for(i=0; i<size; ++i)
 		*write_pos++ = *ptr++;
 }
 
-static inline void write_char(char v)
+INTERNAL inline void write_char(char v)
 {
 	*write_pos++ = v;
 }
 
-static inline void write_short(short v)
+INTERNAL inline void write_short(short v)
 {
 	write_bytes((char *)&v, sizeof(short));
 }
 
-static inline void write_int(int v)
+INTERNAL inline void write_int(int v)
 {
 	write_bytes((char *)&v, sizeof(int));
 }
 
-static inline void write_long(long v)
+INTERNAL inline void write_long(long v)
 {
 	write_bytes((char *)&v, sizeof(long));
 }
 
-static inline void write_ulong(unsigned long v)
-{
-	write_bytes((char *)&v, sizeof(unsigned long));
-}
-
-static inline void write_longlong(long long v)
+INTERNAL inline void write_long_long(long long v)
 {
 	write_bytes((char *)&v, sizeof(long long));
 }
 
-static inline void write_float(float v)
+INTERNAL inline void write_float(float v)
 {
 	write_bytes((char *)&v, sizeof(float));
 }
 
-static inline void write_double(double v)
+INTERNAL inline void write_double(double v)
 {
 	write_bytes((char *)&v, sizeof(double));
 }
 
-static inline void write_pointer(const void *p)
+INTERNAL inline void write_pointer(const void *p)
 {
 	write_bytes((char *)&p, sizeof(void *));
 }
 
-static inline void write_data(const void *data, unsigned size)
+INTERNAL inline void write_data(const void *data, unsigned size)
 {
 	if(data)
 	{
@@ -116,28 +157,40 @@ static inline void write_data(const void *data, unsigned size)
 		write_int(0);
 }
 
-static inline void write_string(const unsigned char *s)
+INTERNAL inline void write_string(const char *s)
 {
 	write_data(s, strlen(s)+1);
 }
 
-static inline void begin_packet(int func)
+INTERNAL inline void write_string_array(const char **sa, unsigned size)
+{
+	unsigned i;
+	size /= sizeof(const char *);
+	write_int(size);
+	for(i=0; i<size; ++i)
+		write_string(sa[i]);
+}
+
+INTERNAL inline void begin_packet(int func)
 {
 	if(!buffer)
 		buffer = (char *)malloc(1024);
 	if(!iovecs)
 		iovecs = (struct iovec *)malloc(16*sizeof(struct iovec));
+
 	write_pos = buffer;
 	cur_vec = iovecs;
 	cur_vec->iov_base = write_pos;
 	length = 0;
+
 	write_int(0);
 	write_short(func);
 }
 
-static inline void send_packet()
+INTERNAL inline int get_out_fd(void)
 {
 	static int fd = -1;
+
 	if(fd<0)
 	{
 		const char *var = getenv("GLWRAP_FD");
@@ -146,131 +199,29 @@ static inline void send_packet()
 		else
 			fd = 2;
 	}
-	next_vec();
-	write_pos = buffer;
-	write_int(length);
-	writev(fd, iovecs, cur_vec-iovecs);
-}
 
-static inline int typesize(GLenum type)
-{
-	switch(type)
-	{
-	case GL_BYTE: return sizeof(GLbyte);
-	case GL_SHORT: return sizeof(GLshort);
-	case GL_INT: return sizeof(GLint);
-	case GL_UNSIGNED_BYTE: return sizeof(GLubyte);
-	case GL_UNSIGNED_SHORT: return sizeof(GLushort);
-	case GL_UNSIGNED_INT: return sizeof(GLuint);
-	case GL_FLOAT: return sizeof(GLfloat);
-	case GL_DOUBLE: return sizeof(GLdouble);
-	// Short and byte packed types are broken
-	default: return 1;
-	}
+	return fd;
 }
 
-static inline int formatsize(GLenum format)
+INTERNAL inline void send_partial_packet(void)
 {
-	switch(format)
-	{
-	case GL_COLOR_INDEX: return 1;
-	case GL_STENCIL_INDEX: return 1;
-	case GL_DEPTH_COMPONENT: return 1;
-	case GL_RED: return 1;
-	case GL_GREEN: return 1;
-	case GL_BLUE: return 1;
-	case GL_ALPHA: return 1;
-	case GL_RGB: return 3;
-	case GL_RGBA: return 4;
-	case GL_BGR: return 3;
-	case GL_BGRA: return 4;
-	case GL_LUMINANCE: return 1;
-	case GL_LUMINANCE_ALPHA: return 2;
-	default: return 1;
-	}
-}
-
-static inline int paramsize(GLenum pname)
-{
-	switch(pname)
-	{
-	// Lighting and material
-	case GL_AMBIENT: return 4;
-	case GL_DIFFUSE: return 4;
-	case GL_AMBIENT_AND_DIFFUSE: return 4;
-	case GL_SPECULAR: return 4;
-	case GL_EMISSION: return 4;
-	case GL_SHININESS: return 1;
-	case GL_COLOR_INDEXES: return 3;
-	case GL_POSITION: return 4;
-	case GL_SPOT_DIRECTION: return 3;
-	case GL_SPOT_EXPONENT: return 1;
-	case GL_SPOT_CUTOFF: return 1;
-	case GL_CONSTANT_ATTENUATION: return 1;
-	case GL_LINEAR_ATTENUATION: return 1;
-	case GL_QUADRATIC_ATTENUATION: return 1;
-	case GL_LIGHT_MODEL_AMBIENT: return 4;
-	case GL_LIGHT_MODEL_LOCAL_VIEWER: return 1;
-	case GL_LIGHT_MODEL_TWO_SIDE: return 1;
-	case GL_LIGHT_MODEL_COLOR_CONTROL: return 1;
-
-	// Texture
-	case GL_TEXTURE_WRAP_S: return 1;
-	case GL_TEXTURE_WRAP_T: return 1;
-	case GL_TEXTURE_WRAP_R: return 1;
-	case GL_TEXTURE_MIN_FILTER: return 1;
-	case GL_TEXTURE_MAG_FILTER: return 1;
-	case GL_TEXTURE_BORDER_COLOR: return 4;
-	case GL_TEXTURE_MIN_LOD: return 1;
-	case GL_TEXTURE_MAX_LOD: return 1;
-	case GL_TEXTURE_BASE_LEVEL: return 1;
-	case GL_TEXTURE_MAX_LEVEL: return 1;
-	case GL_TEXTURE_LOD_BIAS: return 1;
-	case GL_DEPTH_TEXTURE_MODE: return 1;
-	case GL_TEXTURE_COMPARE_MODE: return 1;
-	case GL_TEXTURE_COMPARE_FUNC: return 1;
-	case GL_GENERATE_MIPMAP: return 1;
-	default: return 1;
-	}
-}
-
-static inline int mapsize(GLenum target)
-{
-	return 1;
-}
-
-GLenum cur_error = GL_NO_ERROR;
+	next_vec();
+	write_pos = buffer;
+	write_int(length|0x80000000);
+	writev(get_out_fd(), iovecs, cur_vec-iovecs);
 
-static void check_error()
-{
-	GLenum (*orig_glGetError)() = 0;
-	GLenum code;
-	if(!orig_glGetError)
-		orig_glGetError = glsym("glGetError");
-	code = orig_glGetError();
-	if(code!=GL_NO_ERROR)
-	{
-		begin_packet(FUNC_GLDERROR);
-		write_int(code);
-		send_packet();
-		if(cur_error==GL_NO_ERROR)
-			cur_error = code;
-	}
-}
+	write_pos = buffer;
+	cur_vec = iovecs;
+	cur_vec->iov_base = write_pos;
+	length = 0;
 
-GLenum APIENTRY glGetError()
-{
-	GLenum ret = cur_error;
-	cur_error = GL_NO_ERROR;
-	return ret;
+	write_int(0);
 }
 
-void (*glXGetProcAddress(const GLubyte *procname))(void)
+INTERNAL inline void send_packet(void)
 {
-	void *handle = dlopen(NULL, RTLD_LAZY);
-	return dlsym(handle, (const char *)procname);
+	next_vec();
+	write_pos = buffer;
+	write_int(length);
+	writev(get_out_fd(), iovecs, cur_vec-iovecs);
 }
-
-void (*glXGetProcAddressARB(const GLubyte *))(void) __attribute__((alias("glXGetProcAddress")));
-
-#include "glwrap.funcs"