contrib/byacc/test/btyacc_destroy2.y

   1 %parse-param { struct parser_param *param } { int flag }
   2
   3 %{
   4 #include <stdlib.h>
   5
   6 typedef enum {cGLOBAL, cLOCAL} class;
   7 typedef enum {tREAL, tINTEGER} type;
   8 typedef char * name;
   9
  10 struct symbol { class c; type t; name id; };
  11 typedef struct symbol symbol;
  12
  13 struct namelist { symbol *s; struct namelist *next; };
  14 typedef struct namelist namelist;
  15
  16 struct parser_param {
  17         int *rtrn;
  18         symbol ss;
  19 };
  20
  21 extern symbol *mksymbol(type t, class c, name id);
  22
  23 #ifdef YYBISON
  24 #define YYLEX_DECL() yylex(void)
  25 #define YYERROR_DECL() yyerror(const char *s)
  26 #endif
  27 %}
  28
  29 %token <cval> GLOBAL LOCAL
  30 %token <tval> REAL INTEGER
  31 %token <id>   NAME
  32
  33 %type <nlist> declaration
  34 %type <nlist> locnamelist
  35 %type <cval>  class
  36 %type <tval>  type
  37 %type <nlist>  namelist
  38
  39 %destructor { if (!param->rtrn) close($$); } <file>
  40
  41 %destructor     {
  42                   namelist *p = $$;
  43                   while (p != NULL)
  44                   { namelist *pp = p;
  45                     p = p->next;
  46                     free(pp->s); free(pp);
  47                   }
  48                 } declaration
  49
  50 %union
  51 {
  52     class       cval;
  53     type        tval;
  54     namelist *  nlist;
  55     name        id;
  56 }
  57
  58 %start declaration
  59
  60 %%
  61 declaration: class type namelist'(' class ',' type ')'
  62         { $$ = $3; }
  63         | type locnamelist '(' class ')'
  64         { $$ = $2; }
  65         ;
  66
  67 class   : GLOBAL { $$ = cGLOBAL; }
  68         | LOCAL  { $$ = cLOCAL; }
  69         ;
  70
  71 type    : REAL    { $$ = tREAL; }
  72         | INTEGER { $$ = tINTEGER; }
  73         ;
  74
  75 namelist: namelist NAME
  76             { $$->s = mksymbol($<tval>0, $<cval>0, $2);
  77               $$->next = $1;
  78             }
  79         | NAME
  80             { $$->s = mksymbol(0, 0, $1);
  81               $$->next = NULL;
  82             }
  83         ;
  84
  85 locnamelist: namelist '(' LOCAL ',' type ')'
  86         { $$ = $1; }
  87         ;
  88 %%
  89
  90 extern int YYLEX_DECL();
  91 extern void YYERROR_DECL();