/*
 * Written by Matz Kindahl @ Uppsala University
 */
%{
  char* mkstr();
  %}

%union {
  char* string;
  int integer;
}

%token INT FLOAT STRING
%token <string> IDENT

%start line
%%

line: line ';' type_declaration
| type_declaration
;

type_declaration
: INT { $<integer>$ = INT; } id_list
| FLOAT { $<integer>$ = FLOAT; } id_list
| STRING { $<integer>$ = STRING; } id_list
;

/* In this rule $0 is accessible directly as there is no other */
/* reduction of any other rules occur before the semantic action is */
/* reduced. */ 
id_list: IDENT/* Inherits: type of identifier as $0 */
{ printf("%s : %s\n", $1, mkstr($<integer>0)); }
| id_list ',' IDENT
{ printf("%s : %s\n", $3, mkstr($<integer>0)); }
;
%%

/*
 * mkstr:
 *    Function that returns a printable string of the type supplied
 */
char *mkstr(i)
     int i;
{
  switch(i) {
  case INT:return "Integer";
  case FLOAT:return "Float";
  case STRING:return "String";
  default:return "Unknown";
  }
}