URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [lcc/] [src/] [error.c] - Blame information for rev 4

Details | Compare with Previous | View Log


#include "c.h"
 
static char rcsid[] = "$Id: error.c,v 1.1 2002/08/28 23:12:43 drh Exp $";
 
static void printtoken(void);
int errcnt   = 0;
int errlimit = 20;
char kind[] = {
#define xx(a,b,c,d,e,f,g) f,
#define yy(a,b,c,d,e,f,g) f,
#include "token.h"
};
int wflag;              /* != 0 to suppress warning messages */
 
void test(int tok, char set[]) {
        if (t == tok)
                t = gettok();
        else {
                expect(tok);
                skipto(tok, set);
                if (t == tok)
                        t = gettok();
        }
}
void expect(int tok) {
        if (t == tok)
                t = gettok();
        else {
                error("syntax error; found");
                printtoken();
                fprint(stderr, " expecting `%k'\n", tok);
        }
}
void error(const char *fmt, ...) {
        va_list ap;
 
        if (errcnt++ >= errlimit) {
                errcnt = -1;
                error("too many errors\n");
                exit(1);
        }
        va_start(ap, fmt);
        if (firstfile != file && firstfile && *firstfile)
                fprint(stderr, "%s: ", firstfile);
        fprint(stderr, "%w: ", &src);
        vfprint(stderr, NULL, fmt, ap);
        va_end(ap);
}
 
void skipto(int tok, char set[]) {
        int n;
        char *s;
 
        assert(set);
        for (n = 0; t != EOI && t != tok; t = gettok()) {
                for (s = set; *s && kind[t] != *s; s++)
                        ;
                if (kind[t] == *s)
                        break;
                if (n++ == 0)
                        error("skipping");
                if (n <= 8)
                        printtoken();
                else if (n == 9)
                        fprint(stderr, " ...");
        }
        if (n > 8) {
                fprint(stderr, " up to");
                printtoken();
        }
        if (n > 0)
                fprint(stderr, "\n");
}
/* fatal - issue fatal error message and exit */
int fatal(const char *name, const char *fmt, int n) {
        print("\n");
        errcnt = -1;
        error("compiler error in %s--", name);
        fprint(stderr, fmt, n);
        exit(EXIT_FAILURE);
        return 0;
}
 
/* printtoken - print current token preceeded by a space */
static void printtoken(void) {
        switch (t) {
        case ID: fprint(stderr, " `%s'", token); break;
        case ICON:
                fprint(stderr, " `%s'", vtoa(tsym->type, tsym->u.c.v));
                break;
        case SCON: {
                int i, n;
                if (ischar(tsym->type->type)) {
                        char *s = tsym->u.c.v.p;
                        n = tsym->type->size;
                        fprint(stderr, " \"");
                        for (i = 0; i < 20 && i < n && *s; s++, i++)
                                if (*s < ' ' || *s >= 0177)
                                        fprint(stderr, "\\%o", *s);
                                else
                                        fprint(stderr, "%c", *s);
                } else {        /* wchar_t string */
                        unsigned int *s = tsym->u.c.v.p;
                        assert(tsym->type->type->size == widechar->size);
                        n = tsym->type->size/widechar->size;
                        fprint(stderr, " L\"");
                        for (i = 0; i < 20 && i < n && *s; s++, i++)
                                if (*s < ' ' || *s >= 0177)
                                        fprint(stderr, "\\x%x", *s);
                                else
                                        fprint(stderr, "%c", *s);
                }
                if (i < n)
                        fprint(stderr, " ...");
                else
                        fprint(stderr, "\"");
                break;
                }
        case FCON:
                fprint(stderr, " `%S'", token, (char*)cp - token);
                break;
        case '`': case '\'': fprint(stderr, " \"%k\"", t); break;
        default: fprint(stderr, " `%k'", t);
        }
}
 
/* warning - issue warning error message */
void warning(const char *fmt, ...) {
        va_list ap;
 
        va_start(ap, fmt);
        if (wflag == 0) {
                errcnt--;
                error("warning: ");
                vfprint(stderr, NULL, fmt, ap);
        }
        va_end(ap);
}

