Program Postfixbe;

{MAJD: alul a tipus-okat def. kijav. es hasznalhatova tenni!}

{Lengyel forma
-------------
Infix --> Postfix  --> LEXEGYSG
(sor)      (sor)
}
Uses Tipusu,Uverem,Usor;
{Const precedenci:array ['=','(','+','-','*','/','^'];}
{-itt felsorolni a precedenciakat! - konstansk‚nt, fuggvenyek nelkul, azt majd kesobb}
Var Infix, PostFix:Tsor;
lex: Tlexegys;
v:Tverem;

Procedure VerembolNyitoig(var v:Tverem; var Postfix:Tsor);
Begin
{ While v.tetejere <> '(' do - AT KELLENE IRNI A VEREM-UNIT-OT
  Begin
    v.verembol(lex);
    Postfix.sorba(lex);
  End;}
End;

Procedure NemKisebbPrecVerembolKi(var v:Tverem; var Postfix:Tsor; lex:lexegys);
Begin
  While (prec(lex)<=prec(v.teto)) and not (v.ures_e)
   Begin
    v.verembol(x);
    Postfix.sorba(x);
    v.teto(x);
   End;
End;

Procedure InPostFix;
Begin
   While not infix.ures_e do
     Begin
       Infix.sorbol(lex);
       if lex.azon= 'adat' then Postfix.sorba(lex)
         else if lex.azon='(' then v.verembe(lex)
          else if lex.azon=')' then begin VerembolNyitoig(v,Postfix);  ;  {-- (-t eldobom --}
                v.verembol(lex); end
          else begin NemKisebbPrecVerembolKi(v,Postfix,lex); {-- egy muveleti jel marad!!! --}
               v.verembe(lex);
               end;
       end
     End;
    ”tm sol (v,PostFix);
End;

BEGIN
beolvas(infix);
{infixpostfix - ez a file csinalna
ertelemzes,
kiiras}
END.