1 /* original parser id follows */
2 /* yysccsid[] = "@(#)yaccpar 1.9 (Berkeley) 02/21/93" */
3 /* (use YYMAJOR/YYMINOR for ifdefs dependent on parser version) */
4
5 #define YYBYACC 1
6 #define YYMAJOR 1
7 #define YYMINOR 9
8 #define YYCHECK "yyyymmdd"
9
10 #define YYEMPTY (-1)
11 #define yyclearin (yychar = YYEMPTY)
12 #define yyerrok (yyerrflag = 0)
13 #define YYRECOVERING() (yyerrflag != 0)
14 #define YYENOMEM (-2)
15 #define YYEOF 0
16
17 #ifndef yyparse
18 #define yyparse grammar_parse
19 #endif /* yyparse */
20
21 #ifndef yylex
22 #define yylex grammar_lex
23 #endif /* yylex */
24
25 #ifndef yyerror
26 #define yyerror grammar_error
27 #endif /* yyerror */
28
29 #ifndef yychar
30 #define yychar grammar_char
31 #endif /* yychar */
32
33 #ifndef yyval
34 #define yyval grammar_val
35 #endif /* yyval */
36
37 #ifndef yylval
38 #define yylval grammar_lval
39 #endif /* yylval */
40
41 #ifndef yydebug
42 #define yydebug grammar_debug
43 #endif /* yydebug */
44
45 #ifndef yynerrs
46 #define yynerrs grammar_nerrs
47 #endif /* yynerrs */
48
49 #ifndef yyerrflag
50 #define yyerrflag grammar_errflag
51 #endif /* yyerrflag */
52
53 #ifndef yylhs
54 #define yylhs grammar_lhs
55 #endif /* yylhs */
56
57 #ifndef yylen
58 #define yylen grammar_len
59 #endif /* yylen */
60
61 #ifndef yydefred
62 #define yydefred grammar_defred
63 #endif /* yydefred */
64
65 #ifndef yydgoto
66 #define yydgoto grammar_dgoto
67 #endif /* yydgoto */
68
69 #ifndef yysindex
70 #define yysindex grammar_sindex
71 #endif /* yysindex */
72
73 #ifndef yyrindex
74 #define yyrindex grammar_rindex
75 #endif /* yyrindex */
76
77 #ifndef yygindex
78 #define yygindex grammar_gindex
79 #endif /* yygindex */
80
81 #ifndef yytable
82 #define yytable grammar_table
83 #endif /* yytable */
84
85 #ifndef yycheck
86 #define yycheck grammar_check
87 #endif /* yycheck */
88
89 #ifndef yyname
90 #define yyname grammar_name
91 #endif /* yyname */
92
93 #ifndef yyrule
94 #define yyrule grammar_rule
95 #endif /* yyrule */
96 #define YYPREFIX "grammar_"
97
98 #define YYPURE 0
99
100 #line 9 "grammar.y"
101 #ifdef YYBISON
102 #include <stdlib.h>
103 #define YYSTYPE_IS_DECLARED
104 #define yyerror yaccError
105 #endif
106
107 #if defined(YYBISON) || !defined(YYBYACC)
108 static void yyerror(const char *s);
109 #endif
110 #line 81 "grammar.y"
111 #include <stdio.h>
112 #include <ctype.h>
113 #include <string.h>
114
115 #define OPT_LINTLIBRARY 1
116
117 #ifndef TRUE
118 #define TRUE (1)
119 #endif
120
121 #ifndef FALSE
122 #define FALSE (0)
123 #endif
124
125 /* #include "cproto.h" */
126 #define MAX_TEXT_SIZE 1024
127 #define TEXT_LEN (MAX_TEXT_SIZE / 2 - 3)
128
129 /* Prototype styles */
130 #if OPT_LINTLIBRARY
131 #define PROTO_ANSI_LLIB -2 /* form ANSI lint-library source */
132 #define PROTO_LINTLIBRARY -1 /* form lint-library source */
133 #endif
134 #define PROTO_NONE 0 /* do not output any prototypes */
135 #define PROTO_TRADITIONAL 1 /* comment out parameters */
136 #define PROTO_ABSTRACT 2 /* comment out parameter names */
137 #define PROTO_ANSI 3 /* ANSI C prototype */
138
139 typedef int PrototypeStyle;
140
141 typedef char boolean;
142
143 extern boolean types_out;
144 extern PrototypeStyle proto_style;
145
146 #define ansiLintLibrary() (proto_style == PROTO_ANSI_LLIB)
147 #define knrLintLibrary() (proto_style == PROTO_LINTLIBRARY)
148 #define lintLibrary() (knrLintLibrary() || ansiLintLibrary())
149
150 #if OPT_LINTLIBRARY
151 #define FUNC_UNKNOWN -1 /* unspecified */
152 #else
153 #define FUNC_UNKNOWN 0 /* unspecified (same as FUNC_NONE) */
154 #endif
155 #define FUNC_NONE 0 /* not a function definition */
156 #define FUNC_TRADITIONAL 1 /* traditional style */
157 #define FUNC_ANSI 2 /* ANSI style */
158 #define FUNC_BOTH 3 /* both styles */
159
160 typedef int FuncDefStyle;
161
162 /* Source file text */
163 typedef struct text {
164 char text[MAX_TEXT_SIZE]; /* source text */
165 long begin; /* offset in temporary file */
166 } Text;
167
168 /* Declaration specifier flags */
169 #define DS_NONE 0 /* default */
170 #define DS_EXTERN 1 /* contains "extern" specifier */
171 #define DS_STATIC 2 /* contains "static" specifier */
172 #define DS_CHAR 4 /* contains "char" type specifier */
173 #define DS_SHORT 8 /* contains "short" type specifier */
174 #define DS_FLOAT 16 /* contains "float" type specifier */
175 #define DS_INLINE 32 /* contains "inline" specifier */
176 #define DS_JUNK 64 /* we're not interested in this declaration */
177
178 /* This structure stores information about a declaration specifier. */
179 typedef struct decl_spec {
180 unsigned short flags; /* flags defined above */
181 char *text; /* source text */
182 long begin; /* offset in temporary file */
183 } DeclSpec;
184
185 /* This is a list of function parameters. */
186 typedef struct _ParameterList {
187 struct parameter *first; /* pointer to first parameter in list */
188 struct parameter *last; /* pointer to last parameter in list */
189 long begin_comment; /* begin offset of comment */
190 long end_comment; /* end offset of comment */
191 char *comment; /* comment at start of parameter list */
192 } ParameterList;
193
194 /* This structure stores information about a declarator. */
195 typedef struct _Declarator {
196 char *name; /* name of variable or function */
197 char *text; /* source text */
198 long begin; /* offset in temporary file */
199 long begin_comment; /* begin offset of comment */
200 long end_comment; /* end offset of comment */
201 FuncDefStyle func_def; /* style of function definition */
202 ParameterList params; /* function parameters */
203 boolean pointer; /* TRUE if it declares a pointer */
204 struct _Declarator *head; /* head function declarator */
205 struct _Declarator *func_stack; /* stack of function declarators */
206 struct _Declarator *next; /* next declarator in list */
207 } Declarator;
208
209 /* This structure stores information about a function parameter. */
210 typedef struct parameter {
211 struct parameter *next; /* next parameter in list */
212 DeclSpec decl_spec;
213 Declarator *declarator;
214 char *comment; /* comment following the parameter */
215 } Parameter;
216
217 /* This is a list of declarators. */
218 typedef struct declarator_list {
219 Declarator *first; /* pointer to first declarator in list */
220 Declarator *last; /* pointer to last declarator in list */
221 } DeclaratorList;
222
223 /* #include "symbol.h" */
224 typedef struct symbol {
225 struct symbol *next; /* next symbol in list */
226 char *name; /* name of symbol */
227 char *value; /* value of symbol (for defines) */
228 short flags; /* symbol attributes */
229 } Symbol;
230
231 /* parser stack entry type */
232 typedef union {
233 Text text;
234 DeclSpec decl_spec;
235 Parameter *parameter;
236 ParameterList param_list;
237 Declarator *declarator;
238 DeclaratorList decl_list;
239 } YYSTYPE;
240
241 /* The hash table length should be a prime number. */
242 #define SYM_MAX_HASH 251
243
244 typedef struct symbol_table {
245 Symbol *bucket[SYM_MAX_HASH]; /* hash buckets */
246 } SymbolTable;
247
248 extern SymbolTable *new_symbol_table /* Create symbol table */
249 (void);
250 extern void free_symbol_table /* Destroy symbol table */
251 (SymbolTable *s);
252 extern Symbol *find_symbol /* Lookup symbol name */
253 (SymbolTable *s, const char *n);
254 extern Symbol *new_symbol /* Define new symbol */
255 (SymbolTable *s, const char *n, const char *v, int f);
256
257 /* #include "semantic.h" */
258 extern void new_decl_spec (DeclSpec *, const char *, long, int);
259 extern void free_decl_spec (DeclSpec *);
260 extern void join_decl_specs (DeclSpec *, DeclSpec *, DeclSpec *);
261 extern void check_untagged (DeclSpec *);
262 extern Declarator *new_declarator (const char *, const char *, long);
263 extern void free_declarator (Declarator *);
264 extern void new_decl_list (DeclaratorList *, Declarator *);
265 extern void free_decl_list (DeclaratorList *);
266 extern void add_decl_list (DeclaratorList *, DeclaratorList *, Declarator *);
267 extern Parameter *new_parameter (DeclSpec *, Declarator *);
268 extern void free_parameter (Parameter *);
269 extern void new_param_list (ParameterList *, Parameter *);
270 extern void free_param_list (ParameterList *);
271 extern void add_param_list (ParameterList *, ParameterList *, Parameter *);
272 extern void new_ident_list (ParameterList *);
273 extern void add_ident_list (ParameterList *, ParameterList *, const char *);
274 extern void set_param_types (ParameterList *, DeclSpec *, DeclaratorList *);
275 extern void gen_declarations (DeclSpec *, DeclaratorList *);
276 extern void gen_prototype (DeclSpec *, Declarator *);
277 extern void gen_func_declarator (Declarator *);
278 extern void gen_func_definition (DeclSpec *, Declarator *);
279
280 extern void init_parser (void);
281 extern void process_file (FILE *infile, char *name);
282 extern char *cur_text (void);
283 extern char *cur_file_name (void);
284 extern char *implied_typedef (void);
285 extern void include_file (char *name, int convert);
286 extern char *supply_parm (int count);
287 extern char *xstrdup (const char *);
288 extern int already_declared (char *name);
289 extern int is_actual_func (Declarator *d);
290 extern int lint_ellipsis (Parameter *p);
291 extern int want_typedef (void);
292 extern void begin_tracking (void);
293 extern void begin_typedef (void);
294 extern void copy_typedef (char *s);
295 extern void ellipsis_varargs (Declarator *d);
296 extern void end_typedef (void);
297 extern void flush_varargs (void);
298 extern void fmt_library (int code);
299 extern void imply_typedef (const char *s);
300 extern void indent (FILE *outf);
301 extern void put_blankline (FILE *outf);
302 extern void put_body (FILE *outf, DeclSpec *decl_spec, Declarator *declarator);
303 extern void put_char (FILE *outf, int c);
304 extern void put_error (void);
305 extern void put_newline (FILE *outf);
306 extern void put_padded (FILE *outf, const char *s);
307 extern void put_string (FILE *outf, const char *s);
308 extern void track_in (void);
309
310 extern boolean file_comments;
311 extern FuncDefStyle func_style;
312 extern char base_file[];
313
314 extern int yylex (void);
315
316 /* declaration specifier attributes for the typedef statement currently being
317 * scanned
318 */
319 static int cur_decl_spec_flags;
320
321 /* pointer to parameter list for the current function definition */
322 static ParameterList *func_params;
323
324 /* A parser semantic action sets this pointer to the current declarator in
325 * a function parameter declaration in order to catch any comments following
326 * the parameter declaration on the same line. If the lexer scans a comment
327 * and <cur_declarator> is not NULL, then the comment is attached to the
328 * declarator. To ignore subsequent comments, the lexer sets this to NULL
329 * after scanning a comment or end of line.
330 */
331 static Declarator *cur_declarator;
332
333 /* temporary string buffer */
334 static char buf[MAX_TEXT_SIZE];
335
336 /* table of typedef names */
337 static SymbolTable *typedef_names;
338
339 /* table of define names */
340 static SymbolTable *define_names;
341
342 /* table of type qualifiers */
343 static SymbolTable *type_qualifiers;
344
345 /* information about the current input file */
346 typedef struct {
347 char *base_name; /* base input file name */
348 char *file_name; /* current file name */
349 FILE *file; /* input file */
350 unsigned line_num; /* current line number in input file */
351 FILE *tmp_file; /* temporary file */
352 long begin_comment; /* tmp file offset after last written ) or ; */
353 long end_comment; /* tmp file offset after last comment */
354 boolean convert; /* if TRUE, convert function definitions */
355 boolean changed; /* TRUE if conversion done in this file */
356 } IncludeStack;
357
358 static IncludeStack *cur_file; /* current input file */
359
360 /* #include "yyerror.c" */
361
362 static int haveAnsiParam (void);
363
364
365 /* Flags to enable us to find if a procedure returns a value.
366 */
367 static int return_val; /* nonzero on BRACES iff return-expression found */
368
369 static const char *
dft_decl_spec(void)370 dft_decl_spec (void)
371 {
372 return (lintLibrary() && !return_val) ? "void" : "int";
373 }
374
375 static int
haveAnsiParam(void)376 haveAnsiParam (void)
377 {
378 Parameter *p;
379 if (func_params != 0) {
380 for (p = func_params->first; p != 0; p = p->next) {
381 if (p->declarator->func_def == FUNC_ANSI) {
382 return TRUE;
383 }
384 }
385 }
386 return FALSE;
387 }
388 #line 389 "grammar.tab.c"
389
390 /* compatibility with bison */
391 #ifdef YYPARSE_PARAM
392 /* compatibility with FreeBSD */
393 # ifdef YYPARSE_PARAM_TYPE
394 # define YYPARSE_DECL() yyparse(YYPARSE_PARAM_TYPE YYPARSE_PARAM)
395 # else
396 # define YYPARSE_DECL() yyparse(void *YYPARSE_PARAM)
397 # endif
398 #else
399 # define YYPARSE_DECL() yyparse(void)
400 #endif
401
402 /* Parameters sent to lex. */
403 #ifdef YYLEX_PARAM
404 # define YYLEX_DECL() yylex(void *YYLEX_PARAM)
405 # define YYLEX yylex(YYLEX_PARAM)
406 #else
407 # define YYLEX_DECL() yylex(void)
408 # define YYLEX yylex()
409 #endif
410
411 /* Parameters sent to yyerror. */
412 #ifndef YYERROR_DECL
413 #define YYERROR_DECL() yyerror(const char *s)
414 #endif
415 #ifndef YYERROR_CALL
416 #define YYERROR_CALL(msg) yyerror(msg)
417 #endif
418
419 extern int YYPARSE_DECL();
420
421 #define T_IDENTIFIER 257
422 #define T_TYPEDEF_NAME 258
423 #define T_DEFINE_NAME 259
424 #define T_AUTO 260
425 #define T_EXTERN 261
426 #define T_REGISTER 262
427 #define T_STATIC 263
428 #define T_TYPEDEF 264
429 #define T_INLINE 265
430 #define T_EXTENSION 266
431 #define T_CHAR 267
432 #define T_DOUBLE 268
433 #define T_FLOAT 269
434 #define T_INT 270
435 #define T_VOID 271
436 #define T_LONG 272
437 #define T_SHORT 273
438 #define T_SIGNED 274
439 #define T_UNSIGNED 275
440 #define T_ENUM 276
441 #define T_STRUCT 277
442 #define T_UNION 278
443 #define T_Bool 279
444 #define T_Complex 280
445 #define T_Imaginary 281
446 #define T_TYPE_QUALIFIER 282
447 #define T_BRACKETS 283
448 #define T_LBRACE 284
449 #define T_MATCHRBRACE 285
450 #define T_ELLIPSIS 286
451 #define T_INITIALIZER 287
452 #define T_STRING_LITERAL 288
453 #define T_ASM 289
454 #define T_ASMARG 290
455 #define T_VA_DCL 291
456 #define YYERRCODE 256
457 typedef int YYINT;
458 static const YYINT grammar_lhs[] = { -1,
459 0, 0, 26, 26, 27, 27, 27, 27, 27, 27,
460 27, 31, 30, 30, 28, 28, 34, 28, 32, 32,
461 33, 33, 35, 35, 37, 38, 29, 39, 29, 36,
462 36, 36, 40, 40, 1, 1, 2, 2, 2, 3,
463 3, 3, 3, 3, 3, 4, 4, 4, 4, 4,
464 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
465 5, 5, 6, 6, 6, 19, 19, 8, 8, 9,
466 41, 9, 7, 7, 7, 25, 23, 23, 10, 10,
467 11, 11, 11, 11, 11, 20, 20, 21, 21, 22,
468 22, 14, 14, 15, 15, 16, 16, 16, 17, 17,
469 18, 18, 24, 24, 12, 12, 12, 13, 13, 13,
470 13, 13, 13, 13,
471 };
472 static const YYINT grammar_len[] = { 2,
473 0, 1, 1, 2, 1, 1, 1, 1, 3, 2,
474 2, 2, 3, 3, 2, 3, 0, 5, 2, 1,
475 0, 1, 1, 3, 0, 0, 7, 0, 5, 0,
476 1, 1, 1, 2, 1, 2, 1, 1, 1, 1,
477 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
478 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
479 1, 1, 3, 2, 2, 1, 1, 1, 3, 1,
480 0, 4, 3, 2, 2, 1, 1, 1, 2, 1,
481 1, 3, 2, 4, 4, 2, 3, 0, 1, 1,
482 2, 1, 3, 1, 3, 2, 2, 1, 0, 1,
483 1, 3, 1, 2, 1, 2, 1, 3, 2, 1,
484 4, 3, 3, 2,
485 };
486 static const YYINT grammar_defred[] = { 0,
487 0, 0, 0, 0, 77, 0, 62, 40, 0, 42,
488 43, 20, 44, 0, 46, 47, 48, 49, 54, 50,
489 51, 52, 53, 76, 66, 67, 55, 56, 57, 61,
490 0, 7, 0, 0, 35, 37, 38, 39, 59, 60,
491 28, 0, 0, 0, 103, 81, 0, 0, 3, 5,
492 6, 8, 0, 10, 11, 78, 0, 90, 0, 0,
493 104, 0, 19, 0, 41, 45, 15, 36, 0, 68,
494 0, 0, 0, 83, 0, 0, 64, 0, 0, 74,
495 4, 58, 0, 82, 87, 91, 0, 14, 13, 9,
496 16, 0, 71, 0, 31, 33, 0, 0, 0, 0,
497 0, 94, 0, 0, 101, 12, 63, 73, 0, 0,
498 69, 0, 0, 0, 34, 0, 110, 96, 97, 0,
499 0, 84, 0, 85, 0, 23, 0, 0, 72, 26,
500 29, 114, 0, 0, 0, 109, 0, 93, 95, 102,
501 18, 0, 0, 108, 113, 112, 0, 24, 27, 111,
502 };
503 static const YYINT grammar_dgoto[] = { 33,
504 87, 35, 36, 37, 38, 39, 40, 69, 70, 41,
505 42, 119, 120, 100, 101, 102, 103, 104, 43, 44,
506 59, 60, 45, 46, 47, 48, 49, 50, 51, 52,
507 77, 53, 127, 109, 128, 97, 94, 143, 72, 98,
508 112,
509 };
510 static const YYINT grammar_sindex[] = { -2,
511 -3, 27, -239, -177, 0, 0, 0, 0, -274, 0,
512 0, 0, 0, -246, 0, 0, 0, 0, 0, 0,
513 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
514 -266, 0, 0, 455, 0, 0, 0, 0, 0, 0,
515 0, -35, -245, 128, 0, 0, -245, -2, 0, 0,
516 0, 0, 642, 0, 0, 0, -15, 0, -12, -239,
517 0, 590, 0, -27, 0, 0, 0, 0, -10, 0,
518 -11, 534, -72, 0, -237, -232, 0, -35, -232, 0,
519 0, 0, 642, 0, 0, 0, 455, 0, 0, 0,
520 0, 27, 0, 534, 0, 0, -222, 617, 209, 34,
521 39, 0, 44, 42, 0, 0, 0, 0, 27, -11,
522 0, -200, -196, -195, 0, 174, 0, 0, 0, -33,
523 243, 0, 561, 0, -177, 0, 33, 49, 0, 0,
524 0, 0, 53, 55, 417, 0, -33, 0, 0, 0,
525 0, 27, -188, 0, 0, 0, 57, 0, 0, 0,
526 };
527 static const YYINT grammar_rindex[] = { 99,
528 0, 0, 275, 0, 0, -38, 0, 0, 481, 0,
529 0, 0, 0, 509, 0, 0, 0, 0, 0, 0,
530 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
531 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
532 0, 30, 0, 0, 0, 0, 0, 101, 0, 0,
533 0, 0, 0, 0, 0, 0, 0, 0, 343, 309,
534 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
535 98, -182, 62, 0, 0, 133, 0, 64, 379, 0,
536 0, 0, -5, 0, 0, 0, 0, 0, 0, 0,
537 0, 0, 0, -182, 0, 0, 0, -180, -19, 0,
538 65, 0, 0, 68, 0, 0, 0, 0, 51, 9,
539 0, 0, 0, 0, 0, 0, 0, 0, 0, -13,
540 19, 0, 0, 0, 0, 0, 0, 52, 0, 0,
541 0, 0, 0, 0, 0, 0, 35, 0, 0, 0,
542 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
543 };
544 static const YYINT grammar_gindex[] = { 0,
545 11, -17, 0, 0, 13, 0, 0, 0, 20, 8,
546 -43, -1, -8, -89, 0, -9, 0, 0, 0, -44,
547 0, 0, 4, 0, 0, 0, 70, -53, 0, 0,
548 -18, 0, 0, 0, 0, 22, 0, 0, 0, 0,
549 0,
550 };
551 #define YYTABLESIZE 924
552 static const YYINT grammar_table[] = { 58,
553 78, 58, 58, 58, 73, 58, 135, 61, 88, 57,
554 34, 5, 56, 62, 85, 58, 68, 63, 96, 7,
555 58, 98, 78, 64, 98, 84, 134, 107, 80, 3,
556 107, 90, 17, 92, 17, 4, 17, 2, 75, 3,
557 96, 71, 30, 89, 115, 147, 76, 106, 91, 93,
558 79, 75, 70, 17, 121, 55, 32, 107, 34, 105,
559 108, 114, 105, 83, 4, 68, 2, 70, 3, 68,
560 80, 121, 86, 80, 122, 106, 105, 78, 106, 5,
561 56, 68, 123, 99, 124, 125, 129, 130, 80, 131,
562 80, 141, 142, 144, 110, 145, 149, 150, 1, 110,
563 2, 30, 99, 32, 79, 92, 118, 79, 100, 21,
564 22, 111, 137, 139, 133, 113, 126, 81, 0, 0,
565 0, 0, 79, 57, 79, 0, 99, 0, 140, 0,
566 0, 0, 0, 99, 0, 0, 0, 0, 0, 0,
567 0, 70, 0, 0, 0, 99, 0, 0, 0, 148,
568 0, 0, 0, 0, 0, 0, 70, 0, 0, 0,
569 0, 0, 0, 0, 0, 4, 0, 2, 0, 0,
570 65, 0, 65, 65, 65, 0, 65, 0, 0, 0,
571 0, 0, 0, 0, 5, 6, 7, 8, 65, 10,
572 11, 65, 13, 66, 15, 16, 17, 18, 19, 20,
573 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
574 0, 4, 0, 116, 132, 3, 0, 0, 58, 58,
575 58, 58, 58, 58, 58, 78, 58, 58, 58, 58,
576 58, 58, 58, 58, 58, 58, 58, 58, 58, 58,
577 58, 58, 58, 58, 58, 78, 4, 74, 116, 136,
578 3, 17, 78, 1, 5, 6, 7, 8, 9, 10,
579 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
580 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
581 4, 54, 116, 5, 56, 0, 31, 80, 80, 80,
582 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
583 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
584 80, 80, 88, 80, 88, 88, 88, 0, 88, 0,
585 80, 79, 79, 79, 79, 79, 79, 79, 79, 79,
586 79, 79, 79, 79, 79, 79, 79, 79, 79, 79,
587 79, 79, 79, 79, 79, 79, 89, 79, 89, 89,
588 89, 0, 89, 0, 79, 25, 25, 25, 25, 25,
589 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
590 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
591 86, 25, 86, 86, 5, 56, 86, 0, 25, 65,
592 65, 65, 65, 65, 65, 65, 0, 65, 65, 65,
593 65, 65, 65, 65, 65, 65, 65, 65, 65, 65,
594 65, 65, 65, 65, 65, 65, 75, 0, 75, 75,
595 75, 0, 75, 0, 0, 0, 0, 0, 0, 0,
596 5, 6, 7, 8, 65, 10, 11, 75, 13, 66,
597 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
598 25, 26, 27, 28, 29, 30, 117, 146, 0, 0,
599 0, 0, 0, 0, 0, 5, 6, 7, 8, 65,
600 10, 11, 0, 13, 66, 15, 16, 17, 18, 19,
601 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
602 30, 117, 4, 0, 2, 0, 3, 0, 0, 5,
603 56, 0, 0, 0, 0, 0, 0, 0, 0, 0,
604 0, 0, 0, 67, 0, 0, 0, 0, 41, 0,
605 41, 0, 41, 0, 0, 117, 0, 0, 0, 0,
606 0, 88, 88, 0, 0, 0, 0, 0, 0, 41,
607 0, 0, 0, 0, 0, 0, 45, 0, 45, 0,
608 45, 0, 0, 0, 0, 0, 0, 88, 0, 0,
609 0, 0, 0, 0, 0, 89, 89, 45, 0, 0,
610 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
611 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
612 0, 89, 0, 0, 0, 0, 0, 0, 0, 86,
613 86, 0, 0, 0, 0, 0, 0, 0, 0, 0,
614 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
615 0, 0, 0, 0, 0, 86, 0, 0, 0, 0,
616 0, 0, 0, 0, 0, 75, 75, 75, 75, 75,
617 75, 75, 0, 75, 75, 75, 75, 75, 75, 75,
618 75, 75, 75, 75, 75, 75, 75, 75, 75, 75,
619 75, 75, 0, 0, 0, 0, 0, 0, 0, 0,
620 0, 0, 0, 0, 82, 7, 8, 65, 10, 11,
621 0, 13, 66, 15, 16, 17, 18, 19, 20, 21,
622 22, 23, 24, 25, 26, 27, 28, 29, 30, 0,
623 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
624 0, 5, 6, 7, 8, 65, 10, 11, 0, 13,
625 66, 15, 16, 17, 18, 19, 20, 21, 22, 23,
626 24, 25, 26, 27, 28, 29, 30, 41, 41, 41,
627 41, 41, 41, 41, 0, 41, 41, 41, 41, 41,
628 41, 41, 41, 41, 41, 41, 41, 41, 41, 41,
629 41, 41, 41, 0, 0, 45, 45, 45, 45, 45,
630 45, 45, 0, 45, 45, 45, 45, 45, 45, 45,
631 45, 45, 45, 45, 45, 45, 45, 45, 45, 45,
632 45, 82, 7, 8, 65, 10, 11, 12, 13, 14,
633 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
634 25, 26, 27, 28, 29, 30, 0, 0, 82, 7,
635 8, 65, 10, 11, 95, 13, 66, 15, 16, 17,
636 18, 19, 20, 21, 22, 23, 24, 25, 26, 27,
637 28, 29, 30, 0, 0, 0, 138, 82, 7, 8,
638 65, 10, 11, 12, 13, 14, 15, 16, 17, 18,
639 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
640 29, 30, 0, 75, 82, 7, 8, 65, 10, 11,
641 12, 13, 14, 15, 16, 17, 18, 19, 20, 21,
642 22, 23, 24, 25, 26, 27, 28, 29, 30, 82,
643 7, 8, 65, 10, 11, 0, 13, 66, 15, 16,
644 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
645 27, 28, 29, 30,
646 };
647 static const YYINT grammar_check[] = { 38,
648 44, 40, 41, 42, 40, 44, 40, 4, 62, 2,
649 0, 257, 258, 288, 59, 3, 34, 264, 72, 259,
650 59, 41, 61, 290, 44, 41, 116, 41, 47, 42,
651 44, 59, 38, 44, 40, 38, 42, 40, 284, 42,
652 94, 34, 282, 62, 98, 135, 43, 285, 59, 61,
653 47, 284, 44, 59, 99, 59, 59, 76, 48, 41,
654 79, 284, 44, 53, 38, 83, 40, 59, 42, 87,
655 41, 116, 60, 44, 41, 41, 73, 121, 44, 257,
656 258, 99, 44, 73, 41, 44, 287, 284, 59, 285,
657 61, 59, 44, 41, 87, 41, 285, 41, 0, 92,
658 0, 284, 41, 284, 41, 41, 99, 44, 41, 59,
659 59, 92, 121, 123, 116, 94, 109, 48, -1, -1,
660 -1, -1, 59, 116, 61, -1, 116, -1, 125, -1,
661 -1, -1, -1, 123, -1, -1, -1, -1, -1, -1,
662 -1, 44, -1, -1, -1, 135, -1, -1, -1, 142,
663 -1, -1, -1, -1, -1, -1, 59, -1, -1, -1,
664 -1, -1, -1, -1, -1, 38, -1, 40, -1, -1,
665 38, -1, 40, 41, 42, -1, 44, -1, -1, -1,
666 -1, -1, -1, -1, 257, 258, 259, 260, 261, 262,
667 263, 59, 265, 266, 267, 268, 269, 270, 271, 272,
668 273, 274, 275, 276, 277, 278, 279, 280, 281, 282,
669 -1, 38, -1, 40, 41, 42, -1, -1, 257, 258,
670 259, 260, 261, 262, 263, 264, 265, 266, 267, 268,
671 269, 270, 271, 272, 273, 274, 275, 276, 277, 278,
672 279, 280, 281, 282, 283, 284, 38, 283, 40, 283,
673 42, 257, 291, 256, 257, 258, 259, 260, 261, 262,
674 263, 264, 265, 266, 267, 268, 269, 270, 271, 272,
675 273, 274, 275, 276, 277, 278, 279, 280, 281, 282,
676 38, 285, 40, 257, 258, -1, 289, 258, 259, 260,
677 261, 262, 263, 264, 265, 266, 267, 268, 269, 270,
678 271, 272, 273, 274, 275, 276, 277, 278, 279, 280,
679 281, 282, 38, 284, 40, 41, 42, -1, 44, -1,
680 291, 258, 259, 260, 261, 262, 263, 264, 265, 266,
681 267, 268, 269, 270, 271, 272, 273, 274, 275, 276,
682 277, 278, 279, 280, 281, 282, 38, 284, 40, 41,
683 42, -1, 44, -1, 291, 258, 259, 260, 261, 262,
684 263, 264, 265, 266, 267, 268, 269, 270, 271, 272,
685 273, 274, 275, 276, 277, 278, 279, 280, 281, 282,
686 38, 284, 40, 41, 257, 258, 44, -1, 291, 257,
687 258, 259, 260, 261, 262, 263, -1, 265, 266, 267,
688 268, 269, 270, 271, 272, 273, 274, 275, 276, 277,
689 278, 279, 280, 281, 282, 283, 38, -1, 40, 41,
690 42, -1, 44, -1, -1, -1, -1, -1, -1, -1,
691 257, 258, 259, 260, 261, 262, 263, 59, 265, 266,
692 267, 268, 269, 270, 271, 272, 273, 274, 275, 276,
693 277, 278, 279, 280, 281, 282, 283, 41, -1, -1,
694 -1, -1, -1, -1, -1, 257, 258, 259, 260, 261,
695 262, 263, -1, 265, 266, 267, 268, 269, 270, 271,
696 272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
697 282, 283, 38, -1, 40, -1, 42, -1, -1, 257,
698 258, -1, -1, -1, -1, -1, -1, -1, -1, -1,
699 -1, -1, -1, 59, -1, -1, -1, -1, 38, -1,
700 40, -1, 42, -1, -1, 283, -1, -1, -1, -1,
701 -1, 257, 258, -1, -1, -1, -1, -1, -1, 59,
702 -1, -1, -1, -1, -1, -1, 38, -1, 40, -1,
703 42, -1, -1, -1, -1, -1, -1, 283, -1, -1,
704 -1, -1, -1, -1, -1, 257, 258, 59, -1, -1,
705 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
706 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
707 -1, 283, -1, -1, -1, -1, -1, -1, -1, 257,
708 258, -1, -1, -1, -1, -1, -1, -1, -1, -1,
709 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
710 -1, -1, -1, -1, -1, 283, -1, -1, -1, -1,
711 -1, -1, -1, -1, -1, 257, 258, 259, 260, 261,
712 262, 263, -1, 265, 266, 267, 268, 269, 270, 271,
713 272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
714 282, 283, -1, -1, -1, -1, -1, -1, -1, -1,
715 -1, -1, -1, -1, 258, 259, 260, 261, 262, 263,
716 -1, 265, 266, 267, 268, 269, 270, 271, 272, 273,
717 274, 275, 276, 277, 278, 279, 280, 281, 282, -1,
718 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
719 -1, 257, 258, 259, 260, 261, 262, 263, -1, 265,
720 266, 267, 268, 269, 270, 271, 272, 273, 274, 275,
721 276, 277, 278, 279, 280, 281, 282, 257, 258, 259,
722 260, 261, 262, 263, -1, 265, 266, 267, 268, 269,
723 270, 271, 272, 273, 274, 275, 276, 277, 278, 279,
724 280, 281, 282, -1, -1, 257, 258, 259, 260, 261,
725 262, 263, -1, 265, 266, 267, 268, 269, 270, 271,
726 272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
727 282, 258, 259, 260, 261, 262, 263, 264, 265, 266,
728 267, 268, 269, 270, 271, 272, 273, 274, 275, 276,
729 277, 278, 279, 280, 281, 282, -1, -1, 258, 259,
730 260, 261, 262, 263, 291, 265, 266, 267, 268, 269,
731 270, 271, 272, 273, 274, 275, 276, 277, 278, 279,
732 280, 281, 282, -1, -1, -1, 286, 258, 259, 260,
733 261, 262, 263, 264, 265, 266, 267, 268, 269, 270,
734 271, 272, 273, 274, 275, 276, 277, 278, 279, 280,
735 281, 282, -1, 284, 258, 259, 260, 261, 262, 263,
736 264, 265, 266, 267, 268, 269, 270, 271, 272, 273,
737 274, 275, 276, 277, 278, 279, 280, 281, 282, 258,
738 259, 260, 261, 262, 263, -1, 265, 266, 267, 268,
739 269, 270, 271, 272, 273, 274, 275, 276, 277, 278,
740 279, 280, 281, 282,
741 };
742 #define YYFINAL 33
743 #ifndef YYDEBUG
744 #define YYDEBUG 0
745 #endif
746 #define YYMAXTOKEN 291
747 #define YYUNDFTOKEN 335
748 #define YYTRANSLATE(a) ((a) > YYMAXTOKEN ? YYUNDFTOKEN : (a))
749 #if YYDEBUG
750 static const char *const grammar_name[] = {
751
752 "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
753 0,0,0,0,"'&'",0,"'('","')'","'*'",0,"','",0,0,0,0,0,0,0,0,0,0,0,0,0,0,"';'",0,
754 "'='",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
755 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
756 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
757 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
758 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
759 "T_IDENTIFIER","T_TYPEDEF_NAME","T_DEFINE_NAME","T_AUTO","T_EXTERN",
760 "T_REGISTER","T_STATIC","T_TYPEDEF","T_INLINE","T_EXTENSION","T_CHAR",
761 "T_DOUBLE","T_FLOAT","T_INT","T_VOID","T_LONG","T_SHORT","T_SIGNED",
762 "T_UNSIGNED","T_ENUM","T_STRUCT","T_UNION","T_Bool","T_Complex","T_Imaginary",
763 "T_TYPE_QUALIFIER","T_BRACKETS","T_LBRACE","T_MATCHRBRACE","T_ELLIPSIS",
764 "T_INITIALIZER","T_STRING_LITERAL","T_ASM","T_ASMARG","T_VA_DCL",0,0,0,0,0,0,0,
765 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
766 "illegal-symbol",
767 };
768 static const char *const grammar_rule[] = {
769 "$accept : program",
770 "program :",
771 "program : translation_unit",
772 "translation_unit : external_declaration",
773 "translation_unit : translation_unit external_declaration",
774 "external_declaration : declaration",
775 "external_declaration : function_definition",
776 "external_declaration : ';'",
777 "external_declaration : linkage_specification",
778 "external_declaration : T_ASM T_ASMARG ';'",
779 "external_declaration : error T_MATCHRBRACE",
780 "external_declaration : error ';'",
781 "braces : T_LBRACE T_MATCHRBRACE",
782 "linkage_specification : T_EXTERN T_STRING_LITERAL braces",
783 "linkage_specification : T_EXTERN T_STRING_LITERAL declaration",
784 "declaration : decl_specifiers ';'",
785 "declaration : decl_specifiers init_declarator_list ';'",
786 "$$1 :",
787 "declaration : any_typedef decl_specifiers $$1 opt_declarator_list ';'",
788 "any_typedef : T_EXTENSION T_TYPEDEF",
789 "any_typedef : T_TYPEDEF",
790 "opt_declarator_list :",
791 "opt_declarator_list : declarator_list",
792 "declarator_list : declarator",
793 "declarator_list : declarator_list ',' declarator",
794 "$$2 :",
795 "$$3 :",
796 "function_definition : decl_specifiers declarator $$2 opt_declaration_list T_LBRACE $$3 T_MATCHRBRACE",
797 "$$4 :",
798 "function_definition : declarator $$4 opt_declaration_list T_LBRACE T_MATCHRBRACE",
799 "opt_declaration_list :",
800 "opt_declaration_list : T_VA_DCL",
801 "opt_declaration_list : declaration_list",
802 "declaration_list : declaration",
803 "declaration_list : declaration_list declaration",
804 "decl_specifiers : decl_specifier",
805 "decl_specifiers : decl_specifiers decl_specifier",
806 "decl_specifier : storage_class",
807 "decl_specifier : type_specifier",
808 "decl_specifier : type_qualifier",
809 "storage_class : T_AUTO",
810 "storage_class : T_EXTERN",
811 "storage_class : T_REGISTER",
812 "storage_class : T_STATIC",
813 "storage_class : T_INLINE",
814 "storage_class : T_EXTENSION",
815 "type_specifier : T_CHAR",
816 "type_specifier : T_DOUBLE",
817 "type_specifier : T_FLOAT",
818 "type_specifier : T_INT",
819 "type_specifier : T_LONG",
820 "type_specifier : T_SHORT",
821 "type_specifier : T_SIGNED",
822 "type_specifier : T_UNSIGNED",
823 "type_specifier : T_VOID",
824 "type_specifier : T_Bool",
825 "type_specifier : T_Complex",
826 "type_specifier : T_Imaginary",
827 "type_specifier : T_TYPEDEF_NAME",
828 "type_specifier : struct_or_union_specifier",
829 "type_specifier : enum_specifier",
830 "type_qualifier : T_TYPE_QUALIFIER",
831 "type_qualifier : T_DEFINE_NAME",
832 "struct_or_union_specifier : struct_or_union any_id braces",
833 "struct_or_union_specifier : struct_or_union braces",
834 "struct_or_union_specifier : struct_or_union any_id",
835 "struct_or_union : T_STRUCT",
836 "struct_or_union : T_UNION",
837 "init_declarator_list : init_declarator",
838 "init_declarator_list : init_declarator_list ',' init_declarator",
839 "init_declarator : declarator",
840 "$$5 :",
841 "init_declarator : declarator '=' $$5 T_INITIALIZER",
842 "enum_specifier : enumeration any_id braces",
843 "enum_specifier : enumeration braces",
844 "enum_specifier : enumeration any_id",
845 "enumeration : T_ENUM",
846 "any_id : T_IDENTIFIER",
847 "any_id : T_TYPEDEF_NAME",
848 "declarator : pointer direct_declarator",
849 "declarator : direct_declarator",
850 "direct_declarator : identifier_or_ref",
851 "direct_declarator : '(' declarator ')'",
852 "direct_declarator : direct_declarator T_BRACKETS",
853 "direct_declarator : direct_declarator '(' parameter_type_list ')'",
854 "direct_declarator : direct_declarator '(' opt_identifier_list ')'",
855 "pointer : '*' opt_type_qualifiers",
856 "pointer : '*' opt_type_qualifiers pointer",
857 "opt_type_qualifiers :",
858 "opt_type_qualifiers : type_qualifier_list",
859 "type_qualifier_list : type_qualifier",
860 "type_qualifier_list : type_qualifier_list type_qualifier",
861 "parameter_type_list : parameter_list",
862 "parameter_type_list : parameter_list ',' T_ELLIPSIS",
863 "parameter_list : parameter_declaration",
864 "parameter_list : parameter_list ',' parameter_declaration",
865 "parameter_declaration : decl_specifiers declarator",
866 "parameter_declaration : decl_specifiers abs_declarator",
867 "parameter_declaration : decl_specifiers",
868 "opt_identifier_list :",
869 "opt_identifier_list : identifier_list",
870 "identifier_list : any_id",
871 "identifier_list : identifier_list ',' any_id",
872 "identifier_or_ref : any_id",
873 "identifier_or_ref : '&' any_id",
874 "abs_declarator : pointer",
875 "abs_declarator : pointer direct_abs_declarator",
876 "abs_declarator : direct_abs_declarator",
877 "direct_abs_declarator : '(' abs_declarator ')'",
878 "direct_abs_declarator : direct_abs_declarator T_BRACKETS",
879 "direct_abs_declarator : T_BRACKETS",
880 "direct_abs_declarator : direct_abs_declarator '(' parameter_type_list ')'",
881 "direct_abs_declarator : direct_abs_declarator '(' ')'",
882 "direct_abs_declarator : '(' parameter_type_list ')'",
883 "direct_abs_declarator : '(' ')'",
884
885 };
886 #endif
887
888 #if YYDEBUG
889 int yydebug;
890 #endif
891
892 int yyerrflag;
893 int yychar;
894 YYSTYPE yyval;
895 YYSTYPE yylval;
896 int yynerrs;
897
898 /* define the initial stack-sizes */
899 #ifdef YYSTACKSIZE
900 #undef YYMAXDEPTH
901 #define YYMAXDEPTH YYSTACKSIZE
902 #else
903 #ifdef YYMAXDEPTH
904 #define YYSTACKSIZE YYMAXDEPTH
905 #else
906 #define YYSTACKSIZE 10000
907 #define YYMAXDEPTH 10000
908 #endif
909 #endif
910
911 #define YYINITSTACKSIZE 200
912
913 typedef struct {
914 unsigned stacksize;
915 YYINT *s_base;
916 YYINT *s_mark;
917 YYINT *s_last;
918 YYSTYPE *l_base;
919 YYSTYPE *l_mark;
920 } YYSTACKDATA;
921 /* variables for the parser stack */
922 static YYSTACKDATA yystack;
923 #line 1015 "grammar.y"
924
925 /* lex.yy.c */
926 #define BEGIN yy_start = 1 + 2 *
927
928 #define CPP1 1
929 #define INIT1 2
930 #define INIT2 3
931 #define CURLY 4
932 #define LEXYACC 5
933 #define ASM 6
934 #define CPP_INLINE 7
935
936 extern char *yytext;
937 extern FILE *yyin, *yyout;
938
939 static int curly; /* number of curly brace nesting levels */
940 static int ly_count; /* number of occurrences of %% */
941 static int inc_depth; /* include nesting level */
942 static SymbolTable *included_files; /* files already included */
943 static int yy_start = 0; /* start state number */
944
945 #define grammar_error(s) yaccError(s)
946
947 static void
yaccError(const char * msg)948 yaccError (const char *msg)
949 {
950 func_params = NULL;
951 put_error(); /* tell what line we're on, and what file */
952 fprintf(stderr, "%s at token '%s'\n", msg, yytext);
953 }
954
955 /* Initialize the table of type qualifier keywords recognized by the lexical
956 * analyzer.
957 */
958 void
init_parser(void)959 init_parser (void)
960 {
961 static const char *keywords[] = {
962 "const",
963 "restrict",
964 "volatile",
965 "interrupt",
966 #ifdef vms
967 "noshare",
968 "readonly",
969 #endif
970 #if defined(MSDOS) || defined(OS2)
971 "__cdecl",
972 "__export",
973 "__far",
974 "__fastcall",
975 "__fortran",
976 "__huge",
977 "__inline",
978 "__interrupt",
979 "__loadds",
980 "__near",
981 "__pascal",
982 "__saveregs",
983 "__segment",
984 "__stdcall",
985 "__syscall",
986 "_cdecl",
987 "_cs",
988 "_ds",
989 "_es",
990 "_export",
991 "_far",
992 "_fastcall",
993 "_fortran",
994 "_huge",
995 "_interrupt",
996 "_loadds",
997 "_near",
998 "_pascal",
999 "_saveregs",
1000 "_seg",
1001 "_segment",
1002 "_ss",
1003 "cdecl",
1004 "far",
1005 "huge",
1006 "near",
1007 "pascal",
1008 #ifdef OS2
1009 "__far16",
1010 #endif
1011 #endif
1012 #ifdef __GNUC__
1013 /* gcc aliases */
1014 "__builtin_va_arg",
1015 "__builtin_va_list",
1016 "__const",
1017 "__const__",
1018 "__inline",
1019 "__inline__",
1020 "__restrict",
1021 "__restrict__",
1022 "__volatile",
1023 "__volatile__",
1024 #endif
1025 };
1026 unsigned i;
1027
1028 /* Initialize type qualifier table. */
1029 type_qualifiers = new_symbol_table();
1030 for (i = 0; i < sizeof(keywords)/sizeof(keywords[0]); ++i) {
1031 new_symbol(type_qualifiers, keywords[i], NULL, DS_NONE);
1032 }
1033 }
1034
1035 /* Process the C source file. Write function prototypes to the standard
1036 * output. Convert function definitions and write the converted source
1037 * code to a temporary file.
1038 */
1039 void
process_file(FILE * infile,char * name)1040 process_file (FILE *infile, char *name)
1041 {
1042 char *s;
1043
1044 if (strlen(name) > 2) {
1045 s = name + strlen(name) - 2;
1046 if (*s == '.') {
1047 ++s;
1048 if (*s == 'l' || *s == 'y')
1049 BEGIN LEXYACC;
1050 #if defined(MSDOS) || defined(OS2)
1051 if (*s == 'L' || *s == 'Y')
1052 BEGIN LEXYACC;
1053 #endif
1054 }
1055 }
1056
1057 included_files = new_symbol_table();
1058 typedef_names = new_symbol_table();
1059 define_names = new_symbol_table();
1060 inc_depth = -1;
1061 curly = 0;
1062 ly_count = 0;
1063 func_params = NULL;
1064 yyin = infile;
1065 include_file(strcpy(base_file, name), func_style != FUNC_NONE);
1066 if (file_comments) {
1067 #if OPT_LINTLIBRARY
1068 if (lintLibrary()) {
1069 put_blankline(stdout);
1070 begin_tracking();
1071 }
1072 #endif
1073 put_string(stdout, "/* ");
1074 put_string(stdout, cur_file_name());
1075 put_string(stdout, " */\n");
1076 }
1077 yyparse();
1078 free_symbol_table(define_names);
1079 free_symbol_table(typedef_names);
1080 free_symbol_table(included_files);
1081 }
1082
1083 #ifdef NO_LEAKS
1084 void
free_parser(void)1085 free_parser(void)
1086 {
1087 free_symbol_table (type_qualifiers);
1088 #ifdef FLEX_SCANNER
1089 if (yy_current_buffer != 0)
1090 yy_delete_buffer(yy_current_buffer);
1091 #endif
1092 }
1093 #endif
1094 #line 1095 "grammar.tab.c"
1095
1096 #if YYDEBUG
1097 #include <stdio.h> /* needed for printf */
1098 #endif
1099
1100 #include <stdlib.h> /* needed for malloc, etc */
1101 #include <string.h> /* needed for memset */
1102
1103 /* allocate initial stack or double stack size, up to YYMAXDEPTH */
yygrowstack(YYSTACKDATA * data)1104 static int yygrowstack(YYSTACKDATA *data)
1105 {
1106 int i;
1107 unsigned newsize;
1108 YYINT *newss;
1109 YYSTYPE *newvs;
1110
1111 if ((newsize = data->stacksize) == 0)
1112 newsize = YYINITSTACKSIZE;
1113 else if (newsize >= YYMAXDEPTH)
1114 return YYENOMEM;
1115 else if ((newsize *= 2) > YYMAXDEPTH)
1116 newsize = YYMAXDEPTH;
1117
1118 i = (int) (data->s_mark - data->s_base);
1119 newss = (YYINT *)realloc(data->s_base, newsize * sizeof(*newss));
1120 if (newss == 0)
1121 return YYENOMEM;
1122
1123 data->s_base = newss;
1124 data->s_mark = newss + i;
1125
1126 newvs = (YYSTYPE *)realloc(data->l_base, newsize * sizeof(*newvs));
1127 if (newvs == 0)
1128 return YYENOMEM;
1129
1130 data->l_base = newvs;
1131 data->l_mark = newvs + i;
1132
1133 data->stacksize = newsize;
1134 data->s_last = data->s_base + newsize - 1;
1135 return 0;
1136 }
1137
1138 #if YYPURE || defined(YY_NO_LEAKS)
yyfreestack(YYSTACKDATA * data)1139 static void yyfreestack(YYSTACKDATA *data)
1140 {
1141 free(data->s_base);
1142 free(data->l_base);
1143 memset(data, 0, sizeof(*data));
1144 }
1145 #else
1146 #define yyfreestack(data) /* nothing */
1147 #endif
1148
1149 #define YYABORT goto yyabort
1150 #define YYREJECT goto yyabort
1151 #define YYACCEPT goto yyaccept
1152 #define YYERROR goto yyerrlab
1153
1154 int
YYPARSE_DECL()1155 YYPARSE_DECL()
1156 {
1157 int yym, yyn, yystate;
1158 #if YYDEBUG
1159 const char *yys;
1160
1161 if ((yys = getenv("YYDEBUG")) != 0)
1162 {
1163 yyn = *yys;
1164 if (yyn >= '0' && yyn <= '9')
1165 yydebug = yyn - '0';
1166 }
1167 #endif
1168
1169 yym = 0;
1170 yyn = 0;
1171 yynerrs = 0;
1172 yyerrflag = 0;
1173 yychar = YYEMPTY;
1174 yystate = 0;
1175
1176 #if YYPURE
1177 memset(&yystack, 0, sizeof(yystack));
1178 #endif
1179
1180 if (yystack.s_base == NULL && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
1181 yystack.s_mark = yystack.s_base;
1182 yystack.l_mark = yystack.l_base;
1183 yystate = 0;
1184 *yystack.s_mark = 0;
1185
1186 yyloop:
1187 if ((yyn = yydefred[yystate]) != 0) goto yyreduce;
1188 if (yychar < 0)
1189 {
1190 yychar = YYLEX;
1191 if (yychar < 0) yychar = YYEOF;
1192 #if YYDEBUG
1193 if (yydebug)
1194 {
1195 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
1196 printf("%sdebug: state %d, reading %d (%s)\n",
1197 YYPREFIX, yystate, yychar, yys);
1198 }
1199 #endif
1200 }
1201 if (((yyn = yysindex[yystate]) != 0) && (yyn += yychar) >= 0 &&
1202 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar)
1203 {
1204 #if YYDEBUG
1205 if (yydebug)
1206 printf("%sdebug: state %d, shifting to state %d\n",
1207 YYPREFIX, yystate, yytable[yyn]);
1208 #endif
1209 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
1210 yystate = yytable[yyn];
1211 *++yystack.s_mark = yytable[yyn];
1212 *++yystack.l_mark = yylval;
1213 yychar = YYEMPTY;
1214 if (yyerrflag > 0) --yyerrflag;
1215 goto yyloop;
1216 }
1217 if (((yyn = yyrindex[yystate]) != 0) && (yyn += yychar) >= 0 &&
1218 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yychar)
1219 {
1220 yyn = yytable[yyn];
1221 goto yyreduce;
1222 }
1223 if (yyerrflag != 0) goto yyinrecovery;
1224
1225 YYERROR_CALL("syntax error");
1226
1227 goto yyerrlab; /* redundant goto avoids 'unused label' warning */
1228 yyerrlab:
1229 ++yynerrs;
1230
1231 yyinrecovery:
1232 if (yyerrflag < 3)
1233 {
1234 yyerrflag = 3;
1235 for (;;)
1236 {
1237 if (((yyn = yysindex[*yystack.s_mark]) != 0) && (yyn += YYERRCODE) >= 0 &&
1238 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) YYERRCODE)
1239 {
1240 #if YYDEBUG
1241 if (yydebug)
1242 printf("%sdebug: state %d, error recovery shifting\
1243 to state %d\n", YYPREFIX, *yystack.s_mark, yytable[yyn]);
1244 #endif
1245 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
1246 yystate = yytable[yyn];
1247 *++yystack.s_mark = yytable[yyn];
1248 *++yystack.l_mark = yylval;
1249 goto yyloop;
1250 }
1251 else
1252 {
1253 #if YYDEBUG
1254 if (yydebug)
1255 printf("%sdebug: error recovery discarding state %d\n",
1256 YYPREFIX, *yystack.s_mark);
1257 #endif
1258 if (yystack.s_mark <= yystack.s_base) goto yyabort;
1259 --yystack.s_mark;
1260 --yystack.l_mark;
1261 }
1262 }
1263 }
1264 else
1265 {
1266 if (yychar == YYEOF) goto yyabort;
1267 #if YYDEBUG
1268 if (yydebug)
1269 {
1270 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
1271 printf("%sdebug: state %d, error recovery discards token %d (%s)\n",
1272 YYPREFIX, yystate, yychar, yys);
1273 }
1274 #endif
1275 yychar = YYEMPTY;
1276 goto yyloop;
1277 }
1278
1279 yyreduce:
1280 #if YYDEBUG
1281 if (yydebug)
1282 printf("%sdebug: state %d, reducing by rule %d (%s)\n",
1283 YYPREFIX, yystate, yyn, yyrule[yyn]);
1284 #endif
1285 yym = yylen[yyn];
1286 if (yym > 0)
1287 yyval = yystack.l_mark[1-yym];
1288 else
1289 memset(&yyval, 0, sizeof yyval);
1290
1291 switch (yyn)
1292 {
1293 case 10:
1294 #line 378 "grammar.y"
1295 {
1296 yyerrok;
1297 }
1298 break;
1299 case 11:
1300 #line 382 "grammar.y"
1301 {
1302 yyerrok;
1303 }
1304 break;
1305 case 13:
1306 #line 393 "grammar.y"
1307 {
1308 /* Provide an empty action here so bison will not complain about
1309 * incompatible types in the default action it normally would
1310 * have generated.
1311 */
1312 }
1313 break;
1314 case 14:
1315 #line 400 "grammar.y"
1316 {
1317 /* empty */
1318 }
1319 break;
1320 case 15:
1321 #line 407 "grammar.y"
1322 {
1323 #if OPT_LINTLIBRARY
1324 if (types_out && want_typedef()) {
1325 gen_declarations(&yystack.l_mark[-1].decl_spec, (DeclaratorList *)0);
1326 flush_varargs();
1327 }
1328 #endif
1329 free_decl_spec(&yystack.l_mark[-1].decl_spec);
1330 end_typedef();
1331 }
1332 break;
1333 case 16:
1334 #line 418 "grammar.y"
1335 {
1336 if (func_params != NULL) {
1337 set_param_types(func_params, &yystack.l_mark[-2].decl_spec, &yystack.l_mark[-1].decl_list);
1338 } else {
1339 gen_declarations(&yystack.l_mark[-2].decl_spec, &yystack.l_mark[-1].decl_list);
1340 #if OPT_LINTLIBRARY
1341 flush_varargs();
1342 #endif
1343 free_decl_list(&yystack.l_mark[-1].decl_list);
1344 }
1345 free_decl_spec(&yystack.l_mark[-2].decl_spec);
1346 end_typedef();
1347 }
1348 break;
1349 case 17:
1350 #line 432 "grammar.y"
1351 {
1352 cur_decl_spec_flags = yystack.l_mark[0].decl_spec.flags;
1353 free_decl_spec(&yystack.l_mark[0].decl_spec);
1354 }
1355 break;
1356 case 18:
1357 #line 437 "grammar.y"
1358 {
1359 end_typedef();
1360 }
1361 break;
1362 case 19:
1363 #line 444 "grammar.y"
1364 {
1365 begin_typedef();
1366 }
1367 break;
1368 case 20:
1369 #line 448 "grammar.y"
1370 {
1371 begin_typedef();
1372 }
1373 break;
1374 case 23:
1375 #line 460 "grammar.y"
1376 {
1377 int flags = cur_decl_spec_flags;
1378
1379 /* If the typedef is a pointer type, then reset the short type
1380 * flags so it does not get promoted.
1381 */
1382 if (strcmp(yystack.l_mark[0].declarator->text, yystack.l_mark[0].declarator->name) != 0)
1383 flags &= ~(DS_CHAR | DS_SHORT | DS_FLOAT);
1384 new_symbol(typedef_names, yystack.l_mark[0].declarator->name, NULL, flags);
1385 free_declarator(yystack.l_mark[0].declarator);
1386 }
1387 break;
1388 case 24:
1389 #line 472 "grammar.y"
1390 {
1391 int flags = cur_decl_spec_flags;
1392
1393 if (strcmp(yystack.l_mark[0].declarator->text, yystack.l_mark[0].declarator->name) != 0)
1394 flags &= ~(DS_CHAR | DS_SHORT | DS_FLOAT);
1395 new_symbol(typedef_names, yystack.l_mark[0].declarator->name, NULL, flags);
1396 free_declarator(yystack.l_mark[0].declarator);
1397 }
1398 break;
1399 case 25:
1400 #line 484 "grammar.y"
1401 {
1402 check_untagged(&yystack.l_mark[-1].decl_spec);
1403 if (yystack.l_mark[0].declarator->func_def == FUNC_NONE) {
1404 yyerror("syntax error");
1405 YYERROR;
1406 }
1407 func_params = &(yystack.l_mark[0].declarator->head->params);
1408 func_params->begin_comment = cur_file->begin_comment;
1409 func_params->end_comment = cur_file->end_comment;
1410 }
1411 break;
1412 case 26:
1413 #line 495 "grammar.y"
1414 {
1415 /* If we're converting to K&R and we've got a nominally K&R
1416 * function which has a parameter which is ANSI (i.e., a prototyped
1417 * function pointer), then we must override the deciphered value of
1418 * 'func_def' so that the parameter will be converted.
1419 */
1420 if (func_style == FUNC_TRADITIONAL
1421 && haveAnsiParam()
1422 && yystack.l_mark[-3].declarator->head->func_def == func_style) {
1423 yystack.l_mark[-3].declarator->head->func_def = FUNC_BOTH;
1424 }
1425
1426 func_params = NULL;
1427
1428 if (cur_file->convert)
1429 gen_func_definition(&yystack.l_mark[-4].decl_spec, yystack.l_mark[-3].declarator);
1430 gen_prototype(&yystack.l_mark[-4].decl_spec, yystack.l_mark[-3].declarator);
1431 #if OPT_LINTLIBRARY
1432 flush_varargs();
1433 #endif
1434 free_decl_spec(&yystack.l_mark[-4].decl_spec);
1435 free_declarator(yystack.l_mark[-3].declarator);
1436 }
1437 break;
1438 case 28:
1439 #line 520 "grammar.y"
1440 {
1441 if (yystack.l_mark[0].declarator->func_def == FUNC_NONE) {
1442 yyerror("syntax error");
1443 YYERROR;
1444 }
1445 func_params = &(yystack.l_mark[0].declarator->head->params);
1446 func_params->begin_comment = cur_file->begin_comment;
1447 func_params->end_comment = cur_file->end_comment;
1448 }
1449 break;
1450 case 29:
1451 #line 530 "grammar.y"
1452 {
1453 DeclSpec decl_spec;
1454
1455 func_params = NULL;
1456
1457 new_decl_spec(&decl_spec, dft_decl_spec(), yystack.l_mark[-4].declarator->begin, DS_NONE);
1458 if (cur_file->convert)
1459 gen_func_definition(&decl_spec, yystack.l_mark[-4].declarator);
1460 gen_prototype(&decl_spec, yystack.l_mark[-4].declarator);
1461 #if OPT_LINTLIBRARY
1462 flush_varargs();
1463 #endif
1464 free_decl_spec(&decl_spec);
1465 free_declarator(yystack.l_mark[-4].declarator);
1466 }
1467 break;
1468 case 36:
1469 #line 561 "grammar.y"
1470 {
1471 join_decl_specs(&yyval.decl_spec, &yystack.l_mark[-1].decl_spec, &yystack.l_mark[0].decl_spec);
1472 free(yystack.l_mark[-1].decl_spec.text);
1473 free(yystack.l_mark[0].decl_spec.text);
1474 }
1475 break;
1476 case 40:
1477 #line 576 "grammar.y"
1478 {
1479 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1480 }
1481 break;
1482 case 41:
1483 #line 580 "grammar.y"
1484 {
1485 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_EXTERN);
1486 }
1487 break;
1488 case 42:
1489 #line 584 "grammar.y"
1490 {
1491 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1492 }
1493 break;
1494 case 43:
1495 #line 588 "grammar.y"
1496 {
1497 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_STATIC);
1498 }
1499 break;
1500 case 44:
1501 #line 592 "grammar.y"
1502 {
1503 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_INLINE);
1504 }
1505 break;
1506 case 45:
1507 #line 596 "grammar.y"
1508 {
1509 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_JUNK);
1510 }
1511 break;
1512 case 46:
1513 #line 603 "grammar.y"
1514 {
1515 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_CHAR);
1516 }
1517 break;
1518 case 47:
1519 #line 607 "grammar.y"
1520 {
1521 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1522 }
1523 break;
1524 case 48:
1525 #line 611 "grammar.y"
1526 {
1527 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_FLOAT);
1528 }
1529 break;
1530 case 49:
1531 #line 615 "grammar.y"
1532 {
1533 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1534 }
1535 break;
1536 case 50:
1537 #line 619 "grammar.y"
1538 {
1539 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1540 }
1541 break;
1542 case 51:
1543 #line 623 "grammar.y"
1544 {
1545 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_SHORT);
1546 }
1547 break;
1548 case 52:
1549 #line 627 "grammar.y"
1550 {
1551 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1552 }
1553 break;
1554 case 53:
1555 #line 631 "grammar.y"
1556 {
1557 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1558 }
1559 break;
1560 case 54:
1561 #line 635 "grammar.y"
1562 {
1563 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1564 }
1565 break;
1566 case 55:
1567 #line 639 "grammar.y"
1568 {
1569 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_CHAR);
1570 }
1571 break;
1572 case 56:
1573 #line 643 "grammar.y"
1574 {
1575 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1576 }
1577 break;
1578 case 57:
1579 #line 647 "grammar.y"
1580 {
1581 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1582 }
1583 break;
1584 case 58:
1585 #line 651 "grammar.y"
1586 {
1587 Symbol *s;
1588 s = find_symbol(typedef_names, yystack.l_mark[0].text.text);
1589 if (s != NULL)
1590 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, s->flags);
1591 }
1592 break;
1593 case 61:
1594 #line 663 "grammar.y"
1595 {
1596 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, DS_NONE);
1597 }
1598 break;
1599 case 62:
1600 #line 667 "grammar.y"
1601 {
1602 /* This rule allows the <pointer> nonterminal to scan #define
1603 * names as if they were type modifiers.
1604 */
1605 Symbol *s;
1606 s = find_symbol(define_names, yystack.l_mark[0].text.text);
1607 if (s != NULL)
1608 new_decl_spec(&yyval.decl_spec, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin, s->flags);
1609 }
1610 break;
1611 case 63:
1612 #line 680 "grammar.y"
1613 {
1614 char *s;
1615 if ((s = implied_typedef()) == 0)
1616 (void)sprintf(s = buf, "%.*s %.*s", TEXT_LEN, yystack.l_mark[-2].text.text, TEXT_LEN, yystack.l_mark[-1].text.text);
1617 new_decl_spec(&yyval.decl_spec, s, yystack.l_mark[-2].text.begin, DS_NONE);
1618 }
1619 break;
1620 case 64:
1621 #line 687 "grammar.y"
1622 {
1623 char *s;
1624 if ((s = implied_typedef()) == 0)
1625 (void)sprintf(s = buf, "%.*s {}", TEXT_LEN, yystack.l_mark[-1].text.text);
1626 new_decl_spec(&yyval.decl_spec, s, yystack.l_mark[-1].text.begin, DS_NONE);
1627 }
1628 break;
1629 case 65:
1630 #line 694 "grammar.y"
1631 {
1632 (void)sprintf(buf, "%.*s %.*s", TEXT_LEN, yystack.l_mark[-1].text.text, TEXT_LEN, yystack.l_mark[0].text.text);
1633 new_decl_spec(&yyval.decl_spec, buf, yystack.l_mark[-1].text.begin, DS_NONE);
1634 }
1635 break;
1636 case 66:
1637 #line 702 "grammar.y"
1638 {
1639 imply_typedef(yyval.text.text);
1640 }
1641 break;
1642 case 67:
1643 #line 706 "grammar.y"
1644 {
1645 imply_typedef(yyval.text.text);
1646 }
1647 break;
1648 case 68:
1649 #line 713 "grammar.y"
1650 {
1651 new_decl_list(&yyval.decl_list, yystack.l_mark[0].declarator);
1652 }
1653 break;
1654 case 69:
1655 #line 717 "grammar.y"
1656 {
1657 add_decl_list(&yyval.decl_list, &yystack.l_mark[-2].decl_list, yystack.l_mark[0].declarator);
1658 }
1659 break;
1660 case 70:
1661 #line 724 "grammar.y"
1662 {
1663 if (yystack.l_mark[0].declarator->func_def != FUNC_NONE && func_params == NULL &&
1664 func_style == FUNC_TRADITIONAL && cur_file->convert) {
1665 gen_func_declarator(yystack.l_mark[0].declarator);
1666 fputs(cur_text(), cur_file->tmp_file);
1667 }
1668 cur_declarator = yyval.declarator;
1669 }
1670 break;
1671 case 71:
1672 #line 733 "grammar.y"
1673 {
1674 if (yystack.l_mark[-1].declarator->func_def != FUNC_NONE && func_params == NULL &&
1675 func_style == FUNC_TRADITIONAL && cur_file->convert) {
1676 gen_func_declarator(yystack.l_mark[-1].declarator);
1677 fputs(" =", cur_file->tmp_file);
1678 }
1679 }
1680 break;
1681 case 73:
1682 #line 745 "grammar.y"
1683 {
1684 char *s;
1685 if ((s = implied_typedef()) == 0)
1686 (void)sprintf(s = buf, "enum %.*s", TEXT_LEN, yystack.l_mark[-1].text.text);
1687 new_decl_spec(&yyval.decl_spec, s, yystack.l_mark[-2].text.begin, DS_NONE);
1688 }
1689 break;
1690 case 74:
1691 #line 752 "grammar.y"
1692 {
1693 char *s;
1694 if ((s = implied_typedef()) == 0)
1695 (void)sprintf(s = buf, "%.*s {}", TEXT_LEN, yystack.l_mark[-1].text.text);
1696 new_decl_spec(&yyval.decl_spec, s, yystack.l_mark[-1].text.begin, DS_NONE);
1697 }
1698 break;
1699 case 75:
1700 #line 759 "grammar.y"
1701 {
1702 (void)sprintf(buf, "enum %.*s", TEXT_LEN, yystack.l_mark[0].text.text);
1703 new_decl_spec(&yyval.decl_spec, buf, yystack.l_mark[-1].text.begin, DS_NONE);
1704 }
1705 break;
1706 case 76:
1707 #line 767 "grammar.y"
1708 {
1709 imply_typedef("enum");
1710 yyval.text = yystack.l_mark[0].text;
1711 }
1712 break;
1713 case 79:
1714 #line 780 "grammar.y"
1715 {
1716 yyval.declarator = yystack.l_mark[0].declarator;
1717 (void)sprintf(buf, "%.*s%.*s", TEXT_LEN, yystack.l_mark[-1].text.text, TEXT_LEN, yyval.declarator->text);
1718 free(yyval.declarator->text);
1719 yyval.declarator->text = xstrdup(buf);
1720 yyval.declarator->begin = yystack.l_mark[-1].text.begin;
1721 yyval.declarator->pointer = TRUE;
1722 }
1723 break;
1724 case 81:
1725 #line 793 "grammar.y"
1726 {
1727 yyval.declarator = new_declarator(yystack.l_mark[0].text.text, yystack.l_mark[0].text.text, yystack.l_mark[0].text.begin);
1728 }
1729 break;
1730 case 82:
1731 #line 797 "grammar.y"
1732 {
1733 yyval.declarator = yystack.l_mark[-1].declarator;
1734 (void)sprintf(buf, "(%.*s)", TEXT_LEN, yyval.declarator->text);
1735 free(yyval.declarator->text);
1736 yyval.declarator->text = xstrdup(buf);
1737 yyval.declarator->begin = yystack.l_mark[-2].text.begin;
1738 }
1739 break;
1740 case 83:
1741 #line 805 "grammar.y"
1742 {
1743 yyval.declarator = yystack.l_mark[-1].declarator;
1744 (void)sprintf(buf, "%.*s%.*s", TEXT_LEN, yyval.declarator->text, TEXT_LEN, yystack.l_mark[0].text.text);
1745 free(yyval.declarator->text);
1746 yyval.declarator->text = xstrdup(buf);
1747 }
1748 break;
1749 case 84:
1750 #line 812 "grammar.y"
1751 {
1752 yyval.declarator = new_declarator("%s()", yystack.l_mark[-3].declarator->name, yystack.l_mark[-3].declarator->begin);
1753 yyval.declarator->params = yystack.l_mark[-1].param_list;
1754 yyval.declarator->func_stack = yystack.l_mark[-3].declarator;
1755 yyval.declarator->head = (yystack.l_mark[-3].declarator->func_stack == NULL) ? yyval.declarator : yystack.l_mark[-3].declarator->head;
1756 yyval.declarator->func_def = FUNC_ANSI;
1757 }
1758 break;
1759 case 85:
1760 #line 820 "grammar.y"
1761 {
1762 yyval.declarator = new_declarator("%s()", yystack.l_mark[-3].declarator->name, yystack.l_mark[-3].declarator->begin);
1763 yyval.declarator->params = yystack.l_mark[-1].param_list;
1764 yyval.declarator->func_stack = yystack.l_mark[-3].declarator;
1765 yyval.declarator->head = (yystack.l_mark[-3].declarator->func_stack == NULL) ? yyval.declarator : yystack.l_mark[-3].declarator->head;
1766 yyval.declarator->func_def = FUNC_TRADITIONAL;
1767 }
1768 break;
1769 case 86:
1770 #line 831 "grammar.y"
1771 {
1772 (void)sprintf(yyval.text.text, "*%.*s", TEXT_LEN, yystack.l_mark[0].text.text);
1773 yyval.text.begin = yystack.l_mark[-1].text.begin;
1774 }
1775 break;
1776 case 87:
1777 #line 836 "grammar.y"
1778 {
1779 (void)sprintf(yyval.text.text, "*%.*s%.*s", TEXT_LEN, yystack.l_mark[-1].text.text, TEXT_LEN, yystack.l_mark[0].text.text);
1780 yyval.text.begin = yystack.l_mark[-2].text.begin;
1781 }
1782 break;
1783 case 88:
1784 #line 844 "grammar.y"
1785 {
1786 strcpy(yyval.text.text, "");
1787 yyval.text.begin = 0L;
1788 }
1789 break;
1790 case 90:
1791 #line 853 "grammar.y"
1792 {
1793 (void)sprintf(yyval.text.text, "%s ", yystack.l_mark[0].decl_spec.text);
1794 yyval.text.begin = yystack.l_mark[0].decl_spec.begin;
1795 free(yystack.l_mark[0].decl_spec.text);
1796 }
1797 break;
1798 case 91:
1799 #line 859 "grammar.y"
1800 {
1801 (void)sprintf(yyval.text.text, "%.*s%.*s ", TEXT_LEN, yystack.l_mark[-1].text.text, TEXT_LEN, yystack.l_mark[0].decl_spec.text);
1802 yyval.text.begin = yystack.l_mark[-1].text.begin;
1803 free(yystack.l_mark[0].decl_spec.text);
1804 }
1805 break;
1806 case 93:
1807 #line 869 "grammar.y"
1808 {
1809 add_ident_list(&yyval.param_list, &yystack.l_mark[-2].param_list, "...");
1810 }
1811 break;
1812 case 94:
1813 #line 876 "grammar.y"
1814 {
1815 new_param_list(&yyval.param_list, yystack.l_mark[0].parameter);
1816 }
1817 break;
1818 case 95:
1819 #line 880 "grammar.y"
1820 {
1821 add_param_list(&yyval.param_list, &yystack.l_mark[-2].param_list, yystack.l_mark[0].parameter);
1822 }
1823 break;
1824 case 96:
1825 #line 887 "grammar.y"
1826 {
1827 check_untagged(&yystack.l_mark[-1].decl_spec);
1828 yyval.parameter = new_parameter(&yystack.l_mark[-1].decl_spec, yystack.l_mark[0].declarator);
1829 }
1830 break;
1831 case 97:
1832 #line 892 "grammar.y"
1833 {
1834 check_untagged(&yystack.l_mark[-1].decl_spec);
1835 yyval.parameter = new_parameter(&yystack.l_mark[-1].decl_spec, yystack.l_mark[0].declarator);
1836 }
1837 break;
1838 case 98:
1839 #line 897 "grammar.y"
1840 {
1841 check_untagged(&yystack.l_mark[0].decl_spec);
1842 yyval.parameter = new_parameter(&yystack.l_mark[0].decl_spec, (Declarator *)0);
1843 }
1844 break;
1845 case 99:
1846 #line 905 "grammar.y"
1847 {
1848 new_ident_list(&yyval.param_list);
1849 }
1850 break;
1851 case 101:
1852 #line 913 "grammar.y"
1853 {
1854 new_ident_list(&yyval.param_list);
1855 add_ident_list(&yyval.param_list, &yyval.param_list, yystack.l_mark[0].text.text);
1856 }
1857 break;
1858 case 102:
1859 #line 918 "grammar.y"
1860 {
1861 add_ident_list(&yyval.param_list, &yystack.l_mark[-2].param_list, yystack.l_mark[0].text.text);
1862 }
1863 break;
1864 case 103:
1865 #line 925 "grammar.y"
1866 {
1867 yyval.text = yystack.l_mark[0].text;
1868 }
1869 break;
1870 case 104:
1871 #line 929 "grammar.y"
1872 {
1873 #if OPT_LINTLIBRARY
1874 if (lintLibrary()) { /* Lint doesn't grok C++ ref variables */
1875 yyval.text = yystack.l_mark[0].text;
1876 } else
1877 #endif
1878 (void)sprintf(yyval.text.text, "&%.*s", TEXT_LEN, yystack.l_mark[0].text.text);
1879 yyval.text.begin = yystack.l_mark[-1].text.begin;
1880 }
1881 break;
1882 case 105:
1883 #line 942 "grammar.y"
1884 {
1885 yyval.declarator = new_declarator(yystack.l_mark[0].text.text, "", yystack.l_mark[0].text.begin);
1886 }
1887 break;
1888 case 106:
1889 #line 946 "grammar.y"
1890 {
1891 yyval.declarator = yystack.l_mark[0].declarator;
1892 (void)sprintf(buf, "%.*s%.*s", TEXT_LEN, yystack.l_mark[-1].text.text, TEXT_LEN, yyval.declarator->text);
1893 free(yyval.declarator->text);
1894 yyval.declarator->text = xstrdup(buf);
1895 yyval.declarator->begin = yystack.l_mark[-1].text.begin;
1896 }
1897 break;
1898 case 108:
1899 #line 958 "grammar.y"
1900 {
1901 yyval.declarator = yystack.l_mark[-1].declarator;
1902 (void)sprintf(buf, "(%.*s)", TEXT_LEN, yyval.declarator->text);
1903 free(yyval.declarator->text);
1904 yyval.declarator->text = xstrdup(buf);
1905 yyval.declarator->begin = yystack.l_mark[-2].text.begin;
1906 }
1907 break;
1908 case 109:
1909 #line 966 "grammar.y"
1910 {
1911 yyval.declarator = yystack.l_mark[-1].declarator;
1912 (void)sprintf(buf, "%.*s%.*s", TEXT_LEN, yyval.declarator->text, TEXT_LEN, yystack.l_mark[0].text.text);
1913 free(yyval.declarator->text);
1914 yyval.declarator->text = xstrdup(buf);
1915 }
1916 break;
1917 case 110:
1918 #line 973 "grammar.y"
1919 {
1920 yyval.declarator = new_declarator(yystack.l_mark[0].text.text, "", yystack.l_mark[0].text.begin);
1921 }
1922 break;
1923 case 111:
1924 #line 977 "grammar.y"
1925 {
1926 yyval.declarator = new_declarator("%s()", "", yystack.l_mark[-3].declarator->begin);
1927 yyval.declarator->params = yystack.l_mark[-1].param_list;
1928 yyval.declarator->func_stack = yystack.l_mark[-3].declarator;
1929 yyval.declarator->head = (yystack.l_mark[-3].declarator->func_stack == NULL) ? yyval.declarator : yystack.l_mark[-3].declarator->head;
1930 yyval.declarator->func_def = FUNC_ANSI;
1931 }
1932 break;
1933 case 112:
1934 #line 985 "grammar.y"
1935 {
1936 yyval.declarator = new_declarator("%s()", "", yystack.l_mark[-2].declarator->begin);
1937 yyval.declarator->func_stack = yystack.l_mark[-2].declarator;
1938 yyval.declarator->head = (yystack.l_mark[-2].declarator->func_stack == NULL) ? yyval.declarator : yystack.l_mark[-2].declarator->head;
1939 yyval.declarator->func_def = FUNC_ANSI;
1940 }
1941 break;
1942 case 113:
1943 #line 992 "grammar.y"
1944 {
1945 Declarator *d;
1946
1947 d = new_declarator("", "", yystack.l_mark[-2].text.begin);
1948 yyval.declarator = new_declarator("%s()", "", yystack.l_mark[-2].text.begin);
1949 yyval.declarator->params = yystack.l_mark[-1].param_list;
1950 yyval.declarator->func_stack = d;
1951 yyval.declarator->head = yyval.declarator;
1952 yyval.declarator->func_def = FUNC_ANSI;
1953 }
1954 break;
1955 case 114:
1956 #line 1003 "grammar.y"
1957 {
1958 Declarator *d;
1959
1960 d = new_declarator("", "", yystack.l_mark[-1].text.begin);
1961 yyval.declarator = new_declarator("%s()", "", yystack.l_mark[-1].text.begin);
1962 yyval.declarator->func_stack = d;
1963 yyval.declarator->head = yyval.declarator;
1964 yyval.declarator->func_def = FUNC_ANSI;
1965 }
1966 break;
1967 #line 1968 "grammar.tab.c"
1968 }
1969 yystack.s_mark -= yym;
1970 yystate = *yystack.s_mark;
1971 yystack.l_mark -= yym;
1972 yym = yylhs[yyn];
1973 if (yystate == 0 && yym == 0)
1974 {
1975 #if YYDEBUG
1976 if (yydebug)
1977 printf("%sdebug: after reduction, shifting from state 0 to\
1978 state %d\n", YYPREFIX, YYFINAL);
1979 #endif
1980 yystate = YYFINAL;
1981 *++yystack.s_mark = YYFINAL;
1982 *++yystack.l_mark = yyval;
1983 if (yychar < 0)
1984 {
1985 yychar = YYLEX;
1986 if (yychar < 0) yychar = YYEOF;
1987 #if YYDEBUG
1988 if (yydebug)
1989 {
1990 if ((yys = yyname[YYTRANSLATE(yychar)]) == NULL) yys = yyname[YYUNDFTOKEN];
1991 printf("%sdebug: state %d, reading %d (%s)\n",
1992 YYPREFIX, YYFINAL, yychar, yys);
1993 }
1994 #endif
1995 }
1996 if (yychar == YYEOF) goto yyaccept;
1997 goto yyloop;
1998 }
1999 if (((yyn = yygindex[yym]) != 0) && (yyn += yystate) >= 0 &&
2000 yyn <= YYTABLESIZE && yycheck[yyn] == (YYINT) yystate)
2001 yystate = yytable[yyn];
2002 else
2003 yystate = yydgoto[yym];
2004 #if YYDEBUG
2005 if (yydebug)
2006 printf("%sdebug: after reduction, shifting from state %d \
2007 to state %d\n", YYPREFIX, *yystack.s_mark, yystate);
2008 #endif
2009 if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack) == YYENOMEM) goto yyoverflow;
2010 *++yystack.s_mark = (YYINT) yystate;
2011 *++yystack.l_mark = yyval;
2012 goto yyloop;
2013
2014 yyoverflow:
2015 YYERROR_CALL("yacc stack overflow");
2016
2017 yyabort:
2018 yyfreestack(&yystack);
2019 return (1);
2020
2021 yyaccept:
2022 yyfreestack(&yystack);
2023 return (0);
2024 }
2025