Home
error.c - scc - simple c99 compiler
HTML git clone git://git.simple-cc.org/scc
DIR Log
DIR Files
DIR Refs
DIR Submodules
DIR README
DIR LICENSE
---
error.c (1172B)
---
1 #include <stdarg.h>
2 #include <stdio.h>
3 #include <stdlib.h>
4
5 #include <scc/scc.h>
6 #include "cc1.h"
7
8 #define MAXERRNUM 10
9
10 extern int failure;
11 static unsigned nerrors;
12
13 static void
14 warn_error(int flag, char *fmt, va_list va)
15 {
16 if (flag == 0)
17 return;
18 fprintf(stderr, "%s:%u: %s: ",
19 filenam, lineno,
20 (flag < 0) ? "error" : "warning");
21 vfprintf(stderr, fmt, va);
22 putc('\n', stderr);
23
24 if (flag < 0) {
25 if (!failure)
26 fclose(stdout);
27 failure = 1;
28 if (++nerrors == MAXERRNUM) {
29 fputs("too many errors\n", stderr);
30 exit(1);
31 }
32 }
33 }
34
35 void
36 warn(char *fmt, ...)
37 {
38 extern int warnings;
39
40 va_list va;
41 va_start(va, fmt);
42 warn_error(warnings, fmt, va);
43 va_end(va);
44 }
45
46 void
47 error(char *fmt, ...)
48 {
49 va_list va;
50
51 va_start(va, fmt);
52 warn_error(-1, fmt, va);
53 va_end(va);
54 discard();
55 }
56
57 void
58 errorp(char *fmt, ...)
59 {
60 va_list va;
61 va_start(va, fmt);
62 warn_error(-1, fmt, va);
63 va_end(va);
64 }
65
66 void
67 cpperror(char *fmt, ...)
68 {
69 va_list va;
70 va_start(va, fmt);
71 warn_error(-1, fmt, va);
72 va_end(va);
73
74 /* discard input until the end of the line */
75 if (input)
76 *input->p = '\0';
77 next();
78 }
79
80 void
81 unexpected(void)
82 {
83 error("unexpected '%s'", yytext);
84 }