Function parse_test

Core/SoarKernel/src/parser.cpp:523–557

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

test parse_test(agent* thisAgent)
{
    complex_test* ct;
    test t, temp;
    
    if (thisAgent->lexeme.type != L_BRACE_LEXEME)
    {
        return parse_simple_test(thisAgent);
    }
    /* --- parse and return conjunctive test --- */
    get_lexeme(thisAgent);
    t = make_blank_test();
    do
    {
        temp = parse_simple_test(thisAgent);
        if (!temp)
        {
            deallocate_test(thisAgent, t);
            return NIL;
        }
        add_new_test_to_test(thisAgent, &t, temp);
    }
    while (thisAgent->lexeme.type != R_BRACE_LEXEME);
    get_lexeme(thisAgent); /* consume the "}" */
    
    if (test_is_complex_test(t))
    {
        ct = complex_test_from_test(t);
        if (ct->type == CONJUNCTIVE_TEST)
            ct->data.conjunct_list =
                destructively_reverse_list(ct->data.conjunct_list);
    }
    
    return t;
}

/* =================================================================
                        Routines for Conditions