Пишем свой интерпретатор языка 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;
}

       parser_ResWord[ "LET"  ] = parser_TokenType(TOKEN_KW_LET);
       parser_ResWord["PRINT" ] = parser_TokenType(TOKEN_KW_PRINT);
       parser_ResWord["INPUT" ] = parser_TokenType(TOKEN_KW_INPUT);
       parser_ResWord[ "DIM"  ] = parser_TokenType(TOKEN_KW_DIM);
       parser_ResWord[  "TO"  ] = parser_TokenType(TOKEN_KW_TO);
       parser_ResWord["OPTION"] = parser_TokenType(TOKEN_KW_OPTION);
       parser_ResWord[  "IF"  ] = parser_TokenType(TOKEN_KW_IF);
       parser_ResWord[ "THEN" ] = parser_TokenType(TOKEN_KW_THEN);
       parser_ResWord[ "ELSE" ] = parser_TokenType(TOKEN_KW_ELSE);
       parser_ResWord["ELSEIF"] = parser_TokenType(TOKEN_KW_ELSEIF);
       parser_ResWord["WHILE" ] = parser_TokenType(TOKEN_KW_WHILE);
       parser_ResWord[ "WEND" ] = parser_TokenType(TOKEN_KW_WEND);
       parser_ResWord[ "FOR"  ] = parser_TokenType(TOKEN_KW_FOR);
       parser_ResWord[ "STEP" ] = parser_TokenType(TOKEN_KW_STEP);
       parser_ResWord[ "NEXT" ] = parser_TokenType(TOKEN_KW_NEXT);
       parser_ResWord[  "DO"  ] = parser_TokenType(TOKEN_KW_DO);
       parser_ResWord[ "UNTIL"] = parser_TokenType(TOKEN_KW_UNTIL);
       parser_ResWord[ "FUNC" ] = parser_TokenType(TOKEN_KW_FUNC);
       parser_ResWord["BEGIN" ] = parser_TokenType(TOKEN_KW_BEGIN);
       parser_ResWord[ "END"  ] = parser_TokenType(TOKEN_KW_END);
       parser_ResWord[ "LOOP" ] = parser_TokenType(TOKEN_KW_LOOP);
       parser_ResWord["RETURN"] = parser_TokenType(TOKEN_KW_RETURN);
       parser_ResWord[ "GOTO" ] = parser_TokenType(TOKEN_KW_GOTO);
       parser_ResWord[ "BASE" ] = parser_TokenType(TOKEN_KW_BASE);
       parser_ResWord["TRACE" ] = parser_TokenType(TOKEN_KW_TRACE);
       parser_ResWord["SCREEN"] = parser_TokenType(TOKEN_KW_SCREEN);
       parser_ResWord["PRESET"] = parser_TokenType(TOKEN_KW_PRESET);
       parser_ResWord[ "LINE" ] = parser_TokenType(TOKEN_KW_LINE);
       parser_ResWord["CIRCLE"] = parser_TokenType(TOKEN_KW_CIRCLE);
       parser_ResWord[ "CLS"  ] = parser_TokenType(TOKEN_KW_CLS);
       parser_ResWord[ "BEEP" ] = parser_TokenType(TOKEN_KW_BEEP);
       parser_ResWord["CLEAR" ] = parser_TokenType(TOKEN_KW_CLEAR);
       parser_ResWord[ "SIN"  ] = parser_TokenType(TOKEN_KW_SIN);
       parser_ResWord[ "COS"  ] = parser_TokenType(TOKEN_KW_COS);
       parser_ResWord[ "TAN"  ] = parser_TokenType(TOKEN_KW_TAN);
       parser_ResWord[ "ATN"  ] = parser_TokenType(TOKEN_KW_ATN);
       parser_ResWord[ "VAL"  ] = parser_TokenType(TOKEN_KW_VAL);
       parser_ResWord[ "STR$" ] = parser_TokenType(TOKEN_KW_STR);
       parser_ResWord[ "LEN"  ] = parser_TokenType(TOKEN_KW_LEN);
       parser_ResWord[ "SQR"  ] = parser_TokenType(TOKEN_KW_SQR);
       parser_ResWord[ "ABS"  ] = parser_TokenType(TOKEN_KW_ABS);
       parser_ResWord["INSTR" ] = parser_TokenType(TOKEN_KW_INSTR);
       parser_ResWord[ "LEFT$"] = parser_TokenType(TOKEN_KW_LEFT);
       parser_ResWord["RIGHT$"] = parser_TokenType(TOKEN_KW_RIGHT);
       parser_ResWord[ "MID$" ] = parser_TokenType(TOKEN_KW_MID);
 
       // Reserved words - Typenames  //////////////////////////////////////////
       parser_ResType[ "INT"  ] = parser_TokenType(TOKEN_TYPE_INT);
       parser_ResType[ "LNG"  ] = parser_TokenType(TOKEN_TYPE_LINT);
       parser_ResType[ "SNG"  ] = parser_TokenType(TOKEN_TYPE_FLOAT);
       parser_ResType[ "DBL"  ] = parser_TokenType(TOKEN_TYPE_DOUBLE);
       parser_ResType[ "STR"  ] = parser_TokenType(TOKEN_TYPE_STRING);
       parser_ResType[ "VOID" ] = parser_TokenType(TOKEN_TYPE_VOID);