ExpressionValue

1    int ExpressionValue(list Expr) {

// Expr - lista elementów (tokenów) wejściowego wyrażenia arytmetycznego

2    Stack Arg, Opr; // stosy robocze początkowo puste

3    int i, result:=0;

4    expr_element tmp;

3

5    while (EMPTY(Expr)=FALSE) do {

6    tmp:=GET_FIRST(Expr);

8

9    switch    (tmp) of {

10    case [open bracket] : // nic nie robimy

11    case    [close bracket]:

12    resnlt:=calcnlate(TOP(Arg),TOP(Opr),TOP(POP(Arg)));

13    POP(Opr);

14    POP    (Arg)    ;

15    PUSH(Arg,resnlt) ;

16    case    [nomber]: PUSH(Arg,tmp);

17    case    [operator]: PUSH(Opr,tmp);

18    }

19

20    DELETE_FIRST    (Expr)    ;

21    }

22

23    return TOP(Arg);

24    }