//+=============================================================================
//
// file :               DServerClass.cpp
//
// description :        C++ source for the DServerClass and for the
//            command class defined for this class. The singleton
//            class derived from DeviceClass. It implements the
//            command list and all properties and methods required
//            by the DServer once per process.
//
// project :            TANGO
//
// author(s) :          A.Gotz + E.Taurel
//
// Copyright (C) :      2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015
//                        European Synchrotron Radiation Facility
//                      BP 220, Grenoble 38043
//                      FRANCE
//
// This file is part of Tango.
//
// Tango is free software: you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Tango is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public License
// along with Tango.  If not, see <http://www.gnu.org/licenses/>.
//
//
//-=============================================================================

#include <tango/server/dserverclass.h>
#include <tango/server/pollcmds.h>
#include <tango/server/logcmds.h>
#include <tango/server/eventsupplier.h>
#include <tango/server/dserver.h>
#include <tango/client/Database.h>

#include <algorithm>
#include <memory>

namespace Tango
{

//+-------------------------------------------------------------------------
//
// method :         DevRestartCmd::DevRestartCmd
//
// description :     constructors for Command class Restart
//
//--------------------------------------------------------------------------

DevRestartCmd::DevRestartCmd(const char *name, Tango::CmdArgType in, Tango::CmdArgType out, const char *in_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
}

//+-------------------------------------------------------------------------
//
// method :         DevRestartCmd::execute
//
// description :     restart a device
//
//--------------------------------------------------------------------------

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

    //
    // Extract the input string
    //

    const char *tmp_name;
    if(!(in_any >>= tmp_name))
    {
        TANGO_THROW_EXCEPTION(API_IncompatibleCmdArgumentType,
                              "Imcompatible command argument type, expected type is : string");
    }
    std::string d_name(tmp_name);
    TANGO_LOG_DEBUG << "Received string = " << d_name << std::endl;

    //
    // call DServer method which implements this command
    //

    (static_cast<DServer *>(device))->restart(d_name);

    //
    // return to the caller
    //

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

//+----------------------------------------------------------------------------
//
// method :         DevRestartServerCmd::DevRestartServerCmd()
//
// description :     constructor for the DevRestartServerCmd command of the
//            DServer.
//
//-----------------------------------------------------------------------------

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

//+----------------------------------------------------------------------------
//
// method :         DevRestartServerCmd::execute(string &s)
//
// description :     method to trigger the execution of the DevRestartServer
//            command
//
//-----------------------------------------------------------------------------

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

    //
    // call DServer method which implements this command
    //

    (static_cast<DServer *>(device))->restart_server();

    //
    // return to the caller
    //

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

//+----------------------------------------------------------------------------
//
// method :         DevQueryClassCmd::DevQueryClassCmd()
//
// description :     constructor for the DevQueryClass command of the
//            DServer.
//
//-----------------------------------------------------------------------------

DevQueryClassCmd::DevQueryClassCmd(const char *name,
                                   Tango::CmdArgType in,
                                   Tango::CmdArgType out,
                                   const char *out_desc) :
    Command(name, in, out)
{
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevQueryClassCmd::execute(string &s)
//
// description :     method to trigger the execution of the "QueryClass"
//            command
//
//-----------------------------------------------------------------------------

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

    //
    // call DServer method which implements this command
    //

    Tango::DevVarStringArray *ret = (static_cast<DServer *>(device))->query_class();

    //
    // return data to the caller
    //

    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in DevQueryClassCmd::execute()" << std::endl;
        delete ret;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

//+----------------------------------------------------------------------------
//
// method :         DevQueryDeviceCmd::DevQueryDeviceCmd()
//
// description :     constructor for the DevQueryDevice command of the
//            DServer.
//
//-----------------------------------------------------------------------------

DevQueryDeviceCmd::DevQueryDeviceCmd(const char *name,
                                     Tango::CmdArgType in,
                                     Tango::CmdArgType out,
                                     const char *out_desc) :
    Command(name, in, out)
{
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevQueryDeviceCmd::execute(string &s)
//
// description :     method to trigger the execution of the "QueryDevice"
//            command
//
//-----------------------------------------------------------------------------

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

    //
    // call DServer method which implements this command
    //

    Tango::DevVarStringArray *ret = (static_cast<DServer *>(device))->query_device();

    //
    // return data to the caller
    //
    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in DevQueryDeviceCmd::execute()" << std::endl;
        delete ret;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

//+----------------------------------------------------------------------------
//
// method :         DevQuerySubDeviceCmd::DevQuerySubDeviceCmd()
//
// description :     constructor for the DevQuerySubDevice command of the
//                    DServer.
//
//-----------------------------------------------------------------------------

DevQuerySubDeviceCmd::DevQuerySubDeviceCmd(const char *name,
                                           Tango::CmdArgType in,
                                           Tango::CmdArgType out,
                                           const char *out_desc) :
    Command(name, in, out)
{
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevQuerySubDeviceCmd::execute(string &s)
//
// description :     method to trigger the execution of the "QuerySubDevice"
//                    command
//
//-----------------------------------------------------------------------------

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

    //
    // call DServer method which implements this command
    //

    Tango::DevVarStringArray *ret = (static_cast<DServer *>(device))->query_sub_device();

    //
    // return data to the caller
    //
    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in DevQuerySubDeviceCmd::execute()" << std::endl;
        delete ret;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

//+----------------------------------------------------------------------------
//
// method :         DevQueryEventSystemCmd::DevQuerySubDeviceCmd()
//
// description :     method to trigger the execution of the "QueryEventSystem"
//                    command
//
//-----------------------------------------------------------------------------

DevQueryEventSystemCmd::DevQueryEventSystemCmd(const char *name,
                                               Tango::CmdArgType argin,
                                               Tango::CmdArgType argout,
                                               const char *out_desc) :
    Command(name, argin, argout)
{
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevQueryEventSystemCmd::execute()
//
// description :     constructor for the DevQueryEventSystem command of the
//                    DServer.
//
//-----------------------------------------------------------------------------

CORBA::Any *DevQueryEventSystemCmd::execute(DeviceImpl *device, TANGO_UNUSED(const CORBA::Any &in_any))
{
    auto *out_any = new CORBA::Any();

    Tango::DevString ret = (static_cast<DServer *>(device))->query_event_system();
    (*out_any) <<= ret;

    return out_any;
}

//+----------------------------------------------------------------------------
//
// method :         DevEnableEventSystemPerfMonCmd::DevEnableEventSystemPerfMonCmd()
//
// description :     method to trigger the execution of the "EnableEventSystemPerfMon"
//                    command
//
//-----------------------------------------------------------------------------

DevEnableEventSystemPerfMonCmd::DevEnableEventSystemPerfMonCmd(const char *name,
                                                               Tango::CmdArgType argin,
                                                               Tango::CmdArgType argout,
                                                               const char *in_desc) :
    Command(name, argin, argout)
{
    set_in_type_desc(in_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevEnableEventSystemPerfMonCmd::execute()
//
// description :     constructor for the DevEnableEventSystemPerfMon command of the
//                    DServer.
//
//-----------------------------------------------------------------------------

CORBA::Any *DevEnableEventSystemPerfMonCmd::execute(DeviceImpl *device, const CORBA::Any &in_any)
{
    Tango::DevBoolean enabled;
    in_any >>= enabled;

    (static_cast<DServer *>(device))->enable_event_system_perf_mon(enabled);

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

//+----------------------------------------------------------------------------
//
// method :         DevKillCmd::DevKillCmd()
//
// description :     constructor for the DevKill command of the
//            DServer.
//
//-----------------------------------------------------------------------------

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

//+----------------------------------------------------------------------------
//
// method :         DevKillCmd::execute(string &s)
//
// description :     method to trigger the execution of the "Kill"
//            command
//
//-----------------------------------------------------------------------------

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

    //
    // call DServer method which implements this command
    //

    (static_cast<DServer *>(device))->kill();

    //
    // return to the caller
    //

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

//+----------------------------------------------------------------------------
//
// method :         DevSetTraceLevelCmd::DevSetTraceLevelCmd()
//
// description :     constructor for the DevSetTraceLevel command of the
//            DServer.
//
//-----------------------------------------------------------------------------

DevSetTraceLevelCmd::DevSetTraceLevelCmd(const char *name,
                                         Tango::CmdArgType in,
                                         Tango::CmdArgType out,
                                         const char *in_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevSetTraceLevelCmd::execute(string &s)
//
// description :     method to trigger the execution of the "SetTraceLevel"
//            command
//
//-----------------------------------------------------------------------------

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

    TANGO_THROW_EXCEPTION(API_DeprecatedCommand, "SetTraceLevel is no more supported, please use SetLoggingLevel");
}

//+----------------------------------------------------------------------------
//
// method :         DevGetTraceLevelCmd::DevGetTraceLevelCmd()
//
// description :     constructor for the DevGetTraceLevel command of the
//            DServer.
//
//-----------------------------------------------------------------------------

DevGetTraceLevelCmd::DevGetTraceLevelCmd(const char *name,
                                         Tango::CmdArgType in,
                                         Tango::CmdArgType out,
                                         const char *out_desc) :
    Command(name, in, out)
{
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevGetTraceLevelCmd::execute(string &s)
//
// description :     method to trigger the execution of the "DevGetTraceLevel"
//            command
//
//-----------------------------------------------------------------------------

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

    TANGO_THROW_EXCEPTION(API_DeprecatedCommand, "GetTraceLevel is no more supported, please use GetLoggingLevel");
}

//+----------------------------------------------------------------------------
//
// method :         DevGetTraceOutputCmd::DevGetTraceOutputCmd()
//
// description :     constructor for the DevGetTraceoutput command of the
//            DServer.
//
//-----------------------------------------------------------------------------

DevGetTraceOutputCmd::DevGetTraceOutputCmd(const char *name,
                                           Tango::CmdArgType in,
                                           Tango::CmdArgType out,
                                           const char *out_desc) :
    Command(name, in, out)
{
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevGetTraceOutputCmd::execute(string &s)
//
// description :     method to trigger the execution of the "DevGetTraceOutput"
//            command
//
//-----------------------------------------------------------------------------

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

    TANGO_THROW_EXCEPTION(API_DeprecatedCommand, "GetTraceOutput is no more supported, please use GetLoggingTarget");
}

//+----------------------------------------------------------------------------
//
// method :         DevSetTraceOutputCmd::DevSetTraceOutputCmd()
//
// description :     constructor for the DevSetTraceoutput command of the
//            DServer.
//
//-----------------------------------------------------------------------------

DevSetTraceOutputCmd::DevSetTraceOutputCmd(const char *name,
                                           Tango::CmdArgType in,
                                           Tango::CmdArgType out,
                                           const char *in_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevSetTraceOutputCmd::execute(string &s)
//
// description :     method to trigger the execution of the "Kill"
//            command
//
//-----------------------------------------------------------------------------

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

    TANGO_THROW_EXCEPTION(API_DeprecatedCommand, "SetTraceOutput is no more supported, please use AddLoggingTarget");
}

//+----------------------------------------------------------------------------
//
// method :         QueryWizardClassPropertyCmd::QueryWizardClassPropertyCmd
//
// description :     constructor for the QueryWizardClassProperty command of the
//            DServer.
//
//-----------------------------------------------------------------------------

QueryWizardClassPropertyCmd::QueryWizardClassPropertyCmd(
    const char *name, Tango::CmdArgType in, Tango::CmdArgType out, const char *in_desc, const char *out_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         QueryWizardClassPropertyCmd::execute(string &s)
//
// description :     method to trigger the execution of the "QueryWizardClassProperty"
//            command
//
//-----------------------------------------------------------------------------

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

    //
    // Extract the input string
    //

    const char *tmp_name;
    if(!(in_any >>= tmp_name))
    {
        TANGO_THROW_EXCEPTION(API_IncompatibleCmdArgumentType,
                              "Imcompatible command argument type, expected type is : string");
    }
    std::string class_name(tmp_name);

    //
    // call DServer method which implements this command
    //

    Tango::DevVarStringArray *ret = (static_cast<DServer *>(device))->query_class_prop(class_name);

    //
    // return data to the caller
    //
    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in QueryWizardClassPropertyCmd::execute()" << std::endl;
        delete ret;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

//+----------------------------------------------------------------------------
//
// method :         QueryWizardDevPropertyCmd::QueryWizardDevPropertyCmd
//
// description :     constructor for the QueryWizardDevProperty command of the
//            DServer.
//
//-----------------------------------------------------------------------------

QueryWizardDevPropertyCmd::QueryWizardDevPropertyCmd(
    const char *name, Tango::CmdArgType in, Tango::CmdArgType out, const char *in_desc, const char *out_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         QueryWizardDevPropertyCmd::execute()
//
// description :     method to trigger the execution of the "QueryWizardDevProperty"
//            command
//
//-----------------------------------------------------------------------------

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

    //
    // Extract the input string
    //

    const char *tmp_name;
    if(!(in_any >>= tmp_name))
    {
        TANGO_THROW_EXCEPTION(API_IncompatibleCmdArgumentType,
                              "Imcompatible command argument type, expected type is : string");
    }
    std::string class_name(tmp_name);

    //
    // call DServer method which implements this command
    //

    Tango::DevVarStringArray *ret = (static_cast<DServer *>(device))->query_dev_prop(class_name);

    //
    // return data to the caller
    //
    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in QueryWizardDevPropertyCmd::execute()" << std::endl;
        delete ret;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

//+----------------------------------------------------------------------------
//
// method :         QueryEventChannelIORCmd::QueryEventChannelIORCmd
//
// description :     constructor for the QueryEventChannelIOR command of the
//            DServer.
//
//-----------------------------------------------------------------------------

QueryEventChannelIORCmd::QueryEventChannelIORCmd(const char *name,
                                                 Tango::CmdArgType in,
                                                 Tango::CmdArgType out,
                                                 const char *out_desc) :
    Command(name, in, out)
{
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         QueryEventChannelIORCmd::execute()
//
// description :     method to trigger the execution of the "QueryEventChannelIOR"
//            command
//
//-----------------------------------------------------------------------------

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

    //
    // Get DS event channel IOR which is stored in the EventSupplier object
    //

    CORBA::Any *out_any = nullptr;
    NotifdEventSupplier *nd_event_supplier;
    nd_event_supplier = Util::instance()->get_notifd_event_supplier();
    if(nd_event_supplier == nullptr)
    {
        TANGO_LOG_DEBUG << "Try to retrieve DS event channel while NotifdEventSupplier object is not yet created"
                        << std::endl;

        TANGO_THROW_EXCEPTION(API_EventSupplierNotConstructed,
                              "Try to retrieve DS event channel while EventSupplier object is not created");
    }
    else
    {
        std::string &ior = nd_event_supplier->get_event_channel_ior();

        //
        // return data to the caller
        //

        try
        {
            out_any = new CORBA::Any();
        }
        catch(std::bad_alloc &)
        {
            TANGO_LOG_DEBUG << "Bad allocation while in QueryEventChannelIORCmd::execute()" << std::endl;
            TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
        }
        (*out_any) <<= ior.c_str();
    }

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

//+----------------------------------------------------------------------------
//
// method :         LockDeviceCmd::LockDeviceCmd
//
// description :     constructor for the LockDevice command of the DServer.
//
//-----------------------------------------------------------------------------

LockDeviceCmd::LockDeviceCmd(const char *name, Tango::CmdArgType in, Tango::CmdArgType out, const char *in_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
}

//+----------------------------------------------------------------------------
//
// method :         LockDeviceCmd::execute()
//
// description :     method to trigger the execution of the "LockDevice" command
//
//-----------------------------------------------------------------------------

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

    //
    // Extract the input argument
    //

    const Tango::DevVarLongStringArray *in_data;
    extract(in_any, in_data);

    //
    // call DServer method which implements this command
    //

    (static_cast<DServer *>(device))->lock_device(in_data);

    //
    // return data to the caller
    //

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

//+----------------------------------------------------------------------------
//
// method :         ReLockDevicesCmd::ReLockDeviceCmd
//
// description :     constructor for the ReLockDevices command of the DServer.
//
//-----------------------------------------------------------------------------

ReLockDevicesCmd::ReLockDevicesCmd(const char *name, Tango::CmdArgType in, Tango::CmdArgType out, const char *in_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
}

//+----------------------------------------------------------------------------
//
// method :         ReLockDevicesCmd::execute()
//
// description :     method to trigger the execution of the "ReLockDevices" command
//
//-----------------------------------------------------------------------------

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

    //
    // Extract the input argument
    //

    const Tango::DevVarStringArray *in_data;
    extract(in_any, in_data);

    //
    // call DServer method which implements this command
    //

    (static_cast<DServer *>(device))->re_lock_devices(in_data);

    //
    // return data to the caller
    //

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

//+----------------------------------------------------------------------------
//
// method :         UnLockDeviceCmd::UnLockDeviceCmd
//
// description :     constructor for the UnLockDevice command of the DServer.
//
//-----------------------------------------------------------------------------

UnLockDeviceCmd::UnLockDeviceCmd(
    const char *name, Tango::CmdArgType in, Tango::CmdArgType out, const char *in_desc, const char *out_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         UnLockDeviceCmd::execute()
//
// description :     method to trigger the execution of the "UnLockDevice" command
//
//-----------------------------------------------------------------------------

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

    //
    // Extract the input string
    //

    const Tango::DevVarLongStringArray *in_data;
    extract(in_any, in_data);

    //
    // call DServer method which implements this command
    //

    Tango::DevLong ret = (static_cast<DServer *>(device))->un_lock_device(in_data);

    //
    // return data to the caller
    //

    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in UnLockDeviceCmd::execute()" << std::endl;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

//+----------------------------------------------------------------------------
//
// method :         DevLockStatusCmd::DevLockStatusCmd
//
// description :     constructor for the DevLockStatus command of the DServer.
//
//-----------------------------------------------------------------------------

DevLockStatusCmd::DevLockStatusCmd(
    const char *name, Tango::CmdArgType in, Tango::CmdArgType out, const char *in_desc, const char *out_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
    set_out_type_desc(out_desc);
}

//+----------------------------------------------------------------------------
//
// method :         DevLockStatusCmd::execute()
//
// description :     method to trigger the execution of the "DevLockStatus" command
//
//-----------------------------------------------------------------------------

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

    //
    // Extract the input string
    //

    Tango::ConstDevString in_data;
    extract(in_any, in_data);

    //
    // call DServer method which implements this command
    //

    Tango::DevVarLongStringArray *ret = (static_cast<DServer *>(device))->dev_lock_status(in_data);

    //
    // return to the caller
    //

    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in DevLockStatusCmd::execute()" << std::endl;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

//+----------------------------------------------------------------------------
//
// method :         EventSubscriptionChangeCmd::EventSubscriptionChangeCmd()
//
// description :     constructor for the command of the EventTester.
//
// In : - name : The command name
//        - in : The input parameter type
//        - out : The output parameter type
//        - in_desc : The input parameter description
//        - out_desc : The output parameter description
//
//-----------------------------------------------------------------------------
EventSubscriptionChangeCmd::EventSubscriptionChangeCmd(
    const char *name, Tango::CmdArgType in, Tango::CmdArgType out, const char *in_desc, const char *out_desc) :
    Command(name, in, out, in_desc, out_desc)
{
}

//
//    Constructor without in/out parameters description
//

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

//+----------------------------------------------------------------------------
//
// method :         EventSubscriptionChangeCmd::is_allowed()
//
// description :     method to test whether command is allowed or not in this
//            state. In this case, the command is allowed only if
//            the device is in ON state
//
// in : - device : The device on which the command must be excuted
//        - in_any : The command input data
//
// returns :    boolean - true == is allowed , false == not allowed
//
//-----------------------------------------------------------------------------
bool EventSubscriptionChangeCmd::is_allowed(TANGO_UNUSED(Tango::DeviceImpl *device),
                                            TANGO_UNUSED(const CORBA::Any &in_any))
{
    //    End of Generated Code

    //    Re-Start of Generated Code
    return true;
}

//+----------------------------------------------------------------------------
//
// method :         EventSubscriptionChangeCmd::execute()
//
// description :     method to trigger the execution of the command.
//                PLEASE DO NOT MODIFY this method core without pogo
//
// in : - device : The device on which the command must be excuted
//        - in_any : The command input data
//
// returns : The command output data (packed in the Any object)
//
//-----------------------------------------------------------------------------
CORBA::Any *EventSubscriptionChangeCmd::execute(Tango::DeviceImpl *device, const CORBA::Any &in_any)
{
    TANGO_LOG_DEBUG << "EventSubscriptionChangeCmd::execute(): arrived" << std::endl;

    //
    // Extract the input string array
    //

    const Tango::DevVarStringArray *in_data;
    extract(in_any, in_data);

    //
    // call DServer method which implements this command
    //

    Tango::DevLong ret = (static_cast<DServer *>(device))->event_subscription_change(in_data);

    //
    // return to the caller
    //

    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in EventSubscriptionChangeCmd::execute()" << std::endl;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

const std::string ZmqEventSubscriptionChangeCmd::in_desc =
    "Event consumer wants to subscribe to.\n"
    "device name, attribute/pipe name, action (\"subscribe\"), event name, <Tango client IDL version>\"\n"
    "event name can take the following values:\n"
    "    \"change\",\n"
    "    \"alarm\",\n"
    "    \"periodic\",\n"
    "    \"archive\",\n"
    "    \"user_event\",\n"
    "    \"attr_conf\",\n"
    "    \"data_ready\",\n"
    "    \"intr_change\",\n"
    "    \"pipe\"\n"
    "\"info\" can also be used as single parameter to retrieve information about the heartbeat and event pub "
    "endpoints.";

const std::string ZmqEventSubscriptionChangeCmd::out_desc =
    "Str[0] = Heartbeat pub endpoint - Str[1] = Event pub endpoint\n"
    "...\n"
    "Str[n] = Alternate Heartbeat pub endpoint - Str[n+1] = Alternate Event pub endpoint\n"
    "Str[n+1] = event name used by this server as zmq topic to send events\n"
    "Str[n+2] = channel name used by this server to send heartbeat events\n"
    "Lg[0] = Tango lib release - Lg[1] = Device IDL release\n"
    "Lg[2] = Subscriber HWM - Lg[3] = Multicast rate\n"
    "Lg[4] = Multicast IVL - Lg[5] = ZMQ release";

//+----------------------------------------------------------------------------
//
// method :         ZmqEventSubscriptionChangeCmd::EventSubscriptionChangeCmd()
//
// description :     constructor for the command of the .
//
// In : - name : The command name
//        - in : The input parameter type
//        - out : The output parameter type
//        - in_desc : The input parameter description
//        - out_desc : The output parameter description
//
//-----------------------------------------------------------------------------
ZmqEventSubscriptionChangeCmd::ZmqEventSubscriptionChangeCmd() :
    Command("ZmqEventSubscriptionChange",
            Tango::DEVVAR_STRINGARRAY,
            Tango::DEVVAR_LONGSTRINGARRAY,
            ZmqEventSubscriptionChangeCmd::in_desc.c_str(),
            ZmqEventSubscriptionChangeCmd::out_desc.c_str())
{
}

//
//    Constructor without in/out parameters description
//

//+----------------------------------------------------------------------------
//
// method :         ZmqEventSubscriptionChangeCmd::is_allowed()
//
// description :     method to test whether command is allowed or not in this
//            state. In this case, the command is allowed only if
//            the device is in ON state
//
// in : - device : The device on which the command must be excuted
//        - in_any : The command input data
//
// returns :    boolean - true == is allowed , false == not allowed
//
//-----------------------------------------------------------------------------
bool ZmqEventSubscriptionChangeCmd::is_allowed(TANGO_UNUSED(Tango::DeviceImpl *device),
                                               TANGO_UNUSED(const CORBA::Any &in_any))
{
    //    End of Generated Code

    //    Re-Start of Generated Code
    return true;
}

//+----------------------------------------------------------------------------
//
// method :         ZmqEventSubscriptionChangeCmd::execute()
//
// description :     method to trigger the execution of the command.
//
// in : - device : The device on which the command must be excuted
//        - in_any : The command input data
//
// returns : The command output data (packed in the Any object)
//
//-----------------------------------------------------------------------------
CORBA::Any *ZmqEventSubscriptionChangeCmd::execute(Tango::DeviceImpl *device, const CORBA::Any &in_any)
{
    TANGO_LOG_DEBUG << "ZmqEventSubscriptionChangeCmd::execute(): arrived" << std::endl;

    //
    // Extract the input string array
    //

    const Tango::DevVarStringArray *in_data;
    extract(in_any, in_data);

    //
    // call DServer method which implements this command
    //

    Tango::DevVarLongStringArray *ret = (static_cast<DServer *>(device))->zmq_event_subscription_change(in_data);

    //
    // return to the caller
    //

    CORBA::Any *out_any = nullptr;
    try
    {
        out_any = new CORBA::Any();
    }
    catch(std::bad_alloc &)
    {
        TANGO_LOG_DEBUG << "Bad allocation while in ZmqEventSubscriptionChangeCmd::execute()" << std::endl;
        TANGO_THROW_EXCEPTION(API_MemoryAllocation, "Can't allocate memory in server");
    }
    (*out_any) <<= ret;

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

//+----------------------------------------------------------------------------
//
// method :         EventConfirmSubscriptionCmd::EventSubscriptionChangeCmd()
//
// description :     constructor for the command of the .
//
// In : - name : The command name
//        - in : The input parameter type
//        - out : The output parameter type
//        - in_desc : The input parameter description
//        - out_desc : The output parameter description
//
//-----------------------------------------------------------------------------
EventConfirmSubscriptionCmd::EventConfirmSubscriptionCmd(const char *name,
                                                         Tango::CmdArgType in,
                                                         Tango::CmdArgType out,
                                                         const char *in_desc) :
    Command(name, in, out)
{
    set_in_type_desc(in_desc);
}

//
//    Constructor without in/out parameters description
//

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

//+----------------------------------------------------------------------------
//
// method :         EventConfirmSubscriptionCmd::is_allowed()
//
// description :     method to test whether command is allowed or not in this
//            state. In this case, the command is allowed only if
//            the device is in ON state
//
// in : - device : The device on which the command must be excuted
//        - in_any : The command input data
//
// returns :    boolean - true == is allowed , false == not allowed
//
//-----------------------------------------------------------------------------
bool EventConfirmSubscriptionCmd::is_allowed(TANGO_UNUSED(Tango::DeviceImpl *device),
                                             TANGO_UNUSED(const CORBA::Any &in_any))
{
    //    End of Generated Code

    //    Re-Start of Generated Code
    return true;
}

//+----------------------------------------------------------------------------
//
// method :         EventConfirmSubscriptionCmd::execute()
//
// description :     method to trigger the execution of the command.
//
// in : - device : The device on which the command must be excuted
//        - in_any : The command input data
//
// returns : The command output data (packed in the Any object)
//
//-----------------------------------------------------------------------------
CORBA::Any *EventConfirmSubscriptionCmd::execute(Tango::DeviceImpl *device, const CORBA::Any &in_any)
{
    TANGO_LOG_DEBUG << "EventConfirmSubscriptionCmd::execute(): arrived" << std::endl;

    //
    // If we receive this command while the DS is in its shutting down sequence, do nothing
    //

    Tango::Util *tg = Tango::Util::instance();
    if(tg->get_heartbeat_thread_object() == nullptr)
    {
        TangoSys_OMemStream o;
        o << "The device server is shutting down! You can no longer subscribe for events" << std::ends;

        TANGO_THROW_EXCEPTION(API_ShutdownInProgress, o.str());
    }
    //
    // Extract the input string array
    //

    const Tango::DevVarStringArray *in_data;
    extract(in_any, in_data);

    //
    // Some check on argument
    //

    if((in_data->length() == 0) || (in_data->length() % 3) != 0)
    {
        TangoSys_OMemStream o;
        o << "Wrong number of input arguments: 3 needed per event: device name, attribute/pipe name and event name"
          << std::endl;

        TANGO_THROW_EXCEPTION(API_WrongNumberOfArgs, o.str());
    }

    //
    // call DServer method which implements this command
    //

    (static_cast<DServer *>(device))->event_confirm_subscription(in_data);

    //
    // return data to the caller
    //

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

DServerClass *DServerClass::_instance = nullptr;

//+----------------------------------------------------------------------------
//
// method :         DServerClass::DServerClass()
//
// description :     constructor for the DServerClass class
//            The constructor add specific class commands to the
//            command list, create a device of the DServer class
//            retrieve all classes which must be created within the
//            server and finally, creates these classes
//
// argument : in :     - s : The class name
//
//-----------------------------------------------------------------------------

DServerClass::DServerClass(const std::string &s) :
    DeviceClass(s)
{
    TANGO_LOG_DEBUG << "Entering DServerClass::DServerClass() for class " << s << std::endl;
    try
    {
        //
        // Add class command(s) to the command_list
        //

        command_factory();

        //
        // Sort commands
        //

        sort(get_command_list().begin(),
             get_command_list().end(),
             [](Command *a, Command *b) { return a->get_name() < b->get_name(); });

        //
        // Create device name from device server name
        //

        std::string dev_name(DSDeviceDomain);
        dev_name.append(1, '/');
        dev_name.append(Tango::Util::instance()->get_ds_exec_name());
        dev_name.append(1, '/');
        dev_name.append(Tango::Util::instance()->get_ds_inst_name());

        Tango::DevVarStringArray dev_list(1);
        dev_list.length(1);
        dev_list[0] = dev_name.c_str();

        //
        // Create the device server device
        //

        device_factory(&dev_list);
    }
    catch(std::bad_alloc &)
    {
        for(unsigned long i = 0; i < command_list.size(); i++)
        {
            delete command_list[i];
        }
        command_list.clear();

        if(!device_list.empty())
        {
            for(unsigned long i = 0; i < device_list.size(); i++)
            {
                delete device_list[i];
            }
            device_list.clear();
        }
        std::cerr << "Can't allocate memory while building the DServerClass object" << std::endl;
        throw;
    }
    TANGO_LOG_DEBUG << "Leaving DServerClass::DServerClass() for class " << s << std::endl;
}

//+----------------------------------------------------------------------------
//
// method :         DServerClass::Instance
//
// description :     Create the object if not already done. Otherwise, just
//            return a pointer to the object
//
//-----------------------------------------------------------------------------

DServerClass *DServerClass::instance()
{
    if(_instance == nullptr)
    {
        std::cerr << "Class DServer is not initialised!" << std::endl;
        TANGO_THROW_EXCEPTION(API_DServerClassNotInitialised, "The DServerClass is not yet initialised, please wait!");
        // exit(-1);
    }
    return _instance;
}

DServerClass *DServerClass::init()
{
    if(_instance == nullptr)
    {
        try
        {
            std::string s("DServer");
            _instance = new DServerClass(s);
        }
        catch(std::bad_alloc &)
        {
            throw;
        }
    }
    return _instance;
}

//+----------------------------------------------------------------------------
//
// method :         DServerClass::command_factory
//
// description :     Create the command object(s) and store them in the
//            command list
//
//-----------------------------------------------------------------------------

void DServerClass::command_factory()
{
    command_list.push_back(new DevRestartCmd("DevRestart", Tango::DEV_STRING, Tango::DEV_VOID, "Device name"));
    command_list.push_back(new DevRestartServerCmd("RestartServer", Tango::DEV_VOID, Tango::DEV_VOID));
    command_list.push_back(
        new DevQueryClassCmd("QueryClass", Tango::DEV_VOID, Tango::DEVVAR_STRINGARRAY, "Device server class(es) list"));
    command_list.push_back(new DevQueryDeviceCmd(
        "QueryDevice", Tango::DEV_VOID, Tango::DEVVAR_STRINGARRAY, "Device server device(s) list"));
    command_list.push_back(new DevQuerySubDeviceCmd(
        "QuerySubDevice", Tango::DEV_VOID, Tango::DEVVAR_STRINGARRAY, "Device server sub device(s) list"));
    command_list.push_back(new DevKillCmd("Kill", Tango::DEV_VOID, Tango::DEV_VOID));
    command_list.push_back(new DevQueryEventSystemCmd(
        "QueryEventSystem", Tango::DEV_VOID, Tango::DEV_STRING, "JSON object with information about the event system"));
    command_list.push_back(
        new DevEnableEventSystemPerfMonCmd("EnableEventSystemPerfMon",
                                           Tango::DEV_BOOLEAN,
                                           Tango::DEV_VOID,
                                           "Enable or disable the collection of performance samples for events"));

    //
    // Now, commands related to polling
    //

    command_list.push_back(
        new PolledDeviceCmd("PolledDevice", Tango::DEV_VOID, Tango::DEVVAR_STRINGARRAY, "Polled device name list"));
    command_list.push_back(new DevPollStatusCmd(
        "DevPollStatus", Tango::DEV_STRING, Tango::DEVVAR_STRINGARRAY, "Device name", "Device polling status"));
    std::string msg("Lg[0]=Upd period.");
    msg = msg + (" Str[0]=Device name");
    msg = msg + (". Str[1]=Object type");
    msg = msg + (". Str[2]=Object name");

    command_list.push_back(new AddObjPollingCmd("AddObjPolling", Tango::DEVVAR_LONGSTRINGARRAY, Tango::DEV_VOID, msg));

    command_list.push_back(
        new UpdObjPollingPeriodCmd("UpdObjPollingPeriod", Tango::DEVVAR_LONGSTRINGARRAY, Tango::DEV_VOID, msg));

    msg = "Str[0]=Device name. Str[1]=Object type. Str[2]=Object name";

    command_list.push_back(new RemObjPollingCmd("RemObjPolling", Tango::DEVVAR_STRINGARRAY, Tango::DEV_VOID, msg));

    command_list.push_back(new StopPollingCmd("StopPolling", Tango::DEV_VOID, Tango::DEV_VOID));

    command_list.push_back(new StartPollingCmd("StartPolling", Tango::DEV_VOID, Tango::DEV_VOID));

    msg = "Str[i]=Device-name. Str[i+1]=Target-type::Target-name";

    command_list.push_back(new AddLoggingTarget("AddLoggingTarget", Tango::DEVVAR_STRINGARRAY, Tango::DEV_VOID, msg));

    command_list.push_back(
        new RemoveLoggingTarget("RemoveLoggingTarget", Tango::DEVVAR_STRINGARRAY, Tango::DEV_VOID, msg));

    command_list.push_back(new GetLoggingTarget("GetLoggingTarget",
                                                Tango::DEV_STRING,
                                                Tango::DEVVAR_STRINGARRAY,
                                                std::string("Device name"),
                                                std::string("Logging target list")));

    command_list.push_back(new SetLoggingLevel("SetLoggingLevel",
                                               Tango::DEVVAR_LONGSTRINGARRAY,
                                               Tango::DEV_VOID,
                                               std::string("Lg[i]=Logging Level. Str[i]=Device name.")));

    command_list.push_back(new GetLoggingLevel("GetLoggingLevel",
                                               Tango::DEVVAR_STRINGARRAY,
                                               Tango::DEVVAR_LONGSTRINGARRAY,
                                               std::string("Device list"),
                                               std::string("Lg[i]=Logging Level. Str[i]=Device name.")));

    command_list.push_back(new StopLogging("StopLogging", Tango::DEV_VOID, Tango::DEV_VOID));

    command_list.push_back(new StartLogging("StartLogging", Tango::DEV_VOID, Tango::DEV_VOID));
    command_list.push_back(new EventSubscriptionChangeCmd("EventSubscriptionChange",
                                                          Tango::DEVVAR_STRINGARRAY,
                                                          Tango::DEV_LONG,
                                                          "Event consumer wants to subscribe to",
                                                          "Tango lib release"));

    command_list.push_back(new ZmqEventSubscriptionChangeCmd());

    command_list.push_back(
        new EventConfirmSubscriptionCmd("EventConfirmSubscription",
                                        Tango::DEVVAR_STRINGARRAY,
                                        Tango::DEV_VOID,
                                        "Str[0] = dev1 name, Str[1] = att1 name, Str[2] = event name, Str[3] = dev2 "
                                        "name, Str[4] = att2 name, Str[5] = event name,..."));

    command_list.push_back(
        new QueryWizardClassPropertyCmd("QueryWizardClassProperty",
                                        Tango::DEV_STRING,
                                        Tango::DEVVAR_STRINGARRAY,
                                        "Class name",
                                        "Class property list (name - description and default value)"));

    command_list.push_back(
        new QueryWizardDevPropertyCmd("QueryWizardDevProperty",
                                      Tango::DEV_STRING,
                                      Tango::DEVVAR_STRINGARRAY,
                                      "Class name",
                                      "Device property list (name - description and default value)"));

    //
    // Locking device commands
    //

    command_list.push_back(new LockDeviceCmd(
        "LockDevice", Tango::DEVVAR_LONGSTRINGARRAY, Tango::DEV_VOID, "Str[0] = Device name. Lg[0] = Lock validity"));

    command_list.push_back(new UnLockDeviceCmd("UnLockDevice",
                                               Tango::DEVVAR_LONGSTRINGARRAY,
                                               Tango::DEV_LONG,
                                               "Str[x] = Device name(s). Lg[0] = Force flag",
                                               "Device global lock counter"));

    command_list.push_back(
        new ReLockDevicesCmd("ReLockDevices", Tango::DEVVAR_STRINGARRAY, Tango::DEV_VOID, "Device(s) name"));

    command_list.push_back(new DevLockStatusCmd(
        "DevLockStatus", Tango::DEV_STRING, Tango::DEVVAR_LONGSTRINGARRAY, "Device name", "Device locking status"));

    if(Util::instance()->use_file_db())
    {
        command_list.push_back(new QueryEventChannelIORCmd(
            "QueryEventChannelIOR", Tango::DEV_VOID, Tango::DEV_STRING, "Device server event channel IOR"));
    }
}

//+----------------------------------------------------------------------------
//
// method :         DServerClass::device_factory
//
// description :     Create the device object(s) and store them in the
//            device list
//
// in :            Tango::DevVarStringArray *devlist_ptr :
//            The device name list
//
//-----------------------------------------------------------------------------

void DServerClass::device_factory(const Tango::DevVarStringArray *devlist_ptr)
{
    TANGO_LOG_DEBUG << "Entering DServerClass::device_factory()" << std::endl;
    Tango::Util *tg = Tango::Util::instance();

    for(unsigned long i = 0; i < devlist_ptr->length(); i++)
    {
        TANGO_LOG_DEBUG << "Device name : " << (*devlist_ptr)[i].in() << std::endl;

        //
        // Create device and add it into the device list
        //
        auto dserver = std::make_unique<DServer>(
            this, (*devlist_ptr)[i], "A device server device !!", Tango::ON, "The device is ON");

        dserver->init_device();

        device_list.push_back(dserver.release());

        //
        // Export device to the outside world
        //

        if(tg->use_db() && !tg->use_file_db())
        {
            export_device(device_list.back());
        }
        else
        {
            export_device(device_list.back(), (*devlist_ptr)[i]);
        }

        //
        // After the export of the admin device, the server is marked as started
        // and the database server connection timeout is set to the classical
        // timeout value (Except for db server itself)
        //

        Database *db = tg->get_database();
        if((db != nullptr) && !tg->use_file_db())
        {
            db->set_timeout_millis(CLNT_TIMEOUT);
        }
    }
    TANGO_LOG_DEBUG << "Leaving DServerClass::device_factory()" << std::endl;
}

} // namespace Tango
