/* * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands. * See the copyright notice in the ACK home directory, in the file "Copyright". */ /* $Id$ */ /* 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 #if __STDC__ #include #else #include #endif #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); } #if __STDC__ /*VARARGS*/ error(char *fmt, ...) { va_list ap; err_occurred = 1; err_hdr(""); va_start(ap, fmt); doprnt(ERROUT, fmt, ap); fprint(ERROUT, "\n"); va_end(ap); } /*VARARGS*/ warning(char *fmt, ...) { va_list ap; err_hdr("(warning) "); va_start(ap, fmt); doprnt(ERROUT, fmt, ap); fprint(ERROUT, "\n"); va_end(ap); } /*VARARGS*/ strict(char *fmt, ...) { va_list ap; err_hdr("(strict) "); va_start(ap, fmt); doprnt(ERROUT, fmt, ap); fprint(ERROUT, "\n"); va_end(ap); } /*VARARGS*/ crash(char *fmt, ...) { va_list ap; err_hdr("CRASH\007 "); va_start(ap, fmt); doprnt(ERROUT, fmt, ap); fprint(ERROUT, "\n"); va_end(ap); sys_stop(S_ABORT); } /*VARARGS*/ fatal(char *fmt, ...) { va_list ap; err_hdr("fatal error -- "); va_start(ap, fmt); doprnt(ERROUT, fmt, ap); fprint(ERROUT, "\n"); va_end(ap); sys_stop(S_EXIT); } #else /*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); } #endif