/*

 * gabble-im-channel.c - Source for GabbleIMChannel

 * Copyright (C) 2005 Collabora Ltd.

 * 

 *

 * 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 St, Fifth Floor, Boston, MA  02110-1301  USA

 */

#include <dbus/dbus-glib.h>

#include "loudmouth/loudmouth.h"

#include <stdio.h>

#include <string.h>

#include <time.h>

#define DEBUG_FLAG GABBLE_DEBUG_IM

#include "debug.h"

#include "disco.h"

#include "gabble-connection.h"

#include "gabble-presence.h"

#include "gabble-presence-cache.h"

#include "handles.h"

#include "roster.h"

#include "telepathy-constants.h"

#include "telepathy-errors.h"

#include "telepathy-helpers.h"

#include "telepathy-interfaces.h"

#include "tp-channel-iface.h"

#include "gabble-im-channel.h"

#include "gabble-im-channel-glue.h"

#include "gabble-im-channel-signals-marshal.h"

#include "gabble_enums.h"

#ifndef EMULATOR

G_DEFINE_TYPE_WITH_CODE (GabbleIMChannel, gabble_im_channel, G_TYPE_OBJECT,

    G_IMPLEMENT_INTERFACE (TP_TYPE_CHANNEL_IFACE, NULL));

#endif

/* signal enum */

enum

{

    CLOSED,

    LAST_SIGNAL 

#ifdef EMULATOR    

    = LAST_SIGNAL_IM

#endif

};

#ifdef EMULATOR

#include "libgabble_wsd_solution.h"

	GET_STATIC_ARRAY_FROM_TLS(signals,gabble_im,guint)

	#define signals (GET_WSD_VAR_NAME(signals,gabble_im, s)())	

    GET_STATIC_VAR_FROM_TLS(gabble_im_channel_parent_class,gabble_im,gpointer)

	#define gabble_im_channel_parent_class (*GET_WSD_VAR_NAME(gabble_im_channel_parent_class,gabble_im,s)())

	GET_STATIC_VAR_FROM_TLS(g_define_type_id,gabble_im,GType)

	#define g_define_type_id (*GET_WSD_VAR_NAME(g_define_type_id,gabble_im,s)())

static void gabble_im_channel_init (GabbleIMChannel *self); 

static void gabble_im_channel_class_init (GabbleIMChannelClass *klass); 

static void gabble_im_channel_class_intern_init (gpointer klass) 

{

 gabble_im_channel_parent_class = g_type_class_peek_parent (klass); 

 gabble_im_channel_class_init ((GabbleIMChannelClass*) klass); 

 } 

 EXPORT_C GType gabble_im_channel_get_type (void) 

 {

  if ((g_define_type_id == 0)) 

  { static const GTypeInfo g_define_type_info = 

  		{ sizeof (GabbleIMChannelClass), (GBaseInitFunc) ((void *)0), (GBaseFinalizeFunc) ((void *)0), (GClassInitFunc) gabble_im_channel_class_intern_init, (GClassFinalizeFunc) ((void *)0), ((void *)0), sizeof (GabbleIMChannel), 0, (GInstanceInitFunc) gabble_im_channel_init, ((void *)0) }; g_define_type_id = g_type_register_static ( ((GType) ((20) << (2))), g_intern_static_string ("GabbleIMChannel"), &g_define_type_info, (GTypeFlags) 0); { { static const GInterfaceInfo g_implement_interface_info = { (GInterfaceInitFunc) ((void *)0) }; g_type_add_interface_static (g_define_type_id, tp_channel_iface_get_type(), &g_implement_interface_info); } ; } } return g_define_type_id; 

  		};

#else

	static guint signals[LAST_SIGNAL] = {0};

#endif

/* properties */

enum

{

  PROP_OBJECT_PATH = 1,

  PROP_CHANNEL_TYPE,

  PROP_HANDLE_TYPE,

  PROP_HANDLE,

  PROP_CONNECTION,

  LAST_PROPERTY

};

/* private structure */

typedef struct _GabbleIMChannelPrivate GabbleIMChannelPrivate;

struct _GabbleIMChannelPrivate

{

  GabbleConnection *conn;

  char *object_path;

  GabbleHandle handle;

  gchar *peer_jid;

  gboolean closed;

  gboolean dispose_has_run;

};

#define GABBLE_IM_CHANNEL_GET_PRIVATE(obj) \

    ((GabbleIMChannelPrivate *)obj->priv)

static void

