sl@0: /* GObject - GLib Type, Object, Parameter and Signal Library
sl@0:  * Copyright (C) 2001 Red Hat, Inc.
sl@0:  * Portions copyright (c) 2009 Nokia Corporation.  All rights reserved.
sl@0:  * This library is free software; you can redistribute it and/or
sl@0:  * modify it under the terms of the GNU Lesser General Public
sl@0:  * License as published by the Free Software Foundation; either
sl@0:  * version 2 of the License, or (at your option) any later version.
sl@0:  *
sl@0:  * This library is distributed in the hope that it will be useful,
sl@0:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
sl@0:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
sl@0:  * Lesser General Public License for more details.
sl@0:  *
sl@0:  * You should have received a copy of the GNU Lesser General
sl@0:  * Public License along with this library; if not, write to the
sl@0:  * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
sl@0:  * Boston, MA 02111-1307, USA.
sl@0:  */
sl@0: 
sl@0: #include <string.h>
sl@0: 
sl@0: #undef	G_LOG_DOMAIN
sl@0: #define	G_LOG_DOMAIN "TestObject"
sl@0: #include	<glib-object.h>
sl@0: #ifdef __SYMBIAN32__
sl@0: #include "mrt2_glib2_test.h"
sl@0: #endif /*__SYMBIAN32__*/
sl@0: 
sl@0: /* --- TestIface --- */
sl@0: #define TEST_TYPE_IFACE           (test_iface_get_type ())
sl@0: #define TEST_IFACE(obj)		  (G_TYPE_CHECK_INSTANCE_CAST ((obj), TEST_TYPE_IFACE, TestIface))
sl@0: #define TEST_IS_IFACE(obj)	  (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TEST_TYPE_IFACE))
sl@0: #define TEST_IFACE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_INTERFACE ((obj), TEST_TYPE_IFACE, TestIfaceClass))
sl@0: typedef struct _TestIface      TestIface;
sl@0: typedef struct _TestIfaceClass TestIfaceClass;
sl@0: struct _TestIfaceClass
sl@0: {
sl@0:   GTypeInterface base_iface;
sl@0:   void	(*print_string)	(TestIface	*tiobj,
sl@0: 			 const gchar	*string);
sl@0: };
sl@0: static void	iface_base_init		(TestIfaceClass	*iface);
sl@0: static void	iface_base_finalize	(TestIfaceClass	*iface);
sl@0: static void	print_foo		(TestIface	*tiobj,
sl@0: 					 const gchar	*string);
sl@0: static GType
sl@0: test_iface_get_type (void)
sl@0: {
sl@0:   static GType test_iface_type = 0;
sl@0: 
sl@0:   if (!test_iface_type)
sl@0:     {
sl@0:       static const GTypeInfo test_iface_info =
sl@0:       {
sl@0: 	sizeof (TestIfaceClass),
sl@0: 	(GBaseInitFunc)	iface_base_init,		/* base_init */
sl@0: 	(GBaseFinalizeFunc) iface_base_finalize,	/* base_finalize */
sl@0:       };
sl@0: 
sl@0:       test_iface_type = g_type_register_static (G_TYPE_INTERFACE, "TestIface", &test_iface_info, 0);
sl@0:       g_type_interface_add_prerequisite (test_iface_type, G_TYPE_OBJECT);
sl@0:     }
sl@0: 
sl@0:   return test_iface_type;
sl@0: }
sl@0: static guint iface_base_init_count = 0;
sl@0: static void
sl@0: iface_base_init (TestIfaceClass *iface)
sl@0: {
sl@0:   iface_base_init_count++;
sl@0:   if (iface_base_init_count == 1)
sl@0:     {
sl@0:       /* add signals here */
sl@0:     }
sl@0: }
sl@0: static void
sl@0: iface_base_finalize (TestIfaceClass *iface)
sl@0: {
sl@0:   iface_base_init_count--;
sl@0:   if (iface_base_init_count == 0)
sl@0:     {
sl@0:       /* destroy signals here */
sl@0:     }
sl@0: }
sl@0: static void
sl@0: print_foo (TestIface   *tiobj,
sl@0: 	   const gchar *string)
sl@0: {
sl@0:   if (!string)
sl@0:     string = "<NULL>";
sl@0:   g_print ("Iface-FOO: \"%s\" from %p\n", string, tiobj);
sl@0: }
sl@0: static void
sl@0: test_object_test_iface_init (gpointer giface,
sl@0: 			     gpointer iface_data)
sl@0: {
sl@0:   TestIfaceClass *iface = giface;
sl@0: 
sl@0:   g_assert (iface_data == GUINT_TO_POINTER (42));
sl@0: 
sl@0:   g_assert (G_TYPE_FROM_INTERFACE (iface) == TEST_TYPE_IFACE);
sl@0: 
sl@0:   /* assert iface_base_init() was already called */
sl@0:   g_assert (iface_base_init_count > 0);
sl@0: 
sl@0:   /* initialize stuff */
sl@0:   iface->print_string = print_foo;
sl@0: }
sl@0: static void
sl@0: iface_print_string (TestIface   *tiobj,
sl@0: 		    const gchar *string)
sl@0: {
sl@0:   TestIfaceClass *iface;
sl@0: 
sl@0:   g_return_if_fail (TEST_IS_IFACE (tiobj));
sl@0:   g_return_if_fail (G_IS_OBJECT (tiobj)); /* ensured through prerequisite */
sl@0: 
sl@0:   iface = TEST_IFACE_GET_CLASS (tiobj);
sl@0:   g_object_ref (tiobj);
sl@0:   iface->print_string (tiobj, string);
sl@0:   g_object_unref (tiobj);
sl@0: }
sl@0: 
sl@0: 
sl@0: /* --- TestObject --- */
sl@0: #define TEST_TYPE_OBJECT            (test_object_get_type ())
sl@0: #define TEST_OBJECT(object)         (G_TYPE_CHECK_INSTANCE_CAST ((object), TEST_TYPE_OBJECT, TestObject))
sl@0: #define TEST_OBJECT_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST ((klass), TEST_TYPE_OBJECT, TestObjectClass))
sl@0: #define TEST_IS_OBJECT(object)      (G_TYPE_CHECK_INSTANCE_TYPE ((object), TEST_TYPE_OBJECT))
sl@0: #define TEST_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), TEST_TYPE_OBJECT))
sl@0: #define TEST_OBJECT_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS ((obj), TEST_TYPE_OBJECT, TestObjectClass))
sl@0: #define TEST_OBJECT_GET_PRIVATE(o)  (G_TYPE_INSTANCE_GET_PRIVATE ((o), TEST_TYPE_OBJECT, TestObjectPrivate))
sl@0: typedef struct _TestObject        TestObject;
sl@0: typedef struct _TestObjectClass   TestObjectClass;
sl@0: typedef struct _TestObjectPrivate TestObjectPrivate;
sl@0: struct _TestObject
sl@0: {
sl@0:   GObject parent_instance;
sl@0: };
sl@0: struct _TestObjectClass
sl@0: {
sl@0:   GObjectClass parent_class;
sl@0: 
sl@0:   gchar* (*test_signal) (TestObject *tobject,
sl@0: 			 TestIface  *iface_object,
sl@0: 			 gpointer    tdata);
sl@0: };
sl@0: struct _TestObjectPrivate
sl@0: {
sl@0:   int     dummy1;
sl@0:   gdouble dummy2;
sl@0: };
sl@0: static void	test_object_class_init	(TestObjectClass	*class);
sl@0: static void	test_object_init	(TestObject		*tobject);
sl@0: static gboolean	test_signal_accumulator	(GSignalInvocationHint	*ihint,
sl@0: 					 GValue            	*return_accu,
sl@0: 					 const GValue       	*handler_return,
sl@0: 					 gpointer                data);
sl@0: static gchar*	test_object_test_signal	(TestObject		*tobject,
sl@0: 					 TestIface		*iface_object,
sl@0: 					 gpointer		 tdata);
sl@0: static GType
sl@0: test_object_get_type (void)
sl@0: {
sl@0:   static GType test_object_type = 0;
sl@0: 
sl@0:   if (!test_object_type)
sl@0:     {
sl@0:       static const GTypeInfo test_object_info =
sl@0:       {
sl@0: 	sizeof (TestObjectClass),
sl@0: 	NULL,           /* base_init */
sl@0: 	NULL,           /* base_finalize */
sl@0: 	(GClassInitFunc) test_object_class_init,
sl@0: 	NULL,           /* class_finalize */
sl@0: 	NULL,           /* class_data */
sl@0: 	sizeof (TestObject),
sl@0: 	5,              /* n_preallocs */
sl@0: 	(GInstanceInitFunc) test_object_init,
sl@0:       };
sl@0:       GInterfaceInfo iface_info = { test_object_test_iface_init, NULL, GUINT_TO_POINTER (42) };
sl@0: 
sl@0:       test_object_type = g_type_register_static (G_TYPE_OBJECT, "TestObject", &test_object_info, 0);
sl@0:       g_type_add_interface_static (test_object_type, TEST_TYPE_IFACE, &iface_info);
sl@0:     }
sl@0: 
sl@0:   return test_object_type;
sl@0: }
sl@0: static void
sl@0: test_object_class_init (TestObjectClass *class)
sl@0: {
sl@0:   /*  GObjectClass *gobject_class = G_OBJECT_CLASS (class); */
sl@0: 
sl@0:   class->test_signal = test_object_test_signal;
sl@0: 
sl@0:   g_signal_new ("test-signal",
sl@0: 		G_OBJECT_CLASS_TYPE (class),
sl@0: 		G_SIGNAL_RUN_FIRST | G_SIGNAL_RUN_LAST | G_SIGNAL_RUN_CLEANUP,
sl@0: 		G_STRUCT_OFFSET (TestObjectClass, test_signal),
sl@0: 		test_signal_accumulator, NULL,
sl@0: 		g_cclosure_marshal_STRING__OBJECT_POINTER,
sl@0: 		G_TYPE_STRING, 2, TEST_TYPE_IFACE, G_TYPE_POINTER);
sl@0: 
sl@0:   g_type_class_add_private (class, sizeof (TestObjectPrivate));
sl@0: }
sl@0: static void
sl@0: test_object_init (TestObject *tobject)
sl@0: {
sl@0:   TestObjectPrivate *priv;
sl@0: 
sl@0:   priv = TEST_OBJECT_GET_PRIVATE (tobject);
sl@0: 
sl@0:   g_assert (priv);
sl@0:   g_assert ((gchar *)priv >= (gchar *)tobject + sizeof (TestObject));
sl@0: 
sl@0:   priv->dummy1 = 54321;
sl@0: }
sl@0: /* Check to see if private data initialization in the
sl@0:  * instance init function works.
sl@0:  */
sl@0: static void
sl@0: test_object_check_private_init (TestObject *tobject)
sl@0: {
sl@0:   TestObjectPrivate *priv;
sl@0: 
sl@0:   priv = TEST_OBJECT_GET_PRIVATE (tobject);
sl@0: 
sl@0:   g_print ("private data during initialization: %u == %u\n", priv->dummy1, 54321);
sl@0:   g_assert (priv->dummy1 == 54321);
sl@0: }
sl@0: static gboolean
sl@0: test_signal_accumulator (GSignalInvocationHint *ihint,
sl@0: 			 GValue                *return_accu,
sl@0: 			 const GValue          *handler_return,
sl@0: 			 gpointer               data)
sl@0: {
sl@0:   gchar *accu_string = g_value_get_string (return_accu);
sl@0:   gchar *new_string = g_value_get_string (handler_return);
sl@0:   gchar *result_string;
sl@0: 
sl@0:   if (accu_string)
sl@0:     result_string = g_strconcat (accu_string, new_string, NULL);
sl@0:   else if (new_string)
sl@0:     result_string = g_strdup (new_string);
sl@0:   else
sl@0:     result_string = NULL;
sl@0: 
sl@0:   g_value_take_string (return_accu, result_string);
sl@0: 
sl@0:   return TRUE;
sl@0: }
sl@0: static gchar*
sl@0: test_object_test_signal (TestObject *tobject,
sl@0: 			 TestIface  *iface_object,
sl@0: 			 gpointer    tdata)
sl@0: {
sl@0:   g_message ("::test_signal default_handler called");
sl@0: 
sl@0:   g_return_val_if_fail (TEST_IS_IFACE (iface_object), NULL);
sl@0:   
sl@0:   return g_strdup ("<default_handler>");
sl@0: }
sl@0: 
sl@0: 
sl@0: /* --- TestIface for DerivedObject --- */
sl@0: static void
sl@0: print_bar (TestIface   *tiobj,
sl@0: 	   const gchar *string)
sl@0: {
sl@0:   TestIfaceClass *parent_iface;
sl@0: 
sl@0:   g_return_if_fail (TEST_IS_IFACE (tiobj));
sl@0: 
sl@0:   if (!string)
sl@0:     string = "<NULL>";
sl@0:   g_print ("Iface-BAR: \"%s\" from %p\n", string, tiobj);
sl@0: 
sl@0:   g_print ("chaining: ");
sl@0:   parent_iface = g_type_interface_peek_parent (TEST_IFACE_GET_CLASS (tiobj));
sl@0:   parent_iface->print_string (tiobj, string);
sl@0: 
sl@0:   g_assert (g_type_interface_peek_parent (parent_iface) == NULL);
sl@0: }
sl@0: 
sl@0: static void
sl@0: derived_object_test_iface_init (gpointer giface,
sl@0: 				gpointer iface_data)
sl@0: {
sl@0:   TestIfaceClass *iface = giface;
sl@0: 
sl@0:   g_assert (iface_data == GUINT_TO_POINTER (87));
sl@0: 
sl@0:   g_assert (G_TYPE_FROM_INTERFACE (iface) == TEST_TYPE_IFACE);
sl@0: 
sl@0:   /* assert test_object_test_iface_init() was already called */
sl@0:   g_assert (iface->print_string == print_foo);
sl@0: 
sl@0:   /* override stuff */
sl@0:   iface->print_string = print_bar;
sl@0: }
sl@0: 
sl@0: 
sl@0: /* --- DerivedObject --- */
sl@0: #define DERIVED_TYPE_OBJECT            (derived_object_get_type ())
sl@0: #define DERIVED_OBJECT(object)         (G_TYPE_CHECK_INSTANCE_CAST ((object), DERIVED_TYPE_OBJECT, DerivedObject))
sl@0: #define DERIVED_OBJECT_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST ((klass), DERIVED_TYPE_OBJECT, DerivedObjectClass))
sl@0: #define DERIVED_IS_OBJECT(object)      (G_TYPE_CHECK_INSTANCE_TYPE ((object), DERIVED_TYPE_OBJECT))
sl@0: #define DERIVED_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DERIVED_TYPE_OBJECT))
sl@0: #define DERIVED_OBJECT_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS ((obj), DERIVED_TYPE_OBJECT, DerivedObjectClass))
sl@0: #define DERIVED_OBJECT_GET_PRIVATE(o)  (G_TYPE_INSTANCE_GET_PRIVATE ((o), DERIVED_TYPE_OBJECT, DerivedObjectPrivate))
sl@0: typedef struct _DerivedObject        DerivedObject;
sl@0: typedef struct _TestObjectClass      DerivedObjectClass;
sl@0: typedef struct _DerivedObjectPrivate DerivedObjectPrivate;
sl@0: struct _DerivedObject
sl@0: {
sl@0:   TestObject parent_instance;
sl@0:   int  dummy1;
sl@0:   int  dummy2;
sl@0: };
sl@0: struct _DerivedObjectPrivate
sl@0: {
sl@0:   char dummy;
sl@0: };
sl@0: static void derived_object_class_init (DerivedObjectClass *class);
sl@0: static void derived_object_init       (DerivedObject      *dobject);
sl@0: GType
sl@0: derived_object_get_type (void)
sl@0: {
sl@0:   static GType derived_object_type = 0;
sl@0: 
sl@0:   if (!derived_object_type)
sl@0:     {
sl@0:       static const GTypeInfo derived_object_info =
sl@0:       {
sl@0: 	sizeof (DerivedObjectClass),
sl@0: 	NULL,           /* base_init */
sl@0: 	NULL,           /* base_finalize */
sl@0: 	(GClassInitFunc) derived_object_class_init,
sl@0: 	NULL,           /* class_finalize */
sl@0: 	NULL,           /* class_data */
sl@0: 	sizeof (DerivedObject),
sl@0: 	5,              /* n_preallocs */
sl@0: 	(GInstanceInitFunc) derived_object_init,
sl@0:       };
sl@0:       GInterfaceInfo iface_info = { derived_object_test_iface_init, NULL, GUINT_TO_POINTER (87) };
sl@0: 
sl@0:       derived_object_type = g_type_register_static (TEST_TYPE_OBJECT, "DerivedObject", &derived_object_info, 0);
sl@0:       g_type_add_interface_static (derived_object_type, TEST_TYPE_IFACE, &iface_info);
sl@0:     }
sl@0: 
sl@0:   return derived_object_type;
sl@0: }
sl@0: static void
sl@0: derived_object_class_init (DerivedObjectClass *class)
sl@0: {
sl@0:   g_type_class_add_private (class, sizeof (DerivedObjectPrivate));
sl@0: }
sl@0: static void
sl@0: derived_object_init (DerivedObject *dobject)
sl@0: {
sl@0:   TestObjectPrivate *test_priv;
sl@0:   DerivedObjectPrivate *derived_priv;
sl@0: 
sl@0:   derived_priv = DERIVED_OBJECT_GET_PRIVATE (dobject);
sl@0: 
sl@0:   g_assert (derived_priv);
sl@0:   g_assert ((gchar *)derived_priv >= (gchar *)TEST_OBJECT_GET_PRIVATE (dobject) + sizeof (TestObjectPrivate));
sl@0: 
sl@0:   test_priv = TEST_OBJECT_GET_PRIVATE (dobject);
sl@0:   
sl@0:   g_assert (test_priv);
sl@0:   g_assert ((gchar *)test_priv >= (gchar *)dobject + sizeof (TestObject));
sl@0: 
sl@0: }
sl@0: 
sl@0: /* --- main --- */
sl@0: int
sl@0: main (int   argc,
sl@0:       char *argv[])
sl@0: {
sl@0:   GTypeInfo info = { 0, };
sl@0:   GTypeFundamentalInfo finfo = { 0, };
sl@0:   GType type;
sl@0:   TestObject *sigarg;
sl@0:   DerivedObject *dobject;
sl@0:   TestObjectPrivate *priv;
sl@0:   gchar *string = NULL;
sl@0: #ifdef __SYMBIAN32__
sl@0:   g_log_set_handler (NULL,  G_LOG_FLAG_FATAL| G_LOG_FLAG_RECURSION | G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_WARNING | G_LOG_LEVEL_MESSAGE | G_LOG_LEVEL_INFO | G_LOG_LEVEL_DEBUG, &mrtLogHandler, NULL);
sl@0:   g_set_print_handler(mrtPrintHandler);
sl@0:   #endif /*__SYMBIAN32__*/
sl@0:   g_log_set_always_fatal (g_log_set_always_fatal (G_LOG_FATAL_MASK) |
sl@0: 			  G_LOG_LEVEL_WARNING |
sl@0: 			  G_LOG_LEVEL_CRITICAL);
sl@0:   g_type_init_with_debug_flags (G_TYPE_DEBUG_OBJECTS | G_TYPE_DEBUG_SIGNALS);
sl@0: 
sl@0:   /* test new fundamentals */
sl@0:   g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST) == g_type_fundamental_next ());
sl@0:   type = g_type_register_fundamental (g_type_fundamental_next (), "FooShadow1", &info, &finfo, 0);
sl@0:   g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 1) == g_type_fundamental_next ());
sl@0:   type = g_type_register_fundamental (g_type_fundamental_next (), "FooShadow2", &info, &finfo, 0);
sl@0:   g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 2) == g_type_fundamental_next ());
sl@0:   g_assert (g_type_from_name ("FooShadow1") == G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST));
sl@0:   g_assert (g_type_from_name ("FooShadow2") == G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 1));
sl@0: 
sl@0:   /* to test past class initialization interface setups, create the class here */
sl@0:   g_type_class_ref (TEST_TYPE_OBJECT);
sl@0: 
sl@0:   dobject = g_object_new (DERIVED_TYPE_OBJECT, NULL);
sl@0:   test_object_check_private_init (TEST_OBJECT (dobject));
sl@0: 
sl@0:   sigarg = g_object_new (TEST_TYPE_OBJECT, NULL);
sl@0: 
sl@0:   g_print ("MAIN: emit test-signal:\n");
sl@0:   g_signal_emit_by_name (dobject, "test-signal", sigarg, NULL, &string);
sl@0:   g_message ("signal return: \"%s\"", string);
sl@0:   g_assert (strcmp (string, "<default_handler><default_handler>") == 0);
sl@0:   g_free (string);
sl@0: 
sl@0:   g_print ("MAIN: call iface print-string on test and derived object:\n");
sl@0:   iface_print_string (TEST_IFACE (sigarg), "iface-string-from-test-type");
sl@0:   iface_print_string (TEST_IFACE (dobject), "iface-string-from-derived-type");
sl@0: 
sl@0:   priv = TEST_OBJECT_GET_PRIVATE (dobject);
sl@0:   g_print ("private data after initialization: %u == %u\n", priv->dummy1, 54321);
sl@0:   g_assert (priv->dummy1 == 54321);
sl@0:   
sl@0:   g_object_unref (sigarg);
sl@0:   g_object_unref (dobject);
sl@0: 
sl@0:   g_message ("%s done", argv[0]);
sl@0: #ifdef __SYMBIAN32__
sl@0:   testResultXml("testgobject");
sl@0:   #endif /* EMULATOR */
sl@0:   return 0;
sl@0: }