Function parse_attr_value_tests

Core/SoarKernel/src/parser.cpp:833–949

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

condition* parse_attr_value_tests(agent* thisAgent)
{
    test id_test_to_use, attr_test;
    bool negate_it;
    condition* first_c, *last_c, *c, *new_conds;
    
    /* --- read optional minus sign --- */
    negate_it = false;
    if (thisAgent->lexeme.type == MINUS_LEXEME)
    {
        negate_it = true;
        get_lexeme(thisAgent);
    }
    
    /* --- read up arrow --- */
    if (thisAgent->lexeme.type != UP_ARROW_LEXEME)
    {
        print(thisAgent, "Expected ^ followed by attribute\n");
        print_location_of_most_recent_lexeme(thisAgent);
        return NIL;
    }
    get_lexeme(thisAgent);
    
    first_c = NIL;
    last_c = NIL;
    
    /* --- read first <attr_test> --- */
    attr_test = parse_test(thisAgent);
    if (!attr_test)
    {
        return NIL;
    }
    if (! test_includes_equality_test_for_symbol(attr_test, NIL))
    {
        add_new_test_to_test(thisAgent, &attr_test, make_placeholder_test(thisAgent, 'a'));
    }
    
    /* --- read optional attribute path --- */
    id_test_to_use = NIL;
    while (thisAgent->lexeme.type == PERIOD_LEXEME)
    {
        get_lexeme(thisAgent);  /* consume the "." */
        /* --- setup for next attribute in path:  make a dummy variable,
           create a new condition in the path --- */
        allocate_with_pool(thisAgent, &thisAgent->condition_pool,  &c);
        c->type = POSITIVE_CONDITION;
        if (last_c)
        {
            last_c->next = c;
        }
        else
        {
            first_c = c;
        }
        c->next = NIL;
        c->prev = last_c;
        last_c = c;
        if (id_test_to_use)