Line No.	Rev	Author	Line
1	4	hellwig	`#include "c.h"`
2
3			`static char rcsid[] = "$Id: error.c,v 1.1 2002/08/28 23:12:43 drh Exp $";`
4
5			`static void printtoken(void);`
6			`int errcnt = 0;`
7			`int errlimit = 20;`
8			`char kind[] = {`
9			`#define xx(a,b,c,d,e,f,g) f,`
10			`#define yy(a,b,c,d,e,f,g) f,`
11			`#include "token.h"`
12			`};`
13			`int wflag; /* != 0 to suppress warning messages */`
14
15			`void test(int tok, char set[]) {`
16			`if (t == tok)`
17			`t = gettok();`
18			`else {`
19			`expect(tok);`
20			`skipto(tok, set);`
21			`if (t == tok)`
22			`t = gettok();`
23			`}`
24			`}`
25			`void expect(int tok) {`
26			`if (t == tok)`
27			`t = gettok();`
28			`else {`
29			`error("syntax error; found");`
30			`printtoken();`
31			fprint(stderr, " expecting `%k'\n", tok);
32			`}`
33			`}`
34			`void error(const char *fmt, ...) {`
35			`va_list ap;`
36
37			`if (errcnt++ >= errlimit) {`
38			`errcnt = -1;`
39			`error("too many errors\n");`
40			`exit(1);`
41			`}`
42			`va_start(ap, fmt);`
43			`if (firstfile != file && firstfile && *firstfile)`
44			`fprint(stderr, "%s: ", firstfile);`
45			`fprint(stderr, "%w: ", &src);`
46			`vfprint(stderr, NULL, fmt, ap);`
47			`va_end(ap);`
48			`}`
49
50			`void skipto(int tok, char set[]) {`
51			`int n;`
52			`char *s;`
53
54			`assert(set);`
55			`for (n = 0; t != EOI && t != tok; t = gettok()) {`
56			`for (s = set; s && kind[t] != s; s++)`
57			`;`
58			`if (kind[t] == *s)`
59			`break;`
60			`if (n++ == 0)`
61			`error("skipping");`
62			`if (n <= 8)`
63			`printtoken();`
64			`else if (n == 9)`
65			`fprint(stderr, " ...");`
66			`}`
67			`if (n > 8) {`
68			`fprint(stderr, " up to");`
69			`printtoken();`
70			`}`
71			`if (n > 0)`
72			`fprint(stderr, "\n");`
73			`}`
74			`/* fatal - issue fatal error message and exit */`
75			`int fatal(const char name, const char fmt, int n) {`
76			`print("\n");`
77			`errcnt = -1;`
78			`error("compiler error in %s--", name);`
79			`fprint(stderr, fmt, n);`
80			`exit(EXIT_FAILURE);`
81			`return 0;`
82			`}`
83
84			`/* printtoken - print current token preceeded by a space */`
85			`static void printtoken(void) {`
86			`switch (t) {`
87			case ID: fprint(stderr, " `%s'", token); break;
88			`case ICON:`
89			fprint(stderr, " `%s'", vtoa(tsym->type, tsym->u.c.v));
90			`break;`
91			`case SCON: {`
92			`int i, n;`
93			`if (ischar(tsym->type->type)) {`
94			`char *s = tsym->u.c.v.p;`
95			`n = tsym->type->size;`
96			`fprint(stderr, " \"");`
97			`for (i = 0; i < 20 && i < n && *s; s++, i++)`
98			`if (s < ' ' \|\| s >= 0177)`
99			`fprint(stderr, "\\%o", *s);`
100			`else`
101			`fprint(stderr, "%c", *s);`
102			`} else { /* wchar_t string */`
103			`unsigned int *s = tsym->u.c.v.p;`
104			`assert(tsym->type->type->size == widechar->size);`
105			`n = tsym->type->size/widechar->size;`
106			`fprint(stderr, " L\"");`
107			`for (i = 0; i < 20 && i < n && *s; s++, i++)`
108			`if (s < ' ' \|\| s >= 0177)`
109			`fprint(stderr, "\\x%x", *s);`
110			`else`
111			`fprint(stderr, "%c", *s);`
112			`}`
113			`if (i < n)`
114			`fprint(stderr, " ...");`
115			`else`
116			`fprint(stderr, "\"");`
117			`break;`
118			`}`
119			`case FCON:`
120			fprint(stderr, " `%S'", token, (char*)cp - token);
121			`break;`
122			case '`': case '\'': fprint(stderr, " \"%k\"", t); break;
123			default: fprint(stderr, " `%k'", t);
124			`}`
125			`}`
126
127			`/* warning - issue warning error message */`
128			`void warning(const char *fmt, ...) {`
129			`va_list ap;`
130
131			`va_start(ap, fmt);`
132			`if (wflag == 0) {`
133			`errcnt--;`
134			`error("warning: ");`
135			`vfprint(stderr, NULL, fmt, ap);`
136			`}`
137			`va_end(ap);`
138			`}`

Browse

Tools

Subversion Repositories eco32

[/] [eco32/] [trunk/] [lcc/] [src/] [error.c] - Blame information for rev 4