gobject/testgobject.c

   1 /* GObject - GLib Type, Object, Parameter and Signal Library
   2  * Copyright (C) 2001 Red Hat, Inc.
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General
  15  * Public License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  17  * Boston, MA 02111-1307, USA.
  18  */
  19
  20 #include <string.h>
  21
  22 #undef  G_LOG_DOMAIN
  23 #define G_LOG_DOMAIN "TestObject"
  24 #include        <glib-object.h>
  25
  26 /* --- TestIface --- */
  27 #define TEST_TYPE_IFACE           (test_iface_get_type ())
  28 #define TEST_IFACE(obj)           (G_TYPE_CHECK_INSTANCE_CAST ((obj), TEST_TYPE_IFACE, TestIface))
  29 #define TEST_IS_IFACE(obj)        (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TEST_TYPE_IFACE))
  30 #define TEST_IFACE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_INTERFACE ((obj), TEST_TYPE_IFACE, TestIfaceClass))
  31 typedef struct _TestIface      TestIface;
  32 typedef struct _TestIfaceClass TestIfaceClass;
  33 struct _TestIfaceClass
  34 {
  35   GTypeInterface base_iface;
  36   void  (*print_string) (TestIface      *tiobj,
  37                          const gchar    *string);
  38 };
  39 static void     iface_base_init         (TestIfaceClass *iface);
  40 static void     iface_base_finalize     (TestIfaceClass *iface);
  41 static void     print_foo               (TestIface      *tiobj,
  42                                          const gchar    *string);
  43 static GType
  44 test_iface_get_type (void)
  45 {
  46   static GType test_iface_type = 0;
  47
  48   if (!test_iface_type)
  49     {
  50       const GTypeInfo test_iface_info =
  51       {
  52         sizeof (TestIfaceClass),
  53         (GBaseInitFunc) iface_base_init,                /* base_init */
  54         (GBaseFinalizeFunc) iface_base_finalize,        /* base_finalize */
  55       };
  56
  57       test_iface_type = g_type_register_static (G_TYPE_INTERFACE, "TestIface", &test_iface_info, 0);
  58       g_type_interface_add_prerequisite (test_iface_type, G_TYPE_OBJECT);
  59     }
  60
  61   return test_iface_type;
  62 }
  63 static guint iface_base_init_count = 0;
  64 static void
  65 iface_base_init (TestIfaceClass *iface)
  66 {
  67   iface_base_init_count++;
  68   if (iface_base_init_count == 1)
  69     {
  70       /* add signals here */
  71     }
  72 }
  73 static void
  74 iface_base_finalize (TestIfaceClass *iface)
  75 {
  76   iface_base_init_count--;
  77   if (iface_base_init_count == 0)
  78     {
  79       /* destroy signals here */
  80     }
  81 }
  82 static void
  83 print_foo (TestIface   *tiobj,
  84            const gchar *string)
  85 {
  86   if (!string)
  87     string = "<NULL>";
  88   g_print ("Iface-FOO: \"%s\" from %p\n", string, tiobj);
  89 }
  90 static void
  91 test_object_test_iface_init (gpointer giface,
  92                              gpointer iface_data)
  93 {
  94   TestIfaceClass *iface = giface;
  95
  96   g_assert (iface_data == GUINT_TO_POINTER (42));
  97
  98   g_assert (G_TYPE_FROM_INTERFACE (iface) == TEST_TYPE_IFACE);
  99
 100   /* assert iface_base_init() was already called */
 101   g_assert (iface_base_init_count > 0);
 102
 103   /* initialize stuff */
 104   iface->print_string = print_foo;
 105 }
 106 static void
 107 iface_print_string (TestIface   *tiobj,
 108                     const gchar *string)
 109 {
 110   TestIfaceClass *iface;
 111
 112   g_return_if_fail (TEST_IS_IFACE (tiobj));
 113   g_return_if_fail (G_IS_OBJECT (tiobj)); /* ensured through prerequisite */
 114
 115   iface = TEST_IFACE_GET_CLASS (tiobj);
 116   g_object_ref (tiobj);
 117   iface->print_string (tiobj, string);
 118   g_object_unref (tiobj);
 119 }
 120
 121
 122 /* --- TestObject --- */
 123 #define TEST_TYPE_OBJECT            (test_object_get_type ())
 124 #define TEST_OBJECT(object)         (G_TYPE_CHECK_INSTANCE_CAST ((object), TEST_TYPE_OBJECT, TestObject))
 125 #define TEST_OBJECT_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST ((klass), TEST_TYPE_OBJECT, TestObjectClass))
 126 #define TEST_IS_OBJECT(object)      (G_TYPE_CHECK_INSTANCE_TYPE ((object), TEST_TYPE_OBJECT))
 127 #define TEST_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), TEST_TYPE_OBJECT))
 128 #define TEST_OBJECT_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS ((obj), TEST_TYPE_OBJECT, TestObjectClass))
 129 #define TEST_OBJECT_GET_PRIVATE(o)  (G_TYPE_INSTANCE_GET_PRIVATE ((o), TEST_TYPE_OBJECT, TestObjectPrivate))
 130 typedef struct _TestObject        TestObject;
 131 typedef struct _TestObjectClass   TestObjectClass;
 132 typedef struct _TestObjectPrivate TestObjectPrivate;
 133 struct _TestObject
 134 {
 135   GObject parent_instance;
 136 };
 137 struct _TestObjectClass
 138 {
 139   GObjectClass parent_class;
 140
 141   gchar* (*test_signal) (TestObject *tobject,
 142                          TestIface  *iface_object,
 143                          gpointer    tdata);
 144 };
 145 struct _TestObjectPrivate
 146 {
 147   int     dummy1;
 148   gdouble dummy2;
 149 };
 150 static void     test_object_class_init  (TestObjectClass        *class);
 151 static void     test_object_init        (TestObject             *tobject);
 152 static gboolean test_signal_accumulator (GSignalInvocationHint  *ihint,
 153                                          GValue                 *return_accu,
 154                                          const GValue           *handler_return,
 155                                          gpointer                data);
 156 static gchar*   test_object_test_signal (TestObject             *tobject,
 157                                          TestIface              *iface_object,
 158                                          gpointer                tdata);
 159 static GType
 160 test_object_get_type (void)
 161 {
 162   static GType test_object_type = 0;
 163
 164   if (!test_object_type)
 165     {
 166       const GTypeInfo test_object_info =
 167       {
 168         sizeof (TestObjectClass),
 169         NULL,           /* base_init */
 170         NULL,           /* base_finalize */
 171         (GClassInitFunc) test_object_class_init,
 172         NULL,           /* class_finalize */
 173         NULL,           /* class_data */
 174         sizeof (TestObject),
 175         5,              /* n_preallocs */
 176         (GInstanceInitFunc) test_object_init,
 177       };
 178       GInterfaceInfo iface_info = { test_object_test_iface_init, NULL, GUINT_TO_POINTER (42) };
 179
 180       test_object_type = g_type_register_static (G_TYPE_OBJECT, "TestObject", &test_object_info, 0);
 181       g_type_add_interface_static (test_object_type, TEST_TYPE_IFACE, &iface_info);
 182     }
 183
 184   return test_object_type;
 185 }
 186 static void
 187 test_object_class_init (TestObjectClass *class)
 188 {
 189   /*  GObjectClass *gobject_class = G_OBJECT_CLASS (class); */
 190
 191   class->test_signal = test_object_test_signal;
 192
 193   g_signal_new ("test-signal",
 194                 G_OBJECT_CLASS_TYPE (class),
 195                 G_SIGNAL_RUN_FIRST | G_SIGNAL_RUN_LAST | G_SIGNAL_RUN_CLEANUP,
 196                 G_STRUCT_OFFSET (TestObjectClass, test_signal),
 197                 test_signal_accumulator, NULL,
 198                 g_cclosure_marshal_STRING__OBJECT_POINTER,
 199                 G_TYPE_STRING, 2, TEST_TYPE_IFACE, G_TYPE_POINTER);
 200
 201   g_type_class_add_private (class, sizeof (TestObjectPrivate));
 202 }
 203 static void
 204 test_object_init (TestObject *tobject)
 205 {
 206   TestObjectPrivate *priv;
 207
 208   priv = TEST_OBJECT_GET_PRIVATE (tobject);
 209
 210   g_assert (priv);
 211   g_assert ((gchar *)priv >= (gchar *)tobject + sizeof (TestObject));
 212
 213   priv->dummy1 = 54321;
 214 }
 215 /* Check to see if private data initialization in the
 216  * instance init function works.
 217  */
 218 static void
 219 test_object_check_private_init (TestObject *tobject)
 220 {
 221   TestObjectPrivate *priv;
 222
 223   priv = TEST_OBJECT_GET_PRIVATE (tobject);
 224
 225   g_print ("private data during initialization: %u == %u\n", priv->dummy1, 54321);
 226   g_assert (priv->dummy1 == 54321);
 227 }
 228 static gboolean
 229 test_signal_accumulator (GSignalInvocationHint *ihint,
 230                          GValue                *return_accu,
 231                          const GValue          *handler_return,
 232                          gpointer               data)
 233 {
 234   const gchar *accu_string = g_value_get_string (return_accu);
 235   const gchar *new_string = g_value_get_string (handler_return);
 236   gchar *result_string;
 237
 238   if (accu_string)
 239     result_string = g_strconcat (accu_string, new_string, NULL);
 240   else if (new_string)
 241     result_string = g_strdup (new_string);
 242   else
 243     result_string = NULL;
 244
 245   g_value_take_string (return_accu, result_string);
 246
 247   return TRUE;
 248 }
 249 static gchar*
 250 test_object_test_signal (TestObject *tobject,
 251                          TestIface  *iface_object,
 252                          gpointer    tdata)
 253 {
 254   g_message ("::test_signal default_handler called");
 255
 256   g_return_val_if_fail (TEST_IS_IFACE (iface_object), NULL);
 257
 258   return g_strdup ("<default_handler>");
 259 }
 260
 261
 262 /* --- TestIface for DerivedObject --- */
 263 static void
 264 print_bar (TestIface   *tiobj,
 265            const gchar *string)
 266 {
 267   TestIfaceClass *parent_iface;
 268
 269   g_return_if_fail (TEST_IS_IFACE (tiobj));
 270
 271   if (!string)
 272     string = "<NULL>";
 273   g_print ("Iface-BAR: \"%s\" from %p\n", string, tiobj);
 274
 275   g_print ("chaining: ");
 276   parent_iface = g_type_interface_peek_parent (TEST_IFACE_GET_CLASS (tiobj));
 277   parent_iface->print_string (tiobj, string);
 278
 279   g_assert (g_type_interface_peek_parent (parent_iface) == NULL);
 280 }
 281
 282 static void
 283 derived_object_test_iface_init (gpointer giface,
 284                                 gpointer iface_data)
 285 {
 286   TestIfaceClass *iface = giface;
 287
 288   g_assert (iface_data == GUINT_TO_POINTER (87));
 289
 290   g_assert (G_TYPE_FROM_INTERFACE (iface) == TEST_TYPE_IFACE);
 291
 292   /* assert test_object_test_iface_init() was already called */
 293   g_assert (iface->print_string == print_foo);
 294
 295   /* override stuff */
 296   iface->print_string = print_bar;
 297 }
 298
 299
 300 /* --- DerivedObject --- */
 301 #define DERIVED_TYPE_OBJECT            (derived_object_get_type ())
 302 #define DERIVED_OBJECT(object)         (G_TYPE_CHECK_INSTANCE_CAST ((object), DERIVED_TYPE_OBJECT, DerivedObject))
 303 #define DERIVED_OBJECT_CLASS(klass)    (G_TYPE_CHECK_CLASS_CAST ((klass), DERIVED_TYPE_OBJECT, DerivedObjectClass))
 304 #define DERIVED_IS_OBJECT(object)      (G_TYPE_CHECK_INSTANCE_TYPE ((object), DERIVED_TYPE_OBJECT))
 305 #define DERIVED_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DERIVED_TYPE_OBJECT))
 306 #define DERIVED_OBJECT_GET_CLASS(obj)  (G_TYPE_INSTANCE_GET_CLASS ((obj), DERIVED_TYPE_OBJECT, DerivedObjectClass))
 307 #define DERIVED_OBJECT_GET_PRIVATE(o)  (G_TYPE_INSTANCE_GET_PRIVATE ((o), DERIVED_TYPE_OBJECT, DerivedObjectPrivate))
 308 typedef struct _DerivedObject        DerivedObject;
 309 typedef struct _TestObjectClass      DerivedObjectClass;
 310 typedef struct _DerivedObjectPrivate DerivedObjectPrivate;
 311 struct _DerivedObject
 312 {
 313   TestObject parent_instance;
 314   int  dummy1;
 315   int  dummy2;
 316 };
 317 struct _DerivedObjectPrivate
 318 {
 319   char dummy;
 320 };
 321 static void derived_object_class_init (DerivedObjectClass *class);
 322 static void derived_object_init       (DerivedObject      *dobject);
 323 static GType
 324 derived_object_get_type (void)
 325 {
 326   static GType derived_object_type = 0;
 327
 328   if (!derived_object_type)
 329     {
 330       const GTypeInfo derived_object_info =
 331       {
 332         sizeof (DerivedObjectClass),
 333         NULL,           /* base_init */
 334         NULL,           /* base_finalize */
 335         (GClassInitFunc) derived_object_class_init,
 336         NULL,           /* class_finalize */
 337         NULL,           /* class_data */
 338         sizeof (DerivedObject),
 339         5,              /* n_preallocs */
 340         (GInstanceInitFunc) derived_object_init,
 341       };
 342       GInterfaceInfo iface_info = { derived_object_test_iface_init, NULL, GUINT_TO_POINTER (87) };
 343
 344       derived_object_type = g_type_register_static (TEST_TYPE_OBJECT, "DerivedObject", &derived_object_info, 0);
 345       g_type_add_interface_static (derived_object_type, TEST_TYPE_IFACE, &iface_info);
 346     }
 347
 348   return derived_object_type;
 349 }
 350 static void
 351 derived_object_class_init (DerivedObjectClass *class)
 352 {
 353   g_type_class_add_private (class, sizeof (DerivedObjectPrivate));
 354 }
 355 static void
 356 derived_object_init (DerivedObject *dobject)
 357 {
 358   TestObjectPrivate *test_priv;
 359   DerivedObjectPrivate *derived_priv;
 360
 361   derived_priv = DERIVED_OBJECT_GET_PRIVATE (dobject);
 362
 363   g_assert (derived_priv);
 364   g_assert ((gchar *)derived_priv >= (gchar *)TEST_OBJECT_GET_PRIVATE (dobject) + sizeof (TestObjectPrivate));
 365
 366   test_priv = TEST_OBJECT_GET_PRIVATE (dobject);
 367
 368   g_assert (test_priv);
 369   g_assert ((gchar *)test_priv >= (gchar *)dobject + sizeof (TestObject));
 370
 371 }
 372
 373 /* --- main --- */
 374 int
 375 main (int   argc,
 376       char *argv[])
 377 {
 378   GTypeInfo info = { 0, };
 379   GTypeFundamentalInfo finfo = { 0, };
 380   GType type;
 381   TestObject *sigarg;
 382   DerivedObject *dobject;
 383   TestObjectPrivate *priv;
 384   gchar *string = NULL;
 385
 386   g_log_set_always_fatal (g_log_set_always_fatal (G_LOG_FATAL_MASK) |
 387                           G_LOG_LEVEL_WARNING |
 388                           G_LOG_LEVEL_CRITICAL);
 389
 390   /* test new fundamentals */
 391   g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST) == g_type_fundamental_next ());
 392   type = g_type_register_fundamental (g_type_fundamental_next (), "FooShadow1", &info, &finfo, 0);
 393   g_assert (type == G_TYPE_RESERVED_USER_FIRST);
 394   g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 1) == g_type_fundamental_next ());
 395   type = g_type_register_fundamental (g_type_fundamental_next (), "FooShadow2", &info, &finfo, 0);
 396   g_assert (type == G_TYPE_RESERVED_USER_FIRST + 1);
 397   g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 2) == g_type_fundamental_next ());
 398   g_assert (g_type_from_name ("FooShadow1") == G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST));
 399   g_assert (g_type_from_name ("FooShadow2") == G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 1));
 400
 401   /* to test past class initialization interface setups, create the class here */
 402   g_type_class_ref (TEST_TYPE_OBJECT);
 403
 404   dobject = g_object_new (DERIVED_TYPE_OBJECT, NULL);
 405   test_object_check_private_init (TEST_OBJECT (dobject));
 406
 407   sigarg = g_object_new (TEST_TYPE_OBJECT, NULL);
 408
 409   g_print ("MAIN: emit test-signal:\n");
 410   g_signal_emit_by_name (dobject, "test-signal", sigarg, NULL, &string);
 411   g_message ("signal return: \"%s\"", string);
 412   g_assert (strcmp (string, "<default_handler><default_handler>") == 0);
 413   g_free (string);
 414
 415   g_print ("MAIN: call iface print-string on test and derived object:\n");
 416   iface_print_string (TEST_IFACE (sigarg), "iface-string-from-test-type");
 417   iface_print_string (TEST_IFACE (dobject), "iface-string-from-derived-type");
 418
 419   priv = TEST_OBJECT_GET_PRIVATE (dobject);
 420   g_print ("private data after initialization: %u == %u\n", priv->dummy1, 54321);
 421   g_assert (priv->dummy1 == 54321);
 422
 423   g_object_unref (sigarg);
 424   g_object_unref (dobject);
 425
 426   g_message ("%s done", argv[0]);
 427
 428   return 0;
 429 }