/* -*- mode: C; c-basic-offset: 4; indent-tabs-mode: nil; -*- */
/* vim:set et sts=4: */
/* ibus - The Input Bus
 * Copyright (C) 2008-2010 Peng Huang <shawn.p.huang@gmail.com>
 * Copyright (C) 2008-2010 Red Hat, Inc.
 *
 * This library 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 2.1 of the License, or (at your option) any later version.
 *
 * This library 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 this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301
 * USA
 */
#include "ibusshare.h"
#include "ibusconfigservice.h"

enum {
    LAST_SIGNAL,
};

enum {
    PROP_0,
};

/* functions prototype */
static void      ibus_config_service_class_init      (IBusConfigServiceClass *class);
static void      ibus_config_service_init            (IBusConfigService      *config);
static void      ibus_config_service_destroy         (IBusConfigService      *config);
static void      ibus_config_service_service_method_call
                                                     (IBusService            *service,
                                                      GDBusConnection        *connection,
                                                      const gchar            *sender,
                                                      const gchar            *object_path,
                                                      const gchar            *interface_name,
                                                      const gchar            *method_name,
                                                      GVariant               *parameters,
                                                      GDBusMethodInvocation  *invocation);
static GVariant *ibus_config_service_service_get_property
                                                     (IBusService            *service,
                                                      GDBusConnection        *connection,
                                                      const gchar            *sender,
                                                      const gchar            *object_path,
                                                      const gchar            *interface_name,
                                                      const gchar            *property_name,
                                                      GError                **error);
static gboolean  ibus_config_service_service_set_property
                                                     (IBusService            *service,
                                                      GDBusConnection        *connection,
                                                      const gchar            *sender,
                                                      const gchar            *object_path,
                                                      const gchar            *interface_name,
                                                      const gchar            *property_name,
                                                      GVariant               *value,
                                                      GError                **error);
static gboolean  ibus_config_service_set_value       (IBusConfigService      *config,
                                                      const gchar            *section,
                                                      const gchar            *name,
                                                      GVariant               *value,
                                                      GError                **error);
static GVariant *ibus_config_service_get_value       (IBusConfigService      *config,
                                                      const gchar            *section,
                                                      const gchar            *name,
                                                      GError                **error);
static GVariant *ibus_config_service_get_values      (IBusConfigService      *config,
                                                      const gchar            *section,
                                                      GError                **error);
static gboolean  ibus_config_service_unset_value     (IBusConfigService      *config,
                                                      const gchar            *section,
                                                      const gchar            *name,
                                                      GError                **error);

G_DEFINE_TYPE (IBusConfigService, ibus_config_service, IBUS_TYPE_SERVICE)

static const gchar introspection_xml[] =
    "<node>"
    "  <interface name='org.freedesktop.IBus.Config'>"
    "    <method name='SetValue'>"
    "      <arg direction='in'  type='s' name='section' />"
    "      <arg direction='in'  type='s' name='name' />"
    "      <arg direction='in'  type='v' name='value' />"
    "    </method>"
    "    <method name='GetValue'>"
    "      <arg direction='in'  type='s' name='section' />"
    "      <arg direction='in'  type='s' name='name' />"
    "      <arg direction='out' type='v' name='value' />"
    "    </method>"
    "    <method name='GetValues'>"
    "      <arg direction='in'  type='s' name='section' />"
    "      <arg direction='out' type='a{sv}' name='values' />"
    "    </method>"
    "    <method name='UnsetValue'>"
    "      <arg direction='in'  type='s' name='section' />"
    "      <arg direction='in'  type='s' name='name' />"
    "    </method>"
    "    <signal name='ValueChanged'>"
    "      <arg type='s' name='section' />"
    "      <arg type='s' name='name' />"
    "      <arg type='v' name='value' />"
    "    </signal>"
    "  </interface>"
    "</node>";

