Калькулятор в книге Страуструпа

double left = term(); 
for(;;) // ``вечно'' 
switch(curr_tok) { 
case PLUS: 
get_token(); // случай'+' 
left += term(); 
break;
...

double number_value; 
char name_string[256]; 
double prim() // обрабатывает первичное
{ 
switch (curr_tok) { 
case NUMBER: // константа с плавающей точкой
get_token(); 
return number_value; 
case NAME: 
if (get_token() == ASSIGN) { 
name* n = insert(name_string); 
get_token(); 
n->value = expr(); 
return n->value; 
} 
return look(name_string)->value;
...

struct name { 
char* string; 
name* next; 
double value; 
};

name* look(const char*); 
name* insert(const char*);

token_value get_token() 
{ 
char ch; 
do { // пропускает обобщенные пробелы за исключением'\n' 
if(!cin.get(ch)) return curr_tok = END; 
} while (ch!='\n' && isspace(ch)); 
switch (ch) { 
case ';': 
case '\n': 
cin >> ws;  // пропуск обобщенного пробела
return curr_tok=PRINT; 
case '*': 
case '/': 
case '+': 
case '-': 
case '(': 
case ')': 
case '=': 
return curr_tok=token_value(ch); 
case '0': case '1': case '2': case '3': case '4': 
case '5': case '6': case '7': case '8': case '9': 
case '.': 
cin.putback(ch); 
cin >> number_value; 
return curr_tok=NUMBER; 
default: // NAME, NAME= или ошибка
if (isalpha(ch)) { 
char* p = name_string; 
*p++ = ch; 
while (cin.get(ch) && isalnum(ch)) *p++ = ch; 
cin.putback(ch); 
*p = 0; 
return curr_tok=NAME; 
} 
error("недопустимая лексема");
return curr_tok=PRINT; 
} 
}