mesa git update 1 May 2011

1 files changed, 1938 insertions, 1946 deletions

diff --git a/mesalib/src/mesa/main/shaderapi.c b/mesalib/src/mesa/main/shaderapi.c
index 066e8b427..514eed5d0 100644
--- a/mesalib/src/mesa/main/shaderapi.c
+++ b/mesalib/src/mesa/main/shaderapi.c
@@ -1,1946 +1,1938 @@
-/*

- * Mesa 3-D graphics library

- *

- * Copyright (C) 2004-2008  Brian Paul   All Rights Reserved.

- * Copyright (C) 2009-2010  VMware, Inc.  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 shaderapi.c

- * \author Brian Paul

- *

- * Implementation of GLSL-related API functions.

- * The glUniform* functions are in uniforms.c

- *

- *

- * XXX things to do:

- * 1. Check that the right error code is generated for all _mesa_error() calls.

- * 2. Insert FLUSH_VERTICES calls in various places

- */

-

-

-#include "main/glheader.h"

-#include "main/context.h"

-#include "main/dispatch.h"

-#include "main/enums.h"

-#include "main/hash.h"

-#include "main/mfeatures.h"

-#include "main/mtypes.h"

-#include "main/shaderapi.h"

-#include "main/shaderobj.h"

-#include "program/program.h"

-#include "program/prog_parameter.h"

-#include "program/prog_uniform.h"

-#include "ralloc.h"

-#include <stdbool.h>

-#include "../glsl/glsl_parser_extras.h"

-

-/** Define this to enable shader substitution (see below) */

-#define SHADER_SUBST 0

-

-

-/**

- * Return mask of GLSL_x flags by examining the MESA_GLSL env var.

- */

-static GLbitfield

-get_shader_flags(void)

-{

-   GLbitfield flags = 0x0;

-   const char *env = _mesa_getenv("MESA_GLSL");

-

-   if (env) {

-      if (strstr(env, "dump"))

-         flags |= GLSL_DUMP;

-      if (strstr(env, "log"))

-         flags |= GLSL_LOG;

-      if (strstr(env, "nopvert"))

-         flags |= GLSL_NOP_VERT;

-      if (strstr(env, "nopfrag"))

-         flags |= GLSL_NOP_FRAG;

-      if (strstr(env, "nopt"))

-         flags |= GLSL_NO_OPT;

-      else if (strstr(env, "opt"))

-         flags |= GLSL_OPT;

-      if (strstr(env, "uniform"))

-         flags |= GLSL_UNIFORMS;

-      if (strstr(env, "useprog"))

-         flags |= GLSL_USE_PROG;

-   }

-

-   return flags;

-}

-

-

-/**

- * Initialize context's shader state.

- */

-void

-_mesa_init_shader_state(struct gl_context *ctx)

-{

-   /* Device drivers may override these to control what kind of instructions

-    * are generated by the GLSL compiler.

-    */

-   struct gl_shader_compiler_options options;

-   gl_shader_type sh;

-

-   memset(&options, 0, sizeof(options));

-   options.MaxUnrollIterations = 32;

-

-   /* Default pragma settings */

-   options.DefaultPragmas.Optimize = GL_TRUE;

-

-   for (sh = 0; sh < MESA_SHADER_TYPES; ++sh)

-      memcpy(&ctx->ShaderCompilerOptions[sh], &options, sizeof(options));

-

-   ctx->Shader.Flags = get_shader_flags();

-}

-

-

-/**

- * Free the per-context shader-related state.

- */

-void

-_mesa_free_shader_state(struct gl_context *ctx)

-{

-   _mesa_reference_shader_program(ctx, &ctx->Shader.CurrentVertexProgram, NULL);

-   _mesa_reference_shader_program(ctx, &ctx->Shader.CurrentGeometryProgram,

-				  NULL);

-   _mesa_reference_shader_program(ctx, &ctx->Shader.CurrentFragmentProgram,

-				  NULL);

-   _mesa_reference_shader_program(ctx, &ctx->Shader.ActiveProgram, NULL);

-}

-

-

-/**

- * Return the size of the given GLSL datatype, in floats (components).

- */

-GLint

-_mesa_sizeof_glsl_type(GLenum type)

-{

-   switch (type) {

-   case GL_FLOAT:

-   case GL_INT:

-   case GL_BOOL:

-   case GL_SAMPLER_1D:

-   case GL_SAMPLER_2D:

-   case GL_SAMPLER_3D:

-   case GL_SAMPLER_CUBE:

-   case GL_SAMPLER_1D_SHADOW:

-   case GL_SAMPLER_2D_SHADOW:

-   case GL_SAMPLER_2D_RECT_ARB:

-   case GL_SAMPLER_2D_RECT_SHADOW_ARB:

-   case GL_SAMPLER_1D_ARRAY_EXT:

-   case GL_SAMPLER_2D_ARRAY_EXT:

-   case GL_SAMPLER_1D_ARRAY_SHADOW_EXT:

-   case GL_SAMPLER_2D_ARRAY_SHADOW_EXT:

-   case GL_SAMPLER_CUBE_SHADOW_EXT:

-      return 1;

-   case GL_FLOAT_VEC2:

-   case GL_INT_VEC2:

-   case GL_UNSIGNED_INT_VEC2:

-   case GL_BOOL_VEC2:

-      return 2;

-   case GL_FLOAT_VEC3:

-   case GL_INT_VEC3:

-   case GL_UNSIGNED_INT_VEC3:

-   case GL_BOOL_VEC3:

-      return 3;

-   case GL_FLOAT_VEC4:

-   case GL_INT_VEC4:

-   case GL_UNSIGNED_INT_VEC4:

-   case GL_BOOL_VEC4:

-      return 4;

-   case GL_FLOAT_MAT2:

-   case GL_FLOAT_MAT2x3:

-   case GL_FLOAT_MAT2x4:

-      return 8; /* two float[4] vectors */

-   case GL_FLOAT_MAT3:

-   case GL_FLOAT_MAT3x2:

-   case GL_FLOAT_MAT3x4:

-      return 12; /* three float[4] vectors */

-   case GL_FLOAT_MAT4:

-   case GL_FLOAT_MAT4x2:

-   case GL_FLOAT_MAT4x3:

-      return 16;  /* four float[4] vectors */

-   default:

-      _mesa_problem(NULL, "Invalid type in _mesa_sizeof_glsl_type()");

-      return 1;

-   }

-}

-

-

-/**

- * Copy string from <src> to <dst>, up to maxLength characters, returning

- * length of <dst> in <length>.

- * \param src  the strings source

- * \param maxLength  max chars to copy

- * \param length  returns number of chars copied

- * \param dst  the string destination

- */

-void

-_mesa_copy_string(GLchar *dst, GLsizei maxLength,

-                  GLsizei *length, const GLchar *src)

-{

-   GLsizei len;

-   for (len = 0; len < maxLength - 1 && src && src[len]; len++)

-      dst[len] = src[len];

-   if (maxLength > 0)

-      dst[len] = 0;

-   if (length)

-      *length = len;

-}

-

-

-

-/**

- * Confirm that the a shader type is valid and supported by the implementation

- *

- * \param ctx   Current GL context

- * \param type  Shader target

- *

- */

-static bool

-validate_shader_target(const struct gl_context *ctx, GLenum type)

-{

-   switch (type) {

-#if FEATURE_ARB_fragment_shader

-   case GL_FRAGMENT_SHADER:

-      return ctx->Extensions.ARB_fragment_shader;

-#endif

-#if FEATURE_ARB_vertex_shader

-   case GL_VERTEX_SHADER:

-      return ctx->Extensions.ARB_vertex_shader;

-#endif

-#if FEATURE_ARB_geometry_shader4

-   case GL_GEOMETRY_SHADER_ARB:

-      return ctx->Extensions.ARB_geometry_shader4;

-#endif

-   default:

-      return false;

-   }

-}

-

-

-/**

- * Find the length of the longest transform feedback varying name

- * which was specified with glTransformFeedbackVaryings().

- */

-static GLint

-longest_feedback_varying_name(const struct gl_shader_program *shProg)

-{

-   GLuint i;

-   GLint max = 0;

-   for (i = 0; i < shProg->TransformFeedback.NumVarying; i++) {

-      GLint len = strlen(shProg->TransformFeedback.VaryingNames[i]);

-      if (len > max)

-         max = len;

-   }

-   return max;

-}

-

-

-

-static GLboolean

-is_program(struct gl_context *ctx, GLuint name)

-{

-   struct gl_shader_program *shProg = _mesa_lookup_shader_program(ctx, name);

-   return shProg ? GL_TRUE : GL_FALSE;

-}

-

-

-static GLboolean

-is_shader(struct gl_context *ctx, GLuint name)

-{

-   struct gl_shader *shader = _mesa_lookup_shader(ctx, name);

-   return shader ? GL_TRUE : GL_FALSE;

-}

-

-

-/**

- * Attach shader to a shader program.

- */

-static void

-attach_shader(struct gl_context *ctx, GLuint program, GLuint shader)

-{

-   struct gl_shader_program *shProg;

-   struct gl_shader *sh;

-   GLuint i, n;

-

-   shProg = _mesa_lookup_shader_program_err(ctx, program, "glAttachShader");

-   if (!shProg)

-      return;

-

-   sh = _mesa_lookup_shader_err(ctx, shader, "glAttachShader");

-   if (!sh) {

-      return;

-   }

-

-   n = shProg->NumShaders;

-   for (i = 0; i < n; i++) {

-      if (shProg->Shaders[i] == sh) {

-         /* The shader is already attched to this program.  The

-          * GL_ARB_shader_objects spec says:

-          *

-          *     "The error INVALID_OPERATION is generated by AttachObjectARB

-          *     if <obj> is already attached to <containerObj>."

-          */

-         _mesa_error(ctx, GL_INVALID_OPERATION, "glAttachShader");

-         return;

-      }

-   }

-

-   /* grow list */

-   shProg->Shaders = (struct gl_shader **)

-      _mesa_realloc(shProg->Shaders,

-                    n * sizeof(struct gl_shader *),

-                    (n + 1) * sizeof(struct gl_shader *));

-   if (!shProg->Shaders) {

-      _mesa_error(ctx, GL_OUT_OF_MEMORY, "glAttachShader");

-      return;

-   }

-

-   /* append */

-   shProg->Shaders[n] = NULL; /* since realloc() didn't zero the new space */

-   _mesa_reference_shader(ctx, &shProg->Shaders[n], sh);

-   shProg->NumShaders++;

-}

-

-

-static GLint

-get_attrib_location(struct gl_context *ctx, GLuint program, const GLchar *name)

-{

-   struct gl_shader_program *shProg

-      = _mesa_lookup_shader_program_err(ctx, program, "glGetAttribLocation");

-

-   if (!shProg) {

-      return -1;

-   }

-

-   if (!shProg->LinkStatus) {

-      _mesa_error(ctx, GL_INVALID_OPERATION,

-                  "glGetAttribLocation(program not linked)");

-      return -1;

-   }

-

-   if (!name)

-      return -1;

-

-   if (shProg->VertexProgram) {

-      const struct gl_program_parameter_list *attribs =

-         shProg->VertexProgram->Base.Attributes;

-      if (attribs) {

-         GLint i = _mesa_lookup_parameter_index(attribs, -1, name);

-         if (i >= 0) {

-            return attribs->Parameters[i].StateIndexes[0];

-         }

-      }

-   }

-   return -1;

-}

-

-

-static void

-bind_attrib_location(struct gl_context *ctx, GLuint program, GLuint index,

-                     const GLchar *name)

-{

-   struct gl_shader_program *shProg;

-   const GLint size = -1; /* unknown size */

-   GLint i, oldIndex;

-   GLenum datatype = GL_FLOAT_VEC4;

-

-   shProg = _mesa_lookup_shader_program_err(ctx, program,

-                                            "glBindAttribLocation");

-   if (!shProg) {

-      return;

-   }

-

-   if (!name)

-      return;

-

-   if (strncmp(name, "gl_", 3) == 0) {

-      _mesa_error(ctx, GL_INVALID_OPERATION,

-                  "glBindAttribLocation(illegal name)");

-      return;

-   }

-

-   if (index >= ctx->Const.VertexProgram.MaxAttribs) {

-      _mesa_error(ctx, GL_INVALID_VALUE, "glBindAttribLocation(index)");

-      return;

-   }

-

-   if (shProg->LinkStatus) {

-      /* get current index/location for the attribute */

-      oldIndex = get_attrib_location(ctx, program, name);

-   }

-   else {

-      oldIndex = -1;

-   }

-

-   /* this will replace the current value if it's already in the list */

-   i = _mesa_add_attribute(shProg->Attributes, name, size, datatype, index);

-   if (i < 0) {

-      _mesa_error(ctx, GL_OUT_OF_MEMORY, "glBindAttribLocation");

-      return;

-   }

-

-   /*

-    * Note that this attribute binding won't go into effect until

-    * glLinkProgram is called again.

-    */

-}

-

-

-static void

-bind_frag_data_location(struct gl_context *ctx, GLuint program,

-                        GLuint colorNumber, const GLchar *name)

-{

-   _mesa_problem(ctx, "bind_frag_data_location() not implemented yet");

-}

-

-

-static GLuint

-create_shader(struct gl_context *ctx, GLenum type)

-{

-   struct gl_shader *sh;

-   GLuint name;

-

-   if (!validate_shader_target(ctx, type)) {

-      _mesa_error(ctx, GL_INVALID_ENUM, "CreateShader(type)");

-      return 0;

-   }

-

-   name = _mesa_HashFindFreeKeyBlock(ctx->Shared->ShaderObjects, 1);

-   sh = ctx->Driver.NewShader(ctx, name, type);

-   _mesa_HashInsert(ctx->Shared->ShaderObjects, name, sh);

-

-   return name;

-}

-

-

-static GLuint 

-create_shader_program(struct gl_context *ctx)

-{

-   GLuint name;

-   struct gl_shader_program *shProg;

-

-   name = _mesa_HashFindFreeKeyBlock(ctx->Shared->ShaderObjects, 1);

-

-   shProg = ctx->Driver.NewShaderProgram(ctx, name);

-

-   _mesa_HashInsert(ctx->Shared->ShaderObjects, name, shProg);

-

-   assert(shProg->RefCount == 1);

-

-   return name;

-}

-

-

-/**

- * Named w/ "2" to indicate OpenGL 2.x vs GL_ARB_fragment_programs's

- * DeleteProgramARB.

- */

-static void

-delete_shader_program(struct gl_context *ctx, GLuint name)

-{

-   /*

-    * NOTE: deleting shaders/programs works a bit differently than

-    * texture objects (and buffer objects, etc).  Shader/program

-    * handles/IDs exist in the hash table until the object is really

-    * deleted (refcount==0).  With texture objects, the handle/ID is

-    * removed from the hash table in glDeleteTextures() while the tex

-    * object itself might linger until its refcount goes to zero.

-    */

-   struct gl_shader_program *shProg;

-

-   shProg = _mesa_lookup_shader_program_err(ctx, name, "glDeleteProgram");

-   if (!shProg)

-      return;

-

-   shProg->DeletePending = GL_TRUE;

-

-   /* effectively, decr shProg's refcount */

-   _mesa_reference_shader_program(ctx, &shProg, NULL);

-}

-

-

-static void

-delete_shader(struct gl_context *ctx, GLuint shader)

