0c8de5b03c
Among all the modifications, this new byacc also solves a 14 year old bug [1] PR: bin/23254 [1] Submitted by: marka@nominum.com [1] MFC after: 3 weeks
49 lines
797 B
Plaintext
49 lines
797 B
Plaintext
%{
|
|
extern void mksymbol(int t, int c, int id);
|
|
|
|
#ifdef YYBISON
|
|
#define YYLEX_DECL() yylex(void)
|
|
#define YYERROR_DECL() yyerror(const char *s)
|
|
extern int YYLEX_DECL();
|
|
extern void YYERROR_DECL();
|
|
#endif
|
|
%}
|
|
|
|
%token GLOBAL LOCAL
|
|
%token REAL INTEGER
|
|
%token NAME
|
|
|
|
%start declaration
|
|
|
|
%%
|
|
declaration: class type namelist
|
|
{ $$ = $3; }
|
|
| type locnamelist
|
|
{ $$ = $2; }
|
|
;
|
|
|
|
class : GLOBAL { $$ = 1; }
|
|
| LOCAL { $$ = 2; }
|
|
;
|
|
|
|
type : REAL { $$ = 1; }
|
|
| INTEGER { $$ = 2; }
|
|
;
|
|
|
|
namelist: namelist NAME
|
|
{ mksymbol($0, $-1, $2); }
|
|
| NAME
|
|
{ mksymbol($0, $-1, $1); }
|
|
;
|
|
|
|
locnamelist:
|
|
{ $$ = 2; } /* set up semantic stack for <class>: LOCAL */
|
|
{ $$ = $-1; } /* copy <type> to where <namelist> expects it */
|
|
namelist
|
|
{ $$ = $3; }
|
|
;
|
|
%%
|
|
|
|
extern int YYLEX_DECL();
|
|
extern void YYERROR_DECL();
|