Пишем свой интерпретатор языка BASIC

// LexicalAnalyzer.h
#ifndef LEXICALANALYZER_H_INCLUDED
#define LEXICALANALYZER_H_INCLUDED
 
#include <cctype>
#include <string>
#include <map>
#include <iostream>
 
enum Token_value {
    NAME,       NUMBER,      END,
    PLUS = '+', MINUS = '-', MUL = '*', DIV = '/',
    PRINT = ';',ASSIGN = '=',LP = '(',  RP = ')'
};
extern Token_value curr_tok;
extern std::map<std::string,double>table;
extern int no_of_errors;
 
Token_value get_token();
 
double expr(bool);
double term (bool);
double prim (bool);
int error(const std::string&);
 
#endif // LEXICALANALYZER_H_INCLUDED

// LexicalAnalyzer.cpp
#include "LexicalAnalyzer.h"
 
 
std::map<std::string,double>table;
Token_value curr_tok=PRINT;
 
double expr (bool get)
{
    double left = term(get);
 
    for (;;)
        switch (curr_tok) {
            case PLUS:
                 left += term(true);
            break;
            case MINUS:
                 left-= term(true);
            break;
            default:
                 return left;
        }
}
 
double term (bool get)
{
    double left = prim (get);
 
    for (;;)
        switch (curr_tok) {
            case MUL:
                 left*=prim(true);
            break;
            case DIV:
                 if (double d = prim (true)) {
                     left /= prim (true);
                     break;
                 }
                 return error("Деление на ноль");
            default:
                 return left;
        }
}
 
double number_value;
std::string string_value;
 
double prim (bool get)
{
    if (get) get_token();
    switch (curr_tok){
        case NUMBER:{
            double& v = number_value;
            get_token();
            return v;
        }
        case NAME:{
            double& v = table[string_value];
            if (get_token()==ASSIGN) v = expr(true);
            return v;
        }
        case MINUS:
            return -prim(true);
        case LP:{
            double e = expr(true);
            if (curr_tok!=RP) return error("Ожидалась )");
            get_token();
            return e;
        }
        default:
            return error("Ожидалось первичное выражение");
    }
}
 
Token_value get_token()
{
    char ch = 0;
 
    do {
        if (!std::cin.get(ch)) return curr_tok = END;
    } while (ch!='\n'&&isspace(ch));
 
    switch (ch) {
        case 0:
             return curr_tok = END;
        case ';':case '\n':
             return curr_tok = PRINT;
        case '*':case'/':case '+':case '-':case '(':case ')':case '=':
             return Token_value(ch);
        case '0':case '1':case '2':case '3':case '4' :
        case '5':case '6':case '7':case '8':case '9':case '.':
             std::cin.putback(ch);
             std::cin>>number_value;
             return curr_tok=NUMBER;
        default:
             if (isalpha(ch)) {
                 string_value = ch;
                 while (std::cin.get(ch)&&isalnum(ch)) string_value.push_back(ch);
                 std::cin.putback(ch);
                 return curr_tok = NAME;
             }
             error ("Неправильная лексема");
             return curr_tok = PRINT;
    }
}
int no_of_errors=0;
int error (const std::string& s)
{
    no_of_errors++;
    std::cerr<<"Ошибка: "<<s<<'\n';
    return no_of_errors;
}

// main.cpp
#include "LexicalAnalyzer.h"
 
 
int main()
{
    table["pi"]=3.1415926535897932385;
    table["e"]=2.7182818284590452354;
    while (std::cin) {
        get_token();
        if (curr_tok==END) break;
        if (curr_tok==PRINT) continue;
        std::cout<<expr(false)<<'\n';
    }
    return no_of_errors;
}

    static Value syntax_parserPrimary()
    {
#if DEBUG && SYNTAX_PARSER_DEBUG
        debugger_Print(SYNTAX_PARSER_PRIMARY);
#endif
        switch (parser_GetToken())
        {
            case TOKEN_CONST_INT: {
                Value int_x(::parser_CurTokenStr, INT);
                return int_x;
            }
            case TOKEN_CONST_FLOAT: {
                Value float_x(::parser_CurTokenStr, FLOAT);
                return float_x;
            }
            case TOKEN_CONST_STRING: {
                Value string_x(::parser_CurTokenStr, STRING);
                return string_x;
            }
            case TOKEN_IDENT: {
                return syntax_parserIdentRValue();
            }
            case TOKEN_DELIM_MINUS: {
                return -syntax_parserPrimary();
            }
            case TOKEN_BINARY_NOT: {
                return ~syntax_parserBinaryExpr();
            }
            case TOKEN_LEFT_PARENTH: {
                Value lvalue;
                lvalue = syntax_parserBinaryExpr();
 
                if (::parser_CurToken != TOKEN_RIGHT_PARENTH)
                   error(RIGHTP_EXPECTED);
                return lvalue;
                }
            default:
                error(WRONG_EXPRESSION);
        }
        // This is bad
        //это просто чтобе не получать предупр.компилятора
        Value null_x("0",INT);
        return null_x;
    }
/* ************************************************************************** */
    static Value syntax_parserTerm ()
    {
#if DEBUG && SYNTAX_PARSER_DEBUG
        debugger_Print(SYNTAX_PARSER_TERM);
#endif
        // Начальное значение.
        Value lvalue;
        lvalue = syntax_parserPrimary();
 
        while (true){
            switch (parser_GetToken())
            {
                case TOKEN_DELIM_MULTIPLY:
                    lvalue = lvalue * syntax_parserPrimary();
                break;
                case TOKEN_DELIM_DIVIDE:
                     lvalue = lvalue / syntax_parserPrimary();
                break;
                default: return lvalue;
            }
        }
        return lvalue;
    }