Function soar_remove_callback

Core/SoarKernel/src/callback.cpp:627–662

}

void soar_remove_callback(agent* thisAgent,
                          SOAR_CALLBACK_TYPE callback_type,
                          soar_callback_id id)
{
    cons* c;
    cons* prev_c = NULL;      /* Initialized to placate gcc -Wall */
    list* head;
    
    head = thisAgent->soar_callbacks[callback_type];
    
    for (c = head; c != NIL; c = c->rest)
    {
        soar_callback* cb;
        
        cb = static_cast< soar_callback* >(c->first);
        
        if (cb->id == id)
        {
            if (c != head)
            {
                prev_c->rest = c->rest;
                soar_destroy_callback(cb);
                free_cons(thisAgent, c);
                return;
            }
            else
            {
                thisAgent->soar_callbacks[callback_type] = head->rest;
                soar_destroy_callback(cb);
                free_cons(thisAgent, c);
                return;
            }
        }
        prev_c = c;
    }
}

void soar_callback_test_callback(agent* /*the_agent*/,
                                 soar_callback_data data,