/*

* Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.

*

* 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 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., 59 Temple Place - Suite 330,

* Boston, MA 02111-1307, USA.

*

* Description:

*

*/

#undef	G_LOG_DOMAIN

#undef G_DISABLE_ASSERT

#undef G_DISABLE_CHECKS

#undef G_DISABLE_CAST_CHECKS

#undef VERBOSE

#include <stdio.h>

#include <string.h>

#include <glib.h>

#include <gmodule.h>

#include <string.h>

#include <glib.h>

#include <glib-object.h>

#include "testcommon.h"

#include <stdlib.h>

#ifdef SYMBIAN

#include "mrt2_glib2_test.h"

#endif /*SYMBIAN*/

typedef struct _BaseObject        BaseObject;

struct _EphyModule

{

	GTypeModule parent_instance;

	GModule *library;

	char *path;

	GType type;

	guint resident : 1;

};

typedef struct _EphyModule EphyModule;

struct _BaseObject

{

  GObject parent_instance;

  gint val1;

  gint val2;

  gint val3;

  gint val4;

};

static guint foo_signal_id = 0;

static guint bar_signal_id = 0;

static GType test_i_get_type (void);

static GType test_a_get_type (void);

static GType test_b_get_type (void);

static GType test_c_get_type (void);

static void  record (const gchar *str);

#define TEST_TYPE_I (test_i_get_type ())

#define DERIVED_TYPE_OBJECT          (derived_object_get_type ())

typedef struct _TestI TestI;

typedef struct _TestIClass TestIClass;

struct _TestIClass

{

  GTypeInterface base_iface;

};

//Added code 

#define TEST_TYPE_IFACE           (test_iface_get_type ())

#define TEST_IFACE(obj)		  (G_TYPE_CHECK_INSTANCE_CAST ((obj), TEST_TYPE_IFACE, TestIface))

#define TEST_IS_IFACE(obj)	  (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TEST_TYPE_IFACE))

#define TEST_IFACE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_INTERFACE ((obj), TEST_TYPE_IFACE, TestIfaceClass))

typedef struct _TestIface      TestIface;

typedef struct _TestIfaceClass TestIfaceClass;

struct _TestIfaceClass

{

  GTypeInterface base_iface;

  void	(*print_string)	(TestIface	*tiobj,

			 const gchar	*string);

};

static void	iface_base_init		(TestIfaceClass	*iface);

static void	iface_base_finalize	(TestIfaceClass	*iface);

static void	print_foo		(TestIface	*tiobj,

					 const gchar	*string);

gpointer my_boxed_copy_function(gpointer boxed)

{

	return boxed;

}

void my_boxed_free_function(gpointer boxed)

{

}

GType

test_iface_get_type (void)

{

  static GType test_iface_type = 0;

  if (!test_iface_type)

    {

      static const GTypeInfo test_iface_info =

      {

	sizeof (TestIfaceClass),

	(GBaseInitFunc)	iface_base_init,		/* base_init */

	(GBaseFinalizeFunc) iface_base_finalize,	/* base_finalize */

      };

      test_iface_type = g_type_register_static (G_TYPE_INTERFACE, "TestIface", &test_iface_info, 0);

      g_type_interface_add_prerequisite (test_iface_type, G_TYPE_OBJECT);

    }

  return test_iface_type;

}

static guint iface_base_init_count = 0;

static void

iface_base_init (TestIfaceClass *iface)

{

  iface_base_init_count++;

  if (iface_base_init_count == 1)

    {

      /* add signals here */

    }

}

static void

iface_base_finalize (TestIfaceClass *iface)

{

  iface_base_init_count--;

  if (iface_base_init_count == 0)

    {

      /* destroy signals here */

    }

}

static void

print_foo (TestIface   *tiobj,

	   const gchar *string)

{

  if (!string)

    string = "<NULL>";

  g_print ("Iface-FOO: \"%s\" from %p\n", string, tiobj);

}

static void

test_object_test_iface_init (gpointer giface,

			     gpointer iface_data)

