Function reset_id_counters

Core/SoarKernel/src/symtab.cpp:663–709

}

bool reset_id_counters(agent* thisAgent)
{
    int i;
    
    if (thisAgent->identifier_hash_table->count != 0)
    {
        // As long as all of the existing identifiers are long term identifiers (lti), there's no problem
        uint64_t ltis = 0;
        do_for_all_items_in_hash_table(thisAgent, thisAgent->identifier_hash_table, smem_count_ltis, &ltis);
        if (static_cast<uint64_t>(thisAgent->identifier_hash_table->count) != ltis)
        {
            print(thisAgent,  "Internal warning:  wanted to reset identifier generator numbers, but\n");
            print(thisAgent,  "there are still some identifiers allocated.  (Probably a memory leak.)\n");
            print(thisAgent,  "(Leaving identifier numbers alone.)\n");
            xml_generate_warning(thisAgent, "Internal warning:  wanted to reset identifier generator numbers, but\nthere are still some identifiers allocated.  (Probably a memory leak.)\n(Leaving identifier numbers alone.)");
            
            print_internal_symbols(thisAgent);
            /* RDF 01272003: Added this to improve the output from this error message */
            //TODO: append this to previous XML string or generate separate output?
            //do_for_all_items_in_hash_table( thisAgent, thisAgent->identifier_hash_table, print_identifier_ref_info, 0);
            
            // Also dump the ids to a txt file
            FILE* ids = fopen("leaked-ids.txt", "w") ;
            if (ids)
            {
                do_for_all_items_in_hash_table(thisAgent, thisAgent->identifier_hash_table, print_identifier_ref_info, reinterpret_cast<void*>(ids));
                fclose(ids) ;
            }
            
            return false;
        }
        
        // Getting here means that there are still identifiers but that
        // they are all long-term and (hopefully) exist only in production memory.
    }
    for (i = 0; i < 26; i++)
    {
        thisAgent->id_counter[i] = 1;
    }
    
    if (thisAgent->smem_db->get_status() == soar_module::connected)
    {
        smem_reset_id_counters(thisAgent);
    }
    
    return true ;
}

bool reset_tc_num(agent* /*thisAgent*/, void* item, void*)
{