rpn/src/rpn-program.h

//
void eval(void)
{
	MIN_ARGUMENTS(1);
	if (IS_ARG_TYPE(0, cmd_symbol))
	{
		// recall a variable
		void* obj;
		unsigned int size;
		int type;
		string& variable = *((symbol*)_stack->back())->_value;
		if (_heap->get(variable, obj, size, type))
		{
			_stack->pop_back();
			_stack->push_back(obj, size, type);
		}
		else
			ERR_CONTEXT(ret_unknown_variable);
	}
	else if (IS_ARG_TYPE(0, cmd_program))
	{
		// eval a program
		string& entry = *((oprogram*)_stack->back())->_value;
		_stack->pop_back();

		program prog;

		// make program from string in stack level 1
		if (program::parse(entry, prog) == ret_ok)
		{
			// run it
			prog.run(*_stack, *_heap);
		}
	}
	else
		ERR_CONTEXT(ret_bad_operand_type);
}