{

  TestIfaceClass *iface = giface;

  g_assert (iface_data == GUINT_TO_POINTER (42));

  g_assert (G_TYPE_FROM_INTERFACE (iface) == TEST_TYPE_IFACE);

  /* assert iface_base_init() was already called */

  g_assert (iface_base_init_count > 0);

  /* initialize stuff */

  iface->print_string = print_foo;

}

/* --- TestObject --- */

#define TEST_TYPE_OBJECT            (test_object_get_type ())

#define TEST_OBJECT(object)         (G_TYPE_CHECK_INSTANCE_CAST ((object), TEST_TYPE_OBJECT, TestObject))

#define TEST_OBJECT_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST ((klass), TEST_TYPE_OBJECT, TestObjectClass))

#define TEST_IS_OBJECT(object)      (G_TYPE_CHECK_INSTANCE_TYPE ((object), TEST_TYPE_OBJECT))

#define TEST_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), TEST_TYPE_OBJECT))

#define TEST_OBJECT_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS ((obj), TEST_TYPE_OBJECT, TestObjectClass))

#define TEST_OBJECT_GET_PRIVATE(o)  (G_TYPE_INSTANCE_GET_PRIVATE ((o), TEST_TYPE_OBJECT, TestObjectPrivate))

typedef struct _TestObject        TestObject;

typedef struct _TestObjectClass   TestObjectClass;

typedef struct _TestObjectPrivate TestObjectPrivate;

struct _TestObject

{

  GObject parent_instance;

};

struct _TestObjectClass

{

  GObjectClass parent_class;

  gchar* (*test_signal) (TestObject *tobject,

			 TestIface  *iface_object,

			 gpointer    tdata);

};

struct _TestObjectPrivate

{

  int     dummy1;

  gdouble dummy2;

};

static void	test_object_class_init	(TestObjectClass	*class);

static void	test_object_init	(TestObject		*tobject);

static gboolean	test_signal_accumulator	(GSignalInvocationHint	*ihint,

					 GValue            	*return_accu,

					 const GValue       	*handler_return,

					 gpointer                data);

static gchar*	test_object_test_signal	(TestObject		*tobject,

					 TestIface		*iface_object,

					 gpointer		 tdata);

GType

test_object_get_type (void)

{

  static GType test_object_type = 0;

  if (!test_object_type)

    {

      static const GTypeInfo test_object_info =

      {

	sizeof (TestObjectClass),

	NULL,           /* base_init */

	NULL,           /* base_finalize */

	(GClassInitFunc) test_object_class_init,

	NULL,           /* class_finalize */

	NULL,           /* class_data */

	sizeof (TestObject),

	5,              /* n_preallocs */

	(GInstanceInitFunc) test_object_init,

      };

      GInterfaceInfo iface_info = { test_object_test_iface_init, NULL, GUINT_TO_POINTER (42) };

      test_object_type = g_type_register_static (G_TYPE_OBJECT, "TestObject", &test_object_info, 0);

      g_type_add_interface_static (test_object_type, TEST_TYPE_IFACE, &iface_info);

    }

  return test_object_type;

}

static void

test_object_class_init (TestObjectClass *class)

{

  /*  GObjectClass *gobject_class = G_OBJECT_CLASS (class); */

  guint sig_id;

  GQuark detail;

  gulong hook_id;

  GSignalEmissionHook hook_func;

  gpointer hook_data;

  GDestroyNotify data_destroy;

  gulong handler_id;

  GClosure closure;

  gpointer instance;

  GValue args[2];

  class->test_signal = test_object_test_signal;

  sig_id = g_signal_new ("test-signal",

		G_OBJECT_CLASS_TYPE (class),

		G_SIGNAL_RUN_FIRST | G_SIGNAL_RUN_LAST | G_SIGNAL_RUN_CLEANUP | G_SIGNAL_DETAILED,

		G_STRUCT_OFFSET (TestObjectClass, test_signal),

		test_signal_accumulator, NULL,

		g_cclosure_marshal_STRING__OBJECT_POINTER,

		G_TYPE_STRING, 2, TEST_TYPE_IFACE, G_TYPE_POINTER);

  hook_id = g_signal_add_emission_hook      ( sig_id,

                                             detail,

                                             hook_func,

                                             "Data",

                                             data_destroy);

  g_type_class_add_private (class, sizeof (TestObjectPrivate));

}

