108 lines
1.6 KiB
C
108 lines
1.6 KiB
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* $Header$ */
|
|
/* E R R O R A N D D I A G N O S T I C R O U T I N E S */
|
|
|
|
#include <system.h>
|
|
#include <varargs.h>
|
|
|
|
#include "arith.h"
|
|
#include "errout.h"
|
|
#include "LLlex.h"
|
|
|
|
/* This file contains the (non-portable) error-message and diagnostic
|
|
functions. Beware, they are called with a variable number of
|
|
arguments!
|
|
*/
|
|
|
|
int err_occurred;
|
|
|
|
err_hdr(s)
|
|
char *s;
|
|
{
|
|
if (FileName) {
|
|
fprint(ERROUT, "\"%s\", line %d: %s", FileName, (int)LineNumber, s);
|
|
}
|
|
else fprint(ERROUT, s);
|
|
}
|
|
|
|
/*VARARGS*/
|
|
error(va_alist)
|
|
va_dcl
|
|
{
|
|
char *fmt;
|
|
va_list ap;
|
|
|
|
err_occurred = 1;
|
|
err_hdr("");
|
|
va_start(ap);
|
|
fmt = va_arg(ap, char *);
|
|
doprnt(ERROUT, fmt, ap);
|
|
fprint(ERROUT, "\n");
|
|
va_end(ap);
|
|
}
|
|
|
|
/*VARARGS*/
|
|
warning(va_alist)
|
|
va_dcl
|
|
{
|
|
char *fmt;
|
|
va_list ap;
|
|
|
|
err_hdr("(warning) ");
|
|
va_start(ap);
|
|
fmt = va_arg(ap, char *);
|
|
doprnt(ERROUT, fmt, ap);
|
|
fprint(ERROUT, "\n");
|
|
va_end(ap);
|
|
}
|
|
|
|
/*VARARGS*/
|
|
strict(va_alist)
|
|
va_dcl
|
|
{
|
|
char *fmt;
|
|
va_list ap;
|
|
|
|
err_hdr("(strict) ");
|
|
va_start(ap);
|
|
fmt = va_arg(ap, char *);
|
|
doprnt(ERROUT, fmt, ap);
|
|
fprint(ERROUT, "\n");
|
|
va_end(ap);
|
|
}
|
|
|
|
/*VARARGS*/
|
|
crash(va_alist)
|
|
va_dcl
|
|
{
|
|
char *fmt;
|
|
va_list ap;
|
|
|
|
err_hdr("CRASH\007 ");
|
|
va_start(ap);
|
|
fmt = va_arg(ap, char *);
|
|
doprnt(ERROUT, fmt, ap);
|
|
fprint(ERROUT, "\n");
|
|
va_end(ap);
|
|
sys_stop(S_ABORT);
|
|
}
|
|
|
|
/*VARARGS*/
|
|
fatal(va_alist)
|
|
va_dcl
|
|
{
|
|
char *fmt;
|
|
va_list ap;
|
|
|
|
err_hdr("fatal error -- ");
|
|
va_start(ap);
|
|
fmt = va_arg(ap, char *);
|
|
doprnt(ERROUT, fmt, ap);
|
|
fprint(ERROUT, "\n");
|
|
va_end(ap);
|
|
sys_stop(S_EXIT);
|
|
}
|