symtab.c

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "parser.h"
#include "symtab.h"
#include "matrix.h"

SYMTAB symtab[MAX_SYMBOLS];
int lastsym = 0;


void print_constants(struct constants *p)
{
  printf("\tRed -\t  Ka: %6.2f Kd: %6.2f Ks: %6.2f\n",
	 p->r[0],p->r[1],p->r[2]);

  printf("\tGreen -\t  Ka: %6.2f Kd: %6.2f Ks: %6.2f\n",
	 p->g[0],p->g[1],p->g[2]);

  printf("\tBlue -\t  Ka: %6.2f Kd: %6.2f Ks: %6.2f\n",
	 p->b[0],p->b[1],p->b[2]);

  printf("Red - %6.2f\tGreen - %6.2f\tBlue - %6.2f\n",
	 p->red,p->green,p->blue);
}


void print_light(struct light *p)
{
  printf("Location -\t %6.2f %6.2f %6.2f\n",
	p->l[0],p->l[1],p->l[2]);

  printf("Brightness -\t r:%6.2f g:%6.2f b:%6.2f\n",
	p->c[0],p->c[1],p->c[2]);
}


void print_symtab()
{
  int i;
  for (i=0; i < lastsym;i++)
    {
      printf("Name: %s\n",symtab[i].name);
      switch (symtab[i].type)
	{
	case SYM_MATRIX:
	  printf("Type: SYM_MATRIX\n");
	  print_matrix(symtab[i].s.m);
	  break;
	case SYM_CONSTANTS:
	  printf("Type: SYM_CONSTANTS\n");
	  print_constants(symtab[i].s.c);
	  break;
	case SYM_LIGHT:
	  printf("Type: SYM_LIGHT\n");
	  print_light(symtab[i].s.l);
	  break;
	case SYM_VALUE:
	  printf("Type: SYM_VALUE\n");
	  printf("value: %6.2f\n", symtab[i].s.value);
	  break;
	case SYM_FILE:
	  printf("Type: SYM_VALUE\n");
	  printf("Name: %s\n",symtab[i].name);
	}
      printf("\n");
    }
}

SYMTAB *add_symbol(char *name, int type, void *data)
{
  SYMTAB *t;

  t = (SYMTAB *)lookup_symbol(name);
  if (t==NULL)
    {
      if (lastsym >= MAX_SYMBOLS)
	{
	  return NULL;
	}
      t = (SYMTAB *)&(symtab[lastsym]);
      lastsym++;
    }
  else
    {
      return t;
    }

  t->name = (char *)malloc(strlen(name)+1);
  strcpy(t->name,name);
  t->type = type;
  switch (type)
    {
    case SYM_CONSTANTS:
      t->s.c = (struct constants *)data;
      break;
    case SYM_MATRIX:
      t->s.m = (struct matrix *)data;
      break;
    case SYM_LIGHT:
      t->s.l = (struct light *)data;
      break;
    case SYM_VALUE:
      t->s.value = (double)(int)data;
      break;
    case SYM_FILE:
      break;
    }
  return (SYMTAB *)&(symtab[lastsym-1]);
}


SYMTAB *lookup_symbol(char *name)
{
  int i;
  for (i=0;i<lastsym;i++)
    {
      if (!strcmp(name,symtab[i].name))
	{
	  return (SYMTAB *) &(symtab[i]);
	}
    }
  return (SYMTAB *)NULL;
}

void set_value(SYMTAB *p, double value)
{
  p->s.value = value;
}