Subversion Repositories Kolibri OS

/*

 * Mesa 3-D graphics library

 *

 * Copyright (C) 1999-2007  Brian Paul   All Rights Reserved.

 *

 * Permission is hereby granted, free of charge, to any person obtaining a

 * copy of this software and associated documentation files (the "Software"),

 * to deal in the Software without restriction, including without limitation

 * the rights to use, copy, modify, merge, publish, distribute, sublicense,

 * and/or sell copies of the Software, and to permit persons to whom the

 * Software is furnished to do so, subject to the following conditions:

 *

 * The above copyright notice and this permission notice shall be included

 * in all copies or substantial portions of the Software.

 *

 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

 * THE AUTHORS OR COPYRIGHT HOLDERS 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 arbprogram.c

 * ARB_vertex/fragment_program state management functions.

 * \author Brian Paul

 */

#include "main/glheader.h"

#include "main/context.h"

#include "main/hash.h"

#include "main/imports.h"

#include "main/macros.h"

#include "main/mtypes.h"

#include "main/arbprogram.h"

#include "program/arbprogparse.h"

#include "program/program.h"

#include "program/prog_print.h"

/**

 * Bind a program (make it current)

 * \note Called from the GL API dispatcher by both glBindProgramNV

 * and glBindProgramARB.

 */

void GLAPIENTRY

_mesa_BindProgramARB(GLenum target, GLuint id)

{

   struct gl_program *curProg, *newProg;

   GET_CURRENT_CONTEXT(ctx);

   /* Error-check target and get curProg */

   if (target == GL_VERTEX_PROGRAM_ARB && ctx->Extensions.ARB_vertex_program) {

      curProg = &ctx->VertexProgram.Current->Base;

   }

   else if (target == GL_FRAGMENT_PROGRAM_ARB

            && ctx->Extensions.ARB_fragment_program) {

      curProg = &ctx->FragmentProgram.Current->Base;

   }

   else {

      _mesa_error(ctx, GL_INVALID_ENUM, "glBindProgramARB(target)");

      return;

   }

   /*

    * Get pointer to new program to bind.

    * NOTE: binding to a non-existant program is not an error.

    * That's supposed to be caught in glBegin.

    */

   if (id == 0) {

      /* Bind a default program */

      newProg = NULL;

      if (target == GL_VERTEX_PROGRAM_ARB)

         newProg = &ctx->Shared->DefaultVertexProgram->Base;

      else

         newProg = &ctx->Shared->DefaultFragmentProgram->Base;

   }

   else {

      /* Bind a user program */

      newProg = _mesa_lookup_program(ctx, id);

      if (!newProg || newProg == &_mesa_DummyProgram) {

         /* allocate a new program now */

         newProg = ctx->Driver.NewProgram(ctx, target, id);

         if (!newProg) {

            _mesa_error(ctx, GL_OUT_OF_MEMORY, "glBindProgramARB");

            return;

         }

         _mesa_HashInsert(ctx->Shared->Programs, id, newProg);

      }

      else if (newProg->Target != target) {

         _mesa_error(ctx, GL_INVALID_OPERATION,

                     "glBindProgramARB(target mismatch)");

         return;

      }

   }

   /** All error checking is complete now **/

   if (curProg->Id == id) {

      /* binding same program - no change */

      return;

   }

   /* signal new program (and its new constants) */

   FLUSH_VERTICES(ctx, _NEW_PROGRAM | _NEW_PROGRAM_CONSTANTS);

   /* bind newProg */

   if (target == GL_VERTEX_PROGRAM_ARB) {

      _mesa_reference_vertprog(ctx, &ctx->VertexProgram.Current,

                               gl_vertex_program(newProg));

   }

   else if (target == GL_FRAGMENT_PROGRAM_ARB) {

      _mesa_reference_fragprog(ctx, &ctx->FragmentProgram.Current,

                               gl_fragment_program(newProg));

   }

   /* Never null pointers */

   assert(ctx->VertexProgram.Current);

   assert(ctx->FragmentProgram.Current);

   if (ctx->Driver.BindProgram)

      ctx->Driver.BindProgram(ctx, target, newProg);

}

