/*
 * $RCSfile: error.c,v $
 *
 * x-kernel v3.3
 *
 * Copyright (c) 1993,1991,1990,1996  Arizona Board of Regents
 *
 * $Log: error.c,v $
 * Revision 1.2  1996/01/27 00:13:01  slm
 * Updated copyright and version.
 *
 * Revision 1.1  1995/07/29  03:08:13  slm
 * Initial revision
 *
 * Revision 1.12.1.1  1994/05/05  20:06:33  menze
 * errorRomLineTooLong now aborts
 *
 * Revision 1.12  1994/04/07  23:30:43  menze
 *   [ 1994/03/08          menze ]
 *   added 'romopt' and 'romfile' entries, allowing rom files and options
 *   to be statically configured at compose/compile time
 */

#include <stdio.h>
#include "global.h"

static char	*cycleArray[MAX_PROTOCOL];
static int	cycleIndex = -1;


void
warnDefaultPtblNotSupported()
{
    fprintf(stderr,
	"compose warning: DEFAULT prottbl construction no longer supported\n");
    fprintf(stderr, "\t(line %d)\n", fileLine);
}


void
warnProtNotFound(char *d)
{
  fprintf(stderr, "compose warning: protocol \"%s\" found neither locally nor in libraries\n", d);
  fprintf(stderr, "                 (assuming in library)\n");
}


void
warnCouldNotAccess(char *f)
{
  char buf[200];
  sprintf(buf, "compose warning: could not access %s", f);
  perror(buf);
}


void
warnReassignedTraceValue( char *s )
{
    fprintf(stderr, "compose warning: trace variable %s reassigned\n", s);
}


void
syntaxErrorChar(char expected, char got)
{
  fprintf(stderr,
	  "compose: syntax error: expecting \"%c\" got \"%c\" at line %d, pos %d\n",
	  expected, got, fileLine, filePosition);
  exit(1);
}


void
syntaxErrorString(char *s)
{
  fprintf(stderr,
	  "compose: syntax error: expecting \"%s\" at line %d, pos %d\n",
	  s, fileLine, filePosition);
  exit(1);
}


void
errorFile(char *s)
{
  fprintf(stderr, "compose error: can't open required file \"%s\"\n", s);
}

void
errorRomLineTooLong(char *s)
{
    fprintf(stderr, "compose error: rom file entry in \"%s\" is too long", s);
    exit(1);
}


void
errorProtlUndefined(char *p1, char *p2)
{
  fprintf(stderr,
	  "compose error: undefined protocol \"%s\" referenced by \"%s\"\n",
	  p1, p2);
}


void
errorTooManyStates()
{
    fprintf(stderr, "compose error: too many state transition characters\n");
    exit(1);
}

void
errorCycle()
{
    fprintf(stderr, "Compose error -- cycle detected in dependency graph:\n");
}

void
errorCycleName( char *n )
{
    cycleArray[++cycleIndex] = n;
}

void
finishErrorCycle()
{
    fprintf(stderr, "\t");
    for ( ; cycleIndex > 0; cycleIndex-- ) {
	fprintf(stderr, "%s -> ", cycleArray[cycleIndex]);
    }
    fprintf(stderr, "%s\n", cycleArray[cycleIndex]);
    exit(1);
}


void
errorLaterInstanceFiles( PROTOCOL *p )
{
    fprintf(stderr, "Compose error at line %d, pos %d\n", fileLine,
	    filePosition);
    fprintf(stderr, "\tprotocol %s has a previous instance\n", p->n.name);
    fprintf(stderr,
	    "\tSubsequent instances may only define 'name' and 'protocols'\n");
    exit(1);
}