/*
 * SPDX-FileCopyrightText: 2004 Copyright contributors to the cppTango project
 *
 * SPDX-License-Identifier: LGPL-3.0-or-later
 */

#include <tango/internal/server/basiccommand.h>

#include <tango/server/DevIntr.h>
#include <tango/server/DServer.h>
#include <tango/server/NoSyncModelTangoMonitor.h>
#include <tango/server/Util.h>
#include <tango/server/ZmqEventSupplier.h>

namespace Tango
{

//+----------------------------------------------------------------------------------------------------------------
//
// method :
//        DevStatusCmd::DevStatusCmd
//
// description :
//        constructor for Command class Status
//
//-----------------------------------------------------------------------------------------------------------------

DevStatusCmd::DevStatusCmd(const char *name, Tango::CmdArgType in, Tango::CmdArgType out) :
    Command(name, in, out)
{
}

//+--------------------------------------------------------------------------------------------------------------
//
// method :
//        DevStatusCmd::execute
//
// description :
//        return status as string
//
//------------------------------------------------------------------------------------------------------------------

CORBA::Any *DevStatusCmd::execute(DeviceImpl *device, TANGO_UNUSED(const CORBA::Any &in_any))
{
    TANGO_LOG_DEBUG << "DevStatus::execute(): arrived " << std::endl;

    //
    // return status string as Any
    //

    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }

    try
    {
        if(device->is_alarm_state_forced())
        {
            (*out_any) <<= device->DeviceImpl::dev_status();
        }
        else
        {
            (*out_any) <<= device->dev_status();
        }
    }
    catch(...)
    {
        delete out_any;
        throw;
    }

    TANGO_LOG_DEBUG << "Leaving DevStatus::execute()" << std::endl;
    return out_any;
}

//+-----------------------------------------------------------------------------------------------------------------
//
// method :
//        DevStateCmd::DevStateCmd
//
// description :
//        constructor for Command class State
//
//-------------------------------------------------------------------------------------------------------------------

DevStateCmd::DevStateCmd(const char *name, Tango::CmdArgType in, Tango::CmdArgType out) :
    Command(name, in, out)
{
}

//+-----------------------------------------------------------------------------------------------------------------
//
// method :
//        StateCmd::execute
//
// description :
//        return state as enumerated type
//
//------------------------------------------------------------------------------------------------------------------

CORBA::Any *DevStateCmd::execute(DeviceImpl *device, TANGO_UNUSED(const CORBA::Any &in_any))
{
    TANGO_LOG_DEBUG << "DevState::execute(): arrived" << std::endl;

    //
    // return state as Any
    //

    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }

    try
    {
        if(device->is_alarm_state_forced())
        {
            (*out_any) <<= device->DeviceImpl::dev_state();
        }
        else
        {
            (*out_any) <<= device->dev_state();
        }
    }
    catch(...)
    {
        delete out_any;
        throw;
    }

    TANGO_LOG_DEBUG << "Leaving DevState::execute()" << std::endl;
    return out_any;
}

//+------------------------------------------------------------------------------------------------------------------
//
// method :
//        DevStateCmd::DevInitCmd
//
// description :
//        constructor for Command class Init
//
//------------------------------------------------------------------------------------------------------------------

DevInitCmd::DevInitCmd(const char *name, Tango::CmdArgType in, Tango::CmdArgType out) :
    Command(name, in, out)
{
}

//--------------------------------------------------------------------------------------------------------------------
//
// method :
//        InitCmd::execute
//
// description :
//        Initialize a device
//
// argument :
//        in :
//            - device : Pointer to the device on which the command must be excuted
//            - in_any : Input data packed in a CORBA Any object
//
//--------------------------------------------------------------------------------------------------------------------

CORBA::Any *DevInitCmd::execute(DeviceImpl *device, TANGO_UNUSED(const CORBA::Any &in_any))
{
    TANGO_LOG_DEBUG << "Init::execute(): arrived" << std::endl;

    //
    // Get device interface only if necessary (some client(s) listening on device interface change event)
    //

    ZmqEventSupplier *event_supplier_zmq = nullptr;
    event_supplier_zmq = Util::instance()->get_zmq_event_supplier();
    DevIntr di;

    bool ev_client = false;

    if(event_supplier_zmq != nullptr)
    {
        ev_client = event_supplier_zmq->any_dev_intr_client(device);
    }

    if(device->get_dev_idl_version() >= MIN_IDL_DEV_INTR && ev_client)
    {
        di.get_interface(device);
        device->disable_intr_change_ev();
    }

    //
    // Init device
    //

    Tango::Util *tg = nullptr;

    try
    {
        NoSyncModelTangoMonitor mon(device);
        tg = Tango::Util::instance();

        // clean the sub-device list for this device
        tg->get_sub_dev_diag().remove_sub_devices(device->get_name());
        tg->get_sub_dev_diag().set_associated_device(device->get_name());

        device->delete_device();
        device->init_device();

        //
        // Re-configure polling in device on which the Init cmd been done is the admin device but only if the Init is
        // not called during the DS startup sequence
        //

        DeviceImpl *admin_dev = nullptr;
        try
        {
            admin_dev = tg->get_dserver_device();
        }
        catch(Tango::DevFailed &)
        {
        }

        if(admin_dev == device)
        {
            tg->polling_configure();
        }

        //
        // Apply memorized values for memorized attributes (if any). For Py DS, if some attributes are memorized,
        // the write_attributes call will take the Python lock
        //

        Tango::DeviceClass *dc = device->get_device_class();
        std::vector<Tango::DeviceImpl *> dev_v = dc->get_device_list();
        unsigned int loop;
        for(loop = 0; loop < dev_v.size(); loop++)
        {
            if(dev_v[loop] == device)
            {
                break;
            }
        }
        if(loop != dev_v.size())
        {
            dc->set_memorized_values(false, loop, true);
        }
        else
        {
            TANGO_THROW_EXCEPTION(API_DeviceNotFound, "Can't find new device in device list");
        }
    }
    catch(Tango::DevFailed &e)
    {
        device->enable_intr_change_ev();

        TangoSys_OMemStream o;

        o << "Init command failed!!";
        o << "\nHINT: RESTART device with the Restart command of the device server adm. device";
        o << "\nDevice server adm. device name = dserver/";
        o << tg->get_ds_name().c_str() << std::ends;

        TANGO_RETHROW_EXCEPTION(e, API_InitThrowsException, o.str());
    }

    //
    // Check if device interface has changed and eventually fire device interface change event
    //

    if(device->get_dev_idl_version() >= MIN_IDL_DEV_INTR && ev_client)
    {
        device->enable_intr_change_ev();
        if(di.has_changed(device))
        {
            Device_5Impl *dev_5 = static_cast<Device_5Impl *>(device);
            DevCmdInfoList_2 *cmds_list = dev_5->command_list_query_2();

            DevVarStringArray dvsa(1);
            dvsa.length(1);
            dvsa[0] = Tango::string_dup(AllAttr_3);
            AttributeConfigList_5 *atts_list = dev_5->get_attribute_config_5(dvsa);

            event_supplier_zmq->push_dev_intr_change_event(device, false, cmds_list, atts_list);
        }
    }

    //
    // return to the caller
    //

    CORBA::Any *ret = return_empty_any("InitCmd");
    return ret;
}

} // namespace Tango
