sl@0: /* GObject - GLib Type, Object, Parameter and Signal Library
sl@0:  * override.c: Closure override test program
sl@0:  * Copyright (C) 2001, James Henstridge
sl@0:  * Copyright (C) 2003, Red Hat, Inc.
sl@0:  * Portion Copyright © 2008 Nokia Corporation and/or its subsidiary(-ies). 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: #undef	G_LOG_DOMAIN
sl@0: #define	G_LOG_DOMAIN "TestOverride"
sl@0: 
sl@0: #undef G_DISABLE_ASSERT
sl@0: #undef G_DISABLE_CHECKS
sl@0: #undef G_DISABLE_CAST_CHECKS
sl@0: 
sl@0: #undef VERBOSE
sl@0: 
sl@0: #include <string.h>
sl@0: 
sl@0: #include <glib.h>
sl@0: #include <glib-object.h>
sl@0: 
sl@0: #include "testcommon.h"
sl@0: #ifdef SYMBIAN
sl@0:   #include "mrt2_glib2_test.h"
sl@0:   #endif /*SYMBIAN*/
sl@0: 
sl@0: static guint foo_signal_id = 0;
sl@0: static guint bar_signal_id = 0;
sl@0: 
sl@0: static GType test_i_get_type (void);
sl@0: static GType test_a_get_type (void);
sl@0: static GType test_b_get_type (void);
sl@0: static GType test_c_get_type (void);
sl@0: 
sl@0: static void  record (const gchar *str);
sl@0: 
sl@0: #define TEST_TYPE_I (test_i_get_type ())
sl@0: 
sl@0: typedef struct _TestI TestI;
sl@0: typedef struct _TestIClass TestIClass;
sl@0: 
sl@0: struct _TestIClass
sl@0: {
sl@0:   GTypeInterface base_iface;
sl@0: };
sl@0: 
sl@0: static void
sl@0: test_i_foo (TestI *self)
sl@0: {
sl@0:   record ("TestI::foo");
sl@0: }
sl@0: 
sl@0: static void
sl@0: test_i_default_init (gpointer g_class)
sl@0: {
sl@0:   foo_signal_id = g_signal_newv ("foo",
sl@0: 				 TEST_TYPE_I,
sl@0: 				 G_SIGNAL_RUN_LAST,
sl@0: 				 g_cclosure_new(G_CALLBACK(test_i_foo),
sl@0: 						NULL, NULL),
sl@0: 				 NULL, NULL,
sl@0: 				 g_cclosure_marshal_VOID__VOID,
sl@0: 				 G_TYPE_NONE, 0, NULL);
sl@0: }
sl@0: 
sl@0: static DEFINE_IFACE (TestI, test_i, NULL, test_i_default_init)
sl@0: 
sl@0: #define TEST_TYPE_A (test_a_get_type())
sl@0: 
sl@0:      typedef struct _TestA TestA;
sl@0:      typedef struct _TestAClass TestAClass;
sl@0: 
sl@0: struct _TestA {
sl@0:   GObject parent;
sl@0: };
sl@0: struct _TestAClass {
sl@0:   GObjectClass parent_class;
sl@0: 
sl@0:   void (* bar) (TestA *self);
sl@0: };
sl@0: 
sl@0: static void
sl@0: test_a_foo (TestI *self)
sl@0: {
sl@0:   GValue args[1] = { { 0, } };
sl@0: 
sl@0:   record ("TestA::foo");
sl@0: 
sl@0:   g_value_init (&args[0], TEST_TYPE_A);
sl@0:   g_value_set_object (&args[0], self);
sl@0: 
sl@0:   g_assert (g_signal_get_invocation_hint (self)->signal_id == foo_signal_id);
sl@0:   g_signal_chain_from_overridden (args, NULL);
sl@0: 
sl@0:   g_value_unset (&args[0]);
sl@0: }
sl@0: 
sl@0: static void
sl@0: test_a_bar (TestA *self)
sl@0: {
sl@0:   record ("TestA::bar");
sl@0: }
sl@0: 
sl@0: static void
sl@0: test_a_class_init (TestAClass *class)
sl@0: {
sl@0:   class->bar = test_a_bar;
sl@0: 
sl@0:   bar_signal_id = g_signal_new ("bar",
sl@0: 				TEST_TYPE_A,
sl@0: 				G_SIGNAL_RUN_LAST,
sl@0: 				G_STRUCT_OFFSET (TestAClass, bar),
sl@0: 				NULL, NULL,
sl@0: 				g_cclosure_marshal_VOID__VOID,
sl@0: 				G_TYPE_NONE, 0, NULL);
sl@0: }
sl@0: 
sl@0: static void
sl@0: test_a_interface_init (TestIClass *iface)
sl@0: {
sl@0:   g_signal_override_class_closure (foo_signal_id,
sl@0: 				   TEST_TYPE_A,
sl@0: 				   g_cclosure_new (G_CALLBACK (test_a_foo),
sl@0: 						   NULL, NULL));
sl@0: }
sl@0: 
sl@0: static DEFINE_TYPE_FULL (TestA, test_a,
sl@0: 			 test_a_class_init, NULL, NULL,
sl@0: 			 G_TYPE_OBJECT,
sl@0: 			 INTERFACE (test_a_interface_init, TEST_TYPE_I))
sl@0:      
sl@0: #define TEST_TYPE_B (test_b_get_type())
sl@0: 
sl@0: typedef struct _TestB TestB;
sl@0: typedef struct _TestBClass TestBClass;
sl@0: 
sl@0: struct _TestB {
sl@0:   TestA parent;
sl@0: };
sl@0: struct _TestBClass {
sl@0:   TestAClass parent_class;
sl@0: };
sl@0: 
sl@0: static void
sl@0: test_b_foo (TestA *self)
sl@0: {
sl@0:   GValue args[1] = { { 0, } };
sl@0: 
sl@0:   record ("TestB::foo");
sl@0: 
sl@0:   g_value_init (&args[0], TEST_TYPE_A);
sl@0:   g_value_set_object (&args[0], self);
sl@0: 
sl@0:   g_assert (g_signal_get_invocation_hint (self)->signal_id == foo_signal_id);
sl@0:   g_signal_chain_from_overridden (args, NULL);
sl@0: 
sl@0:   g_value_unset (&args[0]);
sl@0: }
sl@0: 
sl@0: static void
sl@0: test_b_bar (TestI *self)
sl@0: {
sl@0:   GValue args[1] = { { 0, } };
sl@0: 
sl@0:   record ("TestB::bar");
sl@0: 
sl@0:   g_value_init (&args[0], TEST_TYPE_A);
sl@0:   g_value_set_object (&args[0], self);
sl@0: 
sl@0:   g_assert (g_signal_get_invocation_hint (self)->signal_id == bar_signal_id);
sl@0:   g_signal_chain_from_overridden (args, NULL);
sl@0: 
sl@0:   g_value_unset (&args[0]);
sl@0: }
sl@0: 
sl@0: static void
sl@0: test_b_class_init (TestBClass *class)
sl@0: {
sl@0:   g_signal_override_class_closure (foo_signal_id,
sl@0: 				   TEST_TYPE_B,
sl@0: 				   g_cclosure_new (G_CALLBACK (test_b_foo),
sl@0: 						   NULL, NULL));
sl@0:   g_signal_override_class_closure (bar_signal_id,
sl@0: 				   TEST_TYPE_B,
sl@0: 				   g_cclosure_new (G_CALLBACK (test_b_bar),
sl@0: 						   NULL, NULL));
sl@0: }
sl@0: 
sl@0: static DEFINE_TYPE (TestB, test_b,
sl@0: 		    test_b_class_init, NULL, NULL,
sl@0: 		    TEST_TYPE_A)
sl@0: 
sl@0: #define TEST_TYPE_C (test_c_get_type())
sl@0: 
sl@0: typedef struct _TestC TestC;
sl@0: typedef struct _TestCClass TestCClass;
sl@0: 
sl@0: struct _TestC {
sl@0:   TestB parent;
sl@0: };
sl@0: struct _TestCClass {
sl@0:   TestBClass parent_class;
sl@0: };
sl@0: 
sl@0: static void
sl@0: test_c_foo (TestA *self)
sl@0: {
sl@0:   GValue args[1] = { { 0, } };
sl@0: 
sl@0:   record ("TestC::foo");
sl@0: 
sl@0:   g_value_init (&args[0], TEST_TYPE_A);
sl@0:   g_value_set_object (&args[0], self);
sl@0: 
sl@0:   g_assert (g_signal_get_invocation_hint (self)->signal_id == foo_signal_id);
sl@0:   g_signal_chain_from_overridden (args, NULL);
sl@0: 
sl@0:   g_value_unset (&args[0]);
sl@0: }
sl@0: 
sl@0: static void
sl@0: test_c_bar (TestI *self)
sl@0: {
sl@0:   GValue args[1] = { { 0, } };
sl@0: 
sl@0:   record ("TestC::bar");
sl@0: 
sl@0:   g_value_init (&args[0], TEST_TYPE_A);
sl@0:   g_value_set_object (&args[0], self);
sl@0: 
sl@0:   g_assert (g_signal_get_invocation_hint (self)->signal_id == bar_signal_id);
sl@0:   g_signal_chain_from_overridden (args, NULL);
sl@0: 
sl@0:   g_value_unset (&args[0]);
sl@0: }
sl@0: 
sl@0: static void
sl@0: test_c_class_init (TestBClass *class)
sl@0: {
sl@0:   g_signal_override_class_closure (foo_signal_id,
sl@0: 				   TEST_TYPE_C,
sl@0: 				   g_cclosure_new (G_CALLBACK (test_c_foo),
sl@0: 						   NULL, NULL));
sl@0:   g_signal_override_class_closure (bar_signal_id,
sl@0: 				   TEST_TYPE_C,
sl@0: 				   g_cclosure_new (G_CALLBACK (test_c_bar),
sl@0: 						   NULL, NULL));
sl@0: }
sl@0: 
sl@0: 
sl@0: static DEFINE_TYPE (TestC, test_c,
sl@0: 		    test_c_class_init, NULL, NULL,
sl@0: 		    TEST_TYPE_B)
sl@0: 
sl@0: static GString *test_string = NULL;
sl@0: gboolean failed = FALSE;
sl@0:      
sl@0: static void
sl@0: record (const gchar *str)
sl@0: {
sl@0:   if (test_string->len)
sl@0:     g_string_append_c (test_string, ',');
sl@0:   g_string_append (test_string, str);
sl@0: }
sl@0:      
sl@0: static void
sl@0: test (GType        type,
sl@0:       const gchar *signal,
sl@0:       const gchar *expected)
sl@0: {
sl@0:   GObject *self = g_object_new (type, NULL);
sl@0: 
sl@0:   test_string = g_string_new (NULL);
sl@0: 
sl@0:   g_signal_emit_by_name (self, signal, 0);
sl@0: 
sl@0: #ifndef VERBOSE
sl@0:   if (strcmp (test_string->str, expected) != 0)
sl@0: #endif
sl@0:     {
sl@0:       g_printerr ("*** emitting %s on a %s instance\n"
sl@0: 		  "    Expecting: %s\n"
sl@0: 		  "    Got: %s\n",
sl@0: 		  signal, g_type_name (type),
sl@0: 		  expected,
sl@0: 		  test_string->str);
sl@0:       
sl@0:       if (strcmp (test_string->str, expected) != 0)
sl@0: 	failed = TRUE;
sl@0:     }
sl@0: 
sl@0:   g_string_free (test_string, TRUE);
sl@0: }
sl@0:      
sl@0: int
sl@0: main (int argc, char **argv)
sl@0: {
sl@0: #ifdef SYMBIAN
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 /*SYMBIAN*/
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();
sl@0: 
sl@0:   test (TEST_TYPE_A, "foo", "TestA::foo,TestI::foo");
sl@0:   test (TEST_TYPE_A, "bar", "TestA::bar");
sl@0: 
sl@0:   test (TEST_TYPE_B, "foo", "TestB::foo,TestA::foo,TestI::foo");
sl@0:   test (TEST_TYPE_B, "bar", "TestB::bar,TestA::bar");
sl@0: 
sl@0:   test (TEST_TYPE_C, "foo", "TestC::foo,TestB::foo,TestA::foo,TestI::foo");
sl@0:   test (TEST_TYPE_C, "bar", "TestC::bar,TestB::bar,TestA::bar");
sl@0: 
sl@0:   
sl@0:   #ifdef SYMBIAN
sl@0:   testResultXml("override");
sl@0:   #endif /*SYMBIAN*/
sl@0:   return failed ? 1 : 0;
sl@0: }