static void
ibus_config_service_class_init (IBusConfigServiceClass *class)
{
    GObjectClass *gobject_class = G_OBJECT_CLASS (class);

    IBUS_OBJECT_CLASS (gobject_class)->destroy = (IBusObjectDestroyFunc) ibus_config_service_destroy;

    IBUS_SERVICE_CLASS (class)->service_method_call  = ibus_config_service_service_method_call;
    IBUS_SERVICE_CLASS (class)->service_get_property = ibus_config_service_service_get_property;
    IBUS_SERVICE_CLASS (class)->service_set_property = ibus_config_service_service_set_property;

    ibus_service_class_add_interfaces (IBUS_SERVICE_CLASS (class), introspection_xml);

    class->set_value   = ibus_config_service_set_value;
    class->get_value   = ibus_config_service_get_value;
    class->get_values  = ibus_config_service_get_values;
    class->unset_value = ibus_config_service_unset_value;
}

static void
ibus_config_service_init (IBusConfigService *config)
{
}

static void
ibus_config_service_destroy (IBusConfigService *config)
{
    IBUS_OBJECT_CLASS(ibus_config_service_parent_class)->destroy ((IBusObject *) config);
}

static void
ibus_config_service_service_method_call (IBusService           *service,
                                         GDBusConnection       *connection,
                                         const gchar           *sender,
                                         const gchar           *object_path,
                                         const gchar           *interface_name,
                                         const gchar           *method_name,
                                         GVariant              *parameters,
                                         GDBusMethodInvocation *invocation)
{
    IBusConfigService *config = IBUS_CONFIG_SERVICE (service);

    if (g_strcmp0 (interface_name, IBUS_INTERFACE_CONFIG) != 0) {
        IBUS_SERVICE_CLASS (ibus_config_service_parent_class)->
                service_method_call (service,
                                     connection,
                                     sender,
                                     object_path,
                                     interface_name,
                                     method_name,
                                     parameters,
                                     invocation);
        return;
    }

    if (g_strcmp0 (method_name, "SetValue") == 0) {
        gchar *section;
        gchar *name;
        GVariant *value;
        gboolean retval;
        GError *error = NULL;

        g_variant_get (parameters, "(&s&sv)", &section, &name, &value);

        retval = IBUS_CONFIG_SERVICE_GET_CLASS (config)->set_value (config, section, name, value, &error);
        if (retval) {
            g_dbus_method_invocation_return_value (invocation, NULL);
        }
        else {
            g_dbus_method_invocation_return_gerror (invocation, error);
            g_error_free (error);
        }
        g_variant_unref (value);
        return;
    }

    if (g_strcmp0 (method_name, "GetValue") == 0) {
        gchar *section;
        gchar *name;
        GVariant *value;
        GError *error = NULL;

        g_variant_get (parameters, "(&s&s)", &section, &name);

        value = IBUS_CONFIG_SERVICE_GET_CLASS (config)->get_value (config, section, name, &error);
        if (value != NULL) {
            g_dbus_method_invocation_return_value (invocation, g_variant_new ("(v)", value));
            g_variant_unref (value);
        }
        else {
            g_dbus_method_invocation_return_gerror (invocation, error);
            g_error_free (error);
        }
        return;
    }

    if (g_strcmp0 (method_name, "GetValues") == 0) {
        gchar *section;
        GVariant *value;
        GError *error = NULL;

        g_variant_get (parameters, "(&s)", &section);

        value = IBUS_CONFIG_SERVICE_GET_CLASS (config)->get_values (config,
                                                                     section,
                                                                     &error);
        if (value) {
            g_dbus_method_invocation_return_value (invocation,
                    g_variant_new ("(@a{sv})", value));
        }
        else {
            g_dbus_method_invocation_return_gerror (invocation, error);
            g_error_free (error);
        }
        return;
    }

    if (g_strcmp0 (method_name, "UnsetValue") == 0) {
        gchar *section;
        gchar *name;
        gboolean retval;
        GError *error = NULL;

        g_variant_get (parameters, "(&s&s)", &section, &name);

        retval = IBUS_CONFIG_SERVICE_GET_CLASS (config)->unset_value (config, section, name, &error);
        if (retval) {
            g_dbus_method_invocation_return_value (invocation, NULL);
        }
        else {
            g_dbus_method_invocation_return_gerror (invocation, error);
            g_error_free (error);
        }
        return;
    }

    /* should not be reached */
    g_return_if_reached ();
}

