Function smem_parse_cues

Core/SoarKernel/src/semantic_memory.cpp:3914–4222

 */

bool smem_parse_cues(agent* thisAgent, const char* chunks_str, std::string** err_msg, std::string** result_message, uint64_t number_to_retrieve)
{
    uint64_t clause_count = 0;  // This is counting up the number of parsed clauses
    // so that there is a pointer to a failure location.
    
    //Parsing requires an open semantic database.
    smem_attach(thisAgent);
    
    //Next 5 lines copied as in smem_parse_chunks.
    thisAgent->alternate_input_string = chunks_str;
    thisAgent->alternate_input_suffix = const_cast<char*>(")");
    thisAgent->current_char = ' ';
    thisAgent->alternate_input_exit = true;
    set_lexer_allow_ids(thisAgent, true);
    
    bool good_cue = true;   // This is a success or failure flag that will be checked periodically
    // and indicates whether or not we can call smem_process_query.
    
    std::map<std::string, Symbol*> cue_ids; //I want to keep track of previous references when adding a new element to the cue.
    
    //consume next token.
    get_lexeme(thisAgent);
    
    good_cue = thisAgent->lexeme.type == L_PAREN_LEXEME;
    
    Symbol* root_cue_id = NIL;    //This is the id that gets passed to smem_process_query.
    //It's main purpose is to contain augmentations
    Symbol* negative_cues = NULL;  //This is supposed to contain the negative augmentations.
    
    bool trigger_first = true; //Just for managing my loop.
    bool minus_ever = false; //Did a negative cue ever show up?
    bool first_attribute = true; //Want to make sure there is a positive attribute to begin with.
    
    // While there is parsing to be done:
    while ((thisAgent->lexeme.type == L_PAREN_LEXEME) && good_cue)
    {
        //First, consume the left paren.
        get_lexeme(thisAgent);
        
        if (trigger_first)
        {
            good_cue = thisAgent->lexeme.type == VARIABLE_LEXEME;
            
            if (good_cue)
            {
                root_cue_id = make_new_identifier(thisAgent, (char) thisAgent->lexeme.string[1], 1);
                cue_ids[thisAgent->lexeme.string] = root_cue_id;
                negative_cues = make_new_identifier(thisAgent, (char) thisAgent->lexeme.string[1], 1);
            }
            else
            {
                (*err_msg)->append("Error: The cue must be a variable.\n");//Spit out that the cue must be a variable.
                break;
            }
            
            trigger_first = false;
        }
        else