-{

-   struct gl_shader *sh;

-

-   sh = _mesa_lookup_shader_err(ctx, shader, "glDeleteShader");

-   if (!sh)

-      return;

-

-   sh->DeletePending = GL_TRUE;

-

-   /* effectively, decr sh's refcount */

-   _mesa_reference_shader(ctx, &sh, NULL);

-}

-

-

-static void

-detach_shader(struct gl_context *ctx, GLuint program, GLuint shader)

-{

-   struct gl_shader_program *shProg;

-   GLuint n;

-   GLuint i, j;

-

-   shProg = _mesa_lookup_shader_program_err(ctx, program, "glDetachShader");

-   if (!shProg)

-      return;

-

-   n = shProg->NumShaders;

-

-   for (i = 0; i < n; i++) {

-      if (shProg->Shaders[i]->Name == shader) {

-         /* found it */

-         struct gl_shader **newList;

-

-         /* release */

-         _mesa_reference_shader(ctx, &shProg->Shaders[i], NULL);

-

-         /* alloc new, smaller array */

-         newList = (struct gl_shader **)

-            malloc((n - 1) * sizeof(struct gl_shader *));

-         if (!newList) {

-            _mesa_error(ctx, GL_OUT_OF_MEMORY, "glDetachShader");

-            return;

-         }

-         for (j = 0; j < i; j++) {

-            newList[j] = shProg->Shaders[j];

-         }

-         while (++i < n)

-            newList[j++] = shProg->Shaders[i];

-         free(shProg->Shaders);

-

-         shProg->Shaders = newList;

-         shProg->NumShaders = n - 1;

-

-#ifdef DEBUG

-         /* sanity check */

-         {

-            for (j = 0; j < shProg->NumShaders; j++) {

-               assert(shProg->Shaders[j]->Type == GL_VERTEX_SHADER ||

-                      shProg->Shaders[j]->Type == GL_FRAGMENT_SHADER);

-               assert(shProg->Shaders[j]->RefCount > 0);

-            }

-         }

-#endif

-

-         return;

-      }

-   }

-

-   /* not found */

-   {

-      GLenum err;

-      if (is_shader(ctx, shader))

-         err = GL_INVALID_OPERATION;

-      else if (is_program(ctx, shader))

-         err = GL_INVALID_OPERATION;

-      else

-         err = GL_INVALID_VALUE;

-      _mesa_error(ctx, err, "glDetachProgram(shader)");

-      return;

-   }

-}

-

-

-static void

-get_active_attrib(struct gl_context *ctx, GLuint program, GLuint index,

-                  GLsizei maxLength, GLsizei *length, GLint *size,

-                  GLenum *type, GLchar *nameOut)

-{

-   const struct gl_program_parameter_list *attribs = NULL;

-   struct gl_shader_program *shProg;

-

-   shProg = _mesa_lookup_shader_program_err(ctx, program, "glGetActiveAttrib");

-   if (!shProg)

-      return;

-

-   if (shProg->VertexProgram)

-      attribs = shProg->VertexProgram->Base.Attributes;

-

-   if (!attribs || index >= attribs->NumParameters) {

-      _mesa_error(ctx, GL_INVALID_VALUE, "glGetActiveAttrib(index)");

-      return;

-   }

-

-   _mesa_copy_string(nameOut, maxLength, length,

-                     attribs->Parameters[index].Name);

-

-   if (size)

-      *size = attribs->Parameters[index].Size

-         / _mesa_sizeof_glsl_type(attribs->Parameters[index].DataType);

-

-   if (type)

-      *type = attribs->Parameters[index].DataType;

-}

-

-

-/**

- * Return list of shaders attached to shader program.

- */

-static void

-get_attached_shaders(struct gl_context *ctx, GLuint program, GLsizei maxCount,

-                     GLsizei *count, GLuint *obj)

-{

-   struct gl_shader_program *shProg =

-      _mesa_lookup_shader_program_err(ctx, program, "glGetAttachedShaders");

-   if (shProg) {

-      GLuint i;

-      for (i = 0; i < (GLuint) maxCount && i < shProg->NumShaders; i++) {

-         obj[i] = shProg->Shaders[i]->Name;

-      }

-      if (count)

-         *count = i;

-   }

-}

-

-

-static GLint

-get_frag_data_location(struct gl_context *ctx, GLuint program,

-                       const GLchar *name)

-{

-   _mesa_problem(ctx, "get_frag_data_location() not implemented yet");

-   return -1;

-}

-

-

-

-/**

- * glGetHandleARB() - return ID/name of currently bound shader program.

- */

-static GLuint

-get_handle(struct gl_context *ctx, GLenum pname)

-{

-   if (pname == GL_PROGRAM_OBJECT_ARB) {

-      if (ctx->Shader.ActiveProgram)

-         return ctx->Shader.ActiveProgram->Name;

-      else

-         return 0;

-   }

-   else {

-      _mesa_error(ctx, GL_INVALID_ENUM, "glGetHandleARB");

-      return 0;

-   }

-}

-

-

-/**

- * glGetProgramiv() - get shader program state.

- * Note that this is for GLSL shader programs, not ARB vertex/fragment

- * programs (see glGetProgramivARB).

- */

-static void

-get_programiv(struct gl_context *ctx, GLuint program, GLenum pname, GLint *params)

-{

-   const struct gl_program_parameter_list *attribs;

-   struct gl_shader_program *shProg

-      = _mesa_lookup_shader_program(ctx, program);

-

-   if (!shProg) {

-      _mesa_error(ctx, GL_INVALID_VALUE, "glGetProgramiv(program)");

-      return;

-   }

-

-   if (shProg->VertexProgram)

-      attribs = shProg->VertexProgram->Base.Attributes;

-   else

-      attribs = NULL;

-

-   switch (pname) {

-   case GL_DELETE_STATUS:

-      *params = shProg->DeletePending;

-      break; 

-   case GL_LINK_STATUS:

-      *params = shProg->LinkStatus;

-      break;

-   case GL_VALIDATE_STATUS:

-      *params = shProg->Validated;

-      break;

-   case GL_INFO_LOG_LENGTH:

-      *params = shProg->InfoLog ? strlen(shProg->InfoLog) + 1 : 0;

-      break;

-   case GL_ATTACHED_SHADERS:

-      *params = shProg->NumShaders;

-      break;

-   case GL_ACTIVE_ATTRIBUTES:

-      *params = attribs ? attribs->NumParameters : 0;

-      break;

-   case GL_ACTIVE_ATTRIBUTE_MAX_LENGTH:

-      *params = _mesa_longest_parameter_name(attribs, PROGRAM_INPUT) + 1;

-      break;

-   case GL_ACTIVE_UNIFORMS:

-      *params = shProg->Uniforms ? shProg->Uniforms->NumUniforms : 0;

-      break;

-   case GL_ACTIVE_UNIFORM_MAX_LENGTH:

-      *params = _mesa_longest_uniform_name(shProg->Uniforms);

-      if (*params > 0)

-         (*params)++;  /* add one for terminating zero */

-      break;

-   case GL_PROGRAM_BINARY_LENGTH_OES:

-      *params = 0;

-      break;

-#if FEATURE_EXT_transform_feedback

-   case GL_TRANSFORM_FEEDBACK_VARYINGS:

-      *params = shProg->TransformFeedback.NumVarying;

-      break;

-   case GL_TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH:

-      *params = longest_feedback_varying_name(shProg) + 1;

-      break;

-   case GL_TRANSFORM_FEEDBACK_BUFFER_MODE:

-      *params = shProg->TransformFeedback.BufferMode;

-      break;

-#endif

-#if FEATURE_ARB_geometry_shader4

-   case GL_GEOMETRY_VERTICES_OUT_ARB:

-      *params = shProg->Geom.VerticesOut;

-      break;

-   case GL_GEOMETRY_INPUT_TYPE_ARB:

-      *params = shProg->Geom.InputType;

-      break;

-   case GL_GEOMETRY_OUTPUT_TYPE_ARB:

-      *params = shProg->Geom.OutputType;

-      break;

-#endif

-   default:

-      _mesa_error(ctx, GL_INVALID_ENUM, "glGetProgramiv(pname)");

-      return;

-   }

-}

-

-

-/**

- * glGetShaderiv() - get GLSL shader state

- */

-static void

-get_shaderiv(struct gl_context *ctx, GLuint name, GLenum pname, GLint *params)

-{

-   struct gl_shader *shader =

-      _mesa_lookup_shader_err(ctx, name, "glGetShaderiv");

-

-   if (!shader) {

-      return;

-   }

-

-   switch (pname) {

-   case GL_SHADER_TYPE:

-      *params = shader->Type;

-      break;

-   case GL_DELETE_STATUS:

-      *params = shader->DeletePending;

-      break;

-   case GL_COMPILE_STATUS:

-      *params = shader->CompileStatus;

-      break;

-   case GL_INFO_LOG_LENGTH:

-      *params = shader->InfoLog ? strlen(shader->InfoLog) + 1 : 0;

-      break;

-   case GL_SHADER_SOURCE_LENGTH:

-      *params = shader->Source ? strlen((char *) shader->Source) + 1 : 0;

-      break;

-   default:

-      _mesa_error(ctx, GL_INVALID_ENUM, "glGetShaderiv(pname)");

-      return;

-   }

-}

-

-

-static void

-get_program_info_log(struct gl_context *ctx, GLuint program, GLsizei bufSize,

-                     GLsizei *length, GLchar *infoLog)

-{

-   struct gl_shader_program *shProg

-      = _mesa_lookup_shader_program(ctx, program);

-   if (!shProg) {

-      _mesa_error(ctx, GL_INVALID_VALUE, "glGetProgramInfoLog(program)");

-      return;

-   }

-   _mesa_copy_string(infoLog, bufSize, length, shProg->InfoLog);

-}

-

-

-static void

-get_shader_info_log(struct gl_context *ctx, GLuint shader, GLsizei bufSize,

-                    GLsizei *length, GLchar *infoLog)

-{

-   struct gl_shader *sh = _mesa_lookup_shader(ctx, shader);

-   if (!sh) {

-      _mesa_error(ctx, GL_INVALID_VALUE, "glGetShaderInfoLog(shader)");

-      return;

-   }

-   _mesa_copy_string(infoLog, bufSize, length, sh->InfoLog);

-}

-

-

-/**

- * Return shader source code.

- */

-static void

-get_shader_source(struct gl_context *ctx, GLuint shader, GLsizei maxLength,

-                  GLsizei *length, GLchar *sourceOut)

-{

-   struct gl_shader *sh;

-   sh = _mesa_lookup_shader_err(ctx, shader, "glGetShaderSource");

-   if (!sh) {

-      return;

-   }

-   _mesa_copy_string(sourceOut, maxLength, length, sh->Source);

-}

-

-

-/**

- * Set/replace shader source code.

- */

-static void

-shader_source(struct gl_context *ctx, GLuint shader, const GLchar *source)

-{

-   struct gl_shader *sh;

-

-   sh = _mesa_lookup_shader_err(ctx, shader, "glShaderSource");

-   if (!sh)

-      return;

-

-   /* free old shader source string and install new one */

-   if (sh->Source) {

-      free((void *) sh->Source);

-   }

-   sh->Source = source;

-   sh->CompileStatus = GL_FALSE;

-#ifdef DEBUG

-   sh->SourceChecksum = _mesa_str_checksum(sh->Source);

-#endif

-}

-

-

-/**

- * Compile a shader.

- */

-static void

-compile_shader(struct gl_context *ctx, GLuint shaderObj)

-{

-   struct gl_shader *sh;

-   struct gl_shader_compiler_options *options;

-

-   sh = _mesa_lookup_shader_err(ctx, shaderObj, "glCompileShader");

-   if (!sh)

-      return;

-

-   options = &ctx->ShaderCompilerOptions[_mesa_shader_type_to_index(sh->Type)];

-

-   /* set default pragma state for shader */

-   sh->Pragmas = options->DefaultPragmas;

-

-   /* this call will set the sh->CompileStatus field to indicate if

-    * compilation was successful.

-    */

-   _mesa_glsl_compile_shader(ctx, sh);

-}

-

-

-/**

- * Link a program's shaders.

- */

-static void

-link_program(struct gl_context *ctx, GLuint program)

-{

-   struct gl_shader_program *shProg;

-   struct gl_transform_feedback_object *obj =

-      ctx->TransformFeedback.CurrentObject;

-

-   shProg = _mesa_lookup_shader_program_err(ctx, program, "glLinkProgram");

-   if (!shProg)

-      return;

-

-   if (obj->Active

-       && (shProg == ctx->Shader.CurrentVertexProgram

-	   || shProg == ctx->Shader.CurrentGeometryProgram

-	   || shProg == ctx->Shader.CurrentFragmentProgram)) {

-      _mesa_error(ctx, GL_INVALID_OPERATION,

-                  "glLinkProgram(transform feedback active");

-      return;

-   }

-

-   FLUSH_VERTICES(ctx, _NEW_PROGRAM);

-

-   _mesa_glsl_link_shader(ctx, shProg);

-

-   /* debug code */

-   if (0) {

-      GLuint i;

-

-      printf("Link %u shaders in program %u: %s\n",

-                   shProg->NumShaders, shProg->Name,

-                   shProg->LinkStatus ? "Success" : "Failed");

-

-      for (i = 0; i < shProg->NumShaders; i++) {

-         printf(" shader %u, type 0x%x\n",

-                      shProg->Shaders[i]->Name,

-                      shProg->Shaders[i]->Type);

-      }

-   }

-}

-

-

-/**

- * Print basic shader info (for debug).

- */

-static void

-print_shader_info(const struct gl_shader_program *shProg)

-{

-   GLuint i;

-

-   printf("Mesa: glUseProgram(%u)\n", shProg->Name);

-   for (i = 0; i < shProg->NumShaders; i++) {

-      const char *s;

-      switch (shProg->Shaders[i]->Type) {

-      case GL_VERTEX_SHADER:

-         s = "vertex";

-         break;

-      case GL_FRAGMENT_SHADER:

-         s = "fragment";

-         break;

-      case GL_GEOMETRY_SHADER:

-         s = "geometry";

-         break;

-      default:

-         s = "";

-      }

-      printf("  %s shader %u, checksum %u\n", s, 

-	     shProg->Shaders[i]->Name,

-	     shProg->Shaders[i]->SourceChecksum);

-   }

-   if (shProg->VertexProgram)

-      printf("  vert prog %u\n", shProg->VertexProgram->Base.Id);

-   if (shProg->FragmentProgram)

-      printf("  frag prog %u\n", shProg->FragmentProgram->Base.Id);

-}

-

-

-/**

- * Use the named shader program for subsequent glUniform calls

- */

-void

-_mesa_active_program(struct gl_context *ctx, struct gl_shader_program *shProg,

-		     const char *caller)

-{

-   if ((shProg != NULL) && !shProg->LinkStatus) {

-      _mesa_error(ctx, GL_INVALID_OPERATION,

-		  "%s(program %u not linked)", caller, shProg->Name);

-      return;

-   }

-

-   if (ctx->Shader.ActiveProgram != shProg) {

-      _mesa_reference_shader_program(ctx, &ctx->Shader.ActiveProgram, shProg);

-   }

-}

-

-/**

- */

-static bool

-use_shader_program(struct gl_context *ctx, GLenum type,

-		   struct gl_shader_program *shProg)

