Function parse_function_call_after_lparen

Core/SoarKernel/src/parser.cpp:1378–1480

rhs_value parse_rhs_value(agent* thisAgent);

rhs_value parse_function_call_after_lparen(agent* thisAgent,
        bool is_stand_alone_action)
{
    rhs_function* rf;
    Symbol* fun_name;
    list* fl;
    cons* c, *prev_c;
    rhs_value arg_rv;
    int num_args;
    
    /* --- read function name, find the rhs_function structure --- */
    if (thisAgent->lexeme.type == PLUS_LEXEME)
    {
        fun_name = find_str_constant(thisAgent, "+");
    }
    else if (thisAgent->lexeme.type == MINUS_LEXEME)
    {
        fun_name = find_str_constant(thisAgent, "-");
    }
    else
    {
        fun_name = find_str_constant(thisAgent, thisAgent->lexeme.string);
    }
	
	if (!fun_name && (std::string(thisAgent->lexeme.string) == "succeeded" || std::string(thisAgent->lexeme.string) == "failed"))
	{
		print(thisAgent, "WARNING: Replacing function named %s with halt since this is a unit test but running in a non-unit testing environment.\n", thisAgent->lexeme.string);
		fun_name = find_str_constant(thisAgent, "halt");
	}
	
    if (!fun_name)
    {
        print(thisAgent, "No RHS function named %s\n", thisAgent->lexeme.string);
        print_location_of_most_recent_lexeme(thisAgent);
        return NIL;
    }
    rf = lookup_rhs_function(thisAgent, fun_name);
	
	if (!rf && (std::string(thisAgent->lexeme.string) == "succeeded" || std::string(thisAgent->lexeme.string) == "failed"))
	{
		print(thisAgent, "WARNING: Replacing function named %s with halt since this is a unit test but running in a non-unit testing environment.\n", thisAgent->lexeme.string);
		rf = lookup_rhs_function(thisAgent, find_str_constant(thisAgent, "halt"));
	}
	
    if (!rf)
    {
        print(thisAgent, "No RHS function named %s\n", thisAgent->lexeme.string);
        print_location_of_most_recent_lexeme(thisAgent);
        return NIL;
    }
    
    /* --- make sure stand-alone/rhs_value is appropriate --- */
    if (is_stand_alone_action && (! rf->can_be_stand_alone_action))
    {
        print(thisAgent, "Function %s cannot be used as a stand-alone action\n",
              thisAgent->lexeme.string);
        print_location_of_most_recent_lexeme(thisAgent);
        return NIL;