/**

 * Delete a list of programs.

 * \note Not compiled into display lists.

 * \note Called by both glDeleteProgramsNV and glDeleteProgramsARB.

 */

void GLAPIENTRY

_mesa_DeleteProgramsARB(GLsizei n, const GLuint *ids)

{

   GLint i;

   GET_CURRENT_CONTEXT(ctx);

   FLUSH_VERTICES(ctx, 0);

   if (n < 0) {

      _mesa_error( ctx, GL_INVALID_VALUE, "glDeleteProgramsNV" );

      return;

   }

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

      if (ids[i] != 0) {

         struct gl_program *prog = _mesa_lookup_program(ctx, ids[i]);

         if (prog == &_mesa_DummyProgram) {

            _mesa_HashRemove(ctx->Shared->Programs, ids[i]);

         }

         else if (prog) {

            /* Unbind program if necessary */

            switch (prog->Target) {

            case GL_VERTEX_PROGRAM_ARB:

               if (ctx->VertexProgram.Current &&

                   ctx->VertexProgram.Current->Base.Id == ids[i]) {

                  /* unbind this currently bound program */

                  _mesa_BindProgramARB(prog->Target, 0);

               }

               break;

            case GL_FRAGMENT_PROGRAM_ARB:

               if (ctx->FragmentProgram.Current &&

                   ctx->FragmentProgram.Current->Base.Id == ids[i]) {

                  /* unbind this currently bound program */

                  _mesa_BindProgramARB(prog->Target, 0);

               }

               break;

            default:

               _mesa_problem(ctx, "bad target in glDeleteProgramsNV");

               return;

            }

            /* The ID is immediately available for re-use now */

            _mesa_HashRemove(ctx->Shared->Programs, ids[i]);

            _mesa_reference_program(ctx, &prog, NULL);

         }

      }

   }

}

/**

 * Generate a list of new program identifiers.

 * \note Not compiled into display lists.

 * \note Called by both glGenProgramsNV and glGenProgramsARB.

 */

void GLAPIENTRY

_mesa_GenProgramsARB(GLsizei n, GLuint *ids)

{

   GLuint first;

   GLuint i;

   GET_CURRENT_CONTEXT(ctx);

   if (n < 0) {

      _mesa_error(ctx, GL_INVALID_VALUE, "glGenPrograms");

      return;

   }

   if (!ids)

      return;

   first = _mesa_HashFindFreeKeyBlock(ctx->Shared->Programs, n);

   /* Insert pointer to dummy program as placeholder */

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

      _mesa_HashInsert(ctx->Shared->Programs, first + i, &_mesa_DummyProgram);

   }

   /* Return the program names */

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

      ids[i] = first + i;

   }

}

/**

 * Determine if id names a vertex or fragment program.

 * \note Not compiled into display lists.

 * \note Called from both glIsProgramNV and glIsProgramARB.

 * \param id is the program identifier

 * \return GL_TRUE if id is a program, else GL_FALSE.

 */

GLboolean GLAPIENTRY

_mesa_IsProgramARB(GLuint id)

{

   struct gl_program *prog = NULL;

   GET_CURRENT_CONTEXT(ctx);

   ASSERT_OUTSIDE_BEGIN_END_WITH_RETVAL(ctx, GL_FALSE);

   if (id == 0)

      return GL_FALSE;

   prog = _mesa_lookup_program(ctx, id);

   if (prog && (prog != &_mesa_DummyProgram))

      return GL_TRUE;

   else

      return GL_FALSE;

}

static GLboolean

get_local_param_pointer(struct gl_context *ctx, const char *func,

			GLenum target, GLuint index, GLfloat **param)

