lang/occam/comp/report.c

   1 /* $Id: report.c,v 1.7 1994/06/24 12:27:16 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 #include <system.h>
   7
   8 extern int err, lineno;
   9 extern char *curr_file;
  10
  11 /*VARARGS1*/
  12 report(fmt, arg1, arg2, arg3) char *fmt;
  13 {
  14         fprint(STDERR, "%s (%d) F: ", curr_file, lineno);
  15         fprint(STDERR, fmt, arg1, arg2, arg3);
  16         fprint(STDERR,"\n");
  17         err=1;
  18 }
  19
  20 /*VARARGS1*/
  21 warning(fmt, arg1, arg2, arg3) char *fmt, *arg1;
  22 {
  23         fprint(STDERR, "%s (%d) E: ", curr_file, lineno);
  24         fprint(STDERR, fmt, arg1, arg2, arg3);
  25         fprint(STDERR,"\n");
  26 }
  27
  28 /*VARARGS1*/
  29 fatal(fmt, arg1, arg2, arg3) char *fmt, *arg1;
  30 {
  31         fprint(STDERR, "%s (%d) X: ", curr_file, lineno);
  32         fprint(STDERR, fmt, arg1, arg2, arg3);
  33         fprint(STDERR,"\n");
  34         exit(1);
  35 }