-{

-   struct gl_shader_program **target;

-

-   switch (type) {

-#if FEATURE_ARB_vertex_shader

-   case GL_VERTEX_SHADER:

-      target = &ctx->Shader.CurrentVertexProgram;

-      if ((shProg == NULL)

-	  || (shProg->_LinkedShaders[MESA_SHADER_VERTEX] == NULL)) {

-	 shProg = NULL;

-      }

-      break;

-#endif

-#if FEATURE_ARB_geometry_shader4

-   case GL_GEOMETRY_SHADER_ARB:

-      target = &ctx->Shader.CurrentGeometryProgram;

-      if ((shProg == NULL)

-	  || (shProg->_LinkedShaders[MESA_SHADER_GEOMETRY] == NULL)) {

-	 shProg = NULL;

-      }

-      break;

-#endif

-#if FEATURE_ARB_fragment_shader

-   case GL_FRAGMENT_SHADER:

-      target = &ctx->Shader.CurrentFragmentProgram;

-      if ((shProg == NULL)

-	  || (shProg->_LinkedShaders[MESA_SHADER_FRAGMENT] == NULL)) {

-	 shProg = NULL;

-      }

-      break;

-#endif

-   default:

-      return false;

-   }

-

-   if (*target != shProg) {

-      FLUSH_VERTICES(ctx, _NEW_PROGRAM | _NEW_PROGRAM_CONSTANTS);

-      _mesa_reference_shader_program(ctx, target, shProg);

-      return true;

-   }

-

-   return false;

-}

-

-/**

- * Use the named shader program for subsequent rendering.

- */

-void

-_mesa_use_program(struct gl_context *ctx, struct gl_shader_program *shProg)

-{

-   use_shader_program(ctx, GL_VERTEX_SHADER, shProg);

-   use_shader_program(ctx, GL_GEOMETRY_SHADER_ARB, shProg);

-   use_shader_program(ctx, GL_FRAGMENT_SHADER, shProg);

-   _mesa_active_program(ctx, shProg, "glUseProgram");

-

-   if (ctx->Driver.UseProgram)

-      ctx->Driver.UseProgram(ctx, shProg);

-}

-

-

-/**

- * Validate a program's samplers.

- * Specifically, check that there aren't two samplers of different types

- * pointing to the same texture unit.

- * \return GL_TRUE if valid, GL_FALSE if invalid

- */

-static GLboolean

-validate_samplers(const struct gl_program *prog, char *errMsg)

-{

-   static const char *targetName[] = {

-      "TEXTURE_BUFFER",

-      "TEXTURE_2D_ARRAY",

-      "TEXTURE_1D_ARRAY",

-      "TEXTURE_CUBE",

-      "TEXTURE_3D",

-      "TEXTURE_RECT",

-      "TEXTURE_2D",

-      "TEXTURE_1D",

-   };

-   GLint targetUsed[MAX_TEXTURE_IMAGE_UNITS];

-   GLbitfield samplersUsed = prog->SamplersUsed;

-   GLuint i;

-

-   assert(Elements(targetName) == NUM_TEXTURE_TARGETS);

-

-   if (samplersUsed == 0x0)

-      return GL_TRUE;

-

-   for (i = 0; i < Elements(targetUsed); i++)

-      targetUsed[i] = -1;

-

-   /* walk over bits which are set in 'samplers' */

-   while (samplersUsed) {

-      GLuint unit;

-      gl_texture_index target;

-      GLint sampler = _mesa_ffs(samplersUsed) - 1;

-      assert(sampler >= 0);

-      assert(sampler < MAX_TEXTURE_IMAGE_UNITS);

-      unit = prog->SamplerUnits[sampler];

-      target = prog->SamplerTargets[sampler];

-      if (targetUsed[unit] != -1 && targetUsed[unit] != (int) target) {

-         _mesa_snprintf(errMsg, 100,

-		  "Texture unit %d is accessed both as %s and %s",

-		  unit, targetName[targetUsed[unit]], targetName[target]);

-         return GL_FALSE;

-      }

-      targetUsed[unit] = target;

-      samplersUsed ^= (1 << sampler);

-   }

-

-   return GL_TRUE;

-}

-

-

-/**

- * Do validation of the given shader program.

- * \param errMsg  returns error message if validation fails.

- * \return GL_TRUE if valid, GL_FALSE if invalid (and set errMsg)

- */

-static GLboolean

-validate_shader_program(const struct gl_shader_program *shProg,

-                        char *errMsg)

-{

-   const struct gl_vertex_program *vp = shProg->VertexProgram;

-   const struct gl_fragment_program *fp = shProg->FragmentProgram;

-

-   if (!shProg->LinkStatus) {

-      return GL_FALSE;

-   }

-

-   /* From the GL spec, a program is invalid if any of these are true:

-

-     any two active samplers in the current program object are of

-     different types, but refer to the same texture image unit,

-

-     any active sampler in the current program object refers to a texture

-     image unit where fixed-function fragment processing accesses a

-     texture target that does not match the sampler type, or 

-

-     the sum of the number of active samplers in the program and the

-     number of texture image units enabled for fixed-function fragment

-     processing exceeds the combined limit on the total number of texture

-     image units allowed.

-   */

-

-

-   /*

-    * Check: any two active samplers in the current program object are of

-    * different types, but refer to the same texture image unit,

-    */

-   if (vp && !validate_samplers(&vp->Base, errMsg)) {

-      return GL_FALSE;

-   }

-   if (fp && !validate_samplers(&fp->Base, errMsg)) {

-      return GL_FALSE;

-   }

-

-   return GL_TRUE;

-}

-

-

-/**

- * Called via glValidateProgram()

- */

-static void

-validate_program(struct gl_context *ctx, GLuint program)

-{

-   struct gl_shader_program *shProg;

-   char errMsg[100];

-

-   shProg = _mesa_lookup_shader_program_err(ctx, program, "glValidateProgram");

-   if (!shProg) {

-      return;

-   }

-

-   shProg->Validated = validate_shader_program(shProg, errMsg);

-   if (!shProg->Validated) {

-      /* update info log */

-      if (shProg->InfoLog) {

-         ralloc_free(shProg->InfoLog);

-      }

-      shProg->InfoLog = ralloc_strdup(shProg, errMsg);

-   }

-}

-

-

-

-void GLAPIENTRY

-_mesa_AttachObjectARB(GLhandleARB program, GLhandleARB shader)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   attach_shader(ctx, program, shader);

-}

-

-

-void GLAPIENTRY

-_mesa_AttachShader(GLuint program, GLuint shader)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   attach_shader(ctx, program, shader);

-}

-

-

-void GLAPIENTRY

-_mesa_BindAttribLocationARB(GLhandleARB program, GLuint index,

-                            const GLcharARB *name)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   bind_attrib_location(ctx, program, index, name);

-}

-

-

-/* GL_EXT_gpu_shader4, GL3 */

-void GLAPIENTRY

-_mesa_BindFragDataLocation(GLuint program, GLuint colorNumber,

-                           const GLchar *name)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   bind_frag_data_location(ctx, program, colorNumber, name);

-}

-

-

-void GLAPIENTRY

-_mesa_CompileShaderARB(GLhandleARB shaderObj)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   if (MESA_VERBOSE & VERBOSE_API)

-      _mesa_debug(ctx, "glCompileShader %u\n", shaderObj);

-   compile_shader(ctx, shaderObj);

-}

-

-

-GLuint GLAPIENTRY

-_mesa_CreateShader(GLenum type)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   if (MESA_VERBOSE & VERBOSE_API)

-      _mesa_debug(ctx, "glCreateShader %s\n", _mesa_lookup_enum_by_nr(type));

-   return create_shader(ctx, type);

-}

-

-

-GLhandleARB GLAPIENTRY

-_mesa_CreateShaderObjectARB(GLenum type)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   return create_shader(ctx, type);

-}

-

-

-GLuint GLAPIENTRY

-_mesa_CreateProgram(void)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   if (MESA_VERBOSE & VERBOSE_API)

-      _mesa_debug(ctx, "glCreateProgram\n");

-   return create_shader_program(ctx);

-}

-

-

-GLhandleARB GLAPIENTRY

-_mesa_CreateProgramObjectARB(void)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   return create_shader_program(ctx);

-}

-

-

-void GLAPIENTRY

-_mesa_DeleteObjectARB(GLhandleARB obj)

-{

-   if (MESA_VERBOSE & VERBOSE_API) {

-      GET_CURRENT_CONTEXT(ctx);

-      _mesa_debug(ctx, "glDeleteObjectARB(%u)\n", obj);

-   }

-

-   if (obj) {

-      GET_CURRENT_CONTEXT(ctx);

-      FLUSH_VERTICES(ctx, 0);

-      if (is_program(ctx, obj)) {

-         delete_shader_program(ctx, obj);

-      }

-      else if (is_shader(ctx, obj)) {

-         delete_shader(ctx, obj);

-      }

-      else {

-         /* error? */

-      }

-   }

-}

-

-

-void GLAPIENTRY

-_mesa_DeleteProgram(GLuint name)

-{

-   if (name) {

-      GET_CURRENT_CONTEXT(ctx);

-      FLUSH_VERTICES(ctx, 0);

-      delete_shader_program(ctx, name);

-   }

-}

-

-

-void GLAPIENTRY

-_mesa_DeleteShader(GLuint name)

-{

-   if (name) {

-      GET_CURRENT_CONTEXT(ctx);

-      FLUSH_VERTICES(ctx, 0);

-      delete_shader(ctx, name);

-   }

-}

-

-

-void GLAPIENTRY

-_mesa_DetachObjectARB(GLhandleARB program, GLhandleARB shader)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   detach_shader(ctx, program, shader);

-}

-

-

-void GLAPIENTRY

-_mesa_DetachShader(GLuint program, GLuint shader)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   detach_shader(ctx, program, shader);

-}

-

-

-void GLAPIENTRY

-_mesa_GetActiveAttribARB(GLhandleARB program, GLuint index,

-                         GLsizei maxLength, GLsizei * length, GLint * size,

-                         GLenum * type, GLcharARB * name)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   get_active_attrib(ctx, program, index, maxLength, length, size, type, name);

-}

-

-

-void GLAPIENTRY

-_mesa_GetAttachedObjectsARB(GLhandleARB container, GLsizei maxCount,

-                            GLsizei * count, GLhandleARB * obj)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   get_attached_shaders(ctx, container, maxCount, count, obj);

-}

-

-

-void GLAPIENTRY

-_mesa_GetAttachedShaders(GLuint program, GLsizei maxCount,

-                         GLsizei *count, GLuint *obj)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   get_attached_shaders(ctx, program, maxCount, count, obj);

-}

-

-

-GLint GLAPIENTRY

-_mesa_GetAttribLocationARB(GLhandleARB program, const GLcharARB * name)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   return get_attrib_location(ctx, program, name);

-}

-

-

-/* GL_EXT_gpu_shader4, GL3 */

-GLint GLAPIENTRY

-_mesa_GetFragDataLocation(GLuint program, const GLchar *name)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   return get_frag_data_location(ctx, program, name);

-}

-

-

-

-void GLAPIENTRY

-_mesa_GetInfoLogARB(GLhandleARB object, GLsizei maxLength, GLsizei * length,

-                    GLcharARB * infoLog)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   if (is_program(ctx, object)) {

-      get_program_info_log(ctx, object, maxLength, length, infoLog);

-   }

-   else if (is_shader(ctx, object)) {

-      get_shader_info_log(ctx, object, maxLength, length, infoLog);

-   }

-   else {

-      _mesa_error(ctx, GL_INVALID_OPERATION, "glGetInfoLogARB");

-   }

-}

-

-

-void GLAPIENTRY

-_mesa_GetObjectParameterivARB(GLhandleARB object, GLenum pname, GLint *params)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   /* Implement in terms of GetProgramiv, GetShaderiv */

-   if (is_program(ctx, object)) {

-      if (pname == GL_OBJECT_TYPE_ARB) {

-	 *params = GL_PROGRAM_OBJECT_ARB;

-      }

-      else {

-	 get_programiv(ctx, object, pname, params);

-      }

-   }

-   else if (is_shader(ctx, object)) {

-      if (pname == GL_OBJECT_TYPE_ARB) {

-	 *params = GL_SHADER_OBJECT_ARB;

-      }

-      else {

-	 get_shaderiv(ctx, object, pname, params);

-      }

-   }

-   else {

-      _mesa_error(ctx, GL_INVALID_VALUE, "glGetObjectParameterivARB");

-   }

-}

-

-

-void GLAPIENTRY

-_mesa_GetObjectParameterfvARB(GLhandleARB object, GLenum pname,

-                              GLfloat *params)

-{

-   GLint iparams[1];  /* XXX is one element enough? */

-   _mesa_GetObjectParameterivARB(object, pname, iparams);

-   params[0] = (GLfloat) iparams[0];

-}

-

-

-void GLAPIENTRY

-_mesa_GetProgramiv(GLuint program, GLenum pname, GLint *params)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   get_programiv(ctx, program, pname, params);

-}

-

-

-void GLAPIENTRY

-_mesa_GetShaderiv(GLuint shader, GLenum pname, GLint *params)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   get_shaderiv(ctx, shader, pname, params);

-}

-

-

-void GLAPIENTRY

-_mesa_GetProgramInfoLog(GLuint program, GLsizei bufSize,

-                        GLsizei *length, GLchar *infoLog)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   get_program_info_log(ctx, program, bufSize, length, infoLog);

-}

-

-

-void GLAPIENTRY

-_mesa_GetShaderInfoLog(GLuint shader, GLsizei bufSize,

-                       GLsizei *length, GLchar *infoLog)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   get_shader_info_log(ctx, shader, bufSize, length, infoLog);

-}

-

-

-void GLAPIENTRY

-_mesa_GetShaderSourceARB(GLhandleARB shader, GLsizei maxLength,

-                         GLsizei *length, GLcharARB *sourceOut)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   get_shader_source(ctx, shader, maxLength, length, sourceOut);

-}

-

-

-GLhandleARB GLAPIENTRY

-_mesa_GetHandleARB(GLenum pname)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   return get_handle(ctx, pname);

-}

-

-

-GLboolean GLAPIENTRY

-_mesa_IsProgram(GLuint name)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   return is_program(ctx, name);

-}

-

-

-GLboolean GLAPIENTRY

-_mesa_IsShader(GLuint name)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   return is_shader(ctx, name);

-}

-

-

-void GLAPIENTRY

-_mesa_LinkProgramARB(GLhandleARB programObj)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   link_program(ctx, programObj);

-}

-

-

-

-/**

- * Read shader source code from a file.

- * Useful for debugging to override an app's shader.

- */

-static GLcharARB *

-read_shader(const char *fname)

-{

-   const int max = 50*1000;

-   FILE *f = fopen(fname, "r");

-   GLcharARB *buffer, *shader;

-   int len;

-

-   if (!f) {

-      return NULL;

-   }

-

-   buffer = (char *) malloc(max);

-   len = fread(buffer, 1, max, f);

-   buffer[len] = 0;

-

-   fclose(f);

-

-   shader = _mesa_strdup(buffer);

-   free(buffer);

-

-   return shader;

-}

-

-

-/**

- * Called via glShaderSource() and glShaderSourceARB() API functions.

- * Basically, concatenate the source code strings into one long string

- * and pass it to _mesa_shader_source().

- */

-void GLAPIENTRY

-_mesa_ShaderSourceARB(GLhandleARB shaderObj, GLsizei count,

-                      const GLcharARB ** string, const GLint * length)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   GLint *offsets;

