/*
 * Mesa 3-D graphics library
 * Version:  6.2
 *
 * Copyright (C) 1999-2004  Brian Paul   All Rights Reserved.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included
 * in all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
 * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 */

#define DEBUG_VP 0

/**
 * \file arbvertparse.c
 * ARB_vertex_program parser.
 * \author Karl Rasche
 */

#include "glheader.h"
#include "context.h"
#include "arbvertparse.h"
#include "hash.h"
#include "imports.h"
#include "macros.h"
#include "mtypes.h"
#include "program.h"
#include "nvprogram.h"
#include "nvvertparse.h"
#include "nvvertprog.h"

#include "arbprogparse.h"


/**
 * XXX this is probably redundant.  We've already got code like this
 * in the nvvertparse.c file.  Combine/clean-up someday.
 */
void _mesa_debug_vp_inst(GLint num, struct vp_instruction *vp)
{
   GLint a;
   static const char *opcode_string[] = {
      "ABS",
      "ADD",
      "ARL",
      "DP3",
      "DP4",
      "DPH",
      "DST",
      "END",		/* Placeholder */
      "EX2",		/* ARB only */
      "EXP",
      "FLR",		/* ARB */
      "FRC",		/* ARB */
      "LG2",		/* ARB only */
      "LIT",
      "LOG",
      "MAD",
      "MAX",
      "MIN",
      "MOV",
      "MUL",
      "POW",		/* ARB only */
      "PRINT",		/* Mesa only */
      "RCC",
      "RCP",
      "RSQ",
      "SGE",
      "SLT",
      "SUB",
      "SWZ",		/* ARB only */
      "XPD"		/* ARB only */
   };

   static const char *file_string[] = {
      "TEMP",
      "INPUT",
      "OUTPUT",
      "LOCAL",
      "ENV",
      "NAMED",
      "STATE",
      "WRITE_ONLY",
      "ADDR"
   };

   static const char swz[] = "xyzw01??";

   for (a=0; a<num; a++) {
      _mesa_printf("%s", opcode_string[vp[a].Opcode]);

      if (vp[a].DstReg.File != 0xf) {
	 if (vp[a].DstReg.WriteMask != 0xf)
	    _mesa_printf(" %s[%d].%s%s%s%s ", file_string[vp[a].DstReg.File], vp[a].DstReg.Index,
			 GET_BIT(vp[a].DstReg.WriteMask, 0) ? "x" : "",
			 GET_BIT(vp[a].DstReg.WriteMask, 1) ? "y" : "",
			 GET_BIT(vp[a].DstReg.WriteMask, 2) ? "z" : "",
			 GET_BIT(vp[a].DstReg.WriteMask, 3) ? "w" : "");
	 else
	    _mesa_printf(" %s[%d] ", file_string[vp[a].DstReg.File], vp[a].DstReg.Index);
      }

      if (vp[a].SrcReg[0].File != 0xf) {
	 if (vp[a].SrcReg[0].Swizzle != SWIZZLE_NOOP ||
	     vp[a].SrcReg[0].Negate)
	    _mesa_printf("%s[%d].%s%c%c%c%c ", file_string[vp[a].SrcReg[0].File], vp[a].SrcReg[0].Index,
			 vp[a].SrcReg[0].Negate ? "-" : "",
			 swz[GET_SWZ(vp[a].SrcReg[0].Swizzle, 0)],
			 swz[GET_SWZ(vp[a].SrcReg[0].Swizzle, 1)],
			 swz[GET_SWZ(vp[a].SrcReg[0].Swizzle, 2)],
			 swz[GET_SWZ(vp[a].SrcReg[0].Swizzle, 3)]);
	 else
	    _mesa_printf("%s[%d] ", file_string[vp[a].SrcReg[0].File], vp[a].SrcReg[0].Index);
      }

      if (vp[a].SrcReg[1].File != 0xf) {
	 if (vp[a].SrcReg[1].Swizzle != SWIZZLE_NOOP ||
	     vp[a].SrcReg[1].Negate)
	    _mesa_printf("%s[%d].%s%c%c%c%c ", file_string[vp[a].SrcReg[1].File], vp[a].SrcReg[1].Index,
			 vp[a].SrcReg[1].Negate ? "-" : "",
			 swz[GET_SWZ(vp[a].SrcReg[1].Swizzle, 0)],
			 swz[GET_SWZ(vp[a].SrcReg[1].Swizzle, 1)],
			 swz[GET_SWZ(vp[a].SrcReg[1].Swizzle, 2)],
			 swz[GET_SWZ(vp[a].SrcReg[1].Swizzle, 3)]);
	 else
	    _mesa_printf("%s[%d] ", file_string[vp[a].SrcReg[1].File], vp[a].SrcReg[1].Index);
      }

      if (vp[a].SrcReg[2].File != 0xf) {
	 if (vp[a].SrcReg[2].Swizzle != SWIZZLE_NOOP ||
	     vp[a].SrcReg[2].Negate)
	    _mesa_printf("%s[%d].%s%c%c%c%c ", file_string[vp[a].SrcReg[2].File], vp[a].SrcReg[2].Index,
			 vp[a].SrcReg[2].Negate ? "-" : "",
			 swz[GET_SWZ(vp[a].SrcReg[2].Swizzle, 0)],
			 swz[GET_SWZ(vp[a].SrcReg[2].Swizzle, 1)],
			 swz[GET_SWZ(vp[a].SrcReg[2].Swizzle, 2)],
			 swz[GET_SWZ(vp[a].SrcReg[2].Swizzle, 3)]);
	 else
	    _mesa_printf("%s[%d] ", file_string[vp[a].SrcReg[2].File], vp[a].SrcReg[2].Index);
      }

      _mesa_printf("\n");
   }
}


void
_mesa_parse_arb_vertex_program(GLcontext * ctx, GLenum target,
			       const GLubyte * str, GLsizei len,
			       struct vertex_program *program)
{
   GLuint retval;
   struct arb_program ap;
   (void) target;

   /* set the program target before parsing */
   ap.Base.Target = GL_VERTEX_PROGRAM_ARB;

   retval = _mesa_parse_arb_program(ctx, str, len, &ap);

   /*  Parse error. Allocate a dummy program and return */	
   if (retval)
   {
      program->Instructions = (struct vp_instruction *)
         _mesa_malloc ( sizeof(struct vp_instruction) );
      program->Instructions[0].Opcode = VP_OPCODE_END;
      return;
   }

   /* copy the relvant contents of the arb_program struct into the 
    * fragment_program struct
    */
   program->Base.String          = ap.Base.String;
   program->Base.NumInstructions = ap.Base.NumInstructions;
   program->Base.NumTemporaries  = ap.Base.NumTemporaries;
   program->Base.NumParameters   = ap.Base.NumParameters;
   program->Base.NumAttributes   = ap.Base.NumAttributes;
   program->Base.NumAddressRegs  = ap.Base.NumAddressRegs;

   program->IsPositionInvariant = ap.HintPositionInvariant;
   program->InputsRead     = ap.InputsRead;
   program->OutputsWritten = ap.OutputsWritten;
   program->Parameters     = ap.Parameters; 

   program->Instructions   = ap.VPInstructions;

#if DEBUG_VP
   _mesa_debug_vp_inst(ap.Base.NumInstructions, ap.VPInstructions);
#endif

}