Function parse_attr_value_make

Core/SoarKernel/src/parser.cpp:1934–2046

----------------------------------------------------------------- */

action* parse_attr_value_make(agent* thisAgent, Symbol* id)
{
    rhs_value attr, value;
    action* all_actions, *new_actions, *last;
    Symbol* old_id, *new_var;
    
    /* JC Added, need to store the attribute name */
    char    szAttribute[256];
    
    if (thisAgent->lexeme.type != UP_ARROW_LEXEME)
    {
        print(thisAgent, "Expected ^ in RHS make action\n");
        print_location_of_most_recent_lexeme(thisAgent);
        return NIL;
    }
    old_id = id;
    
    get_lexeme(thisAgent); /* consume up-arrow, advance to attribute */
    attr = parse_rhs_value(thisAgent);
    if (! attr)
    {
        return NIL;
    }
    
    /* JC Added, we will need the attribute as a string, so we get it here */
    rhs_value_to_string(attr, szAttribute, 256);
    
    all_actions = NIL;
    
    /*  allow dot notation "." in RHS attribute path  10/15/98 KJC */
    while (thisAgent->lexeme.type == PERIOD_LEXEME)
    {
        get_lexeme(thisAgent); /* consume the "."  */
        
        /* set up for next attribute in path: make dummy variable,
           and create new action in the path */
        new_var = make_placeholder_var(thisAgent, first_letter_from_rhs_value(attr));
        
        /* parse_preferences actually creates the action.  Even though
         there aren't really any preferences to read, we need the default
         acceptable prefs created for all attributes in path */
        
        if (strcmp(szAttribute, "operator") != 0)
        {
            new_actions = parse_preferences_soar8_non_operator(thisAgent, id, attr,
                          symbol_to_rhs_value(new_var));
        }
        else
        {
            new_actions = parse_preferences(thisAgent, id, attr, symbol_to_rhs_value(new_var));
        }
        
        for (last = new_actions; last->next != NIL; last = last->next)
            /* continue */;
            
        last->next = all_actions;
        all_actions = new_actions;