Function read_pattern_component

Core/CLI/src/cli_print.cpp:477–508

--- Read and consume one pattern element. Return 0 if error, 1 if "*", otherwise return 2 and set dest_sym to find_symbol() result. --- */

/* --- Read and consume one pattern element.  Return 0 if error, 1 if "*",
otherwise return 2 and set dest_sym to find_symbol() result. --- */
int read_pattern_component(agent* thisAgent, Symbol** dest_sym)
{
    if (strcmp(thisAgent->lexeme.string, "*") == 0)
    {
        return 1;
    }
    switch (thisAgent->lexeme.type)
    {
        case SYM_CONSTANT_LEXEME:
            *dest_sym = find_str_constant(thisAgent, thisAgent->lexeme.string);
            return 2;
        case INT_CONSTANT_LEXEME:
            *dest_sym = find_int_constant(thisAgent, thisAgent->lexeme.int_val);
            return 2;
        case FLOAT_CONSTANT_LEXEME:
            *dest_sym = find_float_constant(thisAgent, thisAgent->lexeme.float_val);
            return 2;
        case IDENTIFIER_LEXEME:
            *dest_sym = find_identifier(thisAgent, thisAgent->lexeme.id_letter, thisAgent->lexeme.id_number);
            return 2;
        case VARIABLE_LEXEME:
            *dest_sym = read_identifier_or_context_variable(thisAgent);
            if (*dest_sym)
            {
                return 2;
            }
            return 0;
        default:
            print(thisAgent, "Expected identifier or constant in wme pattern\n");
            return 0;
    }
}

list* read_pattern_and_get_matching_wmes(agent* thisAgent)
{