%{
#include "bisonUtils.h"
#include <stdio.h>
extern int yylex();
extern void yyerror(char *s);
%}

%error-verbose

%token <stringVal> '='
%token <stringVal> '.'
%token <stringVal> '{'
%token <stringVal> '}'
%token <stringVal> '('
%token <stringVal> ')'
%token <stringVal> ':'
%token <stringVal> ';'
%token <stringVal> ','
%token <stringVal> KEYWORD
%token <stringVal> NUM
%token <stringVal> COMPOP
%token <stringVal> SYMBOL
%token <stringVal> THIS

%left <stringVal> '+' '-' 
%left <stringVal> '*' '/'

%type <stringVal> NomCompose
%type <stringVal> Arg ArgList FuncCall
%type <stringVal> Operand Expr

%union {
	char * stringVal;
}

%%
Programme:
	| Programme Element {fprintf(stderr, "<Element>");}

Element: KEYWORD {fprintf(stderr, "<KEYWORD= %s>", $1); }
	| COMPOP {fprintf(stderr, "<COMPOP= %s>", $1); }
	| Expr  {fprintf(stderr, "<Expr= %s>", $1); }
	| '='   {fprintf(stderr, "<OP2= %s>", $1);}	
	| '{'	{fprintf(stderr, "<DELIM= %s>", $1);}
	| '}'	{fprintf(stderr, "<DELIM= %s>", $1);}
	| ':'	{fprintf(stderr, "<DELIM= %s>", $1);}
	| ';'	{fprintf(stderr, "<DELIM= %s>", $1);}
	| error 

Expr:       Operand 
                { fprintf(stderr, "<Operand= %s>", $1); $$ = copy($1);}
        |   Expr  '+' Operand
                { $$ = c3($1, $2, $3); }
        |   Expr  '-' Operand
                { $$ = c3($1, $2, $3); }
        |   Expr  '*' Operand
                { $$ = c3($1, $2, $3); }
        |   Expr  '/' Operand
                { $$ = c3($1,$2, $3); }
        ;

Operand:    Arg
                { fprintf(stderr, "<Arg= %s>", $1); $$ = copy($1); }
        |   FuncCall 
                { fprintf(stderr, "<FuncCall= %s>", $1); $$ = copy($1); }
        ;

FuncCall: NomCompose '(' ')' {$$ = c3($1, $2, $3); }
	| NomCompose '(' ArgList ')' {$$ = c4($1, $2, $3, $4); fprintf(stderr, "<ArgList> = %s", $3);} 


ArgList:  Arg {fprintf(stderr, "<Arg= %s>", $1); $$ = copy($1); }	
	| ArgList ',' Arg { fprintf(stderr, "<Arg= %s>", $3); $$ = c3($1, $2, $3); }	

Arg: NUM {$$ = copy($1); }	
	| NomCompose {fprintf(stderr, "<NomCompose= %s>", $1); $$ = copy($1);}


NomCompose: SYMBOL {fprintf(stderr, "<SYMBOL= %s>", $1); $$ = copy($1); }
	| THIS {fprintf(stderr, "<THIS = %s>", $1); $$ = copy($1); }	
	| NomCompose '.' SYMBOL {fprintf(stderr, "<SYMBOL= %s>", $3); $$ = c3($1,$2,$3); }	

%%