ack/lang/occam/comp/report.c

33 lines
765 B
C
Raw Normal View History

1987-03-10 11:49:39 +00:00
/* $Header$ */
1987-03-09 16:02:32 +00:00
/*
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
1987-02-25 16:56:31 +00:00
#include <system.h>
1987-02-24 17:05:53 +00:00
extern int err, yylineno;
extern char *curr_file;
report(fmt, arg1, arg2, arg3) char *fmt;
{
1987-02-25 16:56:31 +00:00
fprint(STDERR, "%s (%d) F: ", curr_file, yylineno);
fprint(STDERR, fmt, arg1, arg2, arg3);
fprint(STDERR,"\n");
1987-02-24 17:05:53 +00:00
err=1;
}
warning(fmt, arg1, arg2, arg3) char *fmt, *arg1;
{
1987-02-25 16:56:31 +00:00
fprint(STDERR, "%s (%d) E: ", curr_file, yylineno);
fprint(STDERR, fmt, arg1, arg2, arg3);
fprint(STDERR,"\n");
}
fatal(fmt, arg1, arg2, arg3) char *fmt, *arg1;
{
fprint(STDERR, "%s (%d) X: ", curr_file, yylineno);
fprint(STDERR, fmt, arg1, arg2, arg3);
fprint(STDERR,"\n");
exit(1);
1987-02-24 17:05:53 +00:00
}