Function parse_disjunction_test

Core/SoarKernel/src/parser.cpp:460–499

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

test parse_disjunction_test(agent* thisAgent)
{
    complex_test* ct;
    test t;
    
    if (thisAgent->lexeme.type != LESS_LESS_LEXEME)
    {
        print(thisAgent, "Expected << to begin disjunction test\n");
        print_location_of_most_recent_lexeme(thisAgent);
        return NIL;
    }
    get_lexeme(thisAgent);
    
    allocate_with_pool(thisAgent, &thisAgent->complex_test_pool,  &ct);
    ct->type = DISJUNCTION_TEST;
    ct->data.disjunction_list = NIL;
    t = make_test_from_complex_test(ct);
    
    while (thisAgent->lexeme.type != GREATER_GREATER_LEXEME)
    {
        switch (thisAgent->lexeme.type)
        {
            case SYM_CONSTANT_LEXEME:
            case INT_CONSTANT_LEXEME:
            case FLOAT_CONSTANT_LEXEME:
                push(thisAgent, make_symbol_for_current_lexeme(thisAgent, false), ct->data.disjunction_list);
                get_lexeme(thisAgent);
                break;
            default:
                print(thisAgent, "Expected constant or >> while reading disjunction test\n");
                print_location_of_most_recent_lexeme(thisAgent);
                deallocate_test(thisAgent, t);
                return NIL;
        }
    }
    get_lexeme(thisAgent);  /* consume the >> */
    ct->data.disjunction_list =
        destructively_reverse_list(ct->data.disjunction_list);
    return t;
}

/* -----------------------------------------------------------------
                        Parse Simple Test