%{
#include <stdlib.h>
#include <stdio.h>

int yyerror(char*);
int yylex();
FILE* yyin; 
int yylval; 
int jump_label=0;
void inst(const char *);
void instarg(const char *,int);
void comment(const char *);
%}

%token IF PRINT NOMBRE_ENTIER

%left '+'
%left '*'

%%
PROGRAMME : /* rien */ | PROGRAMME INSTRUCTION 
       ;
INSTRUCTION : PRINT E ';' { inst("POP"); 
                          inst("WRITE");
                          comment("---affichage");
                          }
      | IF '(' E '<' E ')' JUMPIF INSTRUCTION { instarg("LABEL",$7); }
      ;
JUMPIF :  { inst("POP"); 
          inst("SWAP"); 
          inst("POP");
          inst("LESS");
          instarg("JUMPF", $$=jump_label++);
          }
      ;
E : E '+' E { inst("POP");
            inst("SWAP"); 
            inst("POP");
            inst("ADD");
            inst("PUSH");
            }
  | NOMBRE_ENTIER { instarg("SET",$1);
                  inst("PUSH");
                  }
  ;
%%

int yyerror(char* s) {
  fprintf(stderr,"%s\n",s);
  return 0;
}

void inst(const char *s){
  printf("%s\n",s);
}

void instarg(const char *s,int n){
  printf("%s\t%d\n",s,n);
}

void comment(const char *s){
  printf("#%s\n",s);
}

int main(int argc, char** argv) {
  if(argc==2){
    yyin = fopen(argv[1],"r");
  }
  else if(argc==1){
    yyin = stdin;
  }
  else{
    fprintf(stderr,"usage: %s [src]\n",argv[0]);
    return 1;
  }
  yyparse();
  inst("HALT");
  return 0;
}