![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cp-errfn.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / cc|
Return to cp-errfn.c CVS log | Up to [Apple XNU] / GNUtools / cc |
1.1 root 1: /* Provide a call-back mechanism for handling error output.
2: Copyright (C) 1993 Free Software Foundation, Inc.
3: Contributed by Jason Merrill ([email protected])
4:
5: This file is part of GNU CC.
6:
7: GNU CC is free software; you can redistribute it and/or modify
8: it under the terms of the GNU General Public License as published by
9: the Free Software Foundation; either version 2, or (at your option)
10: any later version.
11:
12: GNU CC is distributed in the hope that it will be useful,
13: but WITHOUT ANY WARRANTY; without even the implied warranty of
14: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15: GNU General Public License for more details.
16:
17: You should have received a copy of the GNU General Public License
18: along with GNU CC; see the file COPYING. If not, write to
19: the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
20:
21: #include "config.h"
22: #include "tree.h"
23: #include <ctype.h>
24:
25: /* cp_printer is the type of a function which converts an argument into
26: a string for digestion by printf. The cp_printer function should deal
27: with all memory management; the functions in this file will not free
28: the char*s returned. See cp-error.c for an example use of this code. */
29:
30: typedef char* cp_printer PROTO((HOST_WIDE_INT, int));
31: extern cp_printer * cp_printers[256];
32:
33: typedef void errorfn (); /* deliberately vague */
34:
35: extern char* cp_file_of PROTO((tree));
36: extern int cp_line_of PROTO((tree));
37:
38: #define STRDUP(f) (ap = (char *) alloca (strlen (f) +1), strcpy (ap, (f)), ap)
39:
40: #define NARGS 3
41: #define arglist a1, a2, a3
42: #define arglist_dcl HOST_WIDE_INT a1, a2, a3;
43: #define ARGSINIT args[0] = a1; args[1] = a2; args[2] = a3;
44: #define ARGSLIST args[0], args[1], args[2]
45:
46: static void
47: cp_thing (errfn, atarg1, format, arglist)
48: errorfn *errfn;
49: int atarg1;
50: char *format;
51: arglist_dcl
52: {
53: char *fmt;
54: char *f;
55: char *ap;
56: int arg;
57: HOST_WIDE_INT atarg = atarg1 ? a1 : 0;
58: HOST_WIDE_INT args[NARGS];
59: ARGSINIT
60:
61: fmt = STRDUP(format);
62:
63: for (f = fmt, arg = 0; *f; ++f)
64: {
65: cp_printer * function;
66: int alternate;
67: int maybe_here;
68:
69: /* ignore text */
70: if (*f != '%') continue;
71:
72: ++f;
73:
74: alternate = 0;
75: maybe_here = 0;
76:
77: /* ignore most flags */
78: while (*f == ' ' || *f == '-' || *f == '+' || *f == '#')
79: {
80: if (*f == '+')
81: maybe_here = 1;
82: else if (*f == '#')
83: alternate = 1;
84: ++f;
85: }
86:
87: /* ignore field width */
88: if (*f == '*')
89: {
90: ++f;
91: ++arg;
92: }
93: else
94: while (isdigit (*f))
95: ++f;
96:
97: /* ignore precision */
98: if (*f == '.')
99: {
100: ++f;
101: if (*f == '*')
102: {
103: ++f;
104: ++arg;
105: }
106: else
107: while (isdigit (*f))
108: ++f;
109: }
110:
111: /* ignore "long" */
112: if (*f == 'l')
113: ++f;
114:
115: function = cp_printers[*f];
116:
117: if (function)
118: {
119: char *p;
120:
121: if (arg >= NARGS) abort ();
122:
123: if (maybe_here && atarg)
124: atarg = args[arg];
125:
126: /* Must use a temporary to avoid calling *function twice */
127: p = (*function) (args[arg], alternate);
128: args[arg] = (HOST_WIDE_INT) STRDUP(p);
129: *f = 's';
130: }
131:
132: ++f;
133: ++arg; /* Assume valid format string */
134:
135: }
136:
137: if (atarg)
138: {
139: char *file = cp_file_of ((tree) atarg);
140: int line = cp_line_of ((tree) atarg);
141: (*errfn) (file, line, fmt, ARGSLIST);
142: }
143: else
144: (*errfn) (fmt, ARGSLIST);
145:
146: }
147:
148: void
149: cp_error (format, arglist)
150: char *format;
151: arglist_dcl
152: {
153: extern errorfn error;
154: cp_thing (error, 0, format, arglist);
155: }
156:
157: void
158: cp_warning (format, arglist)
159: char *format;
160: arglist_dcl
161: {
162: extern errorfn warning;
163: cp_thing (warning, 0, format, arglist);
164: }
165:
166: void
167: cp_pedwarn (format, arglist)
168: char *format;
169: arglist_dcl
170: {
171: extern errorfn pedwarn;
172: cp_thing (pedwarn, 0, format, arglist);
173: }
174:
175: void
176: cp_compiler_error (format, arglist)
177: char *format;
178: arglist_dcl
179: {
180: extern errorfn compiler_error;
181: cp_thing (compiler_error, 0, format, arglist);
182: }
183:
184: void
185: cp_sprintf (format, arglist)
186: char *format;
187: arglist_dcl
188: {
189: extern errorfn sprintf;
190: cp_thing (sprintf, 0, format, arglist);
191: }
192:
193: void
194: cp_error_at (format, arglist)
195: char *format;
196: arglist_dcl
197: {
198: extern errorfn error_with_file_and_line;
199: cp_thing (error_with_file_and_line, 1, format, arglist);
200: }
201:
202: void
203: cp_warning_at (format, arglist)
204: char *format;
205: arglist_dcl
206: {
207: extern errorfn warning_with_file_and_line;
208: cp_thing (warning_with_file_and_line, 1, format, arglist);
209: }
210:
211: void
212: cp_pedwarn_at (format, arglist)
213: char *format;
214: arglist_dcl
215: {
216: extern errorfn pedwarn_with_file_and_line;
217: cp_thing (pedwarn_with_file_and_line, 1, format, arglist);
218: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.