gabble_im_channel_init (GabbleIMChannel *self)

{

  GabbleIMChannelPrivate *priv = G_TYPE_INSTANCE_GET_PRIVATE (self,

      GABBLE_TYPE_IM_CHANNEL, GabbleIMChannelPrivate);

  self->priv = priv;

}

static GObject *

gabble_im_channel_constructor (GType type, guint n_props,

                               GObjectConstructParam *props)

{

  GObject *obj;

  GabbleIMChannelPrivate *priv;

  DBusGConnection *bus;

  gboolean valid, send_nick;

  obj = G_OBJECT_CLASS (gabble_im_channel_parent_class)->

           constructor (type, n_props, props);

  priv = GABBLE_IM_CHANNEL_GET_PRIVATE (GABBLE_IM_CHANNEL (obj));

  valid = gabble_handle_ref (priv->conn->handles, TP_HANDLE_TYPE_CONTACT, priv->handle);

  g_assert (valid);

  priv->peer_jid = g_strdup (gabble_handle_inspect (priv->conn->handles,

        TP_HANDLE_TYPE_CONTACT, priv->handle));

  bus = tp_get_bus ();

  dbus_g_connection_register_g_object (bus, priv->object_path, obj);

  if (gabble_roster_handle_get_subscription (priv->conn->roster, priv->handle)

        & GABBLE_ROSTER_SUBSCRIPTION_FROM)

    send_nick = FALSE;

  else

    send_nick = TRUE;

  gabble_text_mixin_init (obj, G_STRUCT_OFFSET (GabbleIMChannel, text),

                          priv->conn->handles, send_nick);

  gabble_text_mixin_set_message_types (obj,

      TP_CHANNEL_TEXT_MESSAGE_TYPE_NORMAL,

      TP_CHANNEL_TEXT_MESSAGE_TYPE_ACTION,

      TP_CHANNEL_TEXT_MESSAGE_TYPE_NOTICE,

      G_MAXUINT);

  return obj;

}

static void

gabble_im_channel_get_property (GObject    *object,

                                guint       property_id,

                                GValue     *value,

                                GParamSpec *pspec)

{

  GabbleIMChannel *chan = GABBLE_IM_CHANNEL (object);

  GabbleIMChannelPrivate *priv = GABBLE_IM_CHANNEL_GET_PRIVATE (chan);

  switch (property_id) {

    case PROP_OBJECT_PATH:

      g_value_set_string (value, priv->object_path);

      break;

    case PROP_CHANNEL_TYPE:

      g_value_set_static_string (value, TP_IFACE_CHANNEL_TYPE_TEXT);

      break;

    case PROP_HANDLE_TYPE:

      g_value_set_uint (value, TP_HANDLE_TYPE_CONTACT);

      break;

    case PROP_HANDLE:

      g_value_set_uint (value, priv->handle);

      break;

    case PROP_CONNECTION:

      g_value_set_object (value, priv->conn);

      break;

    default:

      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);

      break;

  }

}

static void

gabble_im_channel_set_property (GObject     *object,

                                guint        property_id,

                                const GValue *value,

                                GParamSpec   *pspec)

{

  GabbleIMChannel *chan = GABBLE_IM_CHANNEL (object);

  GabbleIMChannelPrivate *priv = GABBLE_IM_CHANNEL_GET_PRIVATE (chan);

  switch (property_id) {

    case PROP_OBJECT_PATH:

      g_free (priv->object_path);

      priv->object_path = g_value_dup_string (value);

      break;

    case PROP_HANDLE:

      priv->handle = g_value_get_uint (value);

      break;

    case PROP_CONNECTION:

      priv->conn = g_value_get_object (value);

      break;

    default:

      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);

      break;

  }

}

static void gabble_im_channel_dispose (GObject *object);

static void gabble_im_channel_finalize (GObject *object);

static void

gabble_im_channel_class_init (GabbleIMChannelClass *gabble_im_channel_class)

