%{

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "parser/parser.c"
int yylex(void);
void yyerror(char *);
extern int yylineno;
extern int _DEBUG;

%}

/* doing these before multiplication and division because
    they have a lower presidence
*/

%left '<' '>'

%left '+' '-'

/* doing this last so they have a higher presidence */

%left '*' '/' '%'

%union {

    char *str;
    int num;
    char character;
    double Double;
    struct nodeInfo *nPtr;
    
}


%token INCREASE DECREASE PRINTF IF END KEYWORD_S KEYWORD_I KEYWORD_C QUOTE ELSE WHILE DEF CALL
%token <num> INTEGER
%token <str> STRING VARNAME
%token <character> CHAR
%token <Double> DOUBLEVAR
%type <num> expr
%type <nPtr> statement print VARIABLE FUNC statement_list

%%

program:

        main '\n'
        |
        ;

main:
        
        main FUNC ';'                                                           { if (_DEBUG == 1 ) { printf(">>> "); ex($2); } else { ex($2); } }
        | FUNC ';'                                                              { if (_DEBUG == 1 ) { printf(">>> "); ex($1); } else { ex($1); } }
        | statement ';'                                                         { if (_DEBUG == 1 ) { printf(">>> "); ex($1); } else { ex($1); } }
        ;

statement:
        
        VARIABLE                                                                { $$ = $1; } //this is a real var dec.
        | FUNC                                                                  { $$ = $1; }
        | IF '[' expr ']' ':' '{' statement_list '}'                            { $$ = createLogic(1, $3, $7, NULL); } //examples of logic in this language
        | WHILE '[' expr ']' ':' '{' statement_list '}'                         { $$ = createLogic(2, $3, $7, NULL); }
        | PRINTF'['print']'                                                     { $$ = $3; }
        | '{' statement_list '}'                                                { $$ = $2; }
        ;
        
statement_list:

        statement ';'                                                           { $$ = createCompoundStatement($1); }
        | statement_list statement ';'                                          { $$ = addToCompoundStatement($2); }
        ;

FUNC:

        DEF VARNAME ':' '{' statement_list '}'                                  { $$ = createFunction($2, $5); } // defining functions
        | CALL VARNAME                                                          { $$ = createFunctionCall($2); } // calling functions
        ;
    
VARIABLE:

        VARNAME '=' STRING                                                      { $$ = createVarAssignmentString($1, $3);}
        | VARNAME '=' expr                                                      { $$ = createVarAssignmentInt($1, $3);}
        | VARNAME '=' CHAR                                                      { $$ = createVarAssignmentChar($1, $3);}
        | VARNAME '=' DOUBLEVAR                                                 { $$ = createVarAssignmentDouble($1, $3);}
        | VARNAME '=' '{' statement_list '}'                                    { $$ = createFunction($1, $4); } // you can also define functions like this
        ;
        

expr:
        INTEGER                                                                 { $$ = $1; }
        | '{' KEYWORD_I '}' VARNAME                                             { $$ = getValue($4)->Int; }
        | expr '+' expr                                                         { $$ = $1 + $3; } /* addition */
        | expr '-' expr                                                         { $$ = $1 - $3; } /* subtration */
        | expr '*' expr                                                         { $$ = $1 * $3; } /* multiplication */
        | expr '/' expr                                                         { $$ = $1 / $3; } /* division */
        | expr '%' expr                                                         { $$ = $1 % $3; }
        | expr '>' expr                                                         { if ($1 > $3) { $$ = 1; } else { $$ = 0;}}
        | expr '<' expr                                                         { if ($1 < $3) { $$ = 1; } else { $$ = 0;}}
        | '(' expr ')'                                                          { $$ = $2; }
        ;
        
        
print:

        VARNAME                                                                 { $$ = createPrintVarNode($1); }
        | expr                                                                  { $$ = createPrintStatement(1, $1, NULL); }
        | STRING                                                                { $$ = createPrintStatement(2, 0, $1); }
        | ',' print                                                             { $$ = $2; }
        ;

%%

void yyerror(char *s) {
    
    fprintf(stderr, "Error on line %d, %s\n", yylineno, s);

}