static void

print_bar (TestIface   *tiobj,

	   const gchar *string)

{

  TestIfaceClass *parent_iface;

  g_return_if_fail (TEST_IS_IFACE (tiobj));

  if (!string)

    string = "<NULL>";

  g_print ("Iface-BAR: \"%s\" from %p\n", string, tiobj);

  g_print ("chaining: ");

  parent_iface = g_type_interface_peek_parent (TEST_IFACE_GET_CLASS (tiobj));

  parent_iface->print_string (tiobj, string);

  g_assert (g_type_interface_peek_parent (parent_iface) == NULL);

}

static void

test_object_init (TestObject *tobject)

{

  TestObjectPrivate *priv;

  priv = TEST_OBJECT_GET_PRIVATE (tobject);

  g_assert (priv);

  g_assert ((gchar *)priv >= (gchar *)tobject + sizeof (TestObject));

  priv->dummy1 = 54321;

}

static gchar*

test_object_test_signal (TestObject *tobject,

			 TestIface  *iface_object,

			 gpointer    tdata)

{

  g_message ("::test_signal default_handler called");

  g_return_val_if_fail (TEST_IS_IFACE (iface_object), NULL);

  return g_strdup ("<default_handler>");

}

static gboolean

test_signal_accumulator (GSignalInvocationHint *ihint,

			 GValue                *return_accu,

			 const GValue          *handler_return,

			 gpointer               data)

{

 const gchar *accu_string = g_value_get_string (return_accu);

const  gchar *new_string = g_value_get_string (handler_return);

  gchar *result_string;

  if (accu_string)

    result_string = g_strconcat (accu_string, new_string, NULL);

  else if (new_string)

    result_string = g_strdup (new_string);

  else

    result_string = NULL;

  g_value_take_string (return_accu, result_string);

  return TRUE;

}

static void

derived_object_test_iface_init (gpointer giface,

				gpointer iface_data)

{

  TestIfaceClass *iface = giface;

  g_assert (iface_data == GUINT_TO_POINTER (87));

  g_assert (G_TYPE_FROM_INTERFACE (iface) == TEST_TYPE_IFACE);

  /* assert test_object_test_iface_init() was already called */

  g_assert (iface->print_string == print_foo);

  /* override stuff */

  iface->print_string = print_bar;

}

/* --- DerivedObject --- */

#define DERIVED_TYPE_OBJECT            (derived_object_get_type ())

#define DERIVED_OBJECT(object)         (G_TYPE_CHECK_INSTANCE_CAST ((object), DERIVED_TYPE_OBJECT, DerivedObject))

#define DERIVED_OBJECT_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST ((klass), DERIVED_TYPE_OBJECT, DerivedObjectClass))

#define DERIVED_IS_OBJECT(object)      (G_TYPE_CHECK_INSTANCE_TYPE ((object), DERIVED_TYPE_OBJECT))

#define DERIVED_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DERIVED_TYPE_OBJECT))

#define DERIVED_OBJECT_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS ((obj), DERIVED_TYPE_OBJECT, DerivedObjectClass))

#define DERIVED_OBJECT_GET_PRIVATE(o)  (G_TYPE_INSTANCE_GET_PRIVATE ((o), DERIVED_TYPE_OBJECT, DerivedObjectPrivate))

typedef struct _DerivedObject        DerivedObject;

typedef struct _TestObjectClass      DerivedObjectClass;

typedef struct _DerivedObjectPrivate DerivedObjectPrivate;

struct _DerivedObject

{

  TestObject parent_instance;

  int  dummy1;

  int  dummy2;

};

struct _DerivedObjectPrivate

{

  char dummy;

};