{

  GObjectClass *object_class = G_OBJECT_CLASS (gabble_im_channel_class);

  GParamSpec *param_spec;

  g_type_class_add_private (gabble_im_channel_class, sizeof (GabbleIMChannelPrivate));

  object_class->constructor = gabble_im_channel_constructor;

  object_class->get_property = gabble_im_channel_get_property;

  object_class->set_property = gabble_im_channel_set_property;

  object_class->dispose = gabble_im_channel_dispose;

  object_class->finalize = gabble_im_channel_finalize;

  g_object_class_override_property (object_class, PROP_OBJECT_PATH, "object-path");

  g_object_class_override_property (object_class, PROP_CHANNEL_TYPE, "channel-type");

  g_object_class_override_property (object_class, PROP_HANDLE_TYPE, "handle-type");

  g_object_class_override_property (object_class, PROP_HANDLE, "handle");

  param_spec = g_param_spec_object ("connection", "GabbleConnection object",

                                    "Gabble connection object that owns this "

                                    "IM channel object.",

                                    GABBLE_TYPE_CONNECTION,

                                    G_PARAM_CONSTRUCT_ONLY |

                                    G_PARAM_READWRITE |

                                    G_PARAM_STATIC_NICK |

                                    G_PARAM_STATIC_BLURB);

  g_object_class_install_property (object_class, PROP_CONNECTION, param_spec);

  signals[CLOSED] =

    g_signal_new ("closed",

                  G_OBJECT_CLASS_TYPE (gabble_im_channel_class),

                  G_SIGNAL_RUN_LAST | G_SIGNAL_DETAILED,

                  0,

                  NULL, NULL,

                  g_cclosure_marshal_VOID__VOID,

                  G_TYPE_NONE, 0);

  gabble_text_mixin_class_init (object_class, G_STRUCT_OFFSET (GabbleIMChannelClass, text_class));

  dbus_g_object_type_install_info (G_TYPE_FROM_CLASS (gabble_im_channel_class), &dbus_glib_gabble_im_channel_object_info);

}

void

gabble_im_channel_dispose (GObject *object)

{

  GabbleIMChannel *self = GABBLE_IM_CHANNEL (object);

  GabbleIMChannelPrivate *priv = GABBLE_IM_CHANNEL_GET_PRIVATE (self);

  GabbleRosterSubscription subscription;

  if (priv->dispose_has_run)

    return;

  priv->dispose_has_run = TRUE;

  subscription = gabble_roster_handle_get_subscription (priv->conn->roster,

      priv->handle);

  if ((GABBLE_ROSTER_SUBSCRIPTION_TO & subscription) == 0)

    {

      GabblePresence *presence;

      presence = gabble_presence_cache_get (priv->conn->presence_cache,

          priv->handle);

      if (NULL != presence)

        {

          presence->keep_unavailable = FALSE;

          gabble_presence_cache_maybe_remove (priv->conn->presence_cache,

              priv->handle);

        }

    }

  if (!priv->closed)

    g_signal_emit(self, signals[CLOSED], 0);

  if (G_OBJECT_CLASS (gabble_im_channel_parent_class)->dispose)

    G_OBJECT_CLASS (gabble_im_channel_parent_class)->dispose (object);

}

void

gabble_im_channel_finalize (GObject *object)

{

  GabbleIMChannel *self = GABBLE_IM_CHANNEL (object);

  GabbleIMChannelPrivate *priv = GABBLE_IM_CHANNEL_GET_PRIVATE (self);

  /* free any data held directly by the object here */

  gabble_handle_unref (priv->conn->handles, TP_HANDLE_TYPE_CONTACT, priv->handle);

  g_free (priv->object_path);

  g_free (priv->peer_jid);

  gabble_text_mixin_finalize (object);

  G_OBJECT_CLASS (gabble_im_channel_parent_class)->finalize (object);

}

/**

 * _gabble_im_channel_receive

 *

 */

gboolean _gabble_im_channel_receive (GabbleIMChannel *chan,

                                     TpChannelTextMessageType type,

                                     GabbleHandle sender,

                                     const char *from,

                                     time_t timestamp,

                                     const char *text)

{

  GabbleIMChannelPrivate *priv;

  g_assert (GABBLE_IS_IM_CHANNEL (chan));

  priv = GABBLE_IM_CHANNEL_GET_PRIVATE (chan);

  /* update peer's full JID if it's changed */

  if (0 != strcmp (from, priv->peer_jid))

    {

      g_free (priv->peer_jid);

      priv->peer_jid = g_strdup (from);

    }

  if (timestamp == 0)

      timestamp = time (NULL);

  return gabble_text_mixin_receive (G_OBJECT (chan), type, sender, timestamp, text);

}

/**

 * gabble_im_channel_acknowledge_pending_messages

 *

 * Implements D-Bus method AcknowledgePendingMessages

 * on interface org.freedesktop.Telepathy.Channel.Type.Text

 *

 * @error: Used to return a pointer to a GError detailing any error

 *         that occurred, D-Bus will throw the error only if this

 *         function returns FALSE.

 *

 * Returns: TRUE if successful, FALSE if an error was thrown.

 */