{

   struct gl_program *prog;

   GLuint maxParams;

   if (target == GL_VERTEX_PROGRAM_ARB

       && ctx->Extensions.ARB_vertex_program) {

      prog = &(ctx->VertexProgram.Current->Base);

      maxParams = ctx->Const.Program[MESA_SHADER_VERTEX].MaxLocalParams;

   }

   else if (target == GL_FRAGMENT_PROGRAM_ARB

            && ctx->Extensions.ARB_fragment_program) {

      prog = &(ctx->FragmentProgram.Current->Base);

      maxParams = ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxLocalParams;

   }

   else {

      _mesa_error(ctx, GL_INVALID_ENUM,

                  "%s(target)", func);

      return GL_FALSE;

   }

   if (index >= maxParams) {

      _mesa_error(ctx, GL_INVALID_VALUE, "%s(index)", func);

      return GL_FALSE;

   }

   if (!prog->LocalParams) {

      prog->LocalParams = calloc(maxParams, sizeof(float[4]));

      if (!prog->LocalParams)

         return GL_FALSE;

   }

   *param = prog->LocalParams[index];

   return GL_TRUE;

}

static GLboolean

get_env_param_pointer(struct gl_context *ctx, const char *func,

		      GLenum target, GLuint index, GLfloat **param)

{

   if (target == GL_FRAGMENT_PROGRAM_ARB

       && ctx->Extensions.ARB_fragment_program) {

      if (index >= ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxEnvParams) {

         _mesa_error(ctx, GL_INVALID_VALUE, "%s(index)", func);

         return GL_FALSE;

      }

      *param = ctx->FragmentProgram.Parameters[index];

      return GL_TRUE;

   }

   else if (target == GL_VERTEX_PROGRAM_ARB &&

            ctx->Extensions.ARB_vertex_program) {

      if (index >= ctx->Const.Program[MESA_SHADER_VERTEX].MaxEnvParams) {

         _mesa_error(ctx, GL_INVALID_VALUE, "%s(index)", func);

         return GL_FALSE;

      }

      *param = ctx->VertexProgram.Parameters[index];

      return GL_TRUE;

   } else {

      _mesa_error(ctx, GL_INVALID_ENUM, "%s(target)", func);

      return GL_FALSE;

   }

}

void GLAPIENTRY

_mesa_ProgramStringARB(GLenum target, GLenum format, GLsizei len,

                       const GLvoid *string)

{

   struct gl_program *base;

   bool failed;

   GET_CURRENT_CONTEXT(ctx);

   FLUSH_VERTICES(ctx, _NEW_PROGRAM);

   if (!ctx->Extensions.ARB_vertex_program

       && !ctx->Extensions.ARB_fragment_program) {

      _mesa_error(ctx, GL_INVALID_OPERATION, "glProgramStringARB()");

      return;

   }

   if (format != GL_PROGRAM_FORMAT_ASCII_ARB) {

      _mesa_error(ctx, GL_INVALID_ENUM, "glProgramStringARB(format)");

      return;

   }

   if (target == GL_VERTEX_PROGRAM_ARB && ctx->Extensions.ARB_vertex_program) {

      struct gl_vertex_program *prog = ctx->VertexProgram.Current;

      _mesa_parse_arb_vertex_program(ctx, target, string, len, prog);

      base = & prog->Base;

   }

   else if (target == GL_FRAGMENT_PROGRAM_ARB

            && ctx->Extensions.ARB_fragment_program) {

      struct gl_fragment_program *prog = ctx->FragmentProgram.Current;

      _mesa_parse_arb_fragment_program(ctx, target, string, len, prog);

      base = & prog->Base;

   }

   else {

      _mesa_error(ctx, GL_INVALID_ENUM, "glProgramStringARB(target)");

      return;

   }

   failed = ctx->Program.ErrorPos != -1;

   if (!failed) {

      /* finally, give the program to the driver for translation/checking */

      if (!ctx->Driver.ProgramStringNotify(ctx, target, base)) {

         failed = true;

         _mesa_error(ctx, GL_INVALID_OPERATION,

                     "glProgramStringARB(rejected by driver");

      }

   }

   if (ctx->_Shader->Flags & GLSL_DUMP) {

      const char *shader_type =

         target == GL_FRAGMENT_PROGRAM_ARB ? "fragment" : "vertex";

      fprintf(stderr, "ARB_%s_program source for program %d:\n",

              shader_type, base->Id);

      fprintf(stderr, "%s\n", (const char *) string);

      if (failed) {

         fprintf(stderr, "ARB_%s_program %d failed to compile.\n",

                 shader_type, base->Id);

      } else {

         fprintf(stderr, "Mesa IR for ARB_%s_program %d:\n",

                 shader_type, base->Id);

         _mesa_print_program(base);

         fprintf(stderr, "\n");

      }

      fflush(stderr);

   }

}

/**

 * Set a program env parameter register.

 * \note Called from the GL API dispatcher.

 */

void GLAPIENTRY

_mesa_ProgramEnvParameter4dARB(GLenum target, GLuint index,

                               GLdouble x, GLdouble y, GLdouble z, GLdouble w)

{

   _mesa_ProgramEnvParameter4fARB(target, index, (GLfloat) x, (GLfloat) y,

		                  (GLfloat) z, (GLfloat) w);

}

/**

 * Set a program env parameter register.

 * \note Called from the GL API dispatcher.

 */

void GLAPIENTRY

_mesa_ProgramEnvParameter4dvARB(GLenum target, GLuint index,

                                const GLdouble *params)

{

   _mesa_ProgramEnvParameter4fARB(target, index, (GLfloat) params[0],

	                          (GLfloat) params[1], (GLfloat) params[2],

				  (GLfloat) params[3]);

}

/**

 * Set a program env parameter register.

 * \note Called from the GL API dispatcher.

 */

void GLAPIENTRY

_mesa_ProgramEnvParameter4fARB(GLenum target, GLuint index,

                               GLfloat x, GLfloat y, GLfloat z, GLfloat w)

{

   GLfloat *param;

   GET_CURRENT_CONTEXT(ctx);

   FLUSH_VERTICES(ctx, _NEW_PROGRAM_CONSTANTS);

   if (get_env_param_pointer(ctx, "glProgramEnvParameter",

			     target, index, ¶m)) {

      ASSIGN_4V(param, x, y, z, w);

   }

}

/**

 * Set a program env parameter register.

 * \note Called from the GL API dispatcher.

 */

void GLAPIENTRY

_mesa_ProgramEnvParameter4fvARB(GLenum target, GLuint index,

                                const GLfloat *params)

{

   GLfloat *param;

   GET_CURRENT_CONTEXT(ctx);

   FLUSH_VERTICES(ctx, _NEW_PROGRAM_CONSTANTS);

   if (get_env_param_pointer(ctx, "glProgramEnvParameter4fv",

			      target, index, ¶m)) {

      memcpy(param, params, 4 * sizeof(GLfloat));

   }

}

void GLAPIENTRY

_mesa_ProgramEnvParameters4fvEXT(GLenum target, GLuint index, GLsizei count,

				 const GLfloat *params)

{

   GET_CURRENT_CONTEXT(ctx);

   GLfloat * dest;

   FLUSH_VERTICES(ctx, _NEW_PROGRAM_CONSTANTS);

   if (count <= 0) {

      _mesa_error(ctx, GL_INVALID_VALUE, "glProgramEnvParameters4fv(count)");

   }

   if (target == GL_FRAGMENT_PROGRAM_ARB

       && ctx->Extensions.ARB_fragment_program) {

      if ((index + count) > ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxEnvParams) {

         _mesa_error(ctx, GL_INVALID_VALUE, "glProgramEnvParameters4fv(index + count)");

         return;

      }

      dest = ctx->FragmentProgram.Parameters[index];

   }

   else if (target == GL_VERTEX_PROGRAM_ARB

       && ctx->Extensions.ARB_vertex_program) {

      if ((index + count) > ctx->Const.Program[MESA_SHADER_VERTEX].MaxEnvParams) {

         _mesa_error(ctx, GL_INVALID_VALUE, "glProgramEnvParameters4fv(index + count)");

         return;

      }

      dest = ctx->VertexProgram.Parameters[index];

   }

   else {

      _mesa_error(ctx, GL_INVALID_ENUM, "glProgramEnvParameters4fv(target)");

      return;

   }

   memcpy(dest, params, count * 4 * sizeof(GLfloat));

}

void GLAPIENTRY

_mesa_GetProgramEnvParameterdvARB(GLenum target, GLuint index,

                                  GLdouble *params)

{

   GET_CURRENT_CONTEXT(ctx);

   GLfloat *fparam;

   if (get_env_param_pointer(ctx, "glGetProgramEnvParameterdv",

			     target, index, &fparam)) {

      COPY_4V(params, fparam);

   }

}

void GLAPIENTRY

_mesa_GetProgramEnvParameterfvARB(GLenum target, GLuint index,

                                  GLfloat *params)

{

   GLfloat *param;

   GET_CURRENT_CONTEXT(ctx);

   if (get_env_param_pointer(ctx, "glGetProgramEnvParameterfv",

			      target, index, ¶m)) {

      COPY_4V(params, param);

   }

}

void GLAPIENTRY

_mesa_ProgramLocalParameter4fARB(GLenum target, GLuint index,

                                 GLfloat x, GLfloat y, GLfloat z, GLfloat w)

{

   GET_CURRENT_CONTEXT(ctx);

   GLfloat *param;

   FLUSH_VERTICES(ctx, _NEW_PROGRAM_CONSTANTS);

   if (get_local_param_pointer(ctx, "glProgramLocalParameterARB",

			       target, index, ¶m)) {

      assert(index < MAX_PROGRAM_LOCAL_PARAMS);

      ASSIGN_4V(param, x, y, z, w);

   }

}

void GLAPIENTRY

_mesa_ProgramLocalParameter4fvARB(GLenum target, GLuint index,

                                  const GLfloat *params)

{

   _mesa_ProgramLocalParameter4fARB(target, index, params[0], params[1],

                                    params[2], params[3]);

}

void GLAPIENTRY

_mesa_ProgramLocalParameters4fvEXT(GLenum target, GLuint index, GLsizei count,

				   const GLfloat *params)

{

   GET_CURRENT_CONTEXT(ctx);

   GLfloat *dest;

   FLUSH_VERTICES(ctx, _NEW_PROGRAM_CONSTANTS);

   if (count <= 0) {

      _mesa_error(ctx, GL_INVALID_VALUE, "glProgramLocalParameters4fv(count)");

   }

   if (get_local_param_pointer(ctx, "glProgramLocalParameters4fvEXT",

                               target, index, &dest)) {

      GLuint maxParams = target == GL_FRAGMENT_PROGRAM_ARB ?

         ctx->Const.Program[MESA_SHADER_FRAGMENT].MaxLocalParams :

         ctx->Const.Program[MESA_SHADER_VERTEX].MaxLocalParams;

      if ((index + count) > maxParams) {

         _mesa_error(ctx, GL_INVALID_VALUE,

                     "glProgramLocalParameters4fvEXT(index + count)");

         return;

      }

      memcpy(dest, params, count * 4 * sizeof(GLfloat));

   }

}

void GLAPIENTRY

_mesa_ProgramLocalParameter4dARB(GLenum target, GLuint index,

                                 GLdouble x, GLdouble y,

                                 GLdouble z, GLdouble w)

{

   _mesa_ProgramLocalParameter4fARB(target, index, (GLfloat) x, (GLfloat) y,

                                    (GLfloat) z, (GLfloat) w);

}

void GLAPIENTRY

_mesa_ProgramLocalParameter4dvARB(GLenum target, GLuint index,

                                  const GLdouble *params)

{

   _mesa_ProgramLocalParameter4fARB(target, index,

                                    (GLfloat) params[0], (GLfloat) params[1],

                                    (GLfloat) params[2], (GLfloat) params[3]);

}

void GLAPIENTRY

_mesa_GetProgramLocalParameterfvARB(GLenum target, GLuint index,

                                    GLfloat *params)

{

   GLfloat *param;

   GET_CURRENT_CONTEXT(ctx);

   if (get_local_param_pointer(ctx, "glProgramLocalParameters4fvEXT",

				target, index, ¶m)) {

      COPY_4V(params, param);

   }

}

void GLAPIENTRY

_mesa_GetProgramLocalParameterdvARB(GLenum target, GLuint index,

                                    GLdouble *params)

{

   GLfloat *param;

   GET_CURRENT_CONTEXT(ctx);

   if (get_local_param_pointer(ctx, "glProgramLocalParameters4fvEXT",

				target, index, ¶m)) {

      COPY_4V(params, param);

   }

}

void GLAPIENTRY

_mesa_GetProgramivARB(GLenum target, GLenum pname, GLint *params)

{

   const struct gl_program_constants *limits;

   struct gl_program *prog;

   GET_CURRENT_CONTEXT(ctx);

   if (target == GL_VERTEX_PROGRAM_ARB

       && ctx->Extensions.ARB_vertex_program) {

      prog = &(ctx->VertexProgram.Current->Base);

      limits = &ctx->Const.Program[MESA_SHADER_VERTEX];

   }

   else if (target == GL_FRAGMENT_PROGRAM_ARB

            && ctx->Extensions.ARB_fragment_program) {

      prog = &(ctx->FragmentProgram.Current->Base);

      limits = &ctx->Const.Program[MESA_SHADER_FRAGMENT];

   }

   else {

      _mesa_error(ctx, GL_INVALID_ENUM, "glGetProgramivARB(target)");

      return;

   }

   assert(prog);

   assert(limits);

   /* Queries supported for both vertex and fragment programs */

   switch (pname) {

      case GL_PROGRAM_LENGTH_ARB:

         *params

            = prog->String ? (GLint) strlen((char *) prog->String) : 0;

         return;

      case GL_PROGRAM_FORMAT_ARB:

         *params = prog->Format;

         return;

      case GL_PROGRAM_BINDING_ARB:

         *params = prog->Id;

         return;

      case GL_PROGRAM_INSTRUCTIONS_ARB:

         *params = prog->NumInstructions;

         return;

      case GL_MAX_PROGRAM_INSTRUCTIONS_ARB:

         *params = limits->MaxInstructions;

         return;

      case GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB:

         *params = prog->NumNativeInstructions;

         return;

      case GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB:

         *params = limits->MaxNativeInstructions;

         return;

      case GL_PROGRAM_TEMPORARIES_ARB:

         *params = prog->NumTemporaries;

         return;

      case GL_MAX_PROGRAM_TEMPORARIES_ARB:

         *params = limits->MaxTemps;

         return;

      case GL_PROGRAM_NATIVE_TEMPORARIES_ARB:

         *params = prog->NumNativeTemporaries;

         return;

      case GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB:

         *params = limits->MaxNativeTemps;

         return;

      case GL_PROGRAM_PARAMETERS_ARB:

         *params = prog->NumParameters;

         return;

      case GL_MAX_PROGRAM_PARAMETERS_ARB:

         *params = limits->MaxParameters;

         return;

      case GL_PROGRAM_NATIVE_PARAMETERS_ARB:

         *params = prog->NumNativeParameters;

         return;

      case GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB:

         *params = limits->MaxNativeParameters;

         return;

      case GL_PROGRAM_ATTRIBS_ARB:

         *params = prog->NumAttributes;

         return;

      case GL_MAX_PROGRAM_ATTRIBS_ARB:

         *params = limits->MaxAttribs;

         return;

      case GL_PROGRAM_NATIVE_ATTRIBS_ARB:

         *params = prog->NumNativeAttributes;

         return;

      case GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB:

         *params = limits->MaxNativeAttribs;

         return;

      case GL_PROGRAM_ADDRESS_REGISTERS_ARB:

         *params = prog->NumAddressRegs;

         return;

      case GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB:

         *params = limits->MaxAddressRegs;

         return;

      case GL_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB:

         *params = prog->NumNativeAddressRegs;

         return;

      case GL_MAX_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB:

         *params = limits->MaxNativeAddressRegs;

         return;

      case GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB:

         *params = limits->MaxLocalParams;

         return;

      case GL_MAX_PROGRAM_ENV_PARAMETERS_ARB:

         *params = limits->MaxEnvParams;

         return;

      case GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB:

         /*

          * XXX we may not really need a driver callback here.

          * If the number of native instructions, registers, etc. used

          * are all below the maximums, we could return true.

          * The spec says that even if this query returns true, there's

          * no guarantee that the program will run in hardware.

          */

         if (prog->Id == 0) {

            /* default/null program */

            *params = GL_FALSE;

         }

	 else if (ctx->Driver.IsProgramNative) {

            /* ask the driver */

	    *params = ctx->Driver.IsProgramNative( ctx, target, prog );

         }

	 else {

            /* probably running in software */

	    *params = GL_TRUE;

         }

         return;

      default:

         /* continue with fragment-program only queries below */

         break;

   }

   /*

    * The following apply to fragment programs only (at this time)

    */

   if (target == GL_FRAGMENT_PROGRAM_ARB) {

      const struct gl_fragment_program *fp = ctx->FragmentProgram.Current;

      switch (pname) {

         case GL_PROGRAM_ALU_INSTRUCTIONS_ARB:

            *params = fp->Base.NumNativeAluInstructions;

            return;

         case GL_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB:

            *params = fp->Base.NumAluInstructions;

            return;

         case GL_PROGRAM_TEX_INSTRUCTIONS_ARB:

            *params = fp->Base.NumTexInstructions;

            return;

         case GL_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB:

            *params = fp->Base.NumNativeTexInstructions;

            return;

         case GL_PROGRAM_TEX_INDIRECTIONS_ARB:

            *params = fp->Base.NumTexIndirections;

            return;

         case GL_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB:

            *params = fp->Base.NumNativeTexIndirections;

            return;

         case GL_MAX_PROGRAM_ALU_INSTRUCTIONS_ARB:

            *params = limits->MaxAluInstructions;

            return;

         case GL_MAX_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB:

            *params = limits->MaxNativeAluInstructions;

            return;

         case GL_MAX_PROGRAM_TEX_INSTRUCTIONS_ARB:

            *params = limits->MaxTexInstructions;

            return;

         case GL_MAX_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB:

            *params = limits->MaxNativeTexInstructions;

            return;

         case GL_MAX_PROGRAM_TEX_INDIRECTIONS_ARB:

            *params = limits->MaxTexIndirections;

            return;

         case GL_MAX_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB:

            *params = limits->MaxNativeTexIndirections;

            return;

         default:

            _mesa_error(ctx, GL_INVALID_ENUM, "glGetProgramivARB(pname)");

            return;

      }

   } else {

      _mesa_error(ctx, GL_INVALID_ENUM, "glGetProgramivARB(pname)");

      return;

   }

}

void GLAPIENTRY

_mesa_GetProgramStringARB(GLenum target, GLenum pname, GLvoid *string)

{

   const struct gl_program *prog;

   char *dst = (char *) string;

   GET_CURRENT_CONTEXT(ctx);

   if (target == GL_VERTEX_PROGRAM_ARB) {

      prog = &(ctx->VertexProgram.Current->Base);

   }

   else if (target == GL_FRAGMENT_PROGRAM_ARB) {

      prog = &(ctx->FragmentProgram.Current->Base);

   }

   else {

      _mesa_error(ctx, GL_INVALID_ENUM, "glGetProgramStringARB(target)");

      return;

   }

   assert(prog);

   if (pname != GL_PROGRAM_STRING_ARB) {

      _mesa_error(ctx, GL_INVALID_ENUM, "glGetProgramStringARB(pname)");

      return;

   }

   if (prog->String)

      memcpy(dst, prog->String, strlen((char *) prog->String));

   else

      *dst = '\0';

}