Mercurial > emacs
annotate lib-src/=aixcc.lex @ 13156:a398dbd2b945
Indentation change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 08 Oct 1995 19:38:53 +0000 |
parents | 507f64624555 |
children |
rev | line source |
---|---|
468 | 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 %{ | |
469 | 11 /* moore@wilma.cs.utk.edu |
12 | |
468 | 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 /* | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
469
diff
changeset
|
160 * error message (which we print immediately) preceded by an |
468 | 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 } |