5 typedef enum {cGLOBAL, cLOCAL} class;
6 typedef enum {tREAL, tINTEGER} type;
9 struct symbol { class c; type t; name id; };
10 typedef struct symbol symbol;
12 struct namelist { symbol *s; struct namelist *next; };
13 typedef struct namelist namelist;
15 extern symbol *mksymbol(type t, class c, name id);
18 #define YYLEX_DECL() yylex(void)
19 #define YYERROR_DECL() yyerror(const char *s)
23 %token <cval> GLOBAL LOCAL
24 %token <tval> REAL INTEGER
27 %type <nlist> declaration namelist(<cval>, <tval>) locnamelist(<tval>)
28 %destructor { } <nlist>
37 free(pp->s); free(pp);
52 declaration: class type namelist($1, $2)
54 | type locnamelist($1)
55 { $$ = $2; @$ = @-1; }
58 class : GLOBAL { $$ = cGLOBAL; }
59 | LOCAL { $$ = cLOCAL; }
62 type : REAL { $$ = tREAL; }
63 | INTEGER { $$ = tINTEGER; }
66 namelist($c, $t): namelist NAME
67 { $$->s = mksymbol($t, $c, $2);
71 { $$->s = mksymbol($t, $c, $1);
76 locnamelist($t): namelist
81 extern int YYLEX_DECL();
82 extern void YYERROR_DECL();