Function soar_pop_callback

Core/SoarKernel/src/callback.cpp:548–574

}

void soar_pop_callback(agent* thisAgent,
                       SOAR_CALLBACK_TYPE callback_type)
{
    list* head;
    soar_callback* cb;
    
    head = thisAgent->soar_callbacks[callback_type];
    
    if (head == NULL)
    {
        print_string(thisAgent, "Attempt to remove non-existant callback.\n");
        return;
    }
    
    if ((callback_type == PRINT_CALLBACK)
            && (head->rest == NULL))
    {
        print_string(thisAgent, "Attempt to remove last print callback. Ignored.\n");
        return;
    }
    
    cb = static_cast< soar_callback* >(head->first);
    
    thisAgent->soar_callbacks[callback_type] = head->rest;
    soar_destroy_callback(cb);
    free_cons(thisAgent, head);
}

void soar_push_callback(agent* thisAgent,
                        SOAR_CALLBACK_TYPE callback_type,