Pristine Ack-5.5
[Ack-5.5.git] / util / ceg / EM_parser / as_EM_pars / error.c
1 #include <system.h>
2 #if __STDC__
3 #include <stdarg.h>
4 #else
5 #include <varargs.h>
6 #endif
7
8 extern int nerrors;
9
10 #if __STDC__
11 /*VARARGS*/
12 error(char *fmt, ...)
13 {
14         va_list pvar;
15
16         va_start(pvar, fmt);
17         fprint( STDERR, "!! ERROR :     ");
18         doprnt( STDERR, fmt, pvar);
19         fprint( STDERR, "       !!\n");
20         va_end(pvar);
21         nerrors++;
22 }
23 #else
24 /*VARARGS*/
25 error(va_alist)
26 va_dcl
27 {
28         char *fmt;
29         va_list pvar;
30
31         va_start(pvar);
32         fmt = va_arg(pvar, char *);
33         fprint( STDERR, "!! ERROR :     ");
34         doprnt( STDERR, fmt, pvar);
35         fprint( STDERR, "       !!\n");
36         va_end(pvar);
37         nerrors++;
38 }
39 #endif