-   GLsizei i, totalLength;

-   GLcharARB *source;

-   GLuint checksum;

-

-   if (!shaderObj || string == NULL) {

-      _mesa_error(ctx, GL_INVALID_VALUE, "glShaderSourceARB");

-      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 *) malloc(count * sizeof(GLint));

-   if (offsets == NULL) {

-      _mesa_error(ctx, GL_OUT_OF_MEMORY, "glShaderSourceARB");

-      return;

-   }

-

-   for (i = 0; i < count; i++) {

-      if (string[i] == NULL) {

-         free((GLvoid *) offsets);

-         _mesa_error(ctx, GL_INVALID_OPERATION, "glShaderSourceARB(null string)");

-         return;

-      }

-      if (length == NULL || length[i] < 0)

-         offsets[i] = strlen(string[i]);

-      else

-         offsets[i] = length[i];

-      /* accumulate string lengths */

-      if (i > 0)

-         offsets[i] += offsets[i - 1];

-   }

-

-   /* Total length of source string is sum off all strings plus two.

-    * One extra byte for terminating zero, another extra byte to silence

-    * valgrind warnings in the parser/grammer code.

-    */

-   totalLength = offsets[count - 1] + 2;

-   source = (GLcharARB *) malloc(totalLength * sizeof(GLcharARB));

-   if (source == NULL) {

-      free((GLvoid *) offsets);

-      _mesa_error(ctx, GL_OUT_OF_MEMORY, "glShaderSourceARB");

-      return;

-   }

-

-   for (i = 0; i < count; i++) {

-      GLint start = (i > 0) ? offsets[i - 1] : 0;

-      memcpy(source + start, string[i],

-             (offsets[i] - start) * sizeof(GLcharARB));

-   }

-   source[totalLength - 1] = '\0';

-   source[totalLength - 2] = '\0';

-

-   if (SHADER_SUBST) {

-      /* Compute the shader's source code checksum then try to open a file

-       * named newshader_<CHECKSUM>.  If it exists, use it in place of the

-       * original shader source code.  For debugging.

-       */

-      char filename[100];

-      GLcharARB *newSource;

-

-      checksum = _mesa_str_checksum(source);

-

-      _mesa_snprintf(filename, sizeof(filename), "newshader_%d", checksum);

-

-      newSource = read_shader(filename);

-      if (newSource) {

-         fprintf(stderr, "Mesa: Replacing shader %u chksum=%d with %s\n",

-                       shaderObj, checksum, filename);

-         free(source);

-         source = newSource;

-      }

-   }      

-

-   shader_source(ctx, shaderObj, source);

-

-   if (SHADER_SUBST) {

-      struct gl_shader *sh = _mesa_lookup_shader(ctx, shaderObj);

-      if (sh)

-         sh->SourceChecksum = checksum; /* save original checksum */

-   }

-

-   free(offsets);

-}

-

-

-void GLAPIENTRY

-_mesa_UseProgramObjectARB(GLhandleARB program)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   struct gl_shader_program *shProg;

-   struct gl_transform_feedback_object *obj =

-      ctx->TransformFeedback.CurrentObject;

-

-   if (obj->Active) {

-      _mesa_error(ctx, GL_INVALID_OPERATION,

-                  "glUseProgram(transform feedback active)");

-      return;

-   }

-

-   if (program) {

-      shProg = _mesa_lookup_shader_program_err(ctx, program, "glUseProgram");

-      if (!shProg) {

-         return;

-      }

-      if (!shProg->LinkStatus) {

-         _mesa_error(ctx, GL_INVALID_OPERATION,

-                     "glUseProgram(program %u not linked)", program);

-         return;

-      }

-

-      /* debug code */

-      if (ctx->Shader.Flags & GLSL_USE_PROG) {

-         print_shader_info(shProg);

-      }

-   }

-   else {

-      shProg = NULL;

-   }

-

-   _mesa_use_program(ctx, shProg);

-}

-

-

-void GLAPIENTRY

-_mesa_ValidateProgramARB(GLhandleARB program)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   validate_program(ctx, program);

-}

-

-#ifdef FEATURE_ES2

-

-void GLAPIENTRY

-_mesa_GetShaderPrecisionFormat(GLenum shadertype, GLenum precisiontype,

-                               GLint* range, GLint* precision)

-{

-   const struct gl_program_constants *limits;

-   const struct gl_precision *p;

-   GET_CURRENT_CONTEXT(ctx);

-

-   switch (shadertype) {

-   case GL_VERTEX_SHADER:

-      limits = &ctx->Const.VertexProgram;

-      break;

-   case GL_FRAGMENT_SHADER:

-      limits = &ctx->Const.FragmentProgram;

-      break;

-   default:

-      _mesa_error(ctx, GL_INVALID_ENUM,

-                  "glGetShaderPrecisionFormat(shadertype)");

-      return;

-   }

-

-   switch (precisiontype) {

-   case GL_LOW_FLOAT:

-      p = &limits->LowFloat;

-      break;

-   case GL_MEDIUM_FLOAT:

-      p = &limits->MediumFloat;

-      break;

-   case GL_HIGH_FLOAT:

-      p = &limits->HighFloat;

-      break;

-   case GL_LOW_INT:

-      p = &limits->LowInt;

-      break;

-   case GL_MEDIUM_INT:

-      p = &limits->MediumInt;

-      break;

-   case GL_HIGH_INT:

-      p = &limits->HighInt;

-      break;

-   default:

-      _mesa_error(ctx, GL_INVALID_ENUM,

-                  "glGetShaderPrecisionFormat(precisiontype)");

-      return;

-   }

-

-   range[0] = p->RangeMin;

-   range[1] = p->RangeMax;

-   precision[0] = p->Precision;

-}

-

-

-void GLAPIENTRY

-_mesa_ReleaseShaderCompiler(void)

-{

-   _mesa_destroy_shader_compiler_caches();

-}

-

-

-void GLAPIENTRY

-_mesa_ShaderBinary(GLint n, const GLuint* shaders, GLenum binaryformat,

-                   const void* binary, GLint length)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   (void) n;

-   (void) shaders;

-   (void) binaryformat;

-   (void) binary;

-   (void) length;

-   _mesa_error(ctx, GL_INVALID_OPERATION, __FUNCTION__);

-}

-

-#endif /* FEATURE_ES2 */

-

-

-#if FEATURE_ARB_geometry_shader4

-

-void GLAPIENTRY

-_mesa_ProgramParameteriARB(GLuint program, GLenum pname,

-                           GLint value)

-{

-   struct gl_shader_program *shProg;

-   GET_CURRENT_CONTEXT(ctx);

-

-   ASSERT_OUTSIDE_BEGIN_END(ctx);

-

-   shProg = _mesa_lookup_shader_program_err(ctx, program,

-                                            "glProgramParameteri");

-   if (!shProg)

-      return;

-

-   switch (pname) {

-   case GL_GEOMETRY_VERTICES_OUT_ARB:

-      if (value < 1 ||

-          (unsigned) value > ctx->Const.MaxGeometryOutputVertices) {

-         _mesa_error(ctx, GL_INVALID_VALUE,

-                     "glProgramParameteri(GL_GEOMETRY_VERTICES_OUT_ARB=%d",

-                     value);

-         return;

-      }

-      shProg->Geom.VerticesOut = value;

-      break;

-   case GL_GEOMETRY_INPUT_TYPE_ARB:

-      switch (value) {

-      case GL_POINTS:

-      case GL_LINES:

-      case GL_LINES_ADJACENCY_ARB:

-      case GL_TRIANGLES:

-      case GL_TRIANGLES_ADJACENCY_ARB:

-         shProg->Geom.InputType = value;

-         break;

-      default:

-         _mesa_error(ctx, GL_INVALID_VALUE,

-                     "glProgramParameteri(geometry input type = %s",

-                     _mesa_lookup_enum_by_nr(value));

-         return;

-      }

-      break;

-   case GL_GEOMETRY_OUTPUT_TYPE_ARB:

-      switch (value) {

-      case GL_POINTS:

-      case GL_LINE_STRIP:

-      case GL_TRIANGLE_STRIP:

-         shProg->Geom.OutputType = value;

-         break;

-      default:

-         _mesa_error(ctx, GL_INVALID_VALUE,

-                     "glProgramParameteri(geometry output type = %s",

-                     _mesa_lookup_enum_by_nr(value));

-         return;

-      }

-      break;

-   default:

-      _mesa_error(ctx, GL_INVALID_ENUM, "glProgramParameteriARB(pname=%s)",

-                  _mesa_lookup_enum_by_nr(pname));

-      break;

-   }

-}

-

-#endif

-

-void

-_mesa_use_shader_program(struct gl_context *ctx, GLenum type,

-			 struct gl_shader_program *shProg)

-{

-   use_shader_program(ctx, type, shProg);

-

-   if (ctx->Driver.UseProgram)

-      ctx->Driver.UseProgram(ctx, shProg);

-}

-

-void GLAPIENTRY

-_mesa_UseShaderProgramEXT(GLenum type, GLuint program)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   struct gl_shader_program *shProg = NULL;

-

-   if (!validate_shader_target(ctx, type)) {

-      _mesa_error(ctx, GL_INVALID_ENUM, "glUseShaderProgramEXT(type)");

-      return;

-   }

-

-   if (ctx->TransformFeedback.CurrentObject->Active) {

-      _mesa_error(ctx, GL_INVALID_OPERATION,

-                  "glUseShaderProgramEXT(transform feedback is active)");

-      return;

-   }

-

-   if (program) {

-      shProg = _mesa_lookup_shader_program_err(ctx, program,

-					       "glUseShaderProgramEXT");

-      if (shProg == NULL)

-	 return;

-

-      if (!shProg->LinkStatus) {

-	 _mesa_error(ctx, GL_INVALID_OPERATION,

-		     "glUseShaderProgramEXT(program not linked)");

-	 return;

-      }

-   }

-

-   _mesa_use_shader_program(ctx, type, shProg);

-}

-

-void GLAPIENTRY

-_mesa_ActiveProgramEXT(GLuint program)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   struct gl_shader_program *shProg = (program != 0)

-      ? _mesa_lookup_shader_program_err(ctx, program, "glActiveProgramEXT")

-      : NULL;

-

-   _mesa_active_program(ctx, shProg, "glActiveProgramEXT");

-   return;

-}

-

-GLuint GLAPIENTRY

-_mesa_CreateShaderProgramEXT(GLenum type, const GLchar *string)

-{

-   GET_CURRENT_CONTEXT(ctx);

-   const GLuint shader = create_shader(ctx, type);

-   GLuint program = 0;

-

-   if (shader) {

-      shader_source(ctx, shader, _mesa_strdup(string));

-      compile_shader(ctx, shader);

-

-      program = create_shader_program(ctx);

-      if (program) {

-	 struct gl_shader_program *shProg;

-	 struct gl_shader *sh;

-	 GLint compiled = GL_FALSE;

-

-	 shProg = _mesa_lookup_shader_program(ctx, program);

-	 sh = _mesa_lookup_shader(ctx, shader);

-

-	 get_shaderiv(ctx, shader, GL_COMPILE_STATUS, &compiled);

-	 if (compiled) {

-	    attach_shader(ctx, program, shader);

-	    link_program(ctx, program);

-	    detach_shader(ctx, program, shader);

-

-#if 0

-	    /* Possibly... */

-	    if (active-user-defined-varyings-in-linked-program) {

-	       append-error-to-info-log;

-	       shProg->LinkStatus = GL_FALSE;

-	    }

-#endif

-	 }

-

-	 ralloc_strcat(&shProg->InfoLog, sh->InfoLog);

-      }

-

-      delete_shader(ctx, shader);

-   }

-

-   return program;

-}

-

-/**

- * Plug in shader-related functions into API dispatch table.

- */

-void

-_mesa_init_shader_dispatch(struct _glapi_table *exec)

-{

-#if FEATURE_GL

-   /* GL_ARB_vertex/fragment_shader */

-   SET_DeleteObjectARB(exec, _mesa_DeleteObjectARB);

-   SET_GetHandleARB(exec, _mesa_GetHandleARB);

-   SET_DetachObjectARB(exec, _mesa_DetachObjectARB);

-   SET_CreateShaderObjectARB(exec, _mesa_CreateShaderObjectARB);

-   SET_ShaderSourceARB(exec, _mesa_ShaderSourceARB);

-   SET_CompileShaderARB(exec, _mesa_CompileShaderARB);

-   SET_CreateProgramObjectARB(exec, _mesa_CreateProgramObjectARB);

-   SET_AttachObjectARB(exec, _mesa_AttachObjectARB);

-   SET_LinkProgramARB(exec, _mesa_LinkProgramARB);

-   SET_UseProgramObjectARB(exec, _mesa_UseProgramObjectARB);

-   SET_ValidateProgramARB(exec, _mesa_ValidateProgramARB);

-   SET_GetObjectParameterfvARB(exec, _mesa_GetObjectParameterfvARB);

-   SET_GetObjectParameterivARB(exec, _mesa_GetObjectParameterivARB);

-   SET_GetInfoLogARB(exec, _mesa_GetInfoLogARB);

-   SET_GetAttachedObjectsARB(exec, _mesa_GetAttachedObjectsARB);

-   SET_GetShaderSourceARB(exec, _mesa_GetShaderSourceARB);

-

-   /* OpenGL 2.0 */

-   SET_AttachShader(exec, _mesa_AttachShader);

-   SET_CreateProgram(exec, _mesa_CreateProgram);

-   SET_CreateShader(exec, _mesa_CreateShader);

-   SET_DeleteProgram(exec, _mesa_DeleteProgram);

-   SET_DeleteShader(exec, _mesa_DeleteShader);

-   SET_DetachShader(exec, _mesa_DetachShader);

-   SET_GetAttachedShaders(exec, _mesa_GetAttachedShaders);

-   SET_GetProgramiv(exec, _mesa_GetProgramiv);

-   SET_GetProgramInfoLog(exec, _mesa_GetProgramInfoLog);

-   SET_GetShaderiv(exec, _mesa_GetShaderiv);

-   SET_GetShaderInfoLog(exec, _mesa_GetShaderInfoLog);

-   SET_IsProgram(exec, _mesa_IsProgram);

-   SET_IsShader(exec, _mesa_IsShader);

-

-#if FEATURE_ARB_vertex_shader

-   SET_BindAttribLocationARB(exec, _mesa_BindAttribLocationARB);

-   SET_GetActiveAttribARB(exec, _mesa_GetActiveAttribARB);

-   SET_GetAttribLocationARB(exec, _mesa_GetAttribLocationARB);

-#endif

-

-#if FEATURE_ARB_geometry_shader4

-   SET_ProgramParameteriARB(exec, _mesa_ProgramParameteriARB);

-#endif

-

-   SET_UseShaderProgramEXT(exec, _mesa_UseShaderProgramEXT);

-   SET_ActiveProgramEXT(exec, _mesa_ActiveProgramEXT);

-   SET_CreateShaderProgramEXT(exec, _mesa_CreateShaderProgramEXT);

-

-   /* GL_EXT_gpu_shader4 / GL 3.0 */

-   SET_BindFragDataLocationEXT(exec, _mesa_BindFragDataLocation);

-   SET_GetFragDataLocationEXT(exec, _mesa_GetFragDataLocation);

-

-   /* GL_ARB_ES2_compatibility */

-   SET_ReleaseShaderCompiler(exec, _mesa_ReleaseShaderCompiler);

-   SET_GetShaderPrecisionFormat(exec, _mesa_GetShaderPrecisionFormat);

-

-#endif /* FEATURE_GL */

-}