gboolean

gabble_im_channel_acknowledge_pending_messages (GabbleIMChannel *self,

                                                const GArray *ids,

                                                GError **error)

{

  g_assert (GABBLE_IS_IM_CHANNEL (self));

  return gabble_text_mixin_acknowledge_pending_messages (G_OBJECT (self), ids,

      error);

}

/**

 * gabble_im_channel_close

 *

 * Implements D-Bus method Close

 * on interface org.freedesktop.Telepathy.Channel

 *

 * @error: Used to return a pointer to a GError detailing any error

 *         that occurred, D-Bus will throw the error only if this

 *         function returns FALSE.

 *

 * Returns: TRUE if successful, FALSE if an error was thrown.

 */

gboolean

gabble_im_channel_close (GabbleIMChannel *self,

                         GError **error)

{

  GabbleIMChannelPrivate *priv;

  g_assert (GABBLE_IS_IM_CHANNEL (self));

  gabble_debug (DEBUG_FLAG, "called on %p", self);

  priv = GABBLE_IM_CHANNEL_GET_PRIVATE (self);

  priv->closed = TRUE;

  g_signal_emit (self, signals[CLOSED], 0);

  return TRUE;

}

/**

 * gabble_im_channel_get_channel_type

 *

 * Implements D-Bus method GetChannelType

 * on interface org.freedesktop.Telepathy.Channel

 *

 * @error: Used to return a pointer to a GError detailing any error

 *         that occurred, D-Bus will throw the error only if this

 *         function returns FALSE.

 *

 * Returns: TRUE if successful, FALSE if an error was thrown.

 */

gboolean

gabble_im_channel_get_channel_type (GabbleIMChannel *self,

                                    gchar **ret,

                                    GError **error)

{

  *ret = g_strdup (TP_IFACE_CHANNEL_TYPE_TEXT);

  return TRUE;

}

/**

 * gabble_im_channel_get_handle

 *

 * Implements D-Bus method GetHandle

 * on interface org.freedesktop.Telepathy.Channel

 *

 * @error: Used to return a pointer to a GError detailing any error

 *         that occurred, D-Bus will throw the error only if this

 *         function returns FALSE.

 *

 * Returns: TRUE if successful, FALSE if an error was thrown.

 */

gboolean

gabble_im_channel_get_handle (GabbleIMChannel *self,

                              guint *ret,

                              guint *ret1,

                              GError **error)

{

  GabbleIMChannelPrivate *priv;

  g_assert (GABBLE_IS_IM_CHANNEL (self));

  priv = GABBLE_IM_CHANNEL_GET_PRIVATE (self);

  *ret = TP_HANDLE_TYPE_CONTACT;

  *ret1 = priv->handle;

  return TRUE;

}

/**

 * gabble_im_channel_get_interfaces

 *

 * Implements D-Bus method GetInterfaces

 * on interface org.freedesktop.Telepathy.Channel

 *

 * @error: Used to return a pointer to a GError detailing any error

 *         that occurred, D-Bus will throw the error only if this

 *         function returns FALSE.

 *

 * Returns: TRUE if successful, FALSE if an error was thrown.

 */

gboolean

gabble_im_channel_get_interfaces (GabbleIMChannel *self,

                                  gchar ***ret,

                                  GError **error)

{

  const char *interfaces[] = { NULL };

  *ret = g_strdupv ((gchar **) interfaces);

  return TRUE;

}

/**

 * gabble_im_channel_get_message_types

 *

 * Implements D-Bus method GetMessageTypes

 * on interface org.freedesktop.Telepathy.Channel.Type.Text

 *

 * @error: Used to return a pointer to a GError detailing any error

 *         that occurred, D-Bus will throw the error only if this

 *         function returns FALSE.

 *

 * Returns: TRUE if successful, FALSE if an error was thrown.

 */

gboolean

gabble_im_channel_get_message_types (GabbleIMChannel *self,

                                     GArray **ret,

                                     GError **error)

{

  return gabble_text_mixin_get_message_types (G_OBJECT (self), ret, error);

}

/**

 * gabble_im_channel_list_pending_messages

 *

 * Implements D-Bus method ListPendingMessages

 * on interface org.freedesktop.Telepathy.Channel.Type.Text

 *

 * @error: Used to return a pointer to a GError detailing any error

 *         that occurred, D-Bus will throw the error only if this