static void derived_object_class_init (DerivedObjectClass *class);

static void derived_object_init       (DerivedObject      *dobject);

GType

derived_object_get_type (void)

{

  static GType derived_object_type = 0;

  if (!derived_object_type)

    {

      static const GTypeInfo derived_object_info =

      {

	sizeof (DerivedObjectClass),

	NULL,           /* base_init */

	NULL,           /* base_finalize */

	(GClassInitFunc) derived_object_class_init,

	NULL,           /* class_finalize */

	NULL,           /* class_data */

	sizeof (DerivedObject),

	5,              /* n_preallocs */

	(GInstanceInitFunc) derived_object_init,

      };

      GInterfaceInfo iface_info = { derived_object_test_iface_init, NULL, GUINT_TO_POINTER (87) };

      derived_object_type = g_type_register_static (TEST_TYPE_OBJECT, "DerivedObject", &derived_object_info, 0);

      g_type_add_interface_static (derived_object_type, TEST_TYPE_IFACE, &iface_info);

    }

  return derived_object_type;

}

static void

derived_object_class_init (DerivedObjectClass *class)

{

  g_type_class_add_private (class, sizeof (DerivedObjectPrivate));

}

static void

derived_object_init (DerivedObject *dobject)

{

  TestObjectPrivate *test_priv;

  DerivedObjectPrivate *derived_priv;

  derived_priv = DERIVED_OBJECT_GET_PRIVATE (dobject);

  g_assert (derived_priv);

  g_assert ((gchar *)derived_priv >= (gchar *)TEST_OBJECT_GET_PRIVATE (dobject) + sizeof (TestObjectPrivate));

  test_priv = TEST_OBJECT_GET_PRIVATE (dobject);

  g_assert (test_priv);

  g_assert ((gchar *)test_priv >= (gchar *)dobject + sizeof (TestObject));

}

//addition over

static void

test_i_foo (TestI *self)

{

  record ("TestI::foo");

}

static void

test_i_default_init (gpointer g_class)

{

  gint i;

  const char *name; 

  GSignalQuery query;

  guint retval;

  guint n_ids[4];

  foo_signal_id = g_signal_newv ("foo",

				 TEST_TYPE_I,

				 G_SIGNAL_RUN_LAST,

				 g_cclosure_new(G_CALLBACK(test_i_foo),

						NULL, NULL),

				 NULL, NULL,

				 g_cclosure_marshal_VOID__VOID,

				 G_TYPE_NONE, 0, NULL);

 g_assert(!strcmp(g_signal_name(foo_signal_id), "foo"));

 g_signal_query (foo_signal_id, &query);

 g_assert(query.signal_id == foo_signal_id);

 retval = g_signal_lookup("foo",TEST_TYPE_I);

 g_assert(retval == foo_signal_id);

 g_signal_list_ids               (TEST_TYPE_I,

                                             n_ids);                                             

 g_assert(n_ids[0] == foo_signal_id);

 i = foo_signal_id ;				 

}

static DEFINE_IFACE (TestI, test_i, NULL, test_i_default_init)

#define TEST_TYPE_A (test_a_get_type())

     typedef struct _TestA TestA;

     typedef struct _TestAClass TestAClass;

struct _TestA {

  GObject parent;

};

struct _TestAClass {

  GObjectClass parent_class;

  void (* bar) (TestA *self);

};

//Dummy function 

gint        GMyCompareDataFunc            (gconstpointer a,

                                             gconstpointer b,

                                             gpointer user_data)

{

return 0;

}

//Function to test the apis :

static void

test_set_val_apis (void)

{ 

  GType type; 

  gchar c;

  gchar *p="foo";

  gconstpointer ptr;

  gpointer ret_val = NULL;

  gpointer v_object ;

  gchar *retVal;

  GObject *object;

  GParamFlags flags;

  GParamSpec* paramSpec;

  GParamSpec *gpSpec = (GParamSpec * )g_malloc(sizeof (GParamSpec));

  GValue orig = { 0, };

  GValue orig1 = { 1, };