/* Prosty Jezyk dla Obliczen -- interpreter
 * Kolejnosc przetwarzania:
 *  (1) bison 3-pjo.y
 *  (2) gcc -Wall 3-pjo.tab.c
 * Wywolanie:
 *      ./a.out
 */
     
%{
//==============================================
// DEKLARACJE:

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

 #define L_ZMIENNYCH 26

 void  yyerror (char s[]) {
   // wywolywane przez  yyparse  w razie bledu
   printf ("!!! %s\n", s);
 }

 int  yylex (void) {  // puste
   int c;
   do  { c = getchar (); }
   while (c == ' ' || c == '\t' || c == '\n');
   if (c == EOF)  return 0;
   else  return c;
 }

 int pamiec[L_ZMIENNYCH], i;

%}

%%

//==============================================
// Gramatyka:

program:   komendy '.'     { printf("KONIEC\n"); exit(1); }
 ;
komendy:       /* puste */
           | komendy komenda
 ;
komenda:     zmienna '=' wyrazenie ';'
                           { pamiec[$1] = $3;
                             printf("BISON>      %c == %i\n",
                               (char)($1+'a'), $3
                             );
                             printf("UZYTKOWNIK> ");
                           }
           | wyrazenie ';' { printf("BISON>      == %i\n", $1);
                             printf("UZYTKOWNIK> ");
                           }
 ;
wyrazenie:   skladnik                { $$ = $1; }
           | '-' skladnik            { $$ = -$2; }
           | wyrazenie '+' skladnik  { $$ = $1+$3; }
           | wyrazenie '-' skladnik  { $$ = $1-$3; }
 ;
skladnik:    potega                  { $$ = $1; }
           | skladnik '*' potega     { $$ = $1*$3; }
           | skladnik '/' potega     { $$ = $1/$3; }
 ;
potega:      podstawa      { $$ = $1; }
           | podstawa '^' potega
                           { $$ = 1;
                             if ($3 < 0) {
                               printf("  !! ujemny wykladnik potegi\n");
                               printf("  !! przyjmuje wykladnik == 0\n");
                             } else
                                 for (i=0; i<$3; i++)  $$ *= $1;
                           }
 ;
podstawa:     liczba                 { $$ = $1; }
            | zmienna                { $$ = pamiec[$1]; }
            | '(' wyrazenie ')'      { $$ = $2; }
 ;
zmienna:      'a'                    { $$ =  0; }
            | 'b'                    { $$ =  1; }
            | 'c'                    { $$ =  2; }
            | 'd'                    { $$ =  3; }
            | 'e'                    { $$ =  4; }
            | 'f'                    { $$ =  5; }
            | 'g'                    { $$ =  6; }
            | 'h'                    { $$ =  7; }
            | 'i'                    { $$ =  8; }
            | 'j'                    { $$ =  9; }
            | 'k'                    { $$ = 10; }
            | 'l'                    { $$ = 11; }
            | 'm'                    { $$ = 12; }
            | 'n'                    { $$ = 13; }
            | 'o'                    { $$ = 14; }
            | 'p'                    { $$ = 15; }
            | 'q'                    { $$ = 16; }
            | 'r'                    { $$ = 17; }
            | 's'                    { $$ = 18; }
            | 't'                    { $$ = 19; }
            | 'u'                    { $$ = 20; }
            | 'v'                    { $$ = 21; }
            | 'w'                    { $$ = 22; }
            | 'x'                    { $$ = 23; }
            | 'y'                    { $$ = 24; }
            | 'z'                    { $$ = 25; }
 ;
liczba:       cyfra                  { $$ = $1; }
            | liczba cyfra           { $$ = $1 * 10 + $2; }
 ;
cyfra:        '0'                    { $$ = 0; }
            | '1'                    { $$ = 1; }
            | '2'                    { $$ = 2; }
            | '3'                    { $$ = 3; }
            | '4'                    { $$ = 4; }
            | '5'                    { $$ = 5; }
            | '6'                    { $$ = 6; }
            | '7'                    { $$ = 7; }
            | '8'                    { $$ = 8; }
            | '9'                    { $$ = 9; }
 ;

%%

//==============================================
// INICJALIZACJE I WYWOLANIE:

int main (void) {
 for (i=0; i<L_ZMIENNYCH; i++)  pamiec[i] = 0;
 printf("UZYTKOWNIK> ");
 return yyparse ();
}