%{
#include <stdio.h>
int yylex(void);
void yyerror(char const *);
void printValue(char *val)
{
	fprintf(stderr, "%s", val);			
}

%}
%union{
char *stringVal;
}
%error-verbose

%token            '(' ')' ',' ';' '.' '='
%token NEW TREENODE_TYPE JTREE_TYPE ADDOBJECT
%token <stringVal> STRINGVALUE SYMBOL 
%type <stringVal> Object

%%

Program: InstructionList
	{ fprintf( stderr, " <Program> "); }

InstructionList   :Instruction
		  | InstructionList Instruction
             ;
 
Instruction :	NodeDef ';'
            |   TreeDef ';'
            |   NodeAdd ';'
            |   error ';' {yyerrok;}
            ;

NodeDef     :   NodeDecl  '='  NEW  TREENODE_TYPE '(' STRINGVALUE ')'  
                  { fprintf( stderr, " <NodeDef new node (%s)> ", $6 ); }
            |   NodeDecl  '='  NodeAdd
                  { fprintf( stderr, " <NodeDef new node> " ); }
            ;

TreeDef     :   JTREE_TYPE  SYMBOL  '='  NEW  JTREE_TYPE '(' SYMBOL ')'
                  { fprintf( stderr, " <TreeDef %s=new tree(%s)> ", $2, $7); }
            ;

NodeAdd   :   SYMBOL '.' ADDOBJECT '(' Object ',' Object ')'
                { fprintf( stderr, " <NodeAdd %s.addObj(%s,%s)> ", $1,$5,$7); }


NodeDecl  : TREENODE_TYPE  SYMBOL

Object : SYMBOL {$$ = $1;}
      | STRINGVALUE {$$ = $1;}