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

# include "size.h"
# include "def.h"

extern char token_name[MaxK][Kleng];
extern char type_name[MaxP][Pleng];

extern FILE *output;

void unparse(union Node * ptr)
{
  switch (ptr->com.var) 
    {
    case RULELIST:
      {
        fprintf(output, "\n");
	unparse(ptr->rulelist.rule);
	if ((ptr->rulelist.list)!= NULL)
	  unparse(ptr->rulelist.list);
	break;
      };
    case RULE:
      {
	fprintf(output, "\n<B><A NAME=\"R%04d\">%(R%04d)</A></B> <P>\n", ptr->rule.id, ptr->rule.id);
	unparse(ptr->rule.lhs);
	fprintf(output, "\n<UL>\n");
	unparse(ptr->rule.rhslist);
	fprintf(output, "</UL>\n");
	break;
      };
    case LHS:
      {
	unparse(ptr->lhs.name);
	fprintf(output, "\n");
      	break;
      };
    case RHSLIST:
      {
	unparse(ptr->rhslist.rhs);
	if ((ptr->rhslist.list)!= NULL)
	  unparse(ptr->rhslist.list);
	break;
      };
    case RHS:
      {
	if (ptr->rhs.namelist==NULL){
	  fprintf(output, "<LI>\t/* empty */<P>\n");
	  fprintf(output, "\t\t<P>\n");
	};

	if (ptr->rhs.namelist!=NULL){
	  fprintf(output, "<LI>\t");
	  unparse(ptr->rhs.namelist);
	  fprintf(output, "<P>\n");
	  fprintf(output, "\t\t<P>\n");
	};

	break;
      };
    case NAMELIST:
      {
	unparse(ptr->namelist.name);
	if ((ptr->namelist.list)!= NULL)
	  unparse(ptr->namelist.list);
	break;
      };
    case NAME:
      {
	if (ptr->name.nvalue>0)
	  fprintf(output, "<A HREF=\"#%s\">%s</A>     ", token_name[ptr->name.nvalue], token_name[ptr->name.nvalue]);
	if (ptr->name.nvalue<0)
	  fprintf(output, "<A HREF=\"#%s\">%s</A>     ", type_name[-(ptr->name.nvalue)], type_name[-(ptr->name.nvalue)]);
	if (ptr->name.nvalue==0)
	  fprintf(output, "(undefined name)  ");
	break;
      };
    case SYMBOL:
      {
	/* not implemented */
	break;
      };
    default:
      {
	
        break;
      };
    }
}