janitorial: remove introspection dependency from library

We don't need GObject Introspection anymore now that we have removed the
various peas_extension_call() API.

We can still check for it to build our internal tests as we need it for
running those.

5 files changed, 0 insertions, 403 deletions

diff --git a/libpeas/meson.build b/libpeas/meson.build
index ecd7fb1..37f6e4d 100644
--- a/libpeas/meson.build
+++ b/libpeas/meson.build
@@ -33,7 +33,6 @@ libpeas_sources = files(
   'peas-extension-base.c',
   'peas-extension-set.c',
   'peas-i18n.c',
-  'peas-introspection.c',
   'peas-object-module.c',
   'peas-plugin-info.c',
   'peas-plugin-loader.c',
@@ -54,7 +53,6 @@ libpeas_deps = [
   gobject_dep,
   gmodule_dep,
   gio_dep,
-  introspection_dep,
 ]
 
 libpeas_c_args = [
@@ -145,7 +143,6 @@ libpeas_pc_reqs = [
   'gobject-2.0 @0@'.format(glib_req),
   'gmodule-2.0 @0@'.format(glib_req),
   'gio-2.0 @0@'.format(glib_req),
-  'gobject-introspection-1.0 @0@'.format(introspection_req),
 ]
 
 libpeas_pc = pkg.generate(
diff --git a/libpeas/peas-extension-set.c b/libpeas/peas-extension-set.c
index bb0b986..b6a471d 100644
--- a/libpeas/peas-extension-set.c
+++ b/libpeas/peas-extension-set.c
@@ -29,7 +29,6 @@
 
 #include "peas-engine-priv.h"
 #include "peas-i18n-priv.h"
-#include "peas-introspection.h"
 #include "peas-plugin-info.h"
 #include "peas-marshal.h"
 #include "peas-utils.h"
diff --git a/libpeas/peas-extension.c b/libpeas/peas-extension.c
index 642b6b6..095591b 100644
--- a/libpeas/peas-extension.c
+++ b/libpeas/peas-extension.c
@@ -56,27 +56,3 @@
  * Another reason is that it makes reference counting issues easier to deal
  * with.
  */
-GType
-peas_extension_get_type (void)
-{
-  return G_TYPE_OBJECT;
-}
-
-static G_DEFINE_QUARK (peas-extension-type, extension_type)
-
-/**
- * peas_extension_get_extension_type:
- * @exten: A #PeasExtension.
- *
- * Get the [alias@GObject.Type] of the extension proxied by @exten.
- *
- * Returns: The #GType proxied by @exten.
- *
- * Deprecated: 1.2.
- */
-GType
-peas_extension_get_extension_type (PeasExtension *exten)
-{
-  return GPOINTER_TO_SIZE (g_object_get_qdata (G_OBJECT (exten),
-                                               extension_type_quark ()));
-}
diff --git a/libpeas/peas-introspection.c b/libpeas/peas-introspection.c
deleted file mode 100644
index 8be9f48..0000000
--- a/libpeas/peas-introspection.c
+++ /dev/null
@@ -1,327 +0,0 @@
-/*
- * peas-introspection.c
- * This file is part of libpeas
- *
- * Copyright (C) 2010 Steve Frécinaux
- *
- * libpeas 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.
- *
- * libpeas 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.
- *
- * SPDX-License-Identifier: LGPL-2.1-or-later
- */
-
-#include "config.h"
-
-#include <string.h>
-
-#include "peas-introspection.h"
-
-void
-peas_gi_valist_to_arguments (GICallableInfo *callable_info,
-                             va_list         va_args,
-                             GIArgument     *arguments,
-                             gpointer       *return_value)
-{
-  gint i, n_args;
-  GIArgInfo arg_info;
-  GITypeInfo arg_type_info;
-  GITypeInfo retval_info;
-  GIArgument *cur_arg;
-
-  g_return_if_fail (callable_info != NULL);
-
-  n_args = g_callable_info_get_n_args (callable_info);
-
-  for (i = 0; i < n_args; i++)
-    {
-      g_callable_info_load_arg (callable_info, i, &arg_info);
-      g_arg_info_load_type (&arg_info, &arg_type_info);
-      cur_arg = &arguments[i];
-
-      switch (g_arg_info_get_direction (&arg_info))
-        {
-        case GI_DIRECTION_IN:
-          {
-            /* Notes: According to GCC 4.4,
-             *  - int8, uint8, int16, uint16, short and ushort are promoted to int when passed through '...'
-             *  - float is promoted to double when passed through '...'
-             */
-            switch (g_type_info_get_tag (&arg_type_info))
-              {
-              case GI_TYPE_TAG_VOID:
-                cur_arg->v_pointer = va_arg (va_args, gpointer);
-                break;
-              case GI_TYPE_TAG_BOOLEAN:
-                cur_arg->v_boolean = va_arg (va_args, gboolean);
-                break;
-              case GI_TYPE_TAG_INT8:
-                cur_arg->v_int8 = va_arg (va_args, gint);
-                break;
-              case GI_TYPE_TAG_UINT8:
-                cur_arg->v_uint8 = va_arg (va_args, gint);
-                break;
-              case GI_TYPE_TAG_INT16:
-                cur_arg->v_int16 = va_arg (va_args, gint);
-                break;
-              case GI_TYPE_TAG_UINT16:
-                cur_arg->v_uint16 = va_arg (va_args, gint);
-                break;
-              case GI_TYPE_TAG_INT32:
-                cur_arg->v_int32 = va_arg (va_args, gint32);
-                break;
-              case GI_TYPE_TAG_UNICHAR:
-              case GI_TYPE_TAG_UINT32:
-                cur_arg->v_uint32 = va_arg (va_args, guint32);
-                break;
-              case GI_TYPE_TAG_INT64:
-                cur_arg->v_int64 = va_arg (va_args, gint64);
-                break;
-              case GI_TYPE_TAG_UINT64:
-                cur_arg->v_uint64 = va_arg (va_args, guint64);
-                break;
-              case GI_TYPE_TAG_FLOAT:
-                cur_arg->v_float = va_arg (va_args, gdouble);
-                break;
-              case GI_TYPE_TAG_DOUBLE:
-                cur_arg->v_double = va_arg (va_args, gdouble);
-                break;
-              case GI_TYPE_TAG_GTYPE:
-                /* apparently, GType is meant to be a gsize, from gobject/gtype.h in glib */
-                cur_arg->v_size = va_arg (va_args, GType);
-                break;
-              case GI_TYPE_TAG_UTF8:
-              case GI_TYPE_TAG_FILENAME:
-                cur_arg->v_string = va_arg (va_args, gchar *);
-                break;
-              case GI_TYPE_TAG_ARRAY:
-              case GI_TYPE_TAG_INTERFACE:
-              case GI_TYPE_TAG_GLIST:
-              case GI_TYPE_TAG_GSLIST:
-              case GI_TYPE_TAG_GHASH:
-              case GI_TYPE_TAG_ERROR:
-                cur_arg->v_pointer = va_arg (va_args, gpointer);
-                break;
-              default:
-                g_warn_if_reached ();
-                cur_arg->v_pointer = va_arg (va_args, gpointer);
-                break;
-              }
-            break;
-          }
-        /* In the other cases, we expect we will always have a pointer. */
-        case GI_DIRECTION_INOUT:
-        case GI_DIRECTION_OUT:
-          cur_arg->v_pointer = va_arg (va_args, gpointer);
-          break;
-        }
-    }
-
-  if (return_value != NULL)
-    {
-      g_callable_info_load_return_type (callable_info, &retval_info);
-
-      if (g_type_info_get_tag (&retval_info) != GI_TYPE_TAG_VOID)
-        *return_value = va_arg (va_args, gpointer);
-      else
-        *return_value = NULL;
-    }
-}
-
-static void
-peas_gi_split_in_and_out_arguments (GICallableInfo *callable_info,
-                                    GIArgument     *args,
-                                    GIArgument     *in_args,
-                                    guint          *n_in_args,
-                                    GIArgument     *out_args,
-                                    guint          *n_out_args)
-{
-  gint n_args, i;
-  GIArgInfo arg_info;
-
-  g_return_if_fail (callable_info != NULL);
-
-  n_args = g_callable_info_get_n_args (callable_info);
-
-  for (i = 0; i < n_args; i++)
-    {
-      g_callable_info_load_arg (callable_info, i, &arg_info);
-
-      switch (g_arg_info_get_direction (&arg_info))
-        {
-        case GI_DIRECTION_IN:
-          in_args[(*n_in_args)++] = args[i];
-          break;
-        case GI_DIRECTION_INOUT:
-          in_args[(*n_in_args)++] = args[i];
-          out_args[(*n_out_args)++] = args[i];
-          break;
-        case GI_DIRECTION_OUT:
-          out_args[(*n_out_args)++] = args[i];
-          break;
-        }
-    }
-}
-
-void
-peas_gi_argument_to_pointer (GITypeInfo     *type_info,
-                             GIArgument     *arg,
-                             gpointer        ptr)
-{
-  switch (g_type_info_get_tag (type_info))
-    {
-    case GI_TYPE_TAG_VOID:
-      *((gpointer **) ptr) = arg->v_pointer;
-      break;
-    case GI_TYPE_TAG_BOOLEAN:
-      *((gboolean *) ptr) = arg->v_boolean;
-      break;
-    case GI_TYPE_TAG_INT8:
-      *((gint8 *) ptr) = arg->v_int8;
-      break;
-    case GI_TYPE_TAG_UINT8:
-      *((guint8 *) ptr) = arg->v_uint8;
-      break;
-    case GI_TYPE_TAG_INT16:
-      *((gint16 *) ptr) = arg->v_int16;
-      break;
-    case GI_TYPE_TAG_UINT16:
-      *((guint16 *) ptr) = arg->v_uint16;
-      break;
-    case GI_TYPE_TAG_INT32:
-      *((gint32 *) ptr) = arg->v_int32;
-      break;
-    case GI_TYPE_TAG_UNICHAR:
-    case GI_TYPE_TAG_UINT32:
-      *((guint32 *) ptr) = arg->v_uint32;
-      break;
-    case GI_TYPE_TAG_INT64:
-      *((gint64 *) ptr) = arg->v_int64;
-      break;
-    case GI_TYPE_TAG_UINT64:
-      *((guint64 *) ptr) = arg->v_uint64;
-      break;
-    case GI_TYPE_TAG_FLOAT:
-      *((gfloat *) ptr) = arg->v_float;
-      break;
-    case GI_TYPE_TAG_DOUBLE:
-      *((gdouble *) ptr) = arg->v_double;
-      break;
-    case GI_TYPE_TAG_GTYPE:
-      /* apparently, GType is meant to be a gsize, from gobject/gtype.h in glib */
-      *((gsize *) ptr) = arg->v_size;
-      break;
-    case GI_TYPE_TAG_UTF8:
-    case GI_TYPE_TAG_FILENAME:
-      *((gchar **) ptr) = arg->v_string;
-      break;
-    case GI_TYPE_TAG_ARRAY:
-    case GI_TYPE_TAG_INTERFACE:
-    case GI_TYPE_TAG_GLIST:
-    case GI_TYPE_TAG_GSLIST:
-    case GI_TYPE_TAG_GHASH:
-    case GI_TYPE_TAG_ERROR:
-      *((gpointer **) ptr) = arg->v_pointer;
-      break;
-    default:
-      g_return_if_reached ();
-    }
-}
-
-GICallableInfo *
-peas_gi_get_method_info (GType        gtype,
-                         const gchar *method_name)
-{
-  GIRepository *repo;
-  GIBaseInfo *type_info;
-  GIFunctionInfo *func_info;
-
-  repo = g_irepository_get_default ();
-  type_info = g_irepository_find_by_gtype (repo, gtype);
-  if (type_info == NULL)
-    {
-      g_warning ("Type not found in introspection: '%s'",
-                 g_type_name (gtype));
-      return NULL;
-    }
-
-  switch (g_base_info_get_type (type_info))
-    {
-    case GI_INFO_TYPE_OBJECT:
-      func_info = g_object_info_find_method ((GIObjectInfo *) type_info,
-                                             method_name);
-      break;
-    case GI_INFO_TYPE_INTERFACE:
-      func_info = g_interface_info_find_method ((GIInterfaceInfo *) type_info,
-                                                method_name);
-      break;
-    default:
-      func_info = NULL;
-    }
-
-  g_base_info_unref (type_info);
-  return (GICallableInfo *) func_info;
-}
-
-gboolean
-peas_gi_method_call (GObject        *instance,
-                     GICallableInfo *func_info,
-                     GType           gtype,
-                     const gchar    *method_name,
-                     GIArgument     *args,
-                     GIArgument     *return_value)
-{
-  gint n_args;
-  guint n_in_args, n_out_args;
-  GIArgument *in_args, *out_args;
-  gboolean ret = TRUE;
-  GError *error = NULL;
-
-  g_return_val_if_fail (G_IS_OBJECT (instance), FALSE);
-  g_return_val_if_fail (func_info != NULL, FALSE);
-  g_return_val_if_fail (G_TYPE_IS_INTERFACE (gtype) ||
-                        G_TYPE_IS_ABSTRACT (gtype), FALSE);
-  g_return_val_if_fail (G_TYPE_CHECK_INSTANCE_TYPE (instance, gtype),
-                        FALSE);
-  g_return_val_if_fail (method_name != NULL, FALSE);
-
-  n_args = g_callable_info_get_n_args (func_info);
-  g_return_val_if_fail (n_args >= 0, FALSE);
-  n_in_args = 0;
-  n_out_args = 0;
-
-  in_args = g_newa (GIArgument, n_args + 1);
-  out_args = g_newa (GIArgument, n_args);
-
-  peas_gi_split_in_and_out_arguments (func_info, args,
-                                      in_args+1, &n_in_args,
-                                      out_args, &n_out_args);
-
-  /* Set the object as the first argument for the method. */
-  in_args[0].v_pointer = instance;
-  n_in_args++;
-
-  g_debug ("Calling '%s.%s' on '%p'",
-           g_type_name (gtype), method_name, instance);
-
-  ret = g_function_info_invoke (func_info, in_args, n_in_args, out_args,
-                                n_out_args, return_value, &error);
-  if (!ret)
-    {
-      g_warning ("Error while calling '%s.%s': %s",
-                 g_type_name (gtype), method_name, error->message);
-      g_error_free (error);
-    }
-
-  return ret;
-}
diff --git a/libpeas/peas-introspection.h b/libpeas/peas-introspection.h
deleted file mode 100644
index 021227e..0000000
--- a/libpeas/peas-introspection.h
+++ /dev/null
@@ -1,48 +0,0 @@
-/*
- * peas-introspection.h
- * This file is part of libpeas
- *
- * Copyright (C) 2010 Steve Frécinaux
- *
- * libpeas 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.
- *
- * libpeas 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.
- *
- * SPDX-License-Identifier: LGPL-2.1-or-later
- */
-
-#pragma once
-
-#include <glib-object.h>
-#include <girepository.h>
-
-G_BEGIN_DECLS
-
-GICallableInfo  *peas_gi_get_method_info          (GType           gtype,
-                                                   const gchar    *method_name);
-
-void             peas_gi_valist_to_arguments      (GICallableInfo *callable_info,
-                                                   va_list         va_args,
-                                                   GIArgument     *arguments,
-                                                   gpointer       *return_value);
-void             peas_gi_argument_to_pointer      (GITypeInfo     *type_info,
-                                                   GIArgument     *arg,
-                                                   gpointer        ptr);
-gboolean         peas_gi_method_call              (GObject        *instance,
-                                                   GICallableInfo *method_info,
-                                                   GType           gtype,
-                                                   const gchar    *method_name,
-                                                   GIArgument     *args,
-                                                   GIArgument     *return_value);
-
-G_END_DECLS