-/*\r
- * Mesa 3-D graphics library\r
- * Version: 6.3\r
- *\r
- * Copyright (C) 2004-2005 Brian Paul All Rights Reserved.\r
- *\r
- * Permission is hereby granted, free of charge, to any person obtaining a\r
- * copy of this software and associated documentation files (the "Software"),\r
- * to deal in the Software without restriction, including without limitation\r
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
- * and/or sell copies of the Software, and to permit persons to whom the\r
- * Software is furnished to do so, subject to the following conditions:\r
- *\r
- * The above copyright notice and this permission notice shall be included\r
- * in all copies or substantial portions of the Software.\r
- *\r
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS\r
- * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL\r
- * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN\r
- * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
- * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
- */\r
-\r
-/**\r
- * \file shaderobjects.c\r
- * ARB_shader_objects state management functions\r
- * \author Michal Krol\r
- */\r
-\r
+/*
+ * Mesa 3-D graphics library
+ * Version: 6.3
+ *
+ * Copyright (C) 2004-2005 Brian Paul All Rights Reserved.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a
+ * copy of this software and associated documentation files (the "Software"),
+ * to deal in the Software without restriction, including without limitation
+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,
+ * and/or sell copies of the Software, and to permit persons to whom the
+ * Software is furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included
+ * in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+ * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+ * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+ * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+ * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ */
+
+/**
+ * \file shaderobjects.c
+ * ARB_shader_objects state management functions
+ * \author Michal Krol
+ */
+
#include "glheader.h"
-#include "shaderobjects.h"\r
-#include "shaderobjects_3dlabs.h"
#include "context.h"
-#include "macros.h"\r
-#include "hash.h"\r
-\r
-\r
-void GLAPIENTRY
+#include "hash.h"
+#include "shaderobjects.h"
+#include "shaderobjects_3dlabs.h"
+
+
+#define I_UNKNOWN struct gl2_unknown_intf **
+#define I_GENERIC struct gl2_generic_intf **
+#define I_CONTAINER struct gl2_container_intf **
+#define I_PROGRAM struct gl2_program_intf **
+#define I_SHADER struct gl2_shader_intf **
+
+#define RELEASE_GENERIC(x)\
+ (**x)._unknown.Release ((I_UNKNOWN) x)
+
+#define RELEASE_CONTAINER(x)\
+ (**x)._generic._unknown.Release ((I_UNKNOWN) x)
+
+#define RELEASE_PROGRAM(x)\
+ (**x)._container._generic._unknown.Release ((I_UNKNOWN) x)
+
+#define RELEASE_SHADER(x)\
+ (**x)._generic._unknown.Release ((I_UNKNOWN) x);
+
+#define _LOOKUP_HANDLE(handle, function)\
+ I_UNKNOWN unk;\
+ _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\
+ unk = (I_UNKNOWN) _mesa_HashLookup (ctx->Shared->GL2Objects, handle);\
+ _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\
+ if (unk == NULL) {\
+ _mesa_error (ctx, GL_INVALID_VALUE, function);\
+ break;\
+ }
+
+#define _QUERY_INTERFACE(x, type, uuid, function)\
+ x = (type) (**unk).QueryInterface (unk, uuid);\
+ if (x == NULL) {\
+ _mesa_error (ctx, GL_INVALID_OPERATION, function);\
+ break;\
+ }
+
+#define GET_GENERIC(x, handle, function)\
+ I_GENERIC x = NULL;\
+ do {\
+ _LOOKUP_HANDLE(handle, function);\
+ _QUERY_INTERFACE(x, I_GENERIC, UIID_GENERIC, function);\
+ } while (0)
+
+#define GET_CONTAINER(x, handle, function)\
+ I_CONTAINER x = NULL;\
+ do {\
+ _LOOKUP_HANDLE(handle, function);\
+ _QUERY_INTERFACE(x, I_CONTAINER, UIID_CONTAINER, function);\
+ } while (0)
+
+#define GET_PROGRAM(x, handle, function)\
+ I_PROGRAM x = NULL;\
+ do {\
+ _LOOKUP_HANDLE(handle, function);\
+ _QUERY_INTERFACE(x, I_PROGRAM, UIID_PROGRAM, function);\
+ } while (0)
+
+#define GET_SHADER(x, handle, function)\
+ I_SHADER x = NULL;\
+ do {\
+ _LOOKUP_HANDLE(handle, function);\
+ _QUERY_INTERFACE(x, I_SHADER, UIID_SHADER, function);\
+ } while (0)
+
+#define _LINKED_PROGRAM(x, function)\
+ if ((**x).GetLinkStatus (x) == GL_FALSE) {\
+ RELEASE_PROGRAM(x);\
+ _mesa_error (ctx, GL_INVALID_OPERATION, function);\
+ break;\
+ }
+
+#define GET_LINKED_PROGRAM(x, handle, function)\
+ I_PROGRAM x = NULL;\
+ do {\
+ _LOOKUP_HANDLE(handle, function);\
+ _QUERY_INTERFACE(x, I_PROGRAM, UIID_PROGRAM, function);\
+ _LINKED_PROGRAM(x, function);\
+ } while (0)
+
+#define _CURRENT_PROGRAM(x, function)\
+ if (ctx->ShaderObjects.CurrentProgram == NULL) {\
+ _mesa_error (ctx, GL_INVALID_OPERATION, function);\
+ break;\
+ }\
+ x = ctx->ShaderObjects.CurrentProgram;
+
+#define GET_CURRENT_LINKED_PROGRAM(x, function)\
+ I_PROGRAM x = NULL;\
+ do {\
+ _CURRENT_PROGRAM(x, function);\
+ _LINKED_PROGRAM(x, function);\
+ } while (0)
+
+
+GLvoid GLAPIENTRY
_mesa_DeleteObjectARB (GLhandleARB obj)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_generic_intf **gen;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, obj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glDeleteObjectARB");\r
- return;\r
- }\r
-\r
- gen = (struct gl2_generic_intf **) (**unk).QueryInterface (unk, UIID_GENERIC);\r
- if (gen == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glDeleteObjectARB");\r
- return;\r
- }\r
-\r
- (**gen).Delete (gen);\r
- (**gen)._unknown.Release ((struct gl2_unknown_intf **) gen);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_GENERIC(gen, obj, "glDeleteObjectARB");
+
+ if (gen != NULL)
+ {
+ (**gen).Delete (gen);
+ RELEASE_GENERIC(gen);
+ }
}
GLhandleARB GLAPIENTRY
_mesa_GetHandleARB (GLenum pname)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
-\r
- switch (pname)\r
- {\r
- case GL_PROGRAM_OBJECT_ARB:\r
- if (ctx->ShaderObjects.current_program != NULL)\r
- return (**ctx->ShaderObjects.current_program)._container._generic.GetName (\r
- (struct gl2_generic_intf **) ctx->ShaderObjects.current_program);\r
- break;\r
- }\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+
+ switch (pname)
+ {
+ case GL_PROGRAM_OBJECT_ARB:
+ {
+ I_PROGRAM pro = ctx->ShaderObjects.CurrentProgram;
+
+ if (pro != NULL)
+ return (**pro)._container._generic.GetName ((I_GENERIC) pro);
+ }
+ break;
+ default:
+ _mesa_error (ctx, GL_INVALID_ENUM, "glGetHandleARB");
+ }
return 0;
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_DetachObjectARB (GLhandleARB containerObj, GLhandleARB attachedObj)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unkc, **unka;\r
- struct gl2_container_intf **con;\r
- struct gl2_generic_intf **att;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unkc = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, containerObj);\r
- unka = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, attachedObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unkc == NULL || unka == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glDetachObjectARB");\r
- return;\r
- }\r
-\r
- con = (struct gl2_container_intf **) (**unkc).QueryInterface (unkc, UIID_CONTAINER);\r
- if (con == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glDetachObjectARB");\r
- return;\r
- }\r
-\r
- att = (struct gl2_generic_intf **) (**unka).QueryInterface (unka, UIID_GENERIC);\r
- if (att == NULL)\r
- {\r
- (**con)._generic._unknown.Release ((struct gl2_unknown_intf **) con);\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glDetachObjectARB");\r
- return;\r
- }\r
-\r
- if ((**con).Detach (con, att) == GL_FALSE)\r
- {\r
- (**con)._generic._unknown.Release ((struct gl2_unknown_intf **) con);\r
- (**att)._unknown.Release ((struct gl2_unknown_intf **) att);\r
- return;\r
- }\r
-\r
- (**con)._generic._unknown.Release ((struct gl2_unknown_intf **) con);\r
- (**att)._unknown.Release ((struct gl2_unknown_intf **) att);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CONTAINER(con, containerObj, "glDetachObjectARB");
+
+ if (con != NULL)
+ {
+ GET_GENERIC(att, attachedObj, "glDetachObjectARB");
+
+ if (att != NULL)
+ {
+ (**con).Detach (con, att);
+ RELEASE_GENERIC(att);
+ }
+ RELEASE_CONTAINER(con);
+ }
}
GLhandleARB GLAPIENTRY
_mesa_CreateShaderObjectARB (GLenum shaderType)
-{\r
+{
return _mesa_3dlabs_create_shader_object (shaderType);
}
-void GLAPIENTRY
-_mesa_ShaderSourceARB (GLhandleARB shaderObj, GLsizei count, const GLcharARB **string,\r
+GLvoid GLAPIENTRY
+_mesa_ShaderSourceARB (GLhandleARB shaderObj, GLsizei count, const GLcharARB **string,
const GLint *length)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_shader_intf **sha;\r
- GLint *offsets;\r
- GLsizei i;\r
- GLcharARB *source;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, shaderObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glShaderSourceARB");\r
- return;\r
- }\r
-\r
- sha = (struct gl2_shader_intf **) (**unk).QueryInterface (unk, UIID_SHADER);\r
- if (sha == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glShaderSourceARB");\r
- return;\r
- }\r
-\r
- /* this array holds offsets of where the appropriate string ends, thus the last\r
- element will be set to the total length of the source code */\r
- offsets = (GLint *) _mesa_malloc (count * sizeof (GLint));\r
- if (offsets == NULL)\r
- {\r
- (**sha)._generic._unknown.Release ((struct gl2_unknown_intf **) sha);\r
- _mesa_error (ctx, GL_OUT_OF_MEMORY, "glShaderSourceARB");\r
- return;\r
- }\r
-\r
- for (i = 0; i < count; i++)\r
- {\r
- if (length == NULL || length[i] < 0)\r
- offsets[i] = _mesa_strlen (string[i]);\r
- else\r
- offsets[i] = length[i];\r
- /* accumulate string lengths */\r
- if (i > 0)\r
- offsets[i] += offsets[i - 1];\r
- }\r
-\r
- source = (GLcharARB *) _mesa_malloc ((offsets[count - 1] + 1) * sizeof (GLcharARB));\r
- if (source == NULL)\r
- {\r
- _mesa_free ((void *) offsets);\r
- (**sha)._generic._unknown.Release ((struct gl2_unknown_intf **) sha);\r
- _mesa_error (ctx, GL_OUT_OF_MEMORY, "glShaderSourceARB");\r
- return;\r
- }\r
-\r
- for (i = 0; i < count; i++)\r
- {\r
- GLint start = (i > 0) ? offsets[i - 1] : 0;\r
- _mesa_memcpy (source + start, string[i], (offsets[i] - start) * sizeof (GLcharARB));\r
- }\r
- source[offsets[count - 1]] = '\0';\r
-\r
- (**sha).SetSource (sha, source, offsets, count);\r
- (**sha)._generic._unknown.Release ((struct gl2_unknown_intf **) sha);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GLint *offsets;
+ GLsizei i;
+ GLcharARB *source;
+ GET_SHADER(sha, shaderObj, "glShaderSourceARB");
+
+ if (sha == NULL)
+ return;
+
+ /*
+ * This array holds offsets of where the appropriate string ends, thus the last
+ * element will be set to the total length of the source code.
+ */
+ offsets = (GLint *) _mesa_malloc (count * sizeof (GLint));
+ if (offsets == NULL)
+ {
+ RELEASE_SHADER(sha);
+ _mesa_error (ctx, GL_OUT_OF_MEMORY, "glShaderSourceARB");
+ return;
+ }
+
+ for (i = 0; i < count; i++)
+ {
+ if (length == NULL || length[i] < 0)
+ offsets[i] = _mesa_strlen (string[i]);
+ else
+ offsets[i] = length[i];
+ /* accumulate string lengths */
+ if (i > 0)
+ offsets[i] += offsets[i - 1];
+ }
+
+ source = (GLcharARB *) _mesa_malloc ((offsets[count - 1] + 1) * sizeof (GLcharARB));
+ if (source == NULL)
+ {
+ _mesa_free ((GLvoid *) offsets);
+ RELEASE_SHADER(sha);
+ _mesa_error (ctx, GL_OUT_OF_MEMORY, "glShaderSourceARB");
+ return;
+ }
+
+ for (i = 0; i < count; i++)
+ {
+ GLint start = (i > 0) ? offsets[i - 1] : 0;
+ _mesa_memcpy (source + start, string[i], (offsets[i] - start) * sizeof (GLcharARB));
+ }
+ source[offsets[count - 1]] = '\0';
+
+ (**sha).SetSource (sha, source, offsets, count);
+ RELEASE_SHADER(sha);
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_CompileShaderARB (GLhandleARB shaderObj)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_shader_intf **sha;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, shaderObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glCompileShaderARB");\r
- return;\r
- }\r
-\r
- sha = (struct gl2_shader_intf **) (**unk).QueryInterface (unk, UIID_SHADER);\r
- if (sha == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glCompileShaderARB");\r
- return;\r
- }\r
-\r
- (**sha).Compile (sha);\r
- (**sha)._generic._unknown.Release ((struct gl2_unknown_intf **) sha);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_SHADER(sha, shaderObj, "glCompileShaderARB");
+
+ if (sha != NULL)
+ {
+ (**sha).Compile (sha);
+ RELEASE_SHADER(sha);
+ }
}
GLhandleARB GLAPIENTRY
-_mesa_CreateProgramObjectARB (void)
+_mesa_CreateProgramObjectARB (GLvoid)
{
return _mesa_3dlabs_create_program_object ();
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_AttachObjectARB (GLhandleARB containerObj, GLhandleARB obj)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unkc, **unka;\r
- struct gl2_container_intf **con;\r
- struct gl2_generic_intf **att;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unkc = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, containerObj);\r
- unka = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, obj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unkc == NULL || unka == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glAttachObjectARB");\r
- return;\r
- }\r
-\r
- con = (struct gl2_container_intf **) (**unkc).QueryInterface (unkc, UIID_CONTAINER);\r
- if (con == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glAttachObjectARB");\r
- return;\r
- }\r
-\r
- att = (struct gl2_generic_intf **) (**unka).QueryInterface (unka, UIID_GENERIC);\r
- if (att == NULL)\r
- {\r
- (**con)._generic._unknown.Release ((struct gl2_unknown_intf **) con);\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glAttachObjectARB");\r
- return;\r
- }\r
-\r
- if (!(**con).Attach (con, att))\r
- {\r
- (**con)._generic._unknown.Release ((struct gl2_unknown_intf **) con);\r
- (**att)._unknown.Release ((struct gl2_unknown_intf **) att);\r
- return;\r
- }\r
-\r
- (**con)._generic._unknown.Release ((struct gl2_unknown_intf **) con);\r
- (**att)._unknown.Release ((struct gl2_unknown_intf **) att);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CONTAINER(con, containerObj, "glAttachObjectARB");
+
+ if (con != NULL)
+ {
+ GET_GENERIC(att, obj, "glAttachObjectARB");
+
+ if (att != NULL)
+ {
+ (**con).Attach (con, att);
+ RELEASE_GENERIC(att);
+ }
+ RELEASE_CONTAINER(con);
+ }
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_LinkProgramARB (GLhandleARB programObj)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glLinkProgramARB");\r
- return;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glLinkProgramARB");\r
- return;\r
- }\r
-\r
- if (pro == ctx->ShaderObjects.current_program)\r
- {\r
- /* TODO re-install executable program */\r
- }\r
-\r
- (**pro).Link (pro);\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_PROGRAM(pro, programObj, "glLinkProgramARB");
+
+ if (pro != NULL)
+ {
+ if (pro == ctx->ShaderObjects.CurrentProgram)
+ {
+ /* TODO re-install executable program */
+ }
+ (**pro).Link (pro);
+ RELEASE_PROGRAM(pro);
+ }
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_UseProgramObjectARB (GLhandleARB programObj)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_program_intf **pro;\r
-\r
- if (programObj == 0)\r
- {\r
- pro = NULL;\r
- }\r
- else\r
- {\r
- struct gl2_unknown_intf **unk;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glUseProgramObjectARB");\r
- return;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUseProgramObjectARB");\r
- return;\r
- }\r
-\r
- if ((**pro).GetLinkStatus (pro) == GL_FALSE)\r
- {\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUseProgramObjectARB");\r
- return;\r
- }\r
- }\r
-\r
- if (ctx->ShaderObjects.current_program != NULL)\r
- {\r
- (**ctx->ShaderObjects.current_program)._container._generic._unknown.Release (\r
- (struct gl2_unknown_intf **) ctx->ShaderObjects.current_program);\r
- }\r
-\r
- ctx->ShaderObjects.current_program = pro;
+{
+ GET_CURRENT_CONTEXT(ctx);
+ I_PROGRAM program = NULL;
+
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (programObj != 0)
+ {
+ GET_PROGRAM(pro, programObj, "glUseProgramObjectARB");
+
+ if (pro == NULL)
+ return;
+
+ if ((**pro).GetLinkStatus (pro) == GL_FALSE)
+ {
+ RELEASE_PROGRAM(pro);
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUseProgramObjectARB");
+ return;
+ }
+
+ program = pro;
+ }
+
+ if (ctx->ShaderObjects.CurrentProgram != NULL)
+ RELEASE_PROGRAM(ctx->ShaderObjects.CurrentProgram);
+ ctx->ShaderObjects.CurrentProgram = program;
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_ValidateProgramARB (GLhandleARB programObj)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glValidateProgramARB");\r
- return;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glValidateProgramARB");\r
- return;\r
- }\r
-\r
- (**pro).Validate (pro);\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
-}\r
-\r
-/*\r
-Errors TODO\r
-\r
- The error INVALID_OPERATION is generated by the Uniform*ARB if the\r
- number of values loaded results in exceeding the declared extent of a\r
- uniform.\r
-\r
- The error INVALID_OPERATION is generated by the Uniform*ARB commands if\r
- the size does not match the size of the uniform declared in the shader.\r
-\r
- The error INVALID_OPERATION is generated by the Uniform*ARB commands if\r
- the type does not match the type of the uniform declared in the shader,\r
- if the uniform is not of type Boolean.\r
-\r
- The error INVALID_OPERATION is generated by the Uniform*ARB commands if\r
- <location> does not exist for the program object currently in use.\r
-\r
- The error INVALID_OPERATION is generated if a uniform command other than\r
- Uniform1i{v}ARB is used to load a sampler value.\r
-\r
-\r
-*/
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_PROGRAM(pro, programObj, "glValidateProgramARB");
-void GLAPIENTRY
+ if (pro != NULL)
+ {
+ (**pro).Validate (pro);
+ RELEASE_PROGRAM(pro);
+ }
+}
+
+GLvoid GLAPIENTRY
_mesa_Uniform1fARB (GLint location, GLfloat v0)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform1fARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1fARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, 1, &v0, GL_FLOAT))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1fARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform2fARB (GLint location, GLfloat v0, GLfloat v1)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform2fARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2fARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ GLfloat v[2] = { v0, v1 };
+
+ if (!_slang_write_uniform (pro, location, 1, v, GL_FLOAT_VEC2))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2fARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform3fARB (GLint location, GLfloat v0, GLfloat v1, GLfloat v2)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform3fARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3fARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ GLfloat v[3] = { v0, v1, v2 };
+
+ if (!_slang_write_uniform (pro, location, 1, v, GL_FLOAT_VEC3))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3fARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform4fARB (GLint location, GLfloat v0, GLfloat v1, GLfloat v2, GLfloat v3)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform4fARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4fARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ GLfloat v[4] = { v0, v1, v2, v3 };
+
+ if (!_slang_write_uniform (pro, location, 1, v, GL_FLOAT_VEC4))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4fARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform1iARB (GLint location, GLint v0)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform1iARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1iARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, 1, &v0, GL_INT))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1iARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform2iARB (GLint location, GLint v0, GLint v1)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform2iARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2iARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ GLint v[2] = { v0, v1 };
+
+ if (!_slang_write_uniform (pro, location, 1, v, GL_INT_VEC2))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2iARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform3iARB (GLint location, GLint v0, GLint v1, GLint v2)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform3iARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3iARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ GLint v[3] = { v0, v1, v2 };
+
+ if (!_slang_write_uniform (pro, location, 1, v, GL_INT_VEC3))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3iARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform4iARB (GLint location, GLint v0, GLint v1, GLint v2, GLint v3)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform4iARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4iARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ GLint v[4] = { v0, v1, v2, v3 };
+
+ if (!_slang_write_uniform (pro, location, 1, v, GL_INT_VEC4))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4iARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform1fvARB (GLint location, GLsizei count, const GLfloat *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform1fvARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1fvARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_FLOAT))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1fvARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform2fvARB (GLint location, GLsizei count, const GLfloat *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform2fvARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2fvARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_FLOAT_VEC2))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2fvARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform3fvARB (GLint location, GLsizei count, const GLfloat *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform3fvARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3fvARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_FLOAT_VEC3))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3fvARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform4fvARB (GLint location, GLsizei count, const GLfloat *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform4fvARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4fvARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_FLOAT_VEC4))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4fvARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform1ivARB (GLint location, GLsizei count, const GLint *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform1ivARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1ivARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_INT))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform1ivARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform2ivARB (GLint location, GLsizei count, const GLint *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform2ivARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2ivARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_INT_VEC2))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform2ivARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform3ivARB (GLint location, GLsizei count, const GLint *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform3ivARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3ivARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_INT_VEC3))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform3ivARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_Uniform4ivARB (GLint location, GLsizei count, const GLint *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniform4ivARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4ivARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_INT_VEC4))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniform4ivARB");
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_UniformMatrix2fvARB (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniformMatrix2fvARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix2fvARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (transpose)
+ {
+ GLfloat *trans, *pt;
+ const GLfloat *pv;
+
+ trans = (GLfloat *) _mesa_malloc (count * 4 * sizeof (GLfloat));
+ if (trans == NULL)
+ {
+ _mesa_error (ctx, GL_OUT_OF_MEMORY, "glUniformMatrix2fvARB");
+ return;
+ }
+ for (pt = trans, pv = value; pt != trans + count * 4; pt += 4, pv += 4)
+ {
+ pt[0] = pv[0];
+ pt[1] = pv[2];
+ pt[2] = pv[1];
+ pt[3] = pv[3];
+ }
+ if (!_slang_write_uniform (pro, location, count, trans, GL_FLOAT_MAT2))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix2fvARB");
+ _mesa_free (trans);
+ }
+ else
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_FLOAT_MAT2))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix2fvARB");
+ }
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_UniformMatrix3fvARB (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniformMatrix3fvARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix3fvARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (transpose)
+ {
+ GLfloat *trans, *pt;
+ const GLfloat *pv;
+
+ trans = (GLfloat *) _mesa_malloc (count * 9 * sizeof (GLfloat));
+ if (trans == NULL)
+ {
+ _mesa_error (ctx, GL_OUT_OF_MEMORY, "glUniformMatrix3fvARB");
+ return;
+ }
+ for (pt = trans, pv = value; pt != trans + count * 9; pt += 9, pv += 9)
+ {
+ pt[0] = pv[0];
+ pt[1] = pv[3];
+ pt[2] = pv[6];
+ pt[3] = pv[1];
+ pt[4] = pv[4];
+ pt[5] = pv[7];
+ pt[6] = pv[2];
+ pt[7] = pv[5];
+ pt[8] = pv[8];
+ }
+ if (!_slang_write_uniform (pro, location, count, trans, GL_FLOAT_MAT3))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix3fvARB");
+ _mesa_free (trans);
+ }
+ else
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_FLOAT_MAT3))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix3fvARB");
+ }
}
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_UniformMatrix4fvARB (GLint location, GLsizei count, GLboolean transpose, const GLfloat *value)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_CURRENT_LINKED_PROGRAM(pro, "glUniformMatrix4fvARB");\r
\r
- if (ctx->ShaderObjects.current_program == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix4fvARB");\r
- return;\r
+ FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+ if (pro != NULL)
+ {
+ if (transpose)
+ {
+ GLfloat *trans, *pt;
+ const GLfloat *pv;
+
+ trans = (GLfloat *) _mesa_malloc (count * 16 * sizeof (GLfloat));
+ if (trans == NULL)
+ {
+ _mesa_error (ctx, GL_OUT_OF_MEMORY, "glUniformMatrix4fvARB");
+ return;
+ }
+ for (pt = trans, pv = value; pt != trans + count * 16; pt += 16, pv += 16)
+ {
+ _math_transposef (pt, pv);
+ }
+ if (!_slang_write_uniform (pro, location, count, trans, GL_FLOAT_MAT4))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix4fvARB");
+ _mesa_free (trans);
+ }
+ else
+ {
+ if (!_slang_write_uniform (pro, location, count, value, GL_FLOAT_MAT4))
+ _mesa_error (ctx, GL_INVALID_OPERATION, "glUniformMatrix4fvARB");
+ }
}
-}\r
-\r
-void GLAPIENTRY
+}
+
+static GLboolean
+_mesa_get_object_parameter (GLhandleARB obj, GLenum pname, GLvoid *params, GLboolean *integral,
+ GLint *size)
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GLint *ipar = (GLint *) params;
+
+ /* set default values */
+ *integral = GL_TRUE; /* indicates param type, TRUE: GLint, FALSE: GLfloat */
+ *size = 1; /* param array size */
+
+ switch (pname)
+ {
+ case GL_OBJECT_TYPE_ARB:
+ case GL_OBJECT_DELETE_STATUS_ARB:
+ case GL_OBJECT_INFO_LOG_LENGTH_ARB:
+ {
+ GET_GENERIC(gen, obj, "glGetObjectParameterivARB");
+
+ if (gen == NULL)
+ return GL_FALSE;
+
+ switch (pname)
+ {
+ case GL_OBJECT_TYPE_ARB:
+ *ipar = (**gen).GetType (gen);
+ break;
+ case GL_OBJECT_DELETE_STATUS_ARB:
+ *ipar = (**gen).GetDeleteStatus (gen);
+ break;
+ case GL_OBJECT_INFO_LOG_LENGTH_ARB:
+ {
+ const GLcharARB *info = (**gen).GetInfoLog (gen);
+
+ if (info == NULL)
+ *ipar = 0;
+ else
+ *ipar = _mesa_strlen (info) + 1;
+ }
+ break;
+ }
+
+ RELEASE_GENERIC(gen);
+ }
+ break;
+ case GL_OBJECT_SUBTYPE_ARB:
+ case GL_OBJECT_COMPILE_STATUS_ARB:
+ case GL_OBJECT_SHADER_SOURCE_LENGTH_ARB:
+ {
+ GET_SHADER(sha, obj, "glGetObjectParameterivARB");
+
+ if (sha == NULL)
+ return GL_FALSE;
+
+ switch (pname)
+ {
+ case GL_OBJECT_SUBTYPE_ARB:
+ *ipar = (**sha).GetSubType (sha);
+ break;
+ case GL_OBJECT_COMPILE_STATUS_ARB:
+ *ipar = (**sha).GetCompileStatus (sha);
+ break;
+ case GL_OBJECT_SHADER_SOURCE_LENGTH_ARB:
+ {
+ const GLcharARB *src = (**sha).GetSource (sha);
+
+ if (src == NULL)
+ *ipar = 0;
+ else
+ *ipar = _mesa_strlen (src) + 1;
+ }
+ break;
+ }
+
+ RELEASE_SHADER(sha);
+ }
+ break;
+ case GL_OBJECT_LINK_STATUS_ARB:
+ case GL_OBJECT_VALIDATE_STATUS_ARB:
+ case GL_OBJECT_ATTACHED_OBJECTS_ARB:
+ case GL_OBJECT_ACTIVE_UNIFORMS_ARB:
+ case GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB:
+ {
+ GET_PROGRAM(pro, obj, "glGetObjectParameterivARB");
+
+ if (pro == NULL)
+ return GL_FALSE;
+
+ switch (pname)
+ {
+ case GL_OBJECT_LINK_STATUS_ARB:
+ *ipar = (**pro).GetLinkStatus (pro);
+ break;
+ case GL_OBJECT_VALIDATE_STATUS_ARB:
+ *ipar = (**pro).GetValidateStatus (pro);
+ break;
+ case GL_OBJECT_ATTACHED_OBJECTS_ARB:
+ *ipar = (**pro)._container.GetAttachedCount ((I_CONTAINER) pro);
+ break;
+ case GL_OBJECT_ACTIVE_UNIFORMS_ARB:
+ *ipar = _slang_get_active_uniform_count (pro);
+ break;
+ case GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB:
+ *ipar = _slang_get_active_uniform_max_length (pro);
+ break;
+ }
+
+ RELEASE_PROGRAM(pro);
+ }
+ break;
+ default:
+ _mesa_error (ctx, GL_INVALID_ENUM, "glGetObjectParameterivARB");
+ return GL_FALSE;
+ }
+
+ return GL_TRUE;
+}
+
+GLvoid GLAPIENTRY
_mesa_GetObjectParameterfvARB (GLhandleARB obj, GLenum pname, GLfloat *params)
-{\r
- GLint iparams;\r
-\r
- /* NOTE we are assuming here that all parameters are one-element wide */\r
-\r
- _mesa_GetObjectParameterivARB (obj, pname, &iparams);\r
- *params = (GLfloat) iparams;
+{
+ GLboolean integral;
+ GLint size;
+
+ assert (sizeof (GLfloat) == sizeof (GLint));
+
+ if (_mesa_get_object_parameter (obj, pname, (GLvoid *) params, &integral, &size))
+ if (integral)
+ {
+ GLint i;
+
+ for (i = 0; i < size; i++)
+ params[i] = (GLfloat) ((GLint *) params)[i];
+ }
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_GetObjectParameterivARB (GLhandleARB obj, GLenum pname, GLint *params)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_generic_intf **gen;\r
- struct gl2_shader_intf **sha;\r
- struct gl2_program_intf **pro;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, obj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetObjectParameterivARB");\r
- return;\r
- }\r
-\r
- gen = (struct gl2_generic_intf **) (**unk).QueryInterface (unk, UIID_GENERIC);\r
- if (gen == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");\r
- return;\r
- }\r
-\r
- sha = (struct gl2_shader_intf **) (**unk).QueryInterface (unk, UIID_SHADER);\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
-\r
- /* NOTE this function is called by GetObjectParameterfv so watch out with types and sizes */\r
-\r
- switch (pname)\r
- {\r
- case GL_OBJECT_TYPE_ARB:\r
- *params = (**gen).GetType (gen);\r
- break;\r
- case GL_OBJECT_SUBTYPE_ARB:\r
- if (sha != NULL)\r
- *params = (**sha).GetSubType (sha);\r
- else\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");\r
- break;\r
- case GL_OBJECT_DELETE_STATUS_ARB:\r
- *params = (**gen).GetDeleteStatus (gen);\r
- break;\r
- case GL_OBJECT_COMPILE_STATUS_ARB:\r
- if (sha != NULL)\r
- *params = (**sha).GetCompileStatus (sha);\r
- else\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");\r
- break;\r
- case GL_OBJECT_LINK_STATUS_ARB:\r
- if (pro != NULL)\r
- *params = (**pro).GetLinkStatus (pro);\r
- else\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");\r
- break;\r
- case GL_OBJECT_VALIDATE_STATUS_ARB:\r
- if (pro != NULL)\r
- *params = (**pro).GetValidateStatus (pro);\r
- else\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");\r
- break;\r
- case GL_OBJECT_INFO_LOG_LENGTH_ARB:\r
- {\r
- const GLcharARB *info = (**gen).GetInfoLog (gen);\r
- if (info == NULL)\r
- *params = 0;\r
- else\r
- *params = _mesa_strlen (info) + 1;\r
- }\r
- break;\r
- case GL_OBJECT_ATTACHED_OBJECTS_ARB:\r
- if (pro != NULL)\r
- *params = (**pro)._container.GetAttachedCount ((struct gl2_container_intf **) pro);\r
- else\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");\r
- break;\r
- case GL_OBJECT_ACTIVE_UNIFORMS_ARB:\r
- *params = 0; /* TODO */\r
- break;\r
- case GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB:\r
- *params = 0; /* TODO */\r
- break;\r
- case GL_OBJECT_SHADER_SOURCE_LENGTH_ARB:\r
- if (sha != NULL)\r
- {\r
- const GLcharARB *src = (**sha).GetSource (sha);\r
- if (src == NULL)\r
- *params = 0;\r
- else\r
- *params = _mesa_strlen (src) + 1;\r
- }\r
- else\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetObjectParameterivARB");\r
- break;\r
- }\r
-\r
- (**gen)._unknown.Release ((struct gl2_unknown_intf **) gen);\r
- if (sha != NULL)\r
- (**sha)._generic._unknown.Release ((struct gl2_unknown_intf **) sha);\r
- if (pro != NULL)\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+{
+ GLboolean integral;
+ GLint size;
+
+ assert (sizeof (GLfloat) == sizeof (GLint));
+
+ if (_mesa_get_object_parameter (obj, pname, (GLvoid *) params, &integral, &size))
+ if (!integral)
+ {
+ GLint i;
+
+ for (i = 0; i < size; i++)
+ params[i] = (GLint) ((GLfloat *) params)[i];
+ }
}
-void GLAPIENTRY
-_mesa_GetInfoLogARB (GLhandleARB obj, GLsizei maxLength, GLsizei *length, GLcharARB *infoLog)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_generic_intf **gen;\r
- const GLcharARB *info;\r
- GLsizei len;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, obj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetInfoLogARB");\r
- return;\r
- }\r
-\r
- gen = (struct gl2_generic_intf **) (**unk).QueryInterface (unk, UIID_GENERIC);\r
- if (gen == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetInfoLogARB");\r
- return;\r
- }\r
-\r
- info = (**gen).GetInfoLog (gen);\r
- if (info == NULL)\r
- info = "";\r
- (**gen)._unknown.Release ((struct gl2_unknown_intf **) gen);\r
-\r
- len = _mesa_strlen (info);\r
- if (len > maxLength)\r
- {\r
- len = maxLength;\r
- /* allocate space for null termination */\r
- if (len > 0)\r
- len--;\r
- }\r
-\r
- _mesa_memcpy (infoLog, info, len * sizeof (GLcharARB));\r
- if (maxLength > 0)\r
- infoLog[len] = '\0';\r
-\r
- if (length != NULL)\r
+static GLvoid
+_mesa_get_string (const GLcharARB *src, GLsizei maxLength, GLsizei *length, GLcharARB *str)
+{
+ GLsizei len;
+
+ if (maxLength == 0)
+ {
+ if (length != NULL)
+ *length = 0;
+ return;
+ }
+
+ if (src == NULL)
+ src = "";
+
+ len = _mesa_strlen (src);
+ if (len >= maxLength)
+ len = maxLength - 1;
+
+ _mesa_memcpy (str, src, len * sizeof (GLcharARB));
+ str[len] = '\0';
+ if (length != NULL)
*length = len;
}
-void GLAPIENTRY
-_mesa_GetAttachedObjectsARB (GLhandleARB containerObj, GLsizei maxCount, GLsizei *count, GLhandleARB *obj)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_container_intf **con;\r
- GLsizei cnt, i;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, containerObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetAttachedObjectsARB");\r
- return;\r
- }\r
-\r
- con = (struct gl2_container_intf **) (**unk).QueryInterface (unk, UIID_CONTAINER);\r
- if (con == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetAttachedObjectsARB");\r
- return;\r
- }\r
-\r
- cnt = (**con).GetAttachedCount (con);\r
- if (cnt > maxCount)\r
- cnt = maxCount;\r
-\r
- for (i = 0; i < cnt; i++)\r
- {\r
- struct gl2_generic_intf **x = (**con).GetAttached (con, i);\r
- obj[i] = (**x).GetName (x);\r
- (**x)._unknown.Release ((struct gl2_unknown_intf **) x);\r
- }\r
-\r
- (**con)._generic._unknown.Release ((struct gl2_unknown_intf **) con);\r
-\r
- if (count != NULL)\r
- *count = cnt;
+GLvoid GLAPIENTRY
+_mesa_GetInfoLogARB (GLhandleARB obj, GLsizei maxLength, GLsizei *length, GLcharARB *infoLog)
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_GENERIC(gen, obj, "glGetInfoLogARB");
+
+ if (gen != NULL)
+ {
+ _mesa_get_string ((**gen).GetInfoLog (gen), maxLength, length, infoLog);
+ RELEASE_GENERIC(gen);
+ }
+}
+
+GLvoid GLAPIENTRY
+_mesa_GetAttachedObjectsARB (GLhandleARB containerObj, GLsizei maxCount, GLsizei *count,
+ GLhandleARB *obj)
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GLsizei cnt, i;
+ GET_CONTAINER(con, containerObj, "glGetAttachedObjectsARB");
+
+ if (con != NULL)
+ {
+ cnt = (**con).GetAttachedCount (con);
+ if (cnt > maxCount)
+ cnt = maxCount;
+ if (count != NULL)
+ *count = cnt;
+
+ for (i = 0; i < cnt; i++)
+ {
+ I_GENERIC x = (**con).GetAttached (con, i);
+ obj[i] = (**x).GetName (x);
+ RELEASE_GENERIC(x);
+ }
+ RELEASE_CONTAINER(con);
+ }
}
GLint GLAPIENTRY
_mesa_GetUniformLocationARB (GLhandleARB programObj, const GLcharARB *name)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
- GLint loc = -1;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetUniformLocationARB");\r
- return -1;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetUniformLocationARB");\r
- return -1;\r
- }\r
-\r
- if ((**pro).GetLinkStatus (pro) == GL_FALSE)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetUniformLocationARB");\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);\r
- return -1;\r
- }\r
-\r
- /* TODO */\r
-\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GLint loc = -1;
+ GET_LINKED_PROGRAM(pro, programObj, "glGetUniformLocationARB");
+
+ if (pro != NULL)
+ {
+ if (name != NULL && (name[0] != 'g' || name[1] != 'l' || name[2] != '_'))
+ loc = _slang_get_uniform_location (pro, name);
+ RELEASE_PROGRAM(pro);
+ }
return loc;
}
-void GLAPIENTRY
-_mesa_GetActiveUniformARB (GLhandleARB programObj, GLuint index, GLsizei maxLength, GLsizei *length, GLint *size, GLenum *type, GLcharARB *name)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetActiveUniformARB");\r
- return;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_OPERATION, "glGetActiveUniformARB");\r
- return;\r
- }\r
-\r
-/* if (index >= val (OBJECT_ACTIVE_ATTRIBUTES_ARB))\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetActiveUniformARB");\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);\r
- return;\r
- }*/\r
-\r
- /* TODO */\r
-\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+GLvoid GLAPIENTRY
+_mesa_GetActiveUniformARB (GLhandleARB programObj, GLuint index, GLsizei maxLength, GLsizei *length,
+ GLint *size, GLenum *type, GLcharARB *name)
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_PROGRAM(pro, programObj, "glGetActiveUniformARB");
+
+ if (pro != NULL)
+ {
+ if (index < _slang_get_active_uniform_count (pro))
+ _slang_get_active_uniform (pro, index, maxLength, length, size, type, name);
+ else
+ _mesa_error (ctx, GL_INVALID_VALUE, "glGetActiveUniformARB");
+ RELEASE_PROGRAM(pro);
+ }
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_GetUniformfvARB (GLhandleARB programObj, GLint location, GLfloat *params)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetUniformfvARB");\r
- return;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetUniformfvARB");\r
- return;\r
- }\r
-\r
- /* TODO */\r
-\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_LINKED_PROGRAM(pro, programObj, "glGetUniformfvARB");
+
+ if (pro != NULL)
+ {
+ /* TODO */
+ RELEASE_PROGRAM(pro);
+ }
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_GetUniformivARB (GLhandleARB programObj, GLint location, GLint *params)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetUniformivARB");\r
- return;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetUniformivARB");\r
- return;\r
- }\r
-\r
- /* TODO */\r
-\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_LINKED_PROGRAM(pro, programObj, "glGetUniformivARB");
+
+ if (pro != NULL)
+ {
+ /* TODO */
+ RELEASE_PROGRAM(pro);
+ }
}
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_GetShaderSourceARB (GLhandleARB obj, GLsizei maxLength, GLsizei *length, GLcharARB *source)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_shader_intf **sha;\r
- const GLcharARB *src;\r
- GLsizei len;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, obj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetShaderSourceARB");\r
- return;\r
- }\r
-\r
- sha = (struct gl2_shader_intf **) (**unk).QueryInterface (unk, UIID_SHADER);\r
- if (sha == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetShaderSourceARB");\r
- return;\r
- }\r
-\r
- src = (**sha).GetSource (sha);\r
- if (src == NULL)\r
- src = "";\r
- (**sha)._generic._unknown.Release ((struct gl2_unknown_intf **) sha);\r
-\r
- len = _mesa_strlen (src);\r
- if (len > maxLength)\r
- {\r
- len = maxLength;\r
- /* allocate space for null termination */\r
- if (len > 0)\r
- len--;\r
- }\r
-\r
- _mesa_memcpy (source, src, len * sizeof (GLcharARB));\r
- if (maxLength > 0)\r
- source[len] = '\0';\r
-\r
- if (length != NULL)\r
- *length = len;
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_SHADER(sha, obj, "glGetShaderSourceARB");
+
+ if (sha != NULL)
+ {
+ _mesa_get_string ((**sha).GetSource (sha), maxLength, length, source);
+ RELEASE_SHADER(sha);
+ }
}
/* GL_ARB_vertex_shader */
-void GLAPIENTRY
+GLvoid GLAPIENTRY
_mesa_BindAttribLocationARB (GLhandleARB programObj, GLuint index, const GLcharARB *name)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glBindAttribLocationARB");\r
- return;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glBindAttribLocationARB");\r
- return;\r
- }\r
-\r
- /* TODO */\r
-\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_PROGRAM(pro, programObj, "glBindAttribLocationARB");
+
+ if (pro != NULL)
+ {
+ if (name != NULL && (name[0] != 'g' || name[1] != 'l' || name[2] != '_'))
+ {
+ /* TODO */
+ }
+ RELEASE_PROGRAM(pro);
+ }
}
-void GLAPIENTRY
-_mesa_GetActiveAttribARB (GLhandleARB programObj, GLuint index, GLsizei maxLength, GLsizei *length, GLint *size, GLenum *type, GLcharARB *name)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetActiveAttribARB");\r
- return;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetActiveAttribARB");\r
- return;\r
- }\r
-\r
- /* TODO */\r
-\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+GLvoid GLAPIENTRY
+_mesa_GetActiveAttribARB (GLhandleARB programObj, GLuint index, GLsizei maxLength, GLsizei *length,
+ GLint *size, GLenum *type, GLcharARB *name)
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GET_PROGRAM(pro, programObj, "glGetActiveAttribARB");
+
+ if (pro != NULL)
+ {
+ /* TODO */
+ RELEASE_PROGRAM(pro);
+ }
}
GLint GLAPIENTRY
_mesa_GetAttribLocationARB (GLhandleARB programObj, const GLcharARB *name)
-{\r
- GET_CURRENT_CONTEXT(ctx);\r
- struct gl2_unknown_intf **unk;\r
- struct gl2_program_intf **pro;\r
- GLint loc = 0;\r
-\r
- _glthread_LOCK_MUTEX (ctx->Shared->Mutex);\r
- unk = (struct gl2_unknown_intf **) _mesa_HashLookup (ctx->Shared->GL2Objects, programObj);\r
- _glthread_UNLOCK_MUTEX (ctx->Shared->Mutex);\r
-\r
- if (unk == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetAttribLocationARB");\r
- return 0;\r
- }\r
-\r
- pro = (struct gl2_program_intf **) (**unk).QueryInterface (unk, UIID_PROGRAM);\r
- if (pro == NULL)\r
- {\r
- _mesa_error (ctx, GL_INVALID_VALUE, "glGetAttribLocationARB");\r
- return 0;\r
- }\r
-\r
- /* TODO */\r
-\r
- (**pro)._container._generic._unknown.Release ((struct gl2_unknown_intf **) pro);
+{
+ GET_CURRENT_CONTEXT(ctx);
+ GLint loc = -1;
+ GET_PROGRAM(pro, programObj, "glGetAttribLocationARB");
+
+ if (pro != NULL)
+ {
+ if (name != NULL && (name[0] != 'g' || name[1] != 'l' || name[2] != '_'))
+ {
+ /* TODO */
+ }
+ RELEASE_PROGRAM(pro);
+ }
return loc;
}
-void\r
+GLvoid
_mesa_init_shaderobjects (GLcontext *ctx)
-{\r
- ctx->ShaderObjects.current_program = NULL;
+{
+ ctx->ShaderObjects.CurrentProgram = NULL;
+
+ _mesa_init_shaderobjects_3dlabs (ctx);
}
-\r
+