-

+/*
+ * Mesa 3-D graphics library
+ *
+ * Copyright (C) 2004-2008  Brian Paul   All Rights Reserved.
+ * Copyright (C) 2009-2010  VMware, Inc.  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 shaderapi.c
+ * \author Brian Paul
+ *
+ * Implementation of GLSL-related API functions.
+ * The glUniform* functions are in uniforms.c
+ *
+ *
+ * XXX things to do:
+ * 1. Check that the right error code is generated for all _mesa_error() calls.
+ * 2. Insert FLUSH_VERTICES calls in various places
+ */
+
+
+#include "main/glheader.h"
+#include "main/context.h"
+#include "main/dispatch.h"
+#include "main/enums.h"
+#include "main/hash.h"
+#include "main/mfeatures.h"
+#include "main/mtypes.h"
+#include "main/shaderapi.h"
+#include "main/shaderobj.h"
+#include "program/program.h"
+#include "program/prog_parameter.h"
+#include "program/prog_uniform.h"
+#include "ralloc.h"
+#include <stdbool.h>
+#include "../glsl/glsl_parser_extras.h"
+
+/** Define this to enable shader substitution (see below) */
+#define SHADER_SUBST 0
+
+
+/**
+ * Return mask of GLSL_x flags by examining the MESA_GLSL env var.
+ */
+static GLbitfield
+get_shader_flags(void)
+{
+   GLbitfield flags = 0x0;
+   const char *env = _mesa_getenv("MESA_GLSL");
+
+   if (env) {
+      if (strstr(env, "dump"))
+         flags |= GLSL_DUMP;
+      if (strstr(env, "log"))
+         flags |= GLSL_LOG;
+      if (strstr(env, "nopvert"))
+         flags |= GLSL_NOP_VERT;
+      if (strstr(env, "nopfrag"))
+         flags |= GLSL_NOP_FRAG;
+      if (strstr(env, "nopt"))
+         flags |= GLSL_NO_OPT;
+      else if (strstr(env, "opt"))
+         flags |= GLSL_OPT;
+      if (strstr(env, "uniform"))
+         flags |= GLSL_UNIFORMS;
+      if (strstr(env, "useprog"))
+         flags |= GLSL_USE_PROG;
+   }
+
+   return flags;
+}
+
+
+/**
+ * Initialize context's shader state.
+ */
+void
+_mesa_init_shader_state(struct gl_context *ctx)
+{
+   /* Device drivers may override these to control what kind of instructions
+    * are generated by the GLSL compiler.
+    */
+   struct gl_shader_compiler_options options;
+   gl_shader_type sh;
+
+   memset(&options, 0, sizeof(options));
+   options.MaxUnrollIterations = 32;
+
+   /* Default pragma settings */
+   options.DefaultPragmas.Optimize = GL_TRUE;
+
+   for (sh = 0; sh < MESA_SHADER_TYPES; ++sh)
+      memcpy(&ctx->ShaderCompilerOptions[sh], &options, sizeof(options));
+
+   ctx->Shader.Flags = get_shader_flags();
+}
+
+
+/**
+ * Free the per-context shader-related state.
+ */
+void
+_mesa_free_shader_state(struct gl_context *ctx)
+{
+   _mesa_reference_shader_program(ctx, &ctx->Shader.CurrentVertexProgram, NULL);
+   _mesa_reference_shader_program(ctx, &ctx->Shader.CurrentGeometryProgram,
+				  NULL);
+   _mesa_reference_shader_program(ctx, &ctx->Shader.CurrentFragmentProgram,
+				  NULL);
+   _mesa_reference_shader_program(ctx, &ctx->Shader.ActiveProgram, NULL);
+}
+
+
+/**
+ * Return the size of the given GLSL datatype, in floats (components).
+ */
+GLint
+_mesa_sizeof_glsl_type(GLenum type)
+{
+   switch (type) {
+   case GL_FLOAT:
+   case GL_INT:
+   case GL_BOOL:
+   case GL_SAMPLER_1D:
+   case GL_SAMPLER_2D:
+   case GL_SAMPLER_3D:
+   case GL_SAMPLER_CUBE:
+   case GL_SAMPLER_1D_SHADOW:
+   case GL_SAMPLER_2D_SHADOW:
+   case GL_SAMPLER_2D_RECT_ARB:
+   case GL_SAMPLER_2D_RECT_SHADOW_ARB:
+   case GL_SAMPLER_1D_ARRAY_EXT:
+   case GL_SAMPLER_2D_ARRAY_EXT:
+   case GL_SAMPLER_1D_ARRAY_SHADOW_EXT:
+   case GL_SAMPLER_2D_ARRAY_SHADOW_EXT:
+   case GL_SAMPLER_CUBE_SHADOW_EXT:
+      return 1;
+   case GL_FLOAT_VEC2:
+   case GL_INT_VEC2:
+   case GL_UNSIGNED_INT_VEC2:
+   case GL_BOOL_VEC2:
+      return 2;
+   case GL_FLOAT_VEC3:
+   case GL_INT_VEC3:
+   case GL_UNSIGNED_INT_VEC3:
+   case GL_BOOL_VEC3:
+      return 3;
+   case GL_FLOAT_VEC4:
+   case GL_INT_VEC4:
+   case GL_UNSIGNED_INT_VEC4:
+   case GL_BOOL_VEC4:
+      return 4;
+   case GL_FLOAT_MAT2:
+   case GL_FLOAT_MAT2x3:
+   case GL_FLOAT_MAT2x4:
+      return 8; /* two float[4] vectors */
+   case GL_FLOAT_MAT3:
+   case GL_FLOAT_MAT3x2:
+   case GL_FLOAT_MAT3x4:
+      return 12; /* three float[4] vectors */
+   case GL_FLOAT_MAT4:
+   case GL_FLOAT_MAT4x2:
+   case GL_FLOAT_MAT4x3:
+      return 16;  /* four float[4] vectors */
+   default:
+      _mesa_problem(NULL, "Invalid type in _mesa_sizeof_glsl_type()");
+      return 1;
+   }
+}
+
+
+/**
+ * Copy string from <src> to <dst>, up to maxLength characters, returning
+ * length of <dst> in <length>.
+ * \param src  the strings source
+ * \param maxLength  max chars to copy
+ * \param length  returns number of chars copied
+ * \param dst  the string destination
+ */
+void
+_mesa_copy_string(GLchar *dst, GLsizei maxLength,
+                  GLsizei *length, const GLchar *src)
+{
+   GLsizei len;
+   for (len = 0; len < maxLength - 1 && src && src[len]; len++)
+      dst[len] = src[len];
+   if (maxLength > 0)
+      dst[len] = 0;
+   if (length)
+      *length = len;
+}
+
+
+
+/**
+ * Confirm that the a shader type is valid and supported by the implementation
+ *
+ * \param ctx   Current GL context
+ * \param type  Shader target
+ *
+ */
+static bool
+validate_shader_target(const struct gl_context *ctx, GLenum type)
+{
+   switch (type) {
+#if FEATURE_ARB_fragment_shader
+   case GL_FRAGMENT_SHADER:
+      return ctx->Extensions.ARB_fragment_shader;
+#endif
+#if FEATURE_ARB_vertex_shader
+   case GL_VERTEX_SHADER:
+      return ctx->Extensions.ARB_vertex_shader;
+#endif
+#if FEATURE_ARB_geometry_shader4
+   case GL_GEOMETRY_SHADER_ARB:
+      return ctx->Extensions.ARB_geometry_shader4;
+#endif
+   default:
+      return false;
+   }
+}
+
+
+/**
+ * Find the length of the longest transform feedback varying name
+ * which was specified with glTransformFeedbackVaryings().
+ */
+static GLint
+longest_feedback_varying_name(const struct gl_shader_program *shProg)
+{
+   GLuint i;
+   GLint max = 0;
+   for (i = 0; i < shProg->TransformFeedback.NumVarying; i++) {
+      GLint len = strlen(shProg->TransformFeedback.VaryingNames[i]);
+      if (len > max)
+         max = len;
+   }
+   return max;
+}
+
+
+
+static GLboolean
+is_program(struct gl_context *ctx, GLuint name)
+{
+   struct gl_shader_program *shProg = _mesa_lookup_shader_program(ctx, name);
+   return shProg ? GL_TRUE : GL_FALSE;
+}
+
+
+static GLboolean
+is_shader(struct gl_context *ctx, GLuint name)
+{
+   struct gl_shader *shader = _mesa_lookup_shader(ctx, name);
+   return shader ? GL_TRUE : GL_FALSE;
+}
+
+
+/**
+ * Attach shader to a shader program.
+ */
+static void
+attach_shader(struct gl_context *ctx, GLuint program, GLuint shader)
+{
+   struct gl_shader_program *shProg;
+   struct gl_shader *sh;
+   GLuint i, n;
+
+   shProg = _mesa_lookup_shader_program_err(ctx, program, "glAttachShader");
+   if (!shProg)
+      return;
+
+   sh = _mesa_lookup_shader_err(ctx, shader, "glAttachShader");
+   if (!sh) {
+      return;
+   }
+
+   n = shProg->NumShaders;
+   for (i = 0; i < n; i++) {
+      if (shProg->Shaders[i] == sh) {
+         /* The shader is already attched to this program.  The
+          * GL_ARB_shader_objects spec says:
+          *
+          *     "The error INVALID_OPERATION is generated by AttachObjectARB
+          *     if <obj> is already attached to <containerObj>."
+          */
+         _mesa_error(ctx, GL_INVALID_OPERATION, "glAttachShader");
+         return;
+      }
+   }
+
+   /* grow list */
+   shProg->Shaders = (struct gl_shader **)
+      _mesa_realloc(shProg->Shaders,
+                    n * sizeof(struct gl_shader *),
+                    (n + 1) * sizeof(struct gl_shader *));
+   if (!shProg->Shaders) {
+      _mesa_error(ctx, GL_OUT_OF_MEMORY, "glAttachShader");
+      return;
+   }
+
+   /* append */
+   shProg->Shaders[n] = NULL; /* since realloc() didn't zero the new space */
+   _mesa_reference_shader(ctx, &shProg->Shaders[n], sh);
+   shProg->NumShaders++;
+}
+
+
+static GLint
+get_attrib_location(struct gl_context *ctx, GLuint program, const GLchar *name)
+{
+   struct gl_shader_program *shProg
+      = _mesa_lookup_shader_program_err(ctx, program, "glGetAttribLocation");
+
+   if (!shProg) {
+      return -1;
+   }
+
+   if (!shProg->LinkStatus) {
+      _mesa_error(ctx, GL_INVALID_OPERATION,
+                  "glGetAttribLocation(program not linked)");
+      return -1;
+   }
+
+   if (!name)
+      return -1;
+
+   if (shProg->VertexProgram) {
+      const struct gl_program_parameter_list *attribs =
+         shProg->VertexProgram->Base.Attributes;
+      if (attribs) {
+         GLint i = _mesa_lookup_parameter_index(attribs, -1, name);
+         if (i >= 0) {
+            return attribs->Parameters[i].StateIndexes[0];
+         }
+      }
+   }
+   return -1;
+}
+
+
+static void
+bind_attrib_location(struct gl_context *ctx, GLuint program, GLuint index,
+                     const GLchar *name)
+{
+   struct gl_shader_program *shProg;
+   const GLint size = -1; /* unknown size */
+   GLint i;
+   GLenum datatype = GL_FLOAT_VEC4;
+
+   shProg = _mesa_lookup_shader_program_err(ctx, program,
+                                            "glBindAttribLocation");
+   if (!shProg) {
+      return;
+   }
+
+   if (!name)
+      return;
+
+   if (strncmp(name, "gl_", 3) == 0) {
+      _mesa_error(ctx, GL_INVALID_OPERATION,
+                  "glBindAttribLocation(illegal name)");
+      return;
+   }
+
+   if (index >= ctx->Const.VertexProgram.MaxAttribs) {
+      _mesa_error(ctx, GL_INVALID_VALUE, "glBindAttribLocation(index)");
+      return;
+   }
+
+   /* this will replace the current value if it's already in the list */
+   i = _mesa_add_attribute(shProg->Attributes, name, size, datatype, index);
+   if (i < 0) {
+      _mesa_error(ctx, GL_OUT_OF_MEMORY, "glBindAttribLocation");
+      return;
+   }
+
+   /*
+    * Note that this attribute binding won't go into effect until
+    * glLinkProgram is called again.
+    */
+}
+
+
+static void
+bind_frag_data_location(struct gl_context *ctx, GLuint program,
+                        GLuint colorNumber, const GLchar *name)
+{
+   _mesa_problem(ctx, "bind_frag_data_location() not implemented yet");
+}
+
+
+static GLuint
+create_shader(struct gl_context *ctx, GLenum type)
+{
+   struct gl_shader *sh;
+   GLuint name;
+
+   if (!validate_shader_target(ctx, type)) {
+      _mesa_error(ctx, GL_INVALID_ENUM, "CreateShader(type)");
+      return 0;
+   }
+
+   name = _mesa_HashFindFreeKeyBlock(ctx->Shared->ShaderObjects, 1);
+   sh = ctx->Driver.NewShader(ctx, name, type);
+   _mesa_HashInsert(ctx->Shared->ShaderObjects, name, sh);
+
+   return name;
+}
+
+
+static GLuint 
+create_shader_program(struct gl_context *ctx)
+{
+   GLuint name;
+   struct gl_shader_program *shProg;
+
+   name = _mesa_HashFindFreeKeyBlock(ctx->Shared->ShaderObjects, 1);
+
+   shProg = ctx->Driver.NewShaderProgram(ctx, name);
+
+   _mesa_HashInsert(ctx->Shared->ShaderObjects, name, shProg);
+
+   assert(shProg->RefCount == 1);
+
+   return name;
+}
+
+
+/**
+ * Named w/ "2" to indicate OpenGL 2.x vs GL_ARB_fragment_programs's
+ * DeleteProgramARB.
+ */
+static void
+delete_shader_program(struct gl_context *ctx, GLuint name)
+{
+   /*
+    * NOTE: deleting shaders/programs works a bit differently than
+    * texture objects (and buffer objects, etc).  Shader/program
+    * handles/IDs exist in the hash table until the object is really
+    * deleted (refcount==0).  With texture objects, the handle/ID is
+    * removed from the hash table in glDeleteTextures() while the tex
+    * object itself might linger until its refcount goes to zero.
+    */
+   struct gl_shader_program *shProg;
+
+   shProg = _mesa_lookup_shader_program_err(ctx, name, "glDeleteProgram");
+   if (!shProg)
+      return;
+
+   shProg->DeletePending = GL_TRUE;
+
+   /* effectively, decr shProg's refcount */
+   _mesa_reference_shader_program(ctx, &shProg, NULL);
+}
+
+
+static void
+delete_shader(struct gl_context *ctx, GLuint shader)
+{
+   struct gl_shader *sh;
+
+   sh = _mesa_lookup_shader_err(ctx, shader, "glDeleteShader");
+   if (!sh)
+      return;
+
+   sh->DeletePending = GL_TRUE;
+
+   /* effectively, decr sh's refcount */
+   _mesa_reference_shader(ctx, &sh, NULL);
+}
+
+
+static void
+detach_shader(struct gl_context *ctx, GLuint program, GLuint shader)
+{
+   struct gl_shader_program *shProg;
+   GLuint n;
+   GLuint i, j;
+
+   shProg = _mesa_lookup_shader_program_err(ctx, program, "glDetachShader");
+   if (!shProg)
+      return;
+
+   n = shProg->NumShaders;
+
+   for (i = 0; i < n; i++) {
+      if (shProg->Shaders[i]->Name == shader) {
+         /* found it */
+         struct gl_shader **newList;
+
+         /* release */
+         _mesa_reference_shader(ctx, &shProg->Shaders[i], NULL);
+
+         /* alloc new, smaller array */
+         newList = (struct gl_shader **)
+            malloc((n - 1) * sizeof(struct gl_shader *));
+         if (!newList) {
+            _mesa_error(ctx, GL_OUT_OF_MEMORY, "glDetachShader");
+            return;
+         }
+         for (j = 0; j < i; j++) {
+            newList[j] = shProg->Shaders[j];
+         }
+         while (++i < n)
+            newList[j++] = shProg->Shaders[i];
+         free(shProg->Shaders);
+
+         shProg->Shaders = newList;
+         shProg->NumShaders = n - 1;
+
+#ifdef DEBUG
+         /* sanity check */
+         {
+            for (j = 0; j < shProg->NumShaders; j++) {
+               assert(shProg->Shaders[j]->Type == GL_VERTEX_SHADER ||
+                      shProg->Shaders[j]->Type == GL_FRAGMENT_SHADER);
+               assert(shProg->Shaders[j]->RefCount > 0);
+            }
+         }
+#endif
+
+         return;
+      }
+   }
+
+   /* not found */
+   {
+      GLenum err;
+      if (is_shader(ctx, shader))
+         err = GL_INVALID_OPERATION;
+      else if (is_program(ctx, shader))
+         err = GL_INVALID_OPERATION;
+      else
+         err = GL_INVALID_VALUE;
+      _mesa_error(ctx, err, "glDetachProgram(shader)");
+      return;
+   }
+}
+
+
+static void
+get_active_attrib(struct gl_context *ctx, GLuint program, GLuint index,
+                  GLsizei maxLength, GLsizei *length, GLint *size,
+                  GLenum *type, GLchar *nameOut)
+{
+   const struct gl_program_parameter_list *attribs = NULL;
+   struct gl_shader_program *shProg;
+
+   shProg = _mesa_lookup_shader_program_err(ctx, program, "glGetActiveAttrib");
+   if (!shProg)
+      return;
+
+   if (shProg->VertexProgram)
+      attribs = shProg->VertexProgram->Base.Attributes;
+
+   if (!attribs || index >= attribs->NumParameters) {
+      _mesa_error(ctx, GL_INVALID_VALUE, "glGetActiveAttrib(index)");
+      return;
+   }
+
+   _mesa_copy_string(nameOut, maxLength, length,
+                     attribs->Parameters[index].Name);
+
+   if (size)
+      *size = attribs->Parameters[index].Size
+         / _mesa_sizeof_glsl_type(attribs->Parameters[index].DataType);
+
+   if (type)
+      *type = attribs->Parameters[index].DataType;
+}
+
+
+/**
+ * Return list of shaders attached to shader program.
+ */
+static void
+get_attached_shaders(struct gl_context *ctx, GLuint program, GLsizei maxCount,
+                     GLsizei *count, GLuint *obj)
+{
+   struct gl_shader_program *shProg =
+      _mesa_lookup_shader_program_err(ctx, program, "glGetAttachedShaders");
+   if (shProg) {
+      GLuint i;
+      for (i = 0; i < (GLuint) maxCount && i < shProg->NumShaders; i++) {
+         obj[i] = shProg->Shaders[i]->Name;
+      }
+      if (count)
+         *count = i;
+   }
+}
+
+
+static GLint
+get_frag_data_location(struct gl_context *ctx, GLuint program,
+                       const GLchar *name)
+{
+   _mesa_problem(ctx, "get_frag_data_location() not implemented yet");
+   return -1;
+}
+
+
+
+/**
+ * glGetHandleARB() - return ID/name of currently bound shader program.
+ */
+static GLuint
+get_handle(struct gl_context *ctx, GLenum pname)
+{
+   if (pname == GL_PROGRAM_OBJECT_ARB) {
+      if (ctx->Shader.ActiveProgram)
+         return ctx->Shader.ActiveProgram->Name;
+      else
+         return 0;
+   }
+   else {
+      _mesa_error(ctx, GL_INVALID_ENUM, "glGetHandleARB");
+      return 0;
+   }
+}
+
+
+/**
+ * glGetProgramiv() - get shader program state.
+ * Note that this is for GLSL shader programs, not ARB vertex/fragment
+ * programs (see glGetProgramivARB).
+ */
+static void
+get_programiv(struct gl_context *ctx, GLuint program, GLenum pname, GLint *params)
+{
+   const struct gl_program_parameter_list *attribs;
+   struct gl_shader_program *shProg
+      = _mesa_lookup_shader_program(ctx, program);
+
+   if (!shProg) {
+      _mesa_error(ctx, GL_INVALID_VALUE, "glGetProgramiv(program)");
+      return;
+   }
+
+   if (shProg->VertexProgram)
+      attribs = shProg->VertexProgram->Base.Attributes;
+   else
+      attribs = NULL;
+
+   switch (pname) {
+   case GL_DELETE_STATUS:
+      *params = shProg->DeletePending;
+      break; 
+   case GL_LINK_STATUS:
+      *params = shProg->LinkStatus;
+      break;
+   case GL_VALIDATE_STATUS:
+      *params = shProg->Validated;
+      break;
+   case GL_INFO_LOG_LENGTH:
+      *params = shProg->InfoLog ? strlen(shProg->InfoLog) + 1 : 0;
+      break;
+   case GL_ATTACHED_SHADERS:
+      *params = shProg->NumShaders;
+      break;
+   case GL_ACTIVE_ATTRIBUTES:
+      *params = attribs ? attribs->NumParameters : 0;
+      break;
+   case GL_ACTIVE_ATTRIBUTE_MAX_LENGTH:
+      *params = _mesa_longest_parameter_name(attribs, PROGRAM_INPUT) + 1;
+      break;
+   case GL_ACTIVE_UNIFORMS:
+      *params = shProg->Uniforms ? shProg->Uniforms->NumUniforms : 0;
+      break;
+   case GL_ACTIVE_UNIFORM_MAX_LENGTH:
+      *params = _mesa_longest_uniform_name(shProg->Uniforms);
+      if (*params > 0)
+         (*params)++;  /* add one for terminating zero */
+      break;
+   case GL_PROGRAM_BINARY_LENGTH_OES:
+      *params = 0;
+      break;
+#if FEATURE_EXT_transform_feedback
+   case GL_TRANSFORM_FEEDBACK_VARYINGS:
+      *params = shProg->TransformFeedback.NumVarying;
+      break;
+   case GL_TRANSFORM_FEEDBACK_VARYING_MAX_LENGTH:
+      *params = longest_feedback_varying_name(shProg) + 1;
+      break;
+   case GL_TRANSFORM_FEEDBACK_BUFFER_MODE:
+      *params = shProg->TransformFeedback.BufferMode;
+      break;
+#endif
+#if FEATURE_ARB_geometry_shader4
+   case GL_GEOMETRY_VERTICES_OUT_ARB:
+      *params = shProg->Geom.VerticesOut;
+      break;
+   case GL_GEOMETRY_INPUT_TYPE_ARB:
+      *params = shProg->Geom.InputType;
+      break;
+   case GL_GEOMETRY_OUTPUT_TYPE_ARB:
+      *params = shProg->Geom.OutputType;
+      break;
+#endif
+   default:
+      _mesa_error(ctx, GL_INVALID_ENUM, "glGetProgramiv(pname)");
+      return;
+   }
+}
+
+
+/**
+ * glGetShaderiv() - get GLSL shader state
+ */
+static void
+get_shaderiv(struct gl_context *ctx, GLuint name, GLenum pname, GLint *params)
+{
+   struct gl_shader *shader =
+      _mesa_lookup_shader_err(ctx, name, "glGetShaderiv");
+
+   if (!shader) {
+      return;
+   }
+
+   switch (pname) {
+   case GL_SHADER_TYPE:
+      *params = shader->Type;
+      break;
+   case GL_DELETE_STATUS:
+      *params = shader->DeletePending;
+      break;
+   case GL_COMPILE_STATUS:
+      *params = shader->CompileStatus;
+      break;
+   case GL_INFO_LOG_LENGTH:
+      *params = shader->InfoLog ? strlen(shader->InfoLog) + 1 : 0;
+      break;
+   case GL_SHADER_SOURCE_LENGTH:
+      *params = shader->Source ? strlen((char *) shader->Source) + 1 : 0;
+      break;
+   default:
+      _mesa_error(ctx, GL_INVALID_ENUM, "glGetShaderiv(pname)");
+      return;
+   }
+}
+
+
+static void
+get_program_info_log(struct gl_context *ctx, GLuint program, GLsizei bufSize,
+                     GLsizei *length, GLchar *infoLog)
+{
+   struct gl_shader_program *shProg
+      = _mesa_lookup_shader_program(ctx, program);
+   if (!shProg) {
+      _mesa_error(ctx, GL_INVALID_VALUE, "glGetProgramInfoLog(program)");
+      return;
+   }
+   _mesa_copy_string(infoLog, bufSize, length, shProg->InfoLog);
+}
+
+
+static void
+get_shader_info_log(struct gl_context *ctx, GLuint shader, GLsizei bufSize,
+                    GLsizei *length, GLchar *infoLog)
+{
+   struct gl_shader *sh = _mesa_lookup_shader(ctx, shader);
+   if (!sh) {
+      _mesa_error(ctx, GL_INVALID_VALUE, "glGetShaderInfoLog(shader)");
+      return;
+   }
+   _mesa_copy_string(infoLog, bufSize, length, sh->InfoLog);
+}
+
+
+/**
+ * Return shader source code.
+ */
+static void
+get_shader_source(struct gl_context *ctx, GLuint shader, GLsizei maxLength,
+                  GLsizei *length, GLchar *sourceOut)
+{
+   struct gl_shader *sh;
+   sh = _mesa_lookup_shader_err(ctx, shader, "glGetShaderSource");
+   if (!sh) {
+      return;
+   }
+   _mesa_copy_string(sourceOut, maxLength, length, sh->Source);
+}
+
+
+/**
+ * Set/replace shader source code.
+ */
+static void
+shader_source(struct gl_context *ctx, GLuint shader, const GLchar *source)
+{
+   struct gl_shader *sh;
+
+   sh = _mesa_lookup_shader_err(ctx, shader, "glShaderSource");
+   if (!sh)
+      return;
+
+   /* free old shader source string and install new one */
+   if (sh->Source) {
+      free((void *) sh->Source);
+   }
+   sh->Source = source;
+   sh->CompileStatus = GL_FALSE;
+#ifdef DEBUG
+   sh->SourceChecksum = _mesa_str_checksum(sh->Source);
+#endif
+}
+
+
+/**
+ * Compile a shader.
+ */
+static void
+compile_shader(struct gl_context *ctx, GLuint shaderObj)
+{
+   struct gl_shader *sh;
+   struct gl_shader_compiler_options *options;
+
+   sh = _mesa_lookup_shader_err(ctx, shaderObj, "glCompileShader");
+   if (!sh)
+      return;
+
+   options = &ctx->ShaderCompilerOptions[_mesa_shader_type_to_index(sh->Type)];
+
+   /* set default pragma state for shader */
+   sh->Pragmas = options->DefaultPragmas;
+
+   /* this call will set the sh->CompileStatus field to indicate if
+    * compilation was successful.
+    */
+   _mesa_glsl_compile_shader(ctx, sh);
+}
+
+
+/**
+ * Link a program's shaders.
+ */
+static void
+link_program(struct gl_context *ctx, GLuint program)
+{
+   struct gl_shader_program *shProg;
+   struct gl_transform_feedback_object *obj =
+      ctx->TransformFeedback.CurrentObject;
+
+   shProg = _mesa_lookup_shader_program_err(ctx, program, "glLinkProgram");
+   if (!shProg)
+      return;
+
+   if (obj->Active
+       && (shProg == ctx->Shader.CurrentVertexProgram
+	   || shProg == ctx->Shader.CurrentGeometryProgram
+	   || shProg == ctx->Shader.CurrentFragmentProgram)) {
+      _mesa_error(ctx, GL_INVALID_OPERATION,
+                  "glLinkProgram(transform feedback active");
+      return;
+   }
+
+   FLUSH_VERTICES(ctx, _NEW_PROGRAM);
+
+   _mesa_glsl_link_shader(ctx, shProg);
+
+   /* debug code */
+   if (0) {
+      GLuint i;
+
+      printf("Link %u shaders in program %u: %s\n",
+                   shProg->NumShaders, shProg->Name,
+                   shProg->LinkStatus ? "Success" : "Failed");
+
+      for (i = 0; i < shProg->NumShaders; i++) {
+         printf(" shader %u, type 0x%x\n",
+                      shProg->Shaders[i]->Name,
+                      shProg->Shaders[i]->Type);
+      }
+   }
+}
+
+
+/**
+ * Print basic shader info (for debug).
+ */
+static void
+print_shader_info(const struct gl_shader_program *shProg)
+{
+   GLuint i;
+
+   printf("Mesa: glUseProgram(%u)\n", shProg->Name);
+   for (i = 0; i < shProg->NumShaders; i++) {
+      const char *s;
+      switch (shProg->Shaders[i]->Type) {
+      case GL_VERTEX_SHADER:
+         s = "vertex";
+         break;
+      case GL_FRAGMENT_SHADER:
+         s = "fragment";
+         break;
+      case GL_GEOMETRY_SHADER:
+         s = "geometry";
+         break;
+      default:
+         s = "";
+      }
+      printf("  %s shader %u, checksum %u\n", s, 
+	     shProg->Shaders[i]->Name,
+	     shProg->Shaders[i]->SourceChecksum);
+   }
+   if (shProg->VertexProgram)
+      printf("  vert prog %u\n", shProg->VertexProgram->Base.Id);
+   if (shProg->FragmentProgram)
+      printf("  frag prog %u\n", shProg->FragmentProgram->Base.Id);
+}
+
+
+/**
+ * Use the named shader program for subsequent glUniform calls
+ */
+void
+_mesa_active_program(struct gl_context *ctx, struct gl_shader_program *shProg,
+		     const char *caller)
+{
+   if ((shProg != NULL) && !shProg->LinkStatus) {
+      _mesa_error(ctx, GL_INVALID_OPERATION,
+		  "%s(program %u not linked)", caller, shProg->Name);
+      return;
+   }
+
+   if (ctx->Shader.ActiveProgram != shProg) {
+      _mesa_reference_shader_program(ctx, &ctx->Shader.ActiveProgram, shProg);
+   }
+}
+
+/**
+ */
+static bool
+use_shader_program(struct gl_context *ctx, GLenum type,
+		   struct gl_shader_program *shProg)
+{
+   struct gl_shader_program **target;
+
+   switch (type) {
+#if FEATURE_ARB_vertex_shader
+   case GL_VERTEX_SHADER:
+      target = &ctx->Shader.CurrentVertexProgram;
+      if ((shProg == NULL)
+	  || (shProg->_LinkedShaders[MESA_SHADER_VERTEX] == NULL)) {
+	 shProg = NULL;
+      }
+      break;
+#endif
+#if FEATURE_ARB_geometry_shader4
+   case GL_GEOMETRY_SHADER_ARB:
+      target = &ctx->Shader.CurrentGeometryProgram;
+      if ((shProg == NULL)
+	  || (shProg->_LinkedShaders[MESA_SHADER_GEOMETRY] == NULL)) {
+	 shProg = NULL;
+      }
+      break;
+#endif
+#if FEATURE_ARB_fragment_shader
+   case GL_FRAGMENT_SHADER:
+      target = &ctx->Shader.CurrentFragmentProgram;
+      if ((shProg == NULL)
+	  || (shProg->_LinkedShaders[MESA_SHADER_FRAGMENT] == NULL)) {
+	 shProg = NULL;
+      }
+      break;
+#endif
+   default:
+      return false;
+   }
+
+   if (*target != shProg) {
+      FLUSH_VERTICES(ctx, _NEW_PROGRAM | _NEW_PROGRAM_CONSTANTS);
+      _mesa_reference_shader_program(ctx, target, shProg);
+      return true;
+   }
+
+   return false;
+}
+
+/**
+ * Use the named shader program for subsequent rendering.
+ */
+void
+_mesa_use_program(struct gl_context *ctx, struct gl_shader_program *shProg)
+{
+   use_shader_program(ctx, GL_VERTEX_SHADER, shProg);
+   use_shader_program(ctx, GL_GEOMETRY_SHADER_ARB, shProg);
+   use_shader_program(ctx, GL_FRAGMENT_SHADER, shProg);
+   _mesa_active_program(ctx, shProg, "glUseProgram");
+
+   if (ctx->Driver.UseProgram)
+      ctx->Driver.UseProgram(ctx, shProg);
+}
+
+
+/**
+ * Validate a program's samplers.
+ * Specifically, check that there aren't two samplers of different types
+ * pointing to the same texture unit.
+ * \return GL_TRUE if valid, GL_FALSE if invalid
+ */
+static GLboolean
+validate_samplers(const struct gl_program *prog, char *errMsg)
+{
+   static const char *targetName[] = {
+      "TEXTURE_BUFFER",
+      "TEXTURE_2D_ARRAY",
+      "TEXTURE_1D_ARRAY",
+      "TEXTURE_CUBE",
+      "TEXTURE_3D",
+      "TEXTURE_RECT",
+      "TEXTURE_2D",
+      "TEXTURE_1D",
+   };
+   GLint targetUsed[MAX_TEXTURE_IMAGE_UNITS];
+   GLbitfield samplersUsed = prog->SamplersUsed;
+   GLuint i;
+
+   assert(Elements(targetName) == NUM_TEXTURE_TARGETS);
+
+   if (samplersUsed == 0x0)
+      return GL_TRUE;
+
+   for (i = 0; i < Elements(targetUsed); i++)
+      targetUsed[i] = -1;
+
+   /* walk over bits which are set in 'samplers' */
+   while (samplersUsed) {
+      GLuint unit;
+      gl_texture_index target;
+      GLint sampler = _mesa_ffs(samplersUsed) - 1;
+      assert(sampler >= 0);
+      assert(sampler < MAX_TEXTURE_IMAGE_UNITS);
+      unit = prog->SamplerUnits[sampler];
+      target = prog->SamplerTargets[sampler];
+      if (targetUsed[unit] != -1 && targetUsed[unit] != (int) target) {
+         _mesa_snprintf(errMsg, 100,
+		  "Texture unit %d is accessed both as %s and %s",
+		  unit, targetName[targetUsed[unit]], targetName[target]);
+         return GL_FALSE;
+      }
+      targetUsed[unit] = target;
+      samplersUsed ^= (1 << sampler);
+   }
+
+   return GL_TRUE;
+}
+
+
+/**
+ * Do validation of the given shader program.
+ * \param errMsg  returns error message if validation fails.
+ * \return GL_TRUE if valid, GL_FALSE if invalid (and set errMsg)
+ */
+static GLboolean
+validate_shader_program(const struct gl_shader_program *shProg,
+                        char *errMsg)
+{
+   const struct gl_vertex_program *vp = shProg->VertexProgram;
+   const struct gl_fragment_program *fp = shProg->FragmentProgram;
+
+   if (!shProg->LinkStatus) {
+      return GL_FALSE;
+   }
+
+   /* From the GL spec, a program is invalid if any of these are true:
+
+     any two active samplers in the current program object are of
+     different types, but refer to the same texture image unit,
+
+     any active sampler in the current program object refers to a texture
+     image unit where fixed-function fragment processing accesses a
+     texture target that does not match the sampler type, or 
+
+     the sum of the number of active samplers in the program and the
+     number of texture image units enabled for fixed-function fragment
+     processing exceeds the combined limit on the total number of texture
+     image units allowed.
+   */
+
+
+   /*
+    * Check: any two active samplers in the current program object are of
+    * different types, but refer to the same texture image unit,
+    */
+   if (vp && !validate_samplers(&vp->Base, errMsg)) {
+      return GL_FALSE;
+   }
+   if (fp && !validate_samplers(&fp->Base, errMsg)) {
+      return GL_FALSE;
+   }
+
+   return GL_TRUE;
+}
+
+
+/**
+ * Called via glValidateProgram()
+ */
+static void
+validate_program(struct gl_context *ctx, GLuint program)
+{
+   struct gl_shader_program *shProg;
+   char errMsg[100];
+
+   shProg = _mesa_lookup_shader_program_err(ctx, program, "glValidateProgram");
+   if (!shProg) {
+      return;
+   }
+
+   shProg->Validated = validate_shader_program(shProg, errMsg);
+   if (!shProg->Validated) {
+      /* update info log */
+      if (shProg->InfoLog) {
+         ralloc_free(shProg->InfoLog);
+      }
+      shProg->InfoLog = ralloc_strdup(shProg, errMsg);
+   }
+}
+
+
+
+void GLAPIENTRY
+_mesa_AttachObjectARB(GLhandleARB program, GLhandleARB shader)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   attach_shader(ctx, program, shader);
+}
+
+
+void GLAPIENTRY
+_mesa_AttachShader(GLuint program, GLuint shader)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   attach_shader(ctx, program, shader);
+}
+
+
+void GLAPIENTRY
+_mesa_BindAttribLocationARB(GLhandleARB program, GLuint index,
+                            const GLcharARB *name)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   bind_attrib_location(ctx, program, index, name);
+}
+
+
+/* GL_EXT_gpu_shader4, GL3 */
+void GLAPIENTRY
+_mesa_BindFragDataLocation(GLuint program, GLuint colorNumber,
+                           const GLchar *name)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   bind_frag_data_location(ctx, program, colorNumber, name);
+}
+
+
+void GLAPIENTRY
+_mesa_CompileShaderARB(GLhandleARB shaderObj)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   if (MESA_VERBOSE & VERBOSE_API)
+      _mesa_debug(ctx, "glCompileShader %u\n", shaderObj);
+   compile_shader(ctx, shaderObj);
+}
+
+
+GLuint GLAPIENTRY
+_mesa_CreateShader(GLenum type)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   if (MESA_VERBOSE & VERBOSE_API)
+      _mesa_debug(ctx, "glCreateShader %s\n", _mesa_lookup_enum_by_nr(type));
+   return create_shader(ctx, type);
+}
+
+
+GLhandleARB GLAPIENTRY
+_mesa_CreateShaderObjectARB(GLenum type)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   return create_shader(ctx, type);
+}
+
+
+GLuint GLAPIENTRY
+_mesa_CreateProgram(void)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   if (MESA_VERBOSE & VERBOSE_API)
+      _mesa_debug(ctx, "glCreateProgram\n");
+   return create_shader_program(ctx);
+}
+
+
+GLhandleARB GLAPIENTRY
+_mesa_CreateProgramObjectARB(void)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   return create_shader_program(ctx);
+}
+
+
+void GLAPIENTRY
+_mesa_DeleteObjectARB(GLhandleARB obj)
+{
+   if (MESA_VERBOSE & VERBOSE_API) {
+      GET_CURRENT_CONTEXT(ctx);
+      _mesa_debug(ctx, "glDeleteObjectARB(%u)\n", obj);
+   }
+
+   if (obj) {
+      GET_CURRENT_CONTEXT(ctx);
+      FLUSH_VERTICES(ctx, 0);
+      if (is_program(ctx, obj)) {
+         delete_shader_program(ctx, obj);
+      }
+      else if (is_shader(ctx, obj)) {
+         delete_shader(ctx, obj);
+      }
+      else {
+         /* error? */
+      }
+   }
+}
+
+
+void GLAPIENTRY
+_mesa_DeleteProgram(GLuint name)
+{
+   if (name) {
+      GET_CURRENT_CONTEXT(ctx);
+      FLUSH_VERTICES(ctx, 0);
+      delete_shader_program(ctx, name);
+   }
+}
+
+
+void GLAPIENTRY
+_mesa_DeleteShader(GLuint name)
+{
+   if (name) {
+      GET_CURRENT_CONTEXT(ctx);
+      FLUSH_VERTICES(ctx, 0);
+      delete_shader(ctx, name);
+   }
+}
+
+
+void GLAPIENTRY
+_mesa_DetachObjectARB(GLhandleARB program, GLhandleARB shader)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   detach_shader(ctx, program, shader);
+}
+
+
+void GLAPIENTRY
+_mesa_DetachShader(GLuint program, GLuint shader)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   detach_shader(ctx, program, shader);
+}
+
+
+void GLAPIENTRY
+_mesa_GetActiveAttribARB(GLhandleARB program, GLuint index,
+                         GLsizei maxLength, GLsizei * length, GLint * size,
+                         GLenum * type, GLcharARB * name)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   get_active_attrib(ctx, program, index, maxLength, length, size, type, name);
+}
+
+
+void GLAPIENTRY
+_mesa_GetAttachedObjectsARB(GLhandleARB container, GLsizei maxCount,
+                            GLsizei * count, GLhandleARB * obj)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   get_attached_shaders(ctx, container, maxCount, count, obj);
+}
+
+
+void GLAPIENTRY
+_mesa_GetAttachedShaders(GLuint program, GLsizei maxCount,
+                         GLsizei *count, GLuint *obj)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   get_attached_shaders(ctx, program, maxCount, count, obj);
+}
+
+
+GLint GLAPIENTRY
+_mesa_GetAttribLocationARB(GLhandleARB program, const GLcharARB * name)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   return get_attrib_location(ctx, program, name);
+}
+
+
+/* GL_EXT_gpu_shader4, GL3 */
+GLint GLAPIENTRY
+_mesa_GetFragDataLocation(GLuint program, const GLchar *name)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   return get_frag_data_location(ctx, program, name);
+}
+
+
+
+void GLAPIENTRY
+_mesa_GetInfoLogARB(GLhandleARB object, GLsizei maxLength, GLsizei * length,
+                    GLcharARB * infoLog)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   if (is_program(ctx, object)) {
+      get_program_info_log(ctx, object, maxLength, length, infoLog);
+   }
+   else if (is_shader(ctx, object)) {
+      get_shader_info_log(ctx, object, maxLength, length, infoLog);
+   }
+   else {
+      _mesa_error(ctx, GL_INVALID_OPERATION, "glGetInfoLogARB");
+   }
+}
+
+
+void GLAPIENTRY
+_mesa_GetObjectParameterivARB(GLhandleARB object, GLenum pname, GLint *params)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   /* Implement in terms of GetProgramiv, GetShaderiv */
+   if (is_program(ctx, object)) {
+      if (pname == GL_OBJECT_TYPE_ARB) {
+	 *params = GL_PROGRAM_OBJECT_ARB;
+      }
+      else {
+	 get_programiv(ctx, object, pname, params);
+      }
+   }
+   else if (is_shader(ctx, object)) {
+      if (pname == GL_OBJECT_TYPE_ARB) {
+	 *params = GL_SHADER_OBJECT_ARB;
+      }
+      else {
+	 get_shaderiv(ctx, object, pname, params);
+      }
+   }
+   else {
+      _mesa_error(ctx, GL_INVALID_VALUE, "glGetObjectParameterivARB");
+   }
+}
+
+
+void GLAPIENTRY
+_mesa_GetObjectParameterfvARB(GLhandleARB object, GLenum pname,
+                              GLfloat *params)
+{
+   GLint iparams[1];  /* XXX is one element enough? */
+   _mesa_GetObjectParameterivARB(object, pname, iparams);
+   params[0] = (GLfloat) iparams[0];
+}
+
+
+void GLAPIENTRY
+_mesa_GetProgramiv(GLuint program, GLenum pname, GLint *params)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   get_programiv(ctx, program, pname, params);
+}
+
+
+void GLAPIENTRY
+_mesa_GetShaderiv(GLuint shader, GLenum pname, GLint *params)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   get_shaderiv(ctx, shader, pname, params);
+}
+
+
+void GLAPIENTRY
+_mesa_GetProgramInfoLog(GLuint program, GLsizei bufSize,
+                        GLsizei *length, GLchar *infoLog)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   get_program_info_log(ctx, program, bufSize, length, infoLog);
+}
+
+
+void GLAPIENTRY
+_mesa_GetShaderInfoLog(GLuint shader, GLsizei bufSize,
+                       GLsizei *length, GLchar *infoLog)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   get_shader_info_log(ctx, shader, bufSize, length, infoLog);
+}
+
+
+void GLAPIENTRY
+_mesa_GetShaderSourceARB(GLhandleARB shader, GLsizei maxLength,
+                         GLsizei *length, GLcharARB *sourceOut)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   get_shader_source(ctx, shader, maxLength, length, sourceOut);
+}
+
+
+GLhandleARB GLAPIENTRY
+_mesa_GetHandleARB(GLenum pname)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   return get_handle(ctx, pname);
+}
+
+
+GLboolean GLAPIENTRY
+_mesa_IsProgram(GLuint name)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   return is_program(ctx, name);
+}
+
+
+GLboolean GLAPIENTRY
+_mesa_IsShader(GLuint name)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   return is_shader(ctx, name);
+}
+
+
+void GLAPIENTRY
+_mesa_LinkProgramARB(GLhandleARB programObj)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   link_program(ctx, programObj);
+}
+
+
+
+/**
+ * Read shader source code from a file.
+ * Useful for debugging to override an app's shader.
+ */
+static GLcharARB *
+read_shader(const char *fname)
+{
+   const int max = 50*1000;
+   FILE *f = fopen(fname, "r");
+   GLcharARB *buffer, *shader;
+   int len;
+
+   if (!f) {
+      return NULL;
+   }
+
+   buffer = (char *) malloc(max);
+   len = fread(buffer, 1, max, f);
+   buffer[len] = 0;
+
+   fclose(f);
+
+   shader = _mesa_strdup(buffer);
+   free(buffer);
+
+   return shader;
+}
+
+
+/**
+ * Called via glShaderSource() and glShaderSourceARB() API functions.
+ * Basically, concatenate the source code strings into one long string
+ * and pass it to _mesa_shader_source().
+ */
+void GLAPIENTRY
+_mesa_ShaderSourceARB(GLhandleARB shaderObj, GLsizei count,
+                      const GLcharARB ** string, const GLint * length)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   GLint *offsets;
+   GLsizei i, totalLength;
+   GLcharARB *source;
+   GLuint checksum;
+
+   if (!shaderObj || string == NULL) {
+      _mesa_error(ctx, GL_INVALID_VALUE, "glShaderSourceARB");
+      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 *) malloc(count * sizeof(GLint));
+   if (offsets == NULL) {
+      _mesa_error(ctx, GL_OUT_OF_MEMORY, "glShaderSourceARB");
+      return;
+   }
+
+   for (i = 0; i < count; i++) {
+      if (string[i] == NULL) {
+         free((GLvoid *) offsets);
+         _mesa_error(ctx, GL_INVALID_OPERATION, "glShaderSourceARB(null string)");
+         return;
+      }
+      if (length == NULL || length[i] < 0)
+         offsets[i] = strlen(string[i]);
+      else
+         offsets[i] = length[i];
+      /* accumulate string lengths */
+      if (i > 0)
+         offsets[i] += offsets[i - 1];
+   }
+
+   /* Total length of source string is sum off all strings plus two.
+    * One extra byte for terminating zero, another extra byte to silence
+    * valgrind warnings in the parser/grammer code.
+    */
+   totalLength = offsets[count - 1] + 2;
+   source = (GLcharARB *) malloc(totalLength * sizeof(GLcharARB));
+   if (source == NULL) {
+      free((GLvoid *) offsets);
+      _mesa_error(ctx, GL_OUT_OF_MEMORY, "glShaderSourceARB");
+      return;
+   }
+
+   for (i = 0; i < count; i++) {
+      GLint start = (i > 0) ? offsets[i - 1] : 0;
+      memcpy(source + start, string[i],
+             (offsets[i] - start) * sizeof(GLcharARB));
+   }
+   source[totalLength - 1] = '\0';
+   source[totalLength - 2] = '\0';
+
+   if (SHADER_SUBST) {
+      /* Compute the shader's source code checksum then try to open a file
+       * named newshader_<CHECKSUM>.  If it exists, use it in place of the
+       * original shader source code.  For debugging.
+       */
+      char filename[100];
+      GLcharARB *newSource;
+
+      checksum = _mesa_str_checksum(source);
+
+      _mesa_snprintf(filename, sizeof(filename), "newshader_%d", checksum);
+
+      newSource = read_shader(filename);
+      if (newSource) {
+         fprintf(stderr, "Mesa: Replacing shader %u chksum=%d with %s\n",
+                       shaderObj, checksum, filename);
+         free(source);
+         source = newSource;
+      }
+   }      
+
+   shader_source(ctx, shaderObj, source);
+
+   if (SHADER_SUBST) {
+      struct gl_shader *sh = _mesa_lookup_shader(ctx, shaderObj);
+      if (sh)
+         sh->SourceChecksum = checksum; /* save original checksum */
+   }
+
+   free(offsets);
+}
+
+
+void GLAPIENTRY
+_mesa_UseProgramObjectARB(GLhandleARB program)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   struct gl_shader_program *shProg;
+   struct gl_transform_feedback_object *obj =
+      ctx->TransformFeedback.CurrentObject;
+
+   if (obj->Active) {
+      _mesa_error(ctx, GL_INVALID_OPERATION,
+                  "glUseProgram(transform feedback active)");
+      return;
+   }
+
+   if (program) {
+      shProg = _mesa_lookup_shader_program_err(ctx, program, "glUseProgram");
+      if (!shProg) {
+         return;
+      }
+      if (!shProg->LinkStatus) {
+         _mesa_error(ctx, GL_INVALID_OPERATION,
+                     "glUseProgram(program %u not linked)", program);
+         return;
+      }
+
+      /* debug code */
+      if (ctx->Shader.Flags & GLSL_USE_PROG) {
+         print_shader_info(shProg);
+      }
+   }
+   else {
+      shProg = NULL;
+   }
+
+   _mesa_use_program(ctx, shProg);
+}
+
+
+void GLAPIENTRY
+_mesa_ValidateProgramARB(GLhandleARB program)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   validate_program(ctx, program);
+}
+
+#ifdef FEATURE_ES2
+
+void GLAPIENTRY
+_mesa_GetShaderPrecisionFormat(GLenum shadertype, GLenum precisiontype,
+                               GLint* range, GLint* precision)
+{
+   const struct gl_program_constants *limits;
+   const struct gl_precision *p;
+   GET_CURRENT_CONTEXT(ctx);
+
+   switch (shadertype) {
+   case GL_VERTEX_SHADER:
+      limits = &ctx->Const.VertexProgram;
+      break;
+   case GL_FRAGMENT_SHADER:
+      limits = &ctx->Const.FragmentProgram;
+      break;
+   default:
+      _mesa_error(ctx, GL_INVALID_ENUM,
+                  "glGetShaderPrecisionFormat(shadertype)");
+      return;
+   }
+
+   switch (precisiontype) {
+   case GL_LOW_FLOAT:
+      p = &limits->LowFloat;
+      break;
+   case GL_MEDIUM_FLOAT:
+      p = &limits->MediumFloat;
+      break;
+   case GL_HIGH_FLOAT:
+      p = &limits->HighFloat;
+      break;
+   case GL_LOW_INT:
+      p = &limits->LowInt;
+      break;
+   case GL_MEDIUM_INT:
+      p = &limits->MediumInt;
+      break;
+   case GL_HIGH_INT:
+      p = &limits->HighInt;
+      break;
+   default:
+      _mesa_error(ctx, GL_INVALID_ENUM,
+                  "glGetShaderPrecisionFormat(precisiontype)");
+      return;
+   }
+
+   range[0] = p->RangeMin;
+   range[1] = p->RangeMax;
+   precision[0] = p->Precision;
+}
+
+
+void GLAPIENTRY
+_mesa_ReleaseShaderCompiler(void)
+{
+   _mesa_destroy_shader_compiler_caches();
+}
+
+
+void GLAPIENTRY
+_mesa_ShaderBinary(GLint n, const GLuint* shaders, GLenum binaryformat,
+                   const void* binary, GLint length)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   (void) n;
+   (void) shaders;
+   (void) binaryformat;
+   (void) binary;
+   (void) length;
+   _mesa_error(ctx, GL_INVALID_OPERATION, __FUNCTION__);
+}
+
+#endif /* FEATURE_ES2 */
+
+
+#if FEATURE_ARB_geometry_shader4
+
+void GLAPIENTRY
+_mesa_ProgramParameteriARB(GLuint program, GLenum pname,
+                           GLint value)
+{
+   struct gl_shader_program *shProg;
+   GET_CURRENT_CONTEXT(ctx);
+
+   ASSERT_OUTSIDE_BEGIN_END(ctx);
+
+   shProg = _mesa_lookup_shader_program_err(ctx, program,
+                                            "glProgramParameteri");
+   if (!shProg)
+      return;
+
+   switch (pname) {
+   case GL_GEOMETRY_VERTICES_OUT_ARB:
+      if (value < 1 ||
+          (unsigned) value > ctx->Const.MaxGeometryOutputVertices) {
+         _mesa_error(ctx, GL_INVALID_VALUE,
+                     "glProgramParameteri(GL_GEOMETRY_VERTICES_OUT_ARB=%d",
+                     value);
+         return;
+      }
+      shProg->Geom.VerticesOut = value;
+      break;
+   case GL_GEOMETRY_INPUT_TYPE_ARB:
+      switch (value) {
+      case GL_POINTS:
+      case GL_LINES:
+      case GL_LINES_ADJACENCY_ARB:
+      case GL_TRIANGLES:
+      case GL_TRIANGLES_ADJACENCY_ARB:
+         shProg->Geom.InputType = value;
+         break;
+      default:
+         _mesa_error(ctx, GL_INVALID_VALUE,
+                     "glProgramParameteri(geometry input type = %s",
+                     _mesa_lookup_enum_by_nr(value));
+         return;
+      }
+      break;
+   case GL_GEOMETRY_OUTPUT_TYPE_ARB:
+      switch (value) {
+      case GL_POINTS:
+      case GL_LINE_STRIP:
+      case GL_TRIANGLE_STRIP:
+         shProg->Geom.OutputType = value;
+         break;
+      default:
+         _mesa_error(ctx, GL_INVALID_VALUE,
+                     "glProgramParameteri(geometry output type = %s",
+                     _mesa_lookup_enum_by_nr(value));
+         return;
+      }
+      break;
+   default:
+      _mesa_error(ctx, GL_INVALID_ENUM, "glProgramParameteriARB(pname=%s)",
+                  _mesa_lookup_enum_by_nr(pname));
+      break;
+   }
+}
+
+#endif
+
+void
+_mesa_use_shader_program(struct gl_context *ctx, GLenum type,
+			 struct gl_shader_program *shProg)
+{
+   use_shader_program(ctx, type, shProg);
+
+   if (ctx->Driver.UseProgram)
+      ctx->Driver.UseProgram(ctx, shProg);
+}
+
+void GLAPIENTRY
+_mesa_UseShaderProgramEXT(GLenum type, GLuint program)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   struct gl_shader_program *shProg = NULL;
+
+   if (!validate_shader_target(ctx, type)) {
+      _mesa_error(ctx, GL_INVALID_ENUM, "glUseShaderProgramEXT(type)");
+      return;
+   }
+
+   if (ctx->TransformFeedback.CurrentObject->Active) {
+      _mesa_error(ctx, GL_INVALID_OPERATION,
+                  "glUseShaderProgramEXT(transform feedback is active)");
+      return;
+   }
+
+   if (program) {
+      shProg = _mesa_lookup_shader_program_err(ctx, program,
+					       "glUseShaderProgramEXT");
+      if (shProg == NULL)
+	 return;
+
+      if (!shProg->LinkStatus) {
+	 _mesa_error(ctx, GL_INVALID_OPERATION,
+		     "glUseShaderProgramEXT(program not linked)");
+	 return;
+      }
+   }
+
+   _mesa_use_shader_program(ctx, type, shProg);
+}
+
+void GLAPIENTRY
+_mesa_ActiveProgramEXT(GLuint program)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   struct gl_shader_program *shProg = (program != 0)
+      ? _mesa_lookup_shader_program_err(ctx, program, "glActiveProgramEXT")
+      : NULL;
+
+   _mesa_active_program(ctx, shProg, "glActiveProgramEXT");
+   return;
+}
+
+GLuint GLAPIENTRY
+_mesa_CreateShaderProgramEXT(GLenum type, const GLchar *string)
+{
+   GET_CURRENT_CONTEXT(ctx);
+   const GLuint shader = create_shader(ctx, type);
+   GLuint program = 0;
+
+   if (shader) {
+      shader_source(ctx, shader, _mesa_strdup(string));
+      compile_shader(ctx, shader);
+
+      program = create_shader_program(ctx);
+      if (program) {
+	 struct gl_shader_program *shProg;
+	 struct gl_shader *sh;
+	 GLint compiled = GL_FALSE;
+
+	 shProg = _mesa_lookup_shader_program(ctx, program);
+	 sh = _mesa_lookup_shader(ctx, shader);
+
+	 get_shaderiv(ctx, shader, GL_COMPILE_STATUS, &compiled);
+	 if (compiled) {
+	    attach_shader(ctx, program, shader);
+	    link_program(ctx, program);
+	    detach_shader(ctx, program, shader);
+
+#if 0
+	    /* Possibly... */
+	    if (active-user-defined-varyings-in-linked-program) {
+	       append-error-to-info-log;
+	       shProg->LinkStatus = GL_FALSE;
+	    }
+#endif
+	 }
+
+	 ralloc_strcat(&shProg->InfoLog, sh->InfoLog);
+      }
+
+      delete_shader(ctx, shader);
+   }
+
+   return program;
+}
+
+/**
+ * Plug in shader-related functions into API dispatch table.
+ */
+void
+_mesa_init_shader_dispatch(struct _glapi_table *exec)
+{
+#if FEATURE_GL
+   /* GL_ARB_vertex/fragment_shader */
+   SET_DeleteObjectARB(exec, _mesa_DeleteObjectARB);
+   SET_GetHandleARB(exec, _mesa_GetHandleARB);
+   SET_DetachObjectARB(exec, _mesa_DetachObjectARB);
+   SET_CreateShaderObjectARB(exec, _mesa_CreateShaderObjectARB);
+   SET_ShaderSourceARB(exec, _mesa_ShaderSourceARB);
+   SET_CompileShaderARB(exec, _mesa_CompileShaderARB);
+   SET_CreateProgramObjectARB(exec, _mesa_CreateProgramObjectARB);
+   SET_AttachObjectARB(exec, _mesa_AttachObjectARB);
+   SET_LinkProgramARB(exec, _mesa_LinkProgramARB);
+   SET_UseProgramObjectARB(exec, _mesa_UseProgramObjectARB);
+   SET_ValidateProgramARB(exec, _mesa_ValidateProgramARB);
+   SET_GetObjectParameterfvARB(exec, _mesa_GetObjectParameterfvARB);
+   SET_GetObjectParameterivARB(exec, _mesa_GetObjectParameterivARB);
+   SET_GetInfoLogARB(exec, _mesa_GetInfoLogARB);
+   SET_GetAttachedObjectsARB(exec, _mesa_GetAttachedObjectsARB);
+   SET_GetShaderSourceARB(exec, _mesa_GetShaderSourceARB);
+
+   /* OpenGL 2.0 */
+   SET_AttachShader(exec, _mesa_AttachShader);
+   SET_CreateProgram(exec, _mesa_CreateProgram);
+   SET_CreateShader(exec, _mesa_CreateShader);
+   SET_DeleteProgram(exec, _mesa_DeleteProgram);
+   SET_DeleteShader(exec, _mesa_DeleteShader);
+   SET_DetachShader(exec, _mesa_DetachShader);
+   SET_GetAttachedShaders(exec, _mesa_GetAttachedShaders);
+   SET_GetProgramiv(exec, _mesa_GetProgramiv);
+   SET_GetProgramInfoLog(exec, _mesa_GetProgramInfoLog);
+   SET_GetShaderiv(exec, _mesa_GetShaderiv);
+   SET_GetShaderInfoLog(exec, _mesa_GetShaderInfoLog);
+   SET_IsProgram(exec, _mesa_IsProgram);
+   SET_IsShader(exec, _mesa_IsShader);
+
+#if FEATURE_ARB_vertex_shader
+   SET_BindAttribLocationARB(exec, _mesa_BindAttribLocationARB);
+   SET_GetActiveAttribARB(exec, _mesa_GetActiveAttribARB);
+   SET_GetAttribLocationARB(exec, _mesa_GetAttribLocationARB);
+#endif
+
+#if FEATURE_ARB_geometry_shader4
+   SET_ProgramParameteriARB(exec, _mesa_ProgramParameteriARB);
+#endif
+
+   SET_UseShaderProgramEXT(exec, _mesa_UseShaderProgramEXT);
+   SET_ActiveProgramEXT(exec, _mesa_ActiveProgramEXT);
+   SET_CreateShaderProgramEXT(exec, _mesa_CreateShaderProgramEXT);
+
+   /* GL_EXT_gpu_shader4 / GL 3.0 */
+   SET_BindFragDataLocationEXT(exec, _mesa_BindFragDataLocation);
+   SET_GetFragDataLocationEXT(exec, _mesa_GetFragDataLocation);
+
+   /* GL_ARB_ES2_compatibility */
+   SET_ReleaseShaderCompiler(exec, _mesa_ReleaseShaderCompiler);
+   SET_GetShaderPrecisionFormat(exec, _mesa_GetShaderPrecisionFormat);
+
+#endif /* FEATURE_GL */
+}
+