Commit | Line | Data |
---|---|---|
e5f78659 RS |
1 | %Start ErrorText ErrorMessage OtherText |
2 | ||
3 | EC [0-9][0-9][0-9][0-9]-[0-9][0-9][0-9] | |
4 | D [0-9] | |
5 | D3 [0-9 ][0-9 ][0-9] | |
6 | D4 [0-9 ][0-9 ][0-9 ][0-9] | |
7 | D5 [0-9 ][0-9 ][0-9 ][0-9 ][0-9] | |
8 | DS [0-9 ] | |
9 | ||
10 | %{ | |
3f1f4366 JB |
11 | /* moore@wilma.cs.utk.edu |
12 | ||
e5f78659 RS |
13 | * Hack to work around the AIX C compiler's brain-damaged error messages |
14 | * so that emacs can parse them. It runs /bin/cc as a subprocess, and | |
15 | * tries to rearrange the error messages so that (a) each message contains | |
16 | * both the filename and line number where the error occurred, and (b) | |
17 | * the error message(s) for a particular line get displayed *before* the | |
18 | * line itself. | |
19 | * | |
20 | * to compile: | |
21 | * lex aixcc.lex | |
22 | * cc -o aixcc lex.yy.c | |
23 | * | |
24 | * | |
25 | * Copyright December 1991 by Keith Moore | |
26 | * | |
27 | * This program is free software; you can redistribute it and/or modify | |
28 | * it under the terms of the GNU General Public License as published by | |
29 | * the Free Software Foundation; either version 2 of the License, or | |
30 | * (at your option) any later version. | |
31 | * | |
32 | * This program is distributed in the hope that it will be useful, | |
33 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
34 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
35 | * GNU General Public License for more details. | |
36 | * | |
37 | * You should have received a copy of the GNU General Public License | |
38 | * along with this program; if not, write to the Free Software | |
39 | * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | |
40 | * | |
41 | * | |
42 | * TODO: figure out how the compiler counts file numbers for included | |
43 | * files, keep track of which file corresponds to which number, and | |
44 | * always output the right file name. | |
45 | */ | |
46 | ||
47 | #include <stdio.h> | |
48 | #include <string.h> | |
49 | ||
50 | char *current_file; | |
51 | int line; | |
52 | int debug = 0; | |
53 | char bigbuf[10240]; | |
54 | char *bufptr = bigbuf; | |
55 | int last_line_was_error = 0; | |
56 | ||
57 | spaces (s) | |
58 | char *s; | |
59 | { | |
60 | while (*s++) | |
61 | *bufptr++ = ' '; | |
62 | } | |
63 | ||
64 | char * | |
65 | strsave (s) | |
66 | char *s; | |
67 | { | |
68 | char *ptr = malloc (strlen (s) + 1); | |
69 | strcpy (ptr, s); | |
70 | return ptr; | |
71 | } | |
72 | ||
73 | yywrap () | |
74 | { | |
75 | *bufptr = '\0'; | |
76 | bufptr = bigbuf; | |
77 | while (*bufptr) | |
78 | putc (*bufptr++, yyout); | |
79 | return 1; | |
80 | } | |
81 | ||
82 | %} | |
83 | %% | |
84 | ^File\ Line\ Column\ Message\ text[^\n]* { | |
85 | /* | |
86 | * ignore this. don't treat it as error text | |
87 | */ | |
88 | } | |
89 | ||
90 | ^{DS}{DS}{DS}\ {D5}\ \| { | |
91 | /* | |
92 | * (optional) nesting level, followed by line number, followed | |
93 | * by the source code fragment that caused the error | |
94 | */ | |
95 | ||
96 | /* | |
97 | * save the line number for later | |
98 | */ | |
99 | line = atoi (yytext+4); | |
100 | ||
101 | if (debug) { | |
102 | fprintf (yyout, "line <= %d\n", line); | |
103 | fprintf (yyout, "%s\n", yytext); | |
104 | } | |
105 | ||
106 | /* | |
107 | * if the last line was an error message, to flush out all of | |
108 | * the old source text before starting to save the new source text. | |
109 | */ | |
110 | if (last_line_was_error) { | |
111 | *bufptr = '\0'; | |
112 | bufptr = bigbuf; | |
113 | while (*bufptr) | |
114 | putc (*bufptr++, yyout); | |
115 | bufptr = bigbuf; | |
116 | last_line_was_error = 0; | |
117 | } | |
118 | /* | |
119 | * stuff enough spaces in the text buffer so that the | |
120 | * saved text will line up properly when displayed. | |
121 | */ | |
122 | spaces (yytext); | |
123 | ||
124 | BEGIN ErrorText; /* continue below */ | |
125 | } | |
126 | ||
127 | <ErrorText>[^\n]*$ { | |
128 | char *ptr; | |
129 | ||
130 | /* | |
131 | * Save the text until we see the error message(s), then print it. | |
132 | * This because emacs puts the error message at the top of the | |
133 | * window, and it's nice to be able to see the text below it. | |
134 | */ | |
135 | ||
136 | ptr = yytext; | |
137 | while (*ptr) | |
138 | *bufptr++ = *ptr++; | |
139 | *bufptr++ = '\n'; | |
140 | ||
141 | BEGIN 0; | |
142 | } | |
143 | ||
144 | ^Processing\ include\ file\ .*$ { | |
145 | /* | |
146 | * name of a new include file being processed. Increment file number | |
147 | * and remember the file name corresponding to this file number. | |
148 | */ | |
149 | ||
150 | current_file = strsave (yytext+24); | |
151 | ||
152 | if (debug) { | |
153 | fprintf (yyout, "current_file <= %s\n", current_file); | |
154 | fprintf (yyout, "%s\n", yytext); | |
155 | } | |
156 | } | |
157 | ||
158 | ^([a-z]\ -)?\ *{EC}: { | |
159 | /* | |
eb8c3be9 | 160 | * error message (which we print immediately) preceded by an |
e5f78659 RS |
161 | * error code (which we ignore) |
162 | */ | |
163 | ||
164 | fprintf (yyout, "\"%s\", line %d: %c -", current_file, line, *yytext); | |
165 | last_line_was_error = 1; | |
166 | BEGIN ErrorMessage; | |
167 | } | |
168 | ||
169 | ^{D3}\ {D5}\ {D4}\ {EC}: { | |
170 | /* | |
171 | * (optional) nesting level, followed by line number, followed | |
172 | * by column number, followed by error message text. | |
173 | */ | |
174 | ||
175 | /* | |
176 | * save the line number for later | |
177 | */ | |
178 | line = atoi (yytext+4); | |
179 | ||
180 | if (debug) { | |
181 | fprintf (yyout, "line <= %d\n", line); | |
182 | fprintf (yyout, "%s\n", yytext); | |
183 | } | |
184 | ||
185 | /* | |
186 | * if the last line was an error message, flush out all of | |
187 | * the old source text before printing this error message. | |
188 | */ | |
189 | if (last_line_was_error) { | |
190 | *bufptr = '\0'; | |
191 | bufptr = bigbuf; | |
192 | while (*bufptr) | |
193 | putc (*bufptr++, yyout); | |
194 | bufptr = bigbuf; | |
195 | last_line_was_error = 0; | |
196 | } | |
197 | fprintf (yyout, "\"%s\", line %d:", current_file, line); | |
198 | last_line_was_error = 1; | |
199 | BEGIN ErrorMessage; | |
200 | } | |
201 | ||
202 | <ErrorMessage>[^\n]*$ { | |
203 | fprintf (yyout, "%s\n", yytext); | |
204 | BEGIN 0; | |
205 | } | |
206 | ||
207 | ||
208 | ^[^ :]+".c:"\ *$ { | |
209 | /* name of new source file being processed */ | |
210 | ||
211 | char *ptr; | |
212 | ||
213 | if (current_file) | |
214 | free (current_file); | |
215 | ptr = strchr (yytext, ':'); | |
216 | *ptr = '\0'; | |
217 | current_file = strsave (yytext); | |
218 | } | |
219 | ||
220 | ^[^\n] { | |
221 | /* | |
222 | * other text starting with a newline. We have to break it up this | |
223 | * way to keep this rule from matching any of the above patterns | |
224 | */ | |
225 | ||
226 | if (last_line_was_error) { | |
227 | *bufptr = '\0'; | |
228 | bufptr = bigbuf; | |
229 | while (*bufptr) | |
230 | putc (*bufptr++, yyout); | |
231 | bufptr = bigbuf; | |
232 | last_line_was_error = 0; | |
233 | } | |
234 | ||
235 | *bufptr++ = *yytext; | |
236 | BEGIN OtherText; | |
237 | } | |
238 | ||
239 | <OtherText>[^\n]*$ { | |
240 | char *ptr; | |
241 | ||
242 | ptr = yytext; | |
243 | while (*ptr) | |
244 | *bufptr++ = *ptr++; | |
245 | *bufptr++ = '\n'; | |
246 | ||
247 | BEGIN 0; | |
248 | } | |
249 | ||
250 | \n ; | |
251 | ||
252 | %% | |
253 | ||
254 | main (argc, argv) | |
255 | char **argv; | |
256 | { | |
257 | int pfd[2]; | |
258 | int child_pid; | |
259 | int i; | |
260 | ||
261 | current_file = strsave ("/dev/null"); | |
262 | ||
263 | line = 0; | |
264 | ||
265 | for (i = 1; i < argc; ++i) { | |
266 | char *ptr = strrchr (argv[i], '.'); | |
267 | if (ptr && ptr[1] == 'c' && ptr[2] == '\0') { | |
268 | current_file = strsave (argv[i]); | |
269 | break; | |
270 | } | |
271 | } | |
272 | ||
273 | if (pipe (pfd) < 0) { | |
274 | perror ("pipe"); | |
275 | exit (1); | |
276 | } | |
277 | if ((child_pid = fork()) > 0) { | |
278 | int status; | |
279 | ||
280 | close (pfd[1]); | |
281 | yyin = fdopen (pfd[0], "r"); | |
282 | yyout = stderr; | |
283 | yylex(); | |
284 | ||
285 | wait (&status); | |
286 | exit ((status >> 8) & 0xff); | |
287 | } | |
288 | else if (child_pid == 0) { | |
289 | dup2 (pfd[1], 2); | |
290 | close (pfd[0]); | |
291 | close (pfd[1]); | |
292 | argv[0] = "cc"; | |
293 | execv ("/bin/cc", argv); | |
294 | perror ("/bin/cc"); | |
295 | exit (1); | |
296 | } | |
297 | else { | |
298 | perror ("fork"); | |
299 | exit (1); | |
300 | } | |
301 | } |