static GVariant *
ibus_config_service_service_get_property (IBusService        *service,
                                          GDBusConnection    *connection,
                                          const gchar        *sender,
                                          const gchar        *object_path,
                                          const gchar        *interface_name,
                                          const gchar        *property_name,
                                          GError            **error)
{
    return IBUS_SERVICE_CLASS (ibus_config_service_parent_class)->
                service_get_property (service,
                                      connection,
                                      sender,
                                      object_path,
                                      interface_name,
                                      property_name,
                                      error);
}

static gboolean
ibus_config_service_service_set_property (IBusService        *service,
                                          GDBusConnection    *connection,
                                          const gchar        *sender,
                                          const gchar        *object_path,
                                          const gchar        *interface_name,
                                          const gchar        *property_name,
                                          GVariant           *value,
                                          GError            **error)
{
    return IBUS_SERVICE_CLASS (ibus_config_service_parent_class)->
                service_set_property (service,
                                      connection,
                                      sender,
                                      object_path,
                                      interface_name,
                                      property_name,
                                      value,
                                      error);
}

static gboolean
ibus_config_service_set_value (IBusConfigService *config,
                               const gchar       *section,
                               const gchar       *name,
                               GVariant          *value,
                               GError           **error)
{
    if (error) {
        gchar *str = g_variant_print (value, TRUE);
        *error = g_error_new (G_DBUS_ERROR, G_DBUS_ERROR_FAILED,
                              "Cannot set value %s::%s to %s", section, name, str);
        g_free (str);
    }
    return FALSE;
}

static GVariant *
ibus_config_service_get_value (IBusConfigService *config,
                               const gchar       *section,
                               const gchar       *name,
                               GError           **error)
{
    if (error) {
        *error = g_error_new (G_DBUS_ERROR, G_DBUS_ERROR_FAILED,
                              "Cannot get value %s::%s", section, name);
    }
    return NULL;
}

static GVariant *
ibus_config_service_get_values (IBusConfigService *config,
                                const gchar       *section,
                                GError           **error)
{
    if (error) {
        *error = g_error_new (G_DBUS_ERROR, G_DBUS_ERROR_FAILED,
                              "Cannot get values %s", section);
    }
    return NULL;
}

static gboolean
ibus_config_service_unset_value (IBusConfigService *config,
                                 const gchar       *section,
                                 const gchar       *name,
                                 GError           **error)
{
    if (error) {
        *error = g_error_new (G_DBUS_ERROR, G_DBUS_ERROR_FAILED,
                              "Cannot unset value %s::%s", section, name);
    }
    return FALSE;
}

IBusConfigService *
ibus_config_service_new (GDBusConnection *connection)
{
    g_return_val_if_fail (G_IS_DBUS_CONNECTION (connection), NULL);

    GObject *object = g_object_new (IBUS_TYPE_CONFIG_SERVICE,
                                    "object-path", IBUS_PATH_CONFIG,
                                    "connection", connection,
                                    NULL);
    return IBUS_CONFIG_SERVICE (object);
}

void
ibus_config_service_value_changed (IBusConfigService  *config,
                                   const gchar        *section,
                                   const gchar        *name,
                                   GVariant           *value)
{
    g_return_if_fail (IBUS_IS_CONFIG_SERVICE (config));
    g_return_if_fail (section != NULL);
    g_return_if_fail (name != NULL);
    g_return_if_fail (value != NULL);

    ibus_service_emit_signal ((IBusService *) config,
                              NULL,
                              IBUS_INTERFACE_CONFIG,
                              "ValueChanged",
                              g_variant_new ("(ssv)", section, name, value),
                              NULL);
}