text: /* Copyright (c) 2001, Stanford University
   * All rights reserved
   *
   * See the file LICENSE.txt for information on redistributing this software.
   */
  
  #include "state.h"
  #include "state_internals.h"
  #include "cr_mem.h"
  #include "cr_string.h"
  
  
  /*
   * General notes:
   *
   * Vertex programs can change vertices so bounding boxes may not be
   * practical for tilesort.  Tilesort may have to broadcast geometry
   * when vertex programs are in effect.  We could semi-parse vertex
   * programs to determine if they write to the o[HPOS] register.
   */
  
  
  /*
   * Lookup the named program and return a pointer to it.
   * If the program doesn't exist, create it and reserve its Id and put
   * it into the hash table.
   */
  static CRProgram *
  GetProgram(CRProgramState *p, GLenum target, GLuint id)
  {
      CRProgram *prog;
  
      prog = crHashtableSearch(p->programHash, id);
      if (!prog) {
          prog = (CRProgram *) crCalloc(sizeof(CRProgram));
          if (!prog)
              return NULL;
          prog->target = target;
          prog->id = id;
          prog->format = GL_PROGRAM_FORMAT_ASCII_ARB;
          prog->resident = GL_TRUE;
          prog->symbolTable = NULL;
      
          if (id > 0)
              crHashtableAdd(p->programHash, id, (void *) prog);
      }
      return prog;
  }
  
  
  /*
   * Delete a CRProgram object and all attached data.
   */
  static void
  DeleteProgram(CRProgram *prog)
  {
      CRProgramSymbol *symbol, *next;
  
      if (prog->string)
          crFree((void *) prog->string);
  
      for (symbol = prog->symbolTable; symbol; symbol = next) {
          next = symbol->next;
          crFree((void *) symbol->name);
          crFree(symbol);
      }
      crFree(prog);
  }
  
  
  /*
   * Set the named symbol to the value (x, y, z, w).
   * NOTE: Symbols should only really be added during parsing of the program.
   * However, the state tracker does not parse the programs (yet).  So, when
   * someone calls glProgramNamedParameter4fNV() we always enter the symbol
   * since we don't know if it's really valid or not.
   */
  static void
  SetProgramSymbol(CRProgram *prog, const char *name, GLsizei len,
                                   GLfloat x, GLfloat y, GLfloat z, GLfloat w)
  {
      CRProgramSymbol *symbol;
  
      for (symbol = prog->symbolTable; symbol; symbol = symbol->next) {
          /* NOTE: <name> may not be null-terminated! */
          if (crStrncmp(symbol->name, name, len) == 0 && symbol->name[len] == 0) {
              /* found it */
              symbol->value[0] = x;
              symbol->value[1] = y;
              symbol->value[2] = z;
              symbol->value[3] = w;
              FILLDIRTY(symbol->dirty);
              return;
          }
      }
      /* add new symbol table entry */
      symbol = (CRProgramSymbol *) crAlloc(sizeof(CRProgramSymbol));
      if (symbol) {
         symbol->name = crStrndup(name, len);
         symbol->cbName = len;
         symbol->value[0] = x;
         symbol->value[1] = y;
         symbol->value[2] = z;
         symbol->value[3] = w;
         symbol->next = prog->symbolTable;
         prog->symbolTable = symbol;
         FILLDIRTY(symbol->dirty);
      }
  }
  
  
  /*
   * Return a pointer to the values for the given symbol.  Return NULL if
   * the name doesn't exist in the symbol table.
   */
  static const GLfloat *
  GetProgramSymbol(const CRProgram *prog, const char *name, GLsizei len)
  {
      CRProgramSymbol *symbol = prog->symbolTable;
      for (symbol = prog->symbolTable; symbol; symbol = symbol->next) {
          /* NOTE: <name> may not be null-terminated! */
          if (crStrncmp(symbol->name, name, len) == 0 && symbol->name[len] == 0) {
              return symbol->value;
          }
      }
      return NULL;
  }
  
  
  /*
   * Used by both glBindProgramNV and glBindProgramARB
   */
  static CRProgram *
  BindProgram(GLenum target, GLuint id,
                          GLenum vertexTarget, GLenum fragmentTarget)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
      CRProgram *prog;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glBindProgram called in Begin/End");
          return NULL;
      }
  
      if (id == 0) {
          if (target == vertexTarget) {
              prog = p->defaultVertexProgram;
          }
          else if (target == fragmentTarget) {
              prog = p->defaultFragmentProgram;
          }
          else {
              crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                       "glBindProgram(bad target)");
              return NULL;
          }
      }
      else {
          prog = GetProgram(p, target, id );
      }
  
      if (!prog) {
          crStateError(__LINE__, __FILE__, GL_OUT_OF_MEMORY, "glBindProgram");
          return NULL;
      }
      else if (prog->target != target) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glBindProgram target mismatch");
          return NULL;
      }
  
      if (target == vertexTarget) {
          p->currentVertexProgram = prog;
          p->vpProgramBinding = id;
          DIRTY(pb->dirty, g->neg_bitid);
          DIRTY(pb->vpBinding, g->neg_bitid);
      }
      else if (target == fragmentTarget) {
          p->currentFragmentProgram = prog;
          p->fpProgramBinding = id;
          DIRTY(pb->dirty, g->neg_bitid);
          DIRTY(pb->fpBinding, g->neg_bitid);
      }
      return prog;
  }
  
  
  void STATE_APIENTRY crStateBindProgramNV(GLenum target, GLuint id)
  {
      CRProgram *prog = BindProgram(target, id, GL_VERTEX_PROGRAM_NV,
                                    GL_FRAGMENT_PROGRAM_NV);
      if (prog) {
          prog->isARBprogram = GL_FALSE;
      }
  }
  
  
  void STATE_APIENTRY crStateBindProgramARB(GLenum target, GLuint id)
  {
      CRProgram *prog = BindProgram(target, id, GL_VERTEX_PROGRAM_ARB,
                                    GL_FRAGMENT_PROGRAM_ARB);
      if (prog) {
          prog->isARBprogram = GL_TRUE;
      }
  }
  
  
  void STATE_APIENTRY crStateDeleteProgramsARB(GLsizei n, const GLuint *ids)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
      GLint i;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glDeleteProgramsNV called in Begin/End");
          return;
      }
  
      if (n < 0)
      {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE, "glDeleteProgramsNV(n)");
          return;
      }
  
      for (i = 0; i < n; i++) {
          CRProgram *prog;
          if (ids[i] > 0) {
              prog = (CRProgram *) crHashtableSearch(p->programHash, ids[i]);
              if (prog == p->currentVertexProgram) {
                   p->currentVertexProgram = p->defaultVertexProgram;
                   DIRTY(pb->dirty, g->neg_bitid);
                   DIRTY(pb->vpBinding, g->neg_bitid);
              }
              else if (prog == p->currentFragmentProgram) {
                   p->currentFragmentProgram = p->defaultFragmentProgram;
                   DIRTY(pb->dirty, g->neg_bitid);
                   DIRTY(pb->fpBinding, g->neg_bitid);
              }
              if (prog) {
                  DeleteProgram(prog);
              }
              crHashtableDelete(p->programHash, ids[i], GL_FALSE);
          }
      }
  }
  
  
  void STATE_APIENTRY crStateExecuteProgramNV(GLenum target, GLuint id, const GLfloat *params)
  {
      /* Hmmm, this is really hard to do if we don't actually execute
       * the program in a software simulation.
       */
      (void)params;
      (void)target;
      (void)id;
  }
  
  
  void STATE_APIENTRY crStateGenProgramsNV(GLsizei n, GLuint *ids)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
  
      crStateGenNames(g, p->programHash, n, ids);
  }
  
  void STATE_APIENTRY crStateGenProgramsARB(GLsizei n, GLuint *ids)
  {
      crStateGenProgramsNV(n, ids);
  }
  
  
  GLboolean STATE_APIENTRY crStateIsProgramARB(GLuint id)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRProgram *prog;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glIsProgram called in Begin/End");
          return GL_FALSE;
      }
  
      if (id == 0) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glIsProgram(id==0)");
          return GL_FALSE;
      }
  
      prog = (CRProgram *) crHashtableSearch(p->programHash, id);
      if (prog)
          return GL_TRUE;
      else
          return GL_FALSE;
  }
  
  
  GLboolean STATE_APIENTRY crStateAreProgramsResidentNV(GLsizei n, const GLuint *ids, GLboolean *residences)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      int i;
      GLboolean retVal = GL_TRUE;
  
      if (n < 0) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                   "glAreProgramsResidentNV(n)");
          return GL_FALSE;
      }
  
      for (i = 0; i < n; i++) {
          CRProgram *prog;
  
          if (ids[i] == 0) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glAreProgramsResidentNV(id)");
              return GL_FALSE;
          }
  
          prog = (CRProgram *) crHashtableSearch(p->programHash, ids[i]);
          if (!prog) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glAreProgramsResidentNV(id)");
              return GL_FALSE;
          }
  
          if (!prog->resident) {
               retVal = GL_FALSE;
               break;
          }
      }
  
      if (retVal == GL_FALSE) {
          for (i = 0; i < n; i++) {
              CRProgram *prog = (CRProgram *)
                  crHashtableSearch(p->programHash, ids[i]);
              residences[i] = prog->resident;
          }
      }
  
      return retVal;
  }
  
  
  void STATE_APIENTRY crStateRequestResidentProgramsNV(GLsizei n, const GLuint *ids)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      GLint i;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glRequestResidentProgramsNV called in Begin/End");
          return;
      }
  
      if (n < 0) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glRequestResidentProgramsNV(n<0)");
          return;
      }
  
      for (i = 0; i < n ; i++) {
           CRProgram *prog = (CRProgram *) crHashtableSearch(p->programHash, ids[i]);
           if (prog)
                  prog->resident = GL_TRUE;
      }
  }
  
  
  void STATE_APIENTRY crStateLoadProgramNV(GLenum target, GLuint id, GLsizei len,
                                                                                   const GLubyte *program)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
      CRProgram *prog;
      GLubyte *progCopy;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glLoadProgramNV called in Begin/End");
          return;
      }
  
      if (id == 0) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                   "glLoadProgramNV(id==0)");
          return;
      }
  
      prog = GetProgram(p, target, id);
  
      if (!prog) {
          crStateError(__LINE__, __FILE__, GL_OUT_OF_MEMORY, "glLoadProgramNV");
          return;
      }
      else if (prog && prog->target != target) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glLoadProgramNV(target)");
          return;
      }
  
      progCopy = crAlloc(len);
      if (!progCopy) {
              crStateError(__LINE__, __FILE__, GL_OUT_OF_MEMORY, "glLoadProgramNV");
              return;
      }
      if (crStrncmp((const char *) program,"!!FP1.0", 7) != 0
       && crStrncmp((const char *) program,"!!FCP1.0", 8) != 0
       && crStrncmp((const char *) program,"!!VP1.0", 7) != 0
       && crStrncmp((const char *) program,"!!VP1.1", 7) != 0
       && crStrncmp((const char *) program,"!!VP2.0", 7) != 0
       && crStrncmp((const char *) program,"!!VSP1.0", 8) != 0) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE, "glLoadProgramNV");
              crDebug("program = (%s)\n",program);
              return;
      }
      crMemcpy(progCopy, program, len);
      if (prog->string)
          crFree((void *) prog->string);
  
      prog->string = progCopy;
      prog->length = len;
      prog->isARBprogram = GL_FALSE;
  
      DIRTY(prog->dirtyProgram, g->neg_bitid);
      DIRTY(pb->dirty, g->neg_bitid);
  }
  
  
  void STATE_APIENTRY crStateProgramStringARB(GLenum target, GLenum format,
                                                                                          GLsizei len, const GLvoid *string)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
      CRProgram *prog;
      GLubyte *progCopy;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramStringARB called in Begin/End");
          return;
      }
  
      if (format != GL_PROGRAM_FORMAT_ASCII_ARB) {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glProgramStringARB(format)");
          return;
      }
  
      if (target == GL_FRAGMENT_PROGRAM_ARB
              && g->extensions.ARB_fragment_program) {
          prog = p->currentFragmentProgram;
      }
      else if (target == GL_VERTEX_PROGRAM_ARB
                       && g->extensions.ARB_vertex_program) {
          prog = p->currentVertexProgram;
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glProgramStringARB(target)");
          return;
      }
  
      CRASSERT(prog);
  
  
      progCopy = crAlloc(len);
      if (!progCopy) {
          crStateError(__LINE__, __FILE__, GL_OUT_OF_MEMORY, "glProgramStringARB");
          return;
      }
      if (crStrncmp(string,"!!ARBvp1.0", 10) !=  0 
       && crStrncmp(string,"!!ARBfp1.0", 10) != 0) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE, "glProgramStringARB");
              return;
      }
      crMemcpy(progCopy, string, len);
      if (prog->string)
          crFree((void *) prog->string);
  
      prog->string = progCopy;
      prog->length = len;
      prog->format = format;
      prog->isARBprogram = GL_TRUE;
  
      DIRTY(prog->dirtyProgram, g->neg_bitid);
      DIRTY(pb->dirty, g->neg_bitid);
  }
  
  
  void STATE_APIENTRY crStateGetProgramivNV(GLuint id, GLenum pname, GLint *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRProgram *prog;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramivNV called in Begin/End");
          return;
      }
  
      if (id == 0) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramivNV(bad id)");
          return;
      }
          
      prog = (CRProgram *) crHashtableSearch(p->programHash, id);
      if (!prog) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramivNV(bad id)");
          return;
      }
  
      switch (pname) {
      case GL_PROGRAM_TARGET_NV:
          *params = prog->target;
          return;
      case GL_PROGRAM_LENGTH_NV:
          *params = prog->length;
          return;
      case GL_PROGRAM_RESIDENT_NV:
          *params = prog->resident;
          return;
      default:
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramivNV(pname)");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateGetProgramStringNV(GLuint id, GLenum pname, GLubyte *program)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRProgram *prog;
  
      if (pname != GL_PROGRAM_STRING_NV) {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramStringNV(pname)");
          return;
      }
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramStringNV called in Begin/End");
          return;
      }
  
      if (id == 0) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramStringNV(bad id)");
          return;
      }
          
      prog = (CRProgram *) crHashtableSearch(p->programHash, id);
      if (!prog) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramStringNV(bad id)");
          return;
      }
  
      crMemcpy(program, prog->string, prog->length);
  }
  
  
  void STATE_APIENTRY crStateGetProgramStringARB(GLenum target, GLenum pname, GLvoid *string)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRProgram *prog;
  
      if (target == GL_VERTEX_PROGRAM_ARB) {
          prog = p->currentVertexProgram;
      }
      else if (target == GL_FRAGMENT_PROGRAM_ARB) {
          prog = p->currentFragmentProgram;
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramStringNV(target)");
          return;
      }
  
      if (pname != GL_PROGRAM_STRING_NV) {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramStringNV(pname)");
          return;
      }
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramStringNV called in Begin/End");
          return;
      }
  
      crMemcpy(string, prog->string, prog->length);
  }
  
  
  void STATE_APIENTRY crStateProgramParameter4dNV(GLenum target, GLuint index,
                                  GLdouble x, GLdouble y, GLdouble z, GLdouble w)
  {
      crStateProgramParameter4fNV(target, index, (GLfloat) x, (GLfloat) y,
                                                              (GLfloat) z, (GLfloat) w);
  }
  
  
  void STATE_APIENTRY crStateProgramParameter4dvNV(GLenum target, GLuint index,
                                   const GLdouble *params)
  {
      crStateProgramParameter4fNV(target, index,
                                                              (GLfloat) params[0], (GLfloat) params[1],
                                                              (GLfloat) params[2], (GLfloat) params[3]);
  }
  
  
  void STATE_APIENTRY crStateProgramParameter4fNV(GLenum target, GLuint index,
                                                                   GLfloat x, GLfloat y, GLfloat z, GLfloat w)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramParameterNV called in Begin/End");
          return;
      }
  
      if (target == GL_VERTEX_PROGRAM_NV) {
          if (index < g->limits.maxVertexProgramEnvParams) {
              p->vertexParameters[index][0] = x;
              p->vertexParameters[index][1] = y;
              p->vertexParameters[index][2] = z;
              p->vertexParameters[index][3] = w;
              DIRTY(pb->dirty, g->neg_bitid);
              DIRTY(pb->vertexEnvParameter[index], g->neg_bitid);
              DIRTY(pb->vertexEnvParameters, g->neg_bitid);
          }
          else {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glProgramParameterNV(index=%d)", index);
              return;
          }
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glProgramParameterNV(target)");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateProgramParameter4fvNV(GLenum target, GLuint index,
                                   const GLfloat *params)
  {
      crStateProgramParameter4fNV(target, index,
                                                              params[0], params[1], params[2], params[3]);
  }
  
  
  void STATE_APIENTRY crStateProgramParameters4dvNV(GLenum target, GLuint index,
                                    GLuint num, const GLdouble *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramParameters4dvNV called in Begin/End");
          return;
      }
  
      if (target == GL_VERTEX_PROGRAM_NV) {
          if (index >= UINT32_MAX - num) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                  "glProgramParameters4dvNV(index+num) integer overflow");
              return;
          }
  
          if (index + num < g->limits.maxVertexProgramEnvParams) {
              GLuint i;
              for (i = 0; i < num; i++) {
                  p->vertexParameters[index+i][0] = (GLfloat) params[i*4+0];
                  p->vertexParameters[index+i][1] = (GLfloat) params[i*4+1];
                  p->vertexParameters[index+i][2] = (GLfloat) params[i*4+2];
                  p->vertexParameters[index+i][3] = (GLfloat) params[i*4+3];
              }
              DIRTY(pb->dirty, g->neg_bitid);
              DIRTY(pb->vertexEnvParameters, g->neg_bitid);
          }
          else {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glProgramParameters4dvNV(index+num)");
              return;
          }
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glProgramParameterNV(target)");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateProgramParameters4fvNV(GLenum target, GLuint index,
                                    GLuint num, const GLfloat *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramParameters4dvNV called in Begin/End");
          return;
      }
  
      if (target == GL_VERTEX_PROGRAM_NV) {
          if (index >= UINT32_MAX - num) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                  "glProgramParameters4dvNV(index+num) integer overflow");
              return;
          }
  
          if (index + num < g->limits.maxVertexProgramEnvParams) {
              GLuint i;
              for (i = 0; i < num; i++) {
                  p->vertexParameters[index+i][0] = params[i*4+0];
                  p->vertexParameters[index+i][1] = params[i*4+1];
                  p->vertexParameters[index+i][2] = params[i*4+2];
                  p->vertexParameters[index+i][3] = params[i*4+3];
              }
              DIRTY(pb->dirty, g->neg_bitid);
              DIRTY(pb->vertexEnvParameters, g->neg_bitid);
          }
          else {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glProgramParameters4dvNV(index+num)");
              return;
          }
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glProgramParameterNV(target)");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateGetProgramParameterfvNV(GLenum target, GLuint index,
                                                                          GLenum pname, GLfloat *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramParameterfvNV called in Begin/End");
          return;
      }
  
      if (target == GL_VERTEX_PROGRAM_NV) {
          if (pname == GL_PROGRAM_PARAMETER_NV) {
              if (index < g->limits.maxVertexProgramEnvParams) {
                  params[0] = p->vertexParameters[index][0];
                  params[1] = p->vertexParameters[index][1];
                  params[2] = p->vertexParameters[index][2];
                  params[3] = p->vertexParameters[index][3];
              }
              else {
                  crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                           "glGetProgramParameterfvNV(index)");
                  return;
              }
          }
          else {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "glGetProgramParameterfvNV(pname)");
              return;
          }
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramParameterfvNV(target)");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateGetProgramParameterdvNV(GLenum target, GLuint index,
                                     GLenum pname, GLdouble *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramParameterdvNV called in Begin/End");
          return;
      }
  
      if (target == GL_VERTEX_PROGRAM_NV) {
          if (pname == GL_PROGRAM_PARAMETER_NV) {
              if (index < g->limits.maxVertexProgramEnvParams) {
                  params[0] = p->vertexParameters[index][0];
                  params[1] = p->vertexParameters[index][1];
                  params[2] = p->vertexParameters[index][2];
                  params[3] = p->vertexParameters[index][3];
              }
              else {
                  crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                           "glGetProgramParameterdvNV(index)");
                  return;
              }
          }
          else {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "glGetProgramParameterdvNV(pname)");
              return;
          }
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramParameterdvNV(target)");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateTrackMatrixNV(GLenum target, GLuint address,
                           GLenum matrix, GLenum transform)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetTrackMatrixivNV called in Begin/End");
          return;
      }
  
      if (target == GL_VERTEX_PROGRAM_NV) {
          if (address & 0x3 || address >= g->limits.maxVertexProgramEnvParams) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glTrackMatrixNV(address)");
              return;
          }
  
          switch (matrix) {
          case GL_NONE:
          case GL_MODELVIEW:
          case GL_PROJECTION:
          case GL_TEXTURE:
          case GL_COLOR:
          case GL_MODELVIEW_PROJECTION_NV:
          case GL_MATRIX0_NV:
          case GL_MATRIX1_NV:
          case GL_MATRIX2_NV:
          case GL_MATRIX3_NV:
          case GL_MATRIX4_NV:
          case GL_MATRIX5_NV:
          case GL_MATRIX6_NV:
          case GL_MATRIX7_NV:
          case GL_TEXTURE0_ARB:
          case GL_TEXTURE1_ARB:
          case GL_TEXTURE2_ARB:
          case GL_TEXTURE3_ARB:
          case GL_TEXTURE4_ARB:
          case GL_TEXTURE5_ARB:
          case GL_TEXTURE6_ARB:
          case GL_TEXTURE7_ARB:
              /* OK, fallthrough */
              break;
          default:
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "glTrackMatrixNV(matrix = %x)",matrix);
              return;
          }
  
          switch (transform) {
          case GL_IDENTITY_NV:
          case GL_INVERSE_NV:
          case GL_TRANSPOSE_NV:
          case GL_INVERSE_TRANSPOSE_NV:
              /* OK, fallthrough */
              break;
          default:
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "glTrackMatrixNV(transform = %x)",transform);
              return;
          }
  
          p->TrackMatrix[address / 4] = matrix;
          p->TrackMatrixTransform[address / 4] = transform;
          DIRTY(pb->trackMatrix[address/4], g->neg_bitid);
          DIRTY(pb->dirty, g->neg_bitid);
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glTrackMatrixNV(target = %x)",target);
      }
  }
  
  
  void STATE_APIENTRY crStateGetTrackMatrixivNV(GLenum target, GLuint address,
                                                               GLenum pname, GLint *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetTrackMatrixivNV called in Begin/End");
          return;
      }
  
      if (target == GL_VERTEX_PROGRAM_NV) {
          if ((address & 0x3) || address >= g->limits.maxVertexProgramEnvParams) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glGetTrackMatrixivNV(address)");
              return;
          }
          if (pname == GL_TRACK_MATRIX_NV) {
              params[0] = (GLint) p->TrackMatrix[address / 4];
          }
          else if (pname == GL_TRACK_MATRIX_TRANSFORM_NV) {
              params[0] = (GLint) p->TrackMatrixTransform[address / 4];
          }
          else {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "glGetTrackMatrixivNV(pname)");
              return;
          }
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetTrackMatrixivNV(target)");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateGetVertexAttribdvNV(GLuint index, GLenum pname, GLdouble *params)
  {
       /* init vars to prevent compiler warnings/errors */
       GLfloat floatParams[4] = { 0.0, 0.0, 0.0, 0.0 };
       crStateGetVertexAttribfvNV(index, pname, floatParams);
       params[0] = floatParams[0];
       if (pname == GL_CURRENT_ATTRIB_NV) {
              params[1] = floatParams[1];
              params[2] = floatParams[2];
              params[3] = floatParams[3];
       }
  }
  
  
  void STATE_APIENTRY crStateGetVertexAttribfvNV(GLuint index, GLenum pname, GLfloat *params)
  {
      CRContext *g = GetCurrentContext();
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetVertexAttribfvNV called in Begin/End");
          return;
      }
  
      if (index >= CR_MAX_VERTEX_ATTRIBS) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                   "glGetVertexAttribfvNV(index)");
          return;
      }
  
      switch (pname) {
      case GL_ATTRIB_ARRAY_SIZE_NV:
          params[0] = (GLfloat) g->client.array.a[index].size;
          break;
      case GL_ATTRIB_ARRAY_STRIDE_NV:
          params[0] = (GLfloat) g->client.array.a[index].stride;
          break;
      case GL_ATTRIB_ARRAY_TYPE_NV:
          params[0] = (GLfloat) g->client.array.a[index].type;
          break;
      case GL_CURRENT_ATTRIB_NV:
          crStateCurrentRecover();
          COPY_4V(params , g->current.vertexAttrib[index]);
          break;
      default:
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM, "glGetVertexAttribfvNV");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateGetVertexAttribivNV(GLuint index, GLenum pname, GLint *params)
  {
       /* init vars to prevent compiler warnings/errors */
       GLfloat floatParams[4] = { 0.0, 0.0, 0.0, 0.0 };
       crStateGetVertexAttribfvNV(index, pname, floatParams);
       params[0] = (GLint) floatParams[0];
       if (pname == GL_CURRENT_ATTRIB_NV) {
              params[1] = (GLint) floatParams[1];
              params[2] = (GLint) floatParams[2];
              params[3] = (GLint) floatParams[3];
       }
  }
  
  
  
  void STATE_APIENTRY crStateGetVertexAttribfvARB(GLuint index, GLenum pname, GLfloat *params)
  {
      CRContext *g = GetCurrentContext();
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetVertexAttribfvARB called in Begin/End");
          return;
      }
  
      if (index >= CR_MAX_VERTEX_ATTRIBS) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                   "glGetVertexAttribfvARB(index)");
          return;
      }
  
      switch (pname) {
      case GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB:
          params[0] = (GLfloat) g->client.array.a[index].enabled;
          break;
      case GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB:
          params[0] = (GLfloat) g->client.array.a[index].size;
          break;
      case GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB:
          params[0] = (GLfloat) g->client.array.a[index].stride;
          break;
      case GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB:
          params[0] = (GLfloat) g->client.array.a[index].type;
          break;
    case GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB:
          params[0] = (GLfloat) g->client.array.a[index].normalized;
          break;
      case GL_CURRENT_VERTEX_ATTRIB_ARB:
          crStateCurrentRecover();
          COPY_4V(params , g->current.vertexAttrib[index]);
          break;
      default:
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM, "glGetVertexAttribfvARB");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateGetVertexAttribivARB(GLuint index, GLenum pname, GLint *params)
  {
       /* init vars to prevent compiler warnings/errors */
       GLfloat floatParams[4] = { 0.0, 0.0, 0.0, 0.0 };
       crStateGetVertexAttribfvARB(index, pname, floatParams);
       params[0] = (GLint) floatParams[0];
       if (pname == GL_CURRENT_VERTEX_ATTRIB_ARB) {
              params[1] = (GLint) floatParams[1];
              params[2] = (GLint) floatParams[2];
              params[3] = (GLint) floatParams[3];
       }
  }
  
  
  void STATE_APIENTRY crStateGetVertexAttribdvARB(GLuint index, GLenum pname, GLdouble *params)
  {
       /* init vars to prevent compiler warnings/errors */
       GLfloat floatParams[4] = { 0.0, 0.0, 0.0, 0.0 };
       crStateGetVertexAttribfvARB(index, pname, floatParams);
       params[0] = floatParams[0];
       if (pname == GL_CURRENT_VERTEX_ATTRIB_ARB) {
              params[1] = floatParams[1];
              params[2] = floatParams[2];
              params[3] = floatParams[3];
       }
  }
  
  
  /**********************************************************************/
  
  /*
   * Added by GL_NV_fragment_program
   */
  
  void STATE_APIENTRY crStateProgramNamedParameter4fNV(GLuint id, GLsizei len, const GLubyte *name, GLfloat x, GLfloat y, GLfloat z, GLfloat w)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRProgram *prog;
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramNamedParameterfNV called in Begin/End");
          return;
      }
  
      prog = (CRProgram *) crHashtableSearch(p->programHash, id);
      if (!prog) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramNamedParameterNV(bad id %d)", id);
          return;
      }
  
      if (prog->target != GL_FRAGMENT_PROGRAM_NV) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramNamedParameterNV(target)");
          return;
      }
  
      SetProgramSymbol(prog, (const char *)name, len, x, y, z, w);
      DIRTY(prog->dirtyNamedParams, g->neg_bitid);
      DIRTY(pb->dirty, g->neg_bitid);
  }
  
  
  void STATE_APIENTRY crStateProgramNamedParameter4dNV(GLuint id, GLsizei len, const GLubyte *name, GLdouble x, GLdouble y, GLdouble z, GLdouble w)
  {
      crStateProgramNamedParameter4fNV(id, len, name, (GLfloat) x, (GLfloat) y, (GLfloat) z, (GLfloat) w);
  }
  
  
  void STATE_APIENTRY crStateProgramNamedParameter4fvNV(GLuint id, GLsizei len, const GLubyte *name, const GLfloat v[])
  {
      crStateProgramNamedParameter4fNV(id, len, name, v[0], v[1], v[2], v[3]);
  }
  
  
  void STATE_APIENTRY crStateProgramNamedParameter4dvNV(GLuint id, GLsizei len, const GLubyte *name, const GLdouble v[])
  {
      crStateProgramNamedParameter4fNV(id, len, name, (GLfloat) v[0], (GLfloat) v[1], (GLfloat) v[2], (GLfloat) v[3]);
  }
  
  
  void STATE_APIENTRY crStateGetProgramNamedParameterfvNV(GLuint id, GLsizei len, const GLubyte *name, GLfloat *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      const CRProgram *prog;
      const GLfloat *value;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramNamedParameterfNV called in Begin/End");
          return;
      }
  
      prog = (const CRProgram *) crHashtableSearch(p->programHash, id);
      if (!prog) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramNamedParameterNV(bad id)");
          return;
      }
  
      if (prog->target != GL_FRAGMENT_PROGRAM_NV) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramNamedParameterNV(target)");
          return;
      }
  
      value = GetProgramSymbol(prog, (const char *)name, len);
      if (!value) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                   "glGetProgramNamedParameterNV(name)");
          return;
      }
  
      params[0] = value[0];
      params[1] = value[1];
      params[2] = value[2];
      params[3] = value[3];
  }
  
  
  void STATE_APIENTRY crStateGetProgramNamedParameterdvNV(GLuint id, GLsizei len, const GLubyte *name, GLdouble *params)
  {
      GLfloat floatParams[4];
      crStateGetProgramNamedParameterfvNV(id, len, name, floatParams);
      params[0] = floatParams[0];
      params[1] = floatParams[1];
      params[2] = floatParams[2];
      params[3] = floatParams[3];
  }
  
  
  void STATE_APIENTRY crStateProgramLocalParameter4dARB(GLenum target, GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w)
  {
      crStateProgramLocalParameter4fARB(target, index, (GLfloat) x, (GLfloat) y, (GLfloat) z, (GLfloat) w);
  }
  
  
  void STATE_APIENTRY crStateProgramLocalParameter4dvARB(GLenum target, GLuint index, const GLdouble *params)
  {
      crStateProgramLocalParameter4fARB(target, index, (GLfloat) params[0], (GLfloat) params[1],
                                                                          (GLfloat) params[2], (GLfloat) params[3]);
  }
  
  
  void STATE_APIENTRY crStateProgramLocalParameter4fARB(GLenum target, GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRProgram *prog;
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramLocalParameterARB called in Begin/End");
          return;
      }
  
      if (target == GL_FRAGMENT_PROGRAM_ARB || target == GL_FRAGMENT_PROGRAM_NV) {
          if (index >= CR_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMS) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glProgramLocalParameterARB(index)");
              return;
          }
          prog = p->currentFragmentProgram;
      }
      else if (target == GL_VERTEX_PROGRAM_ARB) {
          if (index >= CR_MAX_VERTEX_PROGRAM_LOCAL_PARAMS) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glProgramLocalParameterARB(index)");
              return;
          }
          prog = p->currentVertexProgram;
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glProgramLocalParameterARB(target)");
          return;
      }
  
      CRASSERT(prog);
  
      prog->parameters[index][0] = x;
      prog->parameters[index][1] = y;
      prog->parameters[index][2] = z;
      prog->parameters[index][3] = w;
      DIRTY(prog->dirtyParam[index], g->neg_bitid);
      DIRTY(prog->dirtyParams, g->neg_bitid);
      DIRTY(pb->dirty, g->neg_bitid);
  }
  
  
  void STATE_APIENTRY crStateProgramLocalParameter4fvARB(GLenum target, GLuint index, const GLfloat *params)
  {
      crStateProgramLocalParameter4fARB(target, index, params[0], params[1], params[2], params[3]);
  }
  
  
  void STATE_APIENTRY crStateGetProgramLocalParameterfvARB(GLenum target, GLuint index, GLfloat *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      const CRProgram *prog = NULL;
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramLocalParameterARB called in Begin/End");
          return;
      }
  
      if (target == GL_FRAGMENT_PROGRAM_ARB || target == GL_FRAGMENT_PROGRAM_NV) {
          prog = p->currentFragmentProgram;
          if (index >= g->limits.maxFragmentProgramLocalParams) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glGetProgramLocalParameterARB(index)");
              return;
          }
      }
      else if (   target == GL_VERTEX_PROGRAM_ARB
  #if GL_VERTEX_PROGRAM_ARB != GL_VERTEX_PROGRAM_NV
               || target == GL_VERTEX_PROGRAM_NV
  #endif
              ) {
          prog = p->currentVertexProgram;
          if (index >= g->limits.maxVertexProgramLocalParams) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glGetProgramLocalParameterARB(index)");
              return;
          }
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramLocalParameterARB(target)");
          return;
      }
      if (!prog) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramLocalParameterARB(no program)");
          return;
      }
  
      if (!prog) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramLocalParameterARB(no program)");
          return;
      }
  
      CRASSERT(prog);
      CRASSERT(index < CR_MAX_PROGRAM_LOCAL_PARAMS);
      params[0] = prog->parameters[index][0];
      params[1] = prog->parameters[index][1];
      params[2] = prog->parameters[index][2];
      params[3] = prog->parameters[index][3];
  }
  
  
  void STATE_APIENTRY crStateGetProgramLocalParameterdvARB(GLenum target, GLuint index, GLdouble *params)
  {
      GLfloat floatParams[4];
      crStateGetProgramLocalParameterfvARB(target, index, floatParams);
      params[0] = floatParams[0];
      params[1] = floatParams[1];
      params[2] = floatParams[2];
      params[3] = floatParams[3];
  }
  
  
  
  void STATE_APIENTRY crStateGetProgramivARB(GLenum target, GLenum pname, GLint *params)
  {
      CRProgram *prog;
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramivARB called in Begin/End");
          return;
      }
  
      if (target == GL_VERTEX_PROGRAM_ARB) {
          prog = p->currentVertexProgram;
      }
      else if (target == GL_FRAGMENT_PROGRAM_ARB) {
          prog = p->currentFragmentProgram;
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramivARB(target)");
          return;
      }
  
      CRASSERT(prog);
  
      switch (pname) {
      case GL_PROGRAM_LENGTH_ARB:
          *params = prog->length;
          break;
      case GL_PROGRAM_FORMAT_ARB:
          *params = prog->format;
          break;
      case GL_PROGRAM_BINDING_ARB:
          *params = prog->id;
          break;
      case GL_PROGRAM_INSTRUCTIONS_ARB:
          *params = prog->numInstructions;
          break;
      case GL_MAX_PROGRAM_INSTRUCTIONS_ARB:
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramInstructions;
          else
              *params = g->limits.maxFragmentProgramInstructions;
          break;
      case GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB:
          *params = prog->numInstructions;
          break;
      case GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB:
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramInstructions;
          else
              *params = g->limits.maxFragmentProgramInstructions;
          break;
      case GL_PROGRAM_TEMPORARIES_ARB:
          *params = prog->numTemporaries;
          break;
      case GL_MAX_PROGRAM_TEMPORARIES_ARB:
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramTemps;
          else
              *params = g->limits.maxFragmentProgramTemps;
          break;
      case GL_PROGRAM_NATIVE_TEMPORARIES_ARB:
          /* XXX same as GL_PROGRAM_TEMPORARIES_ARB? */
          *params = prog->numTemporaries;
          break;
      case GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB:
          /* XXX same as GL_MAX_PROGRAM_TEMPORARIES_ARB? */
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramTemps;
          else
              *params = g->limits.maxFragmentProgramTemps;
          break;
      case GL_PROGRAM_PARAMETERS_ARB:
          *params = prog->numParameters;
          break;
      case GL_MAX_PROGRAM_PARAMETERS_ARB:
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramLocalParams;
          else
              *params = g->limits.maxFragmentProgramLocalParams;
          break;
      case GL_PROGRAM_NATIVE_PARAMETERS_ARB:
          /* XXX same as GL_MAX_PROGRAM_PARAMETERS_ARB? */
          *params = prog->numParameters;
          break;
      case GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB:
          /* XXX same as GL_MAX_PROGRAM_PARAMETERS_ARB? */
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramLocalParams;
          else
              *params = g->limits.maxFragmentProgramLocalParams;
          break;
      case GL_PROGRAM_ATTRIBS_ARB:
          *params = prog->numAttributes;
          break;
      case GL_MAX_PROGRAM_ATTRIBS_ARB:
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramAttribs;
          else
              *params = g->limits.maxFragmentProgramAttribs;
          break;
      case GL_PROGRAM_NATIVE_ATTRIBS_ARB:
          /* XXX same as GL_PROGRAM_ATTRIBS_ARB? */
          *params = prog->numAttributes;
          break;
      case GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB:
          /* XXX same as GL_MAX_PROGRAM_ATTRIBS_ARB? */
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramAttribs;
          else
              *params = g->limits.maxFragmentProgramAttribs;
          break;
      case GL_PROGRAM_ADDRESS_REGISTERS_ARB:
          *params = prog->numAddressRegs;
          break;
      case GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB:
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramAddressRegs;
          else
              *params = g->limits.maxFragmentProgramAddressRegs;
          break;
      case GL_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB:
          /* XXX same as GL_PROGRAM_ADDRESS_REGISTERS_ARB? */
          *params = prog->numAddressRegs;
          break;
      case GL_MAX_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB:
          /* XXX same as GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB? */
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramAddressRegs;
          else
              *params = g->limits.maxFragmentProgramAddressRegs;
          break;
      case GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB:
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramLocalParams;
          else
              *params = g->limits.maxFragmentProgramLocalParams;
          break;
      case GL_MAX_PROGRAM_ENV_PARAMETERS_ARB:
          if (target == GL_VERTEX_PROGRAM_ARB)
              *params = g->limits.maxVertexProgramEnvParams;
          else
              *params = g->limits.maxFragmentProgramEnvParams;
          break;
      case GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB:
          /* XXX ok? */
          *params = GL_TRUE;
          break;
  
      /*
       * These are for fragment programs only
       */
      case GL_PROGRAM_ALU_INSTRUCTIONS_ARB:
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = prog->numAluInstructions;
          break;
      case GL_PROGRAM_TEX_INSTRUCTIONS_ARB:
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = prog->numTexInstructions;
          break;
      case GL_PROGRAM_TEX_INDIRECTIONS_ARB:
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = prog->numTexIndirections;
          break;
      case GL_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB:
          /* XXX same as GL_PROGRAM_ALU_INSTRUCTIONS_ARB? */
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = prog->numAluInstructions;
          break;
      case GL_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB:
          /* XXX same as GL_PROGRAM_ALU_INSTRUCTIONS_ARB? */
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = prog->numTexInstructions;
          break;
      case GL_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB:
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = prog->numTexIndirections;
          break;
      case GL_MAX_PROGRAM_ALU_INSTRUCTIONS_ARB:
      case GL_MAX_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB:
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = g->limits.maxFragmentProgramAluInstructions;
          break;
      case GL_MAX_PROGRAM_TEX_INSTRUCTIONS_ARB:
      case GL_MAX_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB:
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = g->limits.maxFragmentProgramTexInstructions;
          break;
      case GL_MAX_PROGRAM_TEX_INDIRECTIONS_ARB:
      case GL_MAX_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB:
          if (target != GL_FRAGMENT_PROGRAM_ARB || !g->extensions.ARB_fragment_program) {
              crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                       "crStateGetProgramivARB(target or pname)");
              return;
          }
          *params = g->limits.maxFragmentProgramTexIndirections;
          break;
      default:
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "crStateGetProgramivARB(pname)");
          return;
      }
  }
  
  
  /* XXX maybe move these two functions into state_client.c? */
  void STATE_APIENTRY crStateDisableVertexAttribArrayARB(GLuint index)
  {
      CRContext *g = GetCurrentContext();
      CRClientState *c = &(g->client);
      CRStateBits *sb = GetCurrentBits();
      CRClientBits *cb = &(sb->client);
  
      if (index >= g->limits.maxVertexProgramAttribs) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                   "glDisableVertexAttribArrayARB(index)");
          return;
      }
      c->array.a[index].enabled = GL_FALSE;
      DIRTY(cb->dirty, g->neg_bitid);
      DIRTY(cb->enableClientState, g->neg_bitid);
  }
  
  
  void STATE_APIENTRY crStateEnableVertexAttribArrayARB(GLuint index)
  {
      CRContext *g = GetCurrentContext();
      CRClientState *c = &(g->client);
      CRStateBits *sb = GetCurrentBits();
      CRClientBits *cb = &(sb->client);
  
      if (index >= g->limits.maxVertexProgramAttribs) {
          crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                   "glEnableVertexAttribArrayARB(index)");
          return;
      }
      c->array.a[index].enabled = GL_TRUE;
      DIRTY(cb->dirty, g->neg_bitid);
      DIRTY(cb->enableClientState, g->neg_bitid);
  }
  
  
  void STATE_APIENTRY crStateGetProgramEnvParameterdvARB(GLenum target, GLuint index, GLdouble *params)
  {
       GLfloat fparams[4];
       crStateGetProgramEnvParameterfvARB(target, index, fparams);
       params[0] = fparams[0];
       params[1] = fparams[1];
       params[2] = fparams[2];
       params[3] = fparams[3];
  }
  
  void STATE_APIENTRY crStateGetProgramEnvParameterfvARB(GLenum target, GLuint index, GLfloat *params)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glGetProgramEnvParameterARB called in Begin/End");
          return;
      }
  
      if (target == GL_FRAGMENT_PROGRAM_ARB || target == GL_FRAGMENT_PROGRAM_NV) {
          if (index >= g->limits.maxFragmentProgramEnvParams) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glGetProgramEnvParameterARB(index)");
              return;
          }
          params[0] = p->fragmentParameters[index][0];
          params[1] = p->fragmentParameters[index][1];
          params[2] = p->fragmentParameters[index][2];
          params[3] = p->fragmentParameters[index][3];
      }
      else if (   target == GL_VERTEX_PROGRAM_ARB
  #if GL_VERTEX_PROGRAM_ARB != GL_VERTEX_PROGRAM_NV
               || target == GL_VERTEX_PROGRAM_NV
  #endif
               ) {
          if (index >= g->limits.maxVertexProgramEnvParams) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glGetProgramEnvParameterARB(index)");
              return;
          }
          params[0] = p->vertexParameters[index][0];
          params[1] = p->vertexParameters[index][1];
          params[2] = p->vertexParameters[index][2];
          params[3] = p->vertexParameters[index][3];
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glGetProgramEnvParameterARB(target)");
          return;
      }
  }
  
  
  void STATE_APIENTRY crStateProgramEnvParameter4dARB(GLenum target, GLuint index, GLdouble x, GLdouble y, GLdouble z, GLdouble w)
  {
       crStateProgramEnvParameter4fARB(target, index, (GLfloat) x, (GLfloat) y, (GLfloat) z, (GLfloat) w);
  }
  
  void STATE_APIENTRY crStateProgramEnvParameter4dvARB(GLenum target, GLuint index, const GLdouble *params)
  {
       crStateProgramEnvParameter4fARB(target, index, (GLfloat) params[0], (GLfloat) params[1], (GLfloat) params[2], (GLfloat) params[3]);
  }
  
  void STATE_APIENTRY crStateProgramEnvParameter4fARB(GLenum target, GLuint index, GLfloat x, GLfloat y, GLfloat z, GLfloat w)
  {
      CRContext *g = GetCurrentContext();
      CRProgramState *p = &(g->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
  
      if (g->current.inBeginEnd) {
          crStateError(__LINE__, __FILE__, GL_INVALID_OPERATION,
                                   "glProgramEnvParameterARB called in Begin/End");
          return;
      }
  
      if (target == GL_FRAGMENT_PROGRAM_ARB || target == GL_FRAGMENT_PROGRAM_NV) {
          if (index >= g->limits.maxFragmentProgramEnvParams) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glProgramEnvParameterARB(index)");
              return;
          }
          p->fragmentParameters[index][0] = x;
          p->fragmentParameters[index][1] = y;
          p->fragmentParameters[index][2] = z;
          p->fragmentParameters[index][3] = w;
          DIRTY(pb->fragmentEnvParameter[index], g->neg_bitid);
          DIRTY(pb->fragmentEnvParameters, g->neg_bitid);
      }
      else if (   target == GL_VERTEX_PROGRAM_ARB
  #if GL_VERTEX_PROGRAM_ARB != GL_VERTEX_PROGRAM_NV
               || target == GL_VERTEX_PROGRAM_NV
  #endif
               ) {
          if (index >= g->limits.maxVertexProgramEnvParams) {
              crStateError(__LINE__, __FILE__, GL_INVALID_VALUE,
                                       "glProgramEnvParameterARB(index)");
              return;
          }
          p->vertexParameters[index][0] = x;
          p->vertexParameters[index][1] = y;
          p->vertexParameters[index][2] = z;
          p->vertexParameters[index][3] = w;
          DIRTY(pb->vertexEnvParameter[index], g->neg_bitid);
          DIRTY(pb->vertexEnvParameters, g->neg_bitid);
      }
      else {
          crStateError(__LINE__, __FILE__, GL_INVALID_ENUM,
                                   "glProgramEnvParameterARB(target)");
          return;
      }
  
      DIRTY(pb->dirty, g->neg_bitid);
  }
  
  void STATE_APIENTRY crStateProgramEnvParameter4fvARB(GLenum target, GLuint index, const GLfloat *params)
  {
       crStateProgramEnvParameter4fARB(target, index, params[0], params[1], params[2], params[3]);
  }
  
  
  /**********************************************************************/
  
  
  void crStateProgramInit( CRContext *ctx )
  {
      CRProgramState *p = &(ctx->program);
      CRStateBits *sb = GetCurrentBits();
      CRProgramBits *pb = &(sb->program);
      GLuint i;
  
      CRASSERT(CR_MAX_PROGRAM_ENV_PARAMS >= CR_MAX_VERTEX_PROGRAM_ENV_PARAMS);
      CRASSERT(CR_MAX_PROGRAM_ENV_PARAMS >= CR_MAX_FRAGMENT_PROGRAM_ENV_PARAMS);
  
      CRASSERT(CR_MAX_PROGRAM_LOCAL_PARAMS >= CR_MAX_VERTEX_PROGRAM_LOCAL_PARAMS);
      CRASSERT(CR_MAX_PROGRAM_LOCAL_PARAMS >= CR_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMS);
  
      p->programHash = crAllocHashtable();
  
      /* ARB_vertex/fragment_program define default program objects */
      p->defaultVertexProgram = GetProgram(p, GL_VERTEX_PROGRAM_ARB, 0);
      p->defaultFragmentProgram = GetProgram(p, GL_FRAGMENT_PROGRAM_ARB, 0);
  
      p->currentVertexProgram = p->defaultVertexProgram;
      p->currentFragmentProgram = p->defaultFragmentProgram;
      p->errorPos = -1;
      p->errorString = NULL;
  
      for (i = 0; i < ctx->limits.maxVertexProgramEnvParams / 4; i++) {
          p->TrackMatrix[i] = GL_NONE;
          p->TrackMatrixTransform[i] = GL_IDENTITY_NV;
      }
      for (i = 0; i < ctx->limits.maxVertexProgramEnvParams; i++) {
          p->vertexParameters[i][0] = 0.0;
          p->vertexParameters[i][1] = 0.0;
          p->vertexParameters[i][2] = 0.0;
          p->vertexParameters[i][3] = 0.0;
      }
      for (i = 0; i < CR_MAX_FRAGMENT_PROGRAM_ENV_PARAMS; i++) {
          p->fragmentParameters[i][0] = 0.0;
          p->fragmentParameters[i][1] = 0.0;
          p->fragmentParameters[i][2] = 0.0;
          p->fragmentParameters[i][3] = 0.0;
      }
  
      p->vpEnabled = GL_FALSE;
      p->fpEnabled = GL_FALSE;
      p->fpEnabledARB = GL_FALSE;
      p->vpPointSize = GL_FALSE;
      p->vpTwoSide = GL_FALSE;
      RESET(pb->dirty, ctx->bitid);
  }
  
  
  static void DeleteProgramCallback( void *data )
  {
      CRProgram *prog = (CRProgram *) data;
      DeleteProgram(prog);
  }
  
  void crStateProgramDestroy(CRContext *ctx)
  {
      CRProgramState *p = &(ctx->program);
      crFreeHashtable(p->programHash, DeleteProgramCallback);
      DeleteProgram(p->defaultVertexProgram);
      DeleteProgram(p->defaultFragmentProgram);
  }
  
  
  /* XXX it would be nice to autogenerate this, but we can't for now.
   */
  void
  crStateProgramDiff(CRProgramBits *b, CRbitvalue *bitID,
                                       CRContext *fromCtx, CRContext *toCtx)
  {
      CRProgramState *from = &(fromCtx->program);
      CRProgramState *to = &(toCtx->program);
      unsigned int i, j;
      CRbitvalue nbitID[CR_MAX_BITARRAY];
  
      CRASSERT(from->currentVertexProgram);
      CRASSERT(to->currentVertexProgram);
      CRASSERT(from->currentFragmentProgram);
      CRASSERT(to->currentFragmentProgram);
  
      for (j=0;j<CR_MAX_BITARRAY;j++)
          nbitID[j] = ~bitID[j];
  
      /* vertex program enable */
      if (CHECKDIRTY(b->vpEnable, bitID)) {
          glAble able[2];
          CRProgram *toProg = to->currentVertexProgram;
  
          able[0] = diff_api.Disable;
          able[1] = diff_api.Enable;
          if (from->vpEnabled != to->vpEnabled) {
              if (toProg->isARBprogram)
                  able[to->vpEnabled](GL_VERTEX_PROGRAM_ARB);
              else
                  able[to->vpEnabled](GL_VERTEX_PROGRAM_NV);
              from->vpEnabled = to->vpEnabled;
          }
          if (from->vpTwoSide != to->vpTwoSide) {
              able[to->vpTwoSide](GL_VERTEX_PROGRAM_TWO_SIDE_NV);
              from->vpTwoSide = to->vpTwoSide;
          }
          if (from->vpPointSize != to->vpPointSize) {
              able[to->vpPointSize](GL_VERTEX_PROGRAM_POINT_SIZE_NV);
              from->vpPointSize = to->vpPointSize;
          }
          CLEARDIRTY(b->vpEnable, nbitID);
      }
  
      /* fragment program enable */
      if (CHECKDIRTY(b->fpEnable, bitID)) {
          glAble able[2];
          able[0] = diff_api.Disable;
          able[1] = diff_api.Enable;
          if (from->fpEnabled != to->fpEnabled) {
              able[to->fpEnabled](GL_FRAGMENT_PROGRAM_NV);
              from->fpEnabled = to->fpEnabled;
          }
          if (from->fpEnabledARB != to->fpEnabledARB) {
              able[to->fpEnabledARB](GL_FRAGMENT_PROGRAM_ARB);
              from->fpEnabledARB = to->fpEnabledARB;
          }
          CLEARDIRTY(b->fpEnable, nbitID);
      }
  
      /* program/track matrices */
      if (to->vpEnabled) {
          for (i = 0; i < toCtx->limits.maxVertexProgramEnvParams / 4; i++) {
              if (CHECKDIRTY(b->trackMatrix[i], bitID))   {
                  if (from->TrackMatrix[i] != to->TrackMatrix[i] ||
                          from->TrackMatrixTransform[i] != to->TrackMatrixTransform[i])   {
                      diff_api.TrackMatrixNV(GL_VERTEX_PROGRAM_NV, i * 4,
                                                                   to->TrackMatrix[i],
                                                                   to->TrackMatrixTransform[i]);
                      from->TrackMatrix[i] = to->TrackMatrix[i];
                      from->TrackMatrixTransform[i] = to->TrackMatrixTransform[i];
                  }
                  CLEARDIRTY(b->trackMatrix[i], nbitID);
              }
          }
      }
  
      if (to->vpEnabled) {
          /* vertex program binding */
          CRProgram *fromProg = from->currentVertexProgram;
          CRProgram *toProg = to->currentVertexProgram;
  
          if (CHECKDIRTY(b->vpBinding, bitID)) {
              if (fromProg->id != toProg->id) {
                  if (toProg->isARBprogram)
                      diff_api.BindProgramARB(GL_VERTEX_PROGRAM_ARB, toProg->id);
                  else
                      diff_api.BindProgramNV(GL_VERTEX_PROGRAM_NV, toProg->id);
                  from->currentVertexProgram = toProg;
              }
              CLEARDIRTY(b->vpBinding, nbitID);
          }
  
          if (toProg) {
              /* vertex program text */
              if (CHECKDIRTY(toProg->dirtyProgram, bitID)) {
                  if (toProg->isARBprogram) {
                      diff_api.ProgramStringARB( GL_VERTEX_PROGRAM_ARB, toProg->format, toProg->length, toProg->string );
                  }
                  else {
                      diff_api.LoadProgramNV( GL_VERTEX_PROGRAM_NV, toProg->id, toProg->length, toProg->string );
                  }
                  CLEARDIRTY(toProg->dirtyProgram, nbitID);
              }
  
              /* vertex program global/env parameters */
              if (CHECKDIRTY(b->vertexEnvParameters, bitID)) {
                  for (i = 0; i < toCtx->limits.maxVertexProgramEnvParams; i++) {
                      if (CHECKDIRTY(b->vertexEnvParameter[i], bitID)) {
                          if (toProg->isARBprogram)
                              diff_api.ProgramEnvParameter4fvARB(GL_VERTEX_PROGRAM_ARB, i,
                                                                                                   to->vertexParameters[i]);
                          else
                              diff_api.ProgramParameter4fvNV(GL_VERTEX_PROGRAM_NV, i,
                                                                                           to->vertexParameters[i]);
                          if (fromProg) {
                              COPY_4V(from->vertexParameters[i],
                                              to->vertexParameters[i]);
                          }
                          CLEARDIRTY(b->vertexEnvParameter[i], nbitID);
                      }
                  }
                  CLEARDIRTY(b->vertexEnvParameters, nbitID);
              }
  
              /* vertex program local parameters */
              if (CHECKDIRTY(toProg->dirtyParams, bitID)) {
                  for (i = 0; i < toCtx->limits.maxVertexProgramLocalParams; i++) {
                      if (CHECKDIRTY(toProg->dirtyParam[i], bitID)) {
                          if (toProg->isARBprogram)
                              diff_api.ProgramLocalParameter4fvARB(GL_VERTEX_PROGRAM_ARB, i, toProg->parameters[i]);
                          else
                              diff_api.ProgramLocalParameter4fvARB(GL_VERTEX_PROGRAM_NV, i, toProg->parameters[i]);
                          CLEARDIRTY(toProg->dirtyParam[i], nbitID);
                      }
                  }
                  CLEARDIRTY(toProg->dirtyParams, nbitID);
              }
          }
      }
  
      /*
       * Separate paths for NV vs ARB fragment program
       */
      if (to->fpEnabled) {
          /* NV fragment program binding */
          CRProgram *fromProg = from->currentFragmentProgram;
          CRProgram *toProg = to->currentFragmentProgram;
          if (CHECKDIRTY(b->fpBinding, bitID)) {
              if (fromProg->id != toProg->id) {
                  diff_api.BindProgramNV(GL_FRAGMENT_PROGRAM_NV, toProg->id);
                  from->currentFragmentProgram = toProg;
              }
              CLEARDIRTY(b->fpBinding, nbitID);
          }
  
          if (toProg) {
              /* fragment program text */
              if (CHECKDIRTY(toProg->dirtyProgram, bitID)) {
                  diff_api.LoadProgramNV( GL_FRAGMENT_PROGRAM_NV, toProg->id,
                                                                  toProg->length, toProg->string );
                  CLEARDIRTY(toProg->dirtyProgram, nbitID);
              }
  
              /* fragment program global/env parameters */
              if (CHECKDIRTY(b->fragmentEnvParameters, bitID)) {
                  for (i = 0; i < toCtx->limits.maxFragmentProgramEnvParams; i++) {
                      if (CHECKDIRTY(b->fragmentEnvParameter[i], bitID)) {
                          diff_api.ProgramParameter4fvNV(GL_FRAGMENT_PROGRAM_NV, i,
                                                                                       to->fragmentParameters[i]);
                          if (fromProg) {
                              COPY_4V(from->fragmentParameters[i],
                                              to->fragmentParameters[i]);
                          }
                          CLEARDIRTY(b->fragmentEnvParameter[i], nbitID);
                      }
                  }
                  CLEARDIRTY(b->fragmentEnvParameters, nbitID);
              }
  
              /* named local parameters */
              if (CHECKDIRTY(toProg->dirtyNamedParams, bitID)) {
                   CRProgramSymbol *symbol;
                  for (symbol = toProg->symbolTable; symbol; symbol = symbol->next) {
                      if (CHECKDIRTY(symbol->dirty, bitID)) {
                          GLint len = crStrlen(symbol->name);
                          diff_api.ProgramNamedParameter4fvNV(toProg->id, len,
                                                              (const GLubyte *) symbol->name,
                                                              symbol->value);
                          if (fromProg) {
                               SetProgramSymbol(fromProg, symbol->name, len,
                                                symbol->value[0], symbol->value[1],
                                                symbol->value[2], symbol->value[3]);
                          }
                          CLEARDIRTY(symbol->dirty, nbitID);
                      }
                  }
                  CLEARDIRTY(toProg->dirtyNamedParams, nbitID);
              }
  
              /* numbered local parameters */
              if (CHECKDIRTY(toProg->dirtyParams, bitID)) {
                  for (i = 0; i < CR_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMS; i++) {
                      if (CHECKDIRTY(toProg->dirtyParam[i], bitID)) {
                          diff_api.ProgramLocalParameter4fvARB(GL_FRAGMENT_PROGRAM_NV, i,
                                                                                                   toProg->parameters[i]);
                          if (fromProg) {
                              COPY_4V(fromProg->parameters[i], toProg->parameters[i]);
                          }
                          CLEARDIRTY(toProg->dirtyParam[i], nbitID);
                      }
                  }
                  CLEARDIRTY(toProg->dirtyParams, nbitID);
              }
          }
      }
      else if (to->fpEnabledARB) {
          /* ARB fragment program binding */
          CRProgram *fromProg = from->currentFragmentProgram;
          CRProgram *toProg = to->currentFragmentProgram;
          if (CHECKDIRTY(b->fpBinding, bitID)) {
              if (fromProg->id != toProg->id) {
                  diff_api.BindProgramARB(GL_FRAGMENT_PROGRAM_ARB, toProg->id);
                  from->currentFragmentProgram = toProg;
              }
              CLEARDIRTY(b->fpBinding, nbitID);
          }
  
          if (toProg) {
              /* fragment program text */
              if (CHECKDIRTY(toProg->dirtyProgram, bitID)) {
                  diff_api.ProgramStringARB( GL_FRAGMENT_PROGRAM_ARB, toProg->format,
                                                                           toProg->length, toProg->string );
                  CLEARDIRTY(toProg->dirtyProgram, nbitID);
              }
  
              /* fragment program global/env parameters */
              if (CHECKDIRTY(b->fragmentEnvParameters, bitID)) {
                  for (i = 0; i < toCtx->limits.maxFragmentProgramEnvParams; i++) {
                      if (CHECKDIRTY(b->fragmentEnvParameter[i], bitID)) {
                          diff_api.ProgramEnvParameter4fvARB(GL_FRAGMENT_PROGRAM_ARB, i,
                                                                                               to->fragmentParameters[i]);
                          if (fromProg) {
                              COPY_4V(from->fragmentParameters[i],
                                              to->fragmentParameters[i]);
                          }
                          CLEARDIRTY(b->fragmentEnvParameter[i], nbitID);
                      }
                  }
                  CLEARDIRTY(b->fragmentEnvParameters, nbitID);
              }
  
              /* numbered local parameters */
              if (CHECKDIRTY(toProg->dirtyParams, bitID)) {
                  for (i = 0; i < CR_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMS; i++) {
                      if (CHECKDIRTY(toProg->dirtyParam[i], bitID)) {
                          diff_api.ProgramLocalParameter4fvARB(GL_FRAGMENT_PROGRAM_ARB, i,
                                                                                                   toProg->parameters[i]);
                          if (fromProg) {
                              COPY_4V(fromProg->parameters[i], toProg->parameters[i]);
                          }
                          CLEARDIRTY(toProg->dirtyParam[i], nbitID);
                      }
                  }
                  CLEARDIRTY(toProg->dirtyParams, nbitID);
              }
          }
      }
  
      CLEARDIRTY(b->dirty, nbitID);
  }
  
  
  void
  crStateProgramSwitch(CRProgramBits *b, CRbitvalue *bitID,
                                           CRContext *fromCtx, CRContext *toCtx)
  {
      CRProgramState *from = &(fromCtx->program);
      CRProgramState *to = &(toCtx->program);
      unsigned int i, j;
      CRbitvalue nbitID[CR_MAX_BITARRAY];
      GLenum whichVert = fromCtx->extensions.ARB_vertex_program && toCtx->extensions.ARB_vertex_program  ? GL_VERTEX_PROGRAM_ARB : GL_VERTEX_PROGRAM_NV;
  
  
      for (j=0;j<CR_MAX_BITARRAY;j++)
          nbitID[j] = ~bitID[j];
  
      /* vertex program enable */
      if (CHECKDIRTY(b->vpEnable, bitID)) {
          glAble able[2];
          able[0] = diff_api.Disable;
          able[1] = diff_api.Enable;
          if (from->vpEnabled != to->vpEnabled) {
              able[to->vpEnabled](whichVert);
          }
          if (from->vpTwoSide != to->vpTwoSide) {
              able[to->vpTwoSide](GL_VERTEX_PROGRAM_TWO_SIDE_NV);
          }
          if (from->vpPointSize != to->vpPointSize) {
              able[to->vpPointSize](GL_VERTEX_PROGRAM_POINT_SIZE_NV);
          }
          DIRTY(b->vpEnable, nbitID);
      }
  
      /* fragment program enable */
      if (CHECKDIRTY(b->fpEnable, bitID)) {
          glAble able[2];
          able[0] = diff_api.Disable;
          able[1] = diff_api.Enable;
          if (from->fpEnabled != to->fpEnabled) {
              able[to->fpEnabled](GL_FRAGMENT_PROGRAM_NV);
          }
          if (from->fpEnabledARB != to->fpEnabledARB) {
              able[to->fpEnabledARB](GL_FRAGMENT_PROGRAM_ARB);
          }
          DIRTY(b->fpEnable, nbitID);
      }
  
      /* program/track matrices */
      if (to->vpEnabled) {
          for (i = 0; i < toCtx->limits.maxVertexProgramEnvParams / 4; i++) {
              if (CHECKDIRTY(b->trackMatrix[i], bitID))   {
                  if (from->TrackMatrix[i] != to->TrackMatrix[i]) {
                      diff_api.TrackMatrixNV(GL_VERTEX_PROGRAM_NV, i * 4,
                                                                   to->TrackMatrix[i],
                                                                   to->TrackMatrixTransform[i]);
                  }
                  DIRTY(b->trackMatrix[i], nbitID);
              }
          }
      }
  
      if (to->vpEnabled) {
          /* vertex program binding */
          CRProgram *fromProg = from->currentVertexProgram;
          CRProgram *toProg = to->currentVertexProgram;
          if (CHECKDIRTY(b->vpBinding, bitID)) {
              if (fromProg->id != toProg->id) {
                  if (toProg->isARBprogram)
                      diff_api.BindProgramARB(GL_VERTEX_PROGRAM_ARB, toProg->id);
                  else
                      diff_api.BindProgramNV(GL_VERTEX_PROGRAM_NV, toProg->id);
              }
              DIRTY(b->vpBinding, nbitID);
          }
  
          if (toProg) {
              /* vertex program text */
              if (CHECKDIRTY(toProg->dirtyProgram, bitID)) {
                  if (toProg->isARBprogram)
                      diff_api.ProgramStringARB(GL_VERTEX_PROGRAM_ARB, toProg->format, toProg->length, toProg->string);
                  else
                      diff_api.LoadProgramNV(GL_VERTEX_PROGRAM_NV, toProg->id, toProg->length, toProg->string);
  
                  DIRTY(toProg->dirtyProgram, nbitID);
              }
  
              /* vertex program global/env parameters */
              if (CHECKDIRTY(b->vertexEnvParameters, bitID)) {
                  for (i = 0; i < toCtx->limits.maxVertexProgramEnvParams; i++) {
                      if (CHECKDIRTY(b->vertexEnvParameter[i], bitID)) {
                          if (toProg->isARBprogram)
                              diff_api.ProgramEnvParameter4fvARB(GL_VERTEX_PROGRAM_ARB, i, to->vertexParameters[i]);
                          else
                              diff_api.ProgramParameter4fvNV(GL_VERTEX_PROGRAM_NV, i, to->vertexParameters[i]);
  
                          DIRTY(b->vertexEnvParameter[i], nbitID);
                      }
                  }
                  DIRTY(b->vertexEnvParameters, nbitID);
              }
  
              /* vertex program local parameters */
              if (CHECKDIRTY(toProg->dirtyParams, bitID)) {
                  for (i = 0; i < toCtx->limits.maxVertexProgramLocalParams; i++) {
                      if (CHECKDIRTY(toProg->dirtyParam[i], bitID)) {
  
  
                          if (toProg->isARBprogram)
                              diff_api.ProgramLocalParameter4fvARB(GL_VERTEX_PROGRAM_ARB, i, toProg->parameters[i]);
                          else
                              diff_api.ProgramLocalParameter4fvARB(GL_VERTEX_PROGRAM_NV, i, toProg->parameters[i]);
                      }
                  }
                  DIRTY(toProg->dirtyParams, nbitID);
              }
          }
      }
  
      /*
       * Separate paths for NV vs ARB fragment program
       */
      if (to->fpEnabled) {
          /* NV fragment program binding */
          CRProgram *fromProg = from->currentFragmentProgram;
          CRProgram *toProg = to->currentFragmentProgram;
          if (CHECKDIRTY(b->fpBinding, bitID)) {
              if (fromProg->id != toProg->id) {
                  diff_api.BindProgramNV(GL_FRAGMENT_PROGRAM_NV, toProg->id);
              }
              DIRTY(b->fpBinding, nbitID);
          }
  
          if (toProg) {
              /* fragment program text */
              if (CHECKDIRTY(toProg->dirtyProgram, bitID)) {
                  diff_api.LoadProgramNV(GL_FRAGMENT_PROGRAM_NV, toProg->id, toProg->length, toProg->string);
                  DIRTY(toProg->dirtyProgram, nbitID);
              }
  
              /* fragment program global/env parameters */
              if (CHECKDIRTY(b->fragmentEnvParameters, bitID)) {
                  for (i = 0; i < toCtx->limits.maxFragmentProgramEnvParams; i++) {
                      if (CHECKDIRTY(b->fragmentEnvParameter[i], bitID)) {
                          diff_api.ProgramParameter4fvNV(GL_FRAGMENT_PROGRAM_NV, i,
                                                         to->fragmentParameters[i]);
                          DIRTY(b->fragmentEnvParameter[i], nbitID);
                      }
                  }
                  DIRTY(b->fragmentEnvParameters, nbitID);
              }
  
              /* named local parameters */
              if (CHECKDIRTY(toProg->dirtyNamedParams, bitID)) {
                   CRProgramSymbol *symbol;
                  for (symbol = toProg->symbolTable; symbol; symbol = symbol->next) {
                      if (CHECKDIRTY(symbol->dirty, bitID)) {
                          GLint len = crStrlen(symbol->name);
                          diff_api.ProgramNamedParameter4fvNV(toProg->id, len,
                                                              (const GLubyte *) symbol->name,
                                                              symbol->value);
                          DIRTY(symbol->dirty, nbitID);
                      }
                  }
                  DIRTY(toProg->dirtyNamedParams, nbitID);
              }
  
              /* numbered local parameters */
              if (CHECKDIRTY(toProg->dirtyParams, bitID)) {
                  for (i = 0; i < CR_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMS; i++) {
                      if (CHECKDIRTY(toProg->dirtyParam[i], bitID)) {
                          if (toProg->isARBprogram)
                              diff_api.ProgramLocalParameter4fvARB(GL_FRAGMENT_PROGRAM_ARB, i, toProg->parameters[i]);
                          else
                              diff_api.ProgramLocalParameter4fvARB(GL_FRAGMENT_PROGRAM_NV, i, toProg->parameters[i]);
                      }
                  }
                  DIRTY(toProg->dirtyParams, nbitID);
              }
          }
      }
      else if (to->fpEnabledARB) {
          /* ARB fragment program binding */
          CRProgram *fromProg = from->currentFragmentProgram;
          CRProgram *toProg = to->currentFragmentProgram;
          if (CHECKDIRTY(b->fpBinding, bitID)) {
              if (fromProg->id != toProg->id) {
                  diff_api.BindProgramARB(GL_FRAGMENT_PROGRAM_ARB, toProg->id);
              }
              DIRTY(b->fpBinding, nbitID);
          }
  
          if (toProg) {
              /* fragment program text */
              if (CHECKDIRTY(toProg->dirtyProgram, bitID)) {
                  diff_api.ProgramStringARB(GL_FRAGMENT_PROGRAM_ARB, toProg->format, toProg->length, toProg->string);
                  DIRTY(toProg->dirtyProgram, nbitID);
              }
  
              /* fragment program global/env parameters */
              if (CHECKDIRTY(b->fragmentEnvParameters, bitID)) {
                  for (i = 0; i < toCtx->limits.maxFragmentProgramEnvParams; i++) {
                      if (CHECKDIRTY(b->fragmentEnvParameter[i], bitID)) {
                          diff_api.ProgramEnvParameter4fvARB(GL_FRAGMENT_PROGRAM_ARB, i, to->fragmentParameters[i]);
                          DIRTY(b->fragmentEnvParameter[i], nbitID);
                      }
                  }
                  DIRTY(b->fragmentEnvParameters, nbitID);
              }
  
              /* numbered local parameters */
              if (CHECKDIRTY(toProg->dirtyParams, bitID)) {
                  for (i = 0; i < CR_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMS; i++) {
                      if (CHECKDIRTY(toProg->dirtyParam[i], bitID)) {
                          diff_api.ProgramLocalParameter4fvARB(GL_FRAGMENT_PROGRAM_ARB, i, toProg->parameters[i]);
                          DIRTY(toProg->dirtyParam[i], nbitID);
                      }
                  }
                  DIRTY(toProg->dirtyParams, nbitID);
              }
          }
      }
  
      DIRTY(b->dirty, nbitID);
  
      /* Resend program data */
      if (toCtx->program.bResyncNeeded)
      {
          toCtx->program.bResyncNeeded = GL_FALSE;
  
          crStateDiffAllPrograms(toCtx, bitID, GL_TRUE);
      }
  }
  
  /** @todo support NVprograms and add some data validity checks*/
  static void
  DiffProgramCallback(unsigned long key, void *pProg, void *pCtx)
  {
      CRContext *pContext = (CRContext *) pCtx;
      CRProgram *pProgram = (CRProgram *) pProg;
      uint32_t i;
      (void)key;
  
      if (pProgram->isARBprogram)
      {
          diff_api.BindProgramARB(pProgram->target, pProgram->id);
          diff_api.ProgramStringARB(pProgram->target, pProgram->format, pProgram->length, pProgram->string);
  
          if (GL_VERTEX_PROGRAM_ARB == pProgram->target)
          {
              /* vertex program global/env parameters */
              for (i = 0; i < pContext->limits.maxVertexProgramEnvParams; i++) 
              {
                  diff_api.ProgramEnvParameter4fvARB(GL_VERTEX_PROGRAM_ARB, i, pContext->program.vertexParameters[i]);
              }
              /* vertex program local parameters */
              for (i = 0; i < pContext->limits.maxVertexProgramLocalParams; i++) 
              {
                  diff_api.ProgramLocalParameter4fvARB(GL_VERTEX_PROGRAM_ARB, i, pProgram->parameters[i]);
              }
          }
          else if (GL_FRAGMENT_PROGRAM_ARB == pProgram->target)
          {
              /* vertex program global/env parameters */
              for (i = 0; i < pContext->limits.maxFragmentProgramEnvParams; i++) 
              {
                  diff_api.ProgramEnvParameter4fvARB(GL_FRAGMENT_PROGRAM_ARB, i, pContext->program.fragmentParameters[i]);
              }
              /* vertex program local parameters */
              for (i = 0; i < CR_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMS; i++) 
              {
                  diff_api.ProgramLocalParameter4fvARB(GL_FRAGMENT_PROGRAM_ARB, i, pProgram->parameters[i]);
              }
          }
          else
          {
              crError("Unexpected program target");
          }
      }
      else
      {
          diff_api.BindProgramNV(pProgram->target, pProgram->id);
      }
  }
  
  void crStateDiffAllPrograms(CRContext *g, CRbitvalue *bitID, GLboolean bForceUpdate)
  {
      CRProgram *pOrigVP, *pOrigFP;
  
      (void) bForceUpdate; (void)bitID;
  
      /* save original bindings */
      pOrigVP = g->program.currentVertexProgram;
      pOrigFP = g->program.currentFragmentProgram;
  
      crHashtableWalk(g->program.programHash, DiffProgramCallback, g);
  
      /* restore original bindings */
      if (pOrigVP->isARBprogram)
          diff_api.BindProgramARB(pOrigVP->target, pOrigVP->id);
      else
          diff_api.BindProgramNV(pOrigVP->target, pOrigVP->id);
  
      if (pOrigFP->isARBprogram)
          diff_api.BindProgramARB(pOrigFP->target, pOrigFP->id);
      else
          diff_api.BindProgramNV(pOrigFP->target, pOrigFP->id);
  }
  