/* syntax.c -- create and administer syntax tables
   Copyright (C) 2000 Gary V. Vaughan
  
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.
  
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
  
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#if HAVE_CONFIG_H
#  include <config.h>
#endif

#include "common.h"
#include "sic.h"
#include "syntax.h"

struct syntaxnode {
  struct syntaxnode *next;
  SyntaxHandler *handler;
};

static struct syntaxnode *syntax_new PARAMS((struct syntaxnode *head,
				       SyntaxHandler *handler));
static int syntaxelt_address_compare PARAMS((List *element, sic_ptr match));

int
syntax_install (sic, table)
     Sic *sic;
     Syntax *table;
{
  Syntax *table_ptr;

  SIC_ASSERT (table);

  /* Allocate some room for the syntax tables. */
  if (!sic->syntax)
    sic->syntax = XCALLOC (SyntaxTable*, 256);

  for (table_ptr = table; table_ptr->handler; ++table_ptr)
    {
      char *ch_ptr = table_ptr->ch;
      
      /* You can set the syntax habdler for ASCII '\0' by using
	 "" in the syntax table. */
      if (*ch_ptr == 0)
	sic->syntax[0] = syntax_new (sic->syntax[0], table_ptr->handler);

      /* Otherwise the handler is applied to each character in
	 the string of chars from the associated row. */
      for (; *ch_ptr; ++ch_ptr)
	sic->syntax[(int) *ch_ptr]
	  = syntax_new (sic->syntax[(int) *ch_ptr], table_ptr->handler);
    }

  return SIC_OKAY;
}
	
SyntaxHandler *
syntax_handler (sic, ch)
     Sic *sic;
     int ch;
{
  SIC_ASSERT (sic);
  
  return sic->syntax[ch] ? sic->syntax[ch]->handler : NULL;
}

static struct syntaxnode *
syntax_new (head, handler)
     struct syntaxnode *head;
     SyntaxHandler *handler;
{
  struct syntaxnode *new = XCALLOC (struct syntaxnode, 1);

  new->next    = head;
  new->handler = handler;

  return new;
}