#include "mn10300_sim.h"

static void write_header PARAMS ((void));
static void write_opcodes PARAMS ((void));
static void write_template PARAMS ((void));

long Opcodes[512];
static int curop=0;

int
main (argc, argv)
     int argc;
     char *argv[];
{
  if ((argc > 1) && (strcmp (argv[1], "-h") == 0))
    write_header();
  else if ((argc > 1) && (strcmp (argv[1], "-t") == 0))
    write_template ();
  else
    write_opcodes();
  return 0;
}


static void
write_header ()
{
  struct mn10300_opcode *opcode;

  for (opcode = (struct mn10300_opcode *)mn10300_opcodes; opcode->name; opcode++)
    printf("void OP_%X PARAMS ((unsigned long, unsigned long));\t\t/* %s */\n",
	   opcode->opcode, opcode->name);
}


/* write_template creates a file all required functions, ready */
/* to be filled out */

static void
write_template ()
{
  struct mn10300_opcode *opcode;
  int i,j;

  printf ("#include \"mn10300_sim.h\"\n");
  printf ("#include \"simops.h\"\n");

  for (opcode = (struct mn10300_opcode *)mn10300_opcodes; opcode->name; opcode++)
    {
      printf("/* %s */\nvoid\nOP_%X (insn, extension)\n     unsigned long insn, extension;\n{\n", opcode->name, opcode->opcode);
	  
      /* count operands */
      j = 0;
      for (i = 0; i < 6; i++)
	{
	  int flags = mn10300_operands[opcode->operands[i]].flags;

	  if (flags)
	    j++;
	}
      switch (j)
	{
	case 0:
	  printf ("printf(\"   %s\\n\");\n", opcode->name);
	  break;
	case 1:
	  printf ("printf(\"   %s\\t%%x\\n\", OP[0]);\n", opcode->name);
	  break;
	case 2:
	  printf ("printf(\"   %s\\t%%x,%%x\\n\",OP[0],OP[1]);\n",
		  opcode->name);
	  break;
	case 3:
	  printf ("printf(\"   %s\\t%%x,%%x,%%x\\n\",OP[0],OP[1],OP[2]);\n",
		  opcode->name);
	  break;
	default:
	  fprintf (stderr,"Too many operands: %d\n", j);
	}
      printf ("}\n\n");
    }
}

static void
write_opcodes ()
{
  struct mn10300_opcode *opcode;
  int i, j;
  int numops;
  
  /* write out opcode table */
  printf ("#include \"mn10300_sim.h\"\n");
  printf ("#include \"simops.h\"\n\n");
  printf ("struct simops Simops[] = {\n");
  
  for (opcode = (struct mn10300_opcode *)mn10300_opcodes; opcode->name; opcode++)
    {
      int size;

      if (opcode->format == FMT_S0)
	size = 1;
      else if (opcode->format == FMT_S1
               || opcode->format == FMT_D0)
	size = 2;
      else if (opcode->format == FMT_S2
               || opcode->format == FMT_D1)
	size = 3;
      else if (opcode->format == FMT_S4)
	size = 5;
      else if (opcode->format == FMT_D2)
	size = 4;
      else if (opcode->format == FMT_D4)
	size = 6;
      else
	size = 7;

      printf ("  { 0x%x,0x%x,OP_%X,%d,%d,",
	      opcode->opcode, opcode->mask, opcode->opcode,
	      size, opcode->format);
      
      Opcodes[curop++] = opcode->opcode;

      /* count operands */
      j = 0;
      for (i = 0; i < 6; i++)
	{
	  int flags = mn10300_operands[opcode->operands[i]].flags;

	  if (flags)
	    j++;
	}
      printf ("%d,{",j);
	  
      j = 0;
      numops = 0;
      for (i = 0; i < 6; i++)
	{
	  int flags = mn10300_operands[opcode->operands[i]].flags;
	  int shift = mn10300_operands[opcode->operands[i]].shift;

	  if (flags)
	    {
	      if (j)
		printf (", ");
	      printf ("%d,%d,%d", shift,
		      mn10300_operands[opcode->operands[i]].bits,flags);
	      j = 1;
	      numops++;
	    }
	}

      switch (numops)
	{
	case 0:
	  printf ("0,0,0");
	case 1:
	  printf (",0,0,0");
	}

      printf ("}},\n");
    }
  printf ("{ 0,0,NULL,0,0,0,{0,0,0,0,0,0}},\n};\n");
}