Function smem_parse_remove

Core/SoarKernel/src/semantic_memory.cpp:4240–4557

* This is intended to allow the user to remove part or all of information stored on a LTI. * (All attributes, selected attributes, or just values from particular attributes.) */

 * (All attributes, selected attributes, or just values from particular attributes.)
 */
bool smem_parse_remove(agent* thisAgent, const char* chunks_str, std::string** err_msg, std::string** result_message, bool force)
{
    //TODO: need to fix so that err_msg and result_message are actually used or not passed.
    bool good_command = true;
    
    //parsing chunks requires an open semantic database
    smem_attach(thisAgent);
    
    //copied primarily from cli_sp
    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);//This is the end of the incantation.
    
    get_lexeme(thisAgent);
    
    if (thisAgent->lexeme.type == L_PAREN_LEXEME)
    {
        get_lexeme(thisAgent);//Consumes the left paren
    }
    
    if (thisAgent->lexeme.type == AT_LEXEME && good_command)
    {
        get_lexeme(thisAgent);
    }
    
    good_command = thisAgent->lexeme.type == IDENTIFIER_LEXEME;
    
    smem_lti_id lti_id = 0;
    
    if (good_command)
    {
        lti_id = smem_lti_get_id(thisAgent, thisAgent->lexeme.id_letter, thisAgent->lexeme.id_number);
    }
    else
    {
        (*err_msg)->append("Error: No LTI found for that letter and number.\n");
    }
    
    soar_module::symbol_triple_list retrieval_wmes;
    soar_module::symbol_triple_list meta_wmes;
    
    if (good_command && lti_id != NIL)
    {
        Symbol* lti = smem_lti_soar_make(thisAgent, lti_id, thisAgent->lexeme.id_letter, thisAgent->lexeme.id_number, SMEM_LTI_UNKNOWN_LEVEL);
        
        get_lexeme(thisAgent);//Consume the identifier.
        
        smem_slot_map children;
        
        if (thisAgent->lexeme.type == UP_ARROW_LEXEME)
        {
            //Now that we know we have a good lti, we can do a NCBR so that we know what attributes and values we can delete.
            //"--force" will ignore attempts to delete that which isn't there, while the default will be to stop and report back.
            smem_install_memory(thisAgent, NIL, lti_id, lti, false, meta_wmes, retrieval_wmes, fake_install);
            
            //First, we'll create the slot_map according to retrieval_wmes, then we'll remove what we encounter during parsing.