gplugin/gplugin

Add gir targets to the dependencies sources attribute and other meson cleanups.

2021-09-25, Gary Kramlich
476c9cac712b
Add gir targets to the dependencies sources attribute and other meson cleanups.

Adding the gir targs to the dependency object of the library allows us to be
able to use the dependency in a gnome.generate_gir for a library that consumes
our api regardless of if it's a system install or a subproject.

Testing Done:
Modified the gplugin subproject in pidgin and used these changes to verify that it fixed the current build issues over there.

Reviewed at https://reviews.imfreedom.org/r/939/
/*
* Copyright (C) 2011-2020 Gary Kramlich <grim@reaperworld.com>
*
* 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, see <https://www.gnu.org/licenses/>.
*/
#include "gplugin-perl5-plugin.h"
/******************************************************************************
* Typedefs
*****************************************************************************/
struct _GPluginPerlPlugin {
GObject parent;
PerlInterpreter *interpreter;
/* overrides */
gchar *filename;
GPluginLoader *loader;
GPluginPluginInfo *info;
GPluginPluginState state;
GError *error;
};
/******************************************************************************
* Enums
*****************************************************************************/
enum {
PROP_ZERO,
PROP_INTERPRETER,
N_PROPERTIES,
/* overrides */
PROP_FILENAME = N_PROPERTIES,
PROP_LOADER,
PROP_INFO,
PROP_STATE,
PROP_ERROR,
};
static GParamSpec *properties[N_PROPERTIES] = {
NULL,
};
/* I hate forward declarations... */
static void gplugin_perl_plugin_iface_init(GPluginPluginInterface *iface);
G_DEFINE_DYNAMIC_TYPE_EXTENDED(
GPluginPerlPlugin,
gplugin_perl_plugin,
G_TYPE_OBJECT,
0,
G_IMPLEMENT_INTERFACE(GPLUGIN_TYPE_PLUGIN, gplugin_perl_plugin_iface_init));
/******************************************************************************
* GPluginPlugin Implementation
*****************************************************************************/
static void
gplugin_perl_plugin_iface_init(G_GNUC_UNUSED GPluginPluginInterface *iface)
{
}
/******************************************************************************
* Object Stuff
*****************************************************************************/
static void
gplugin_perl_plugin_get_property(
GObject *obj,
guint param_id,
GValue *value,
GParamSpec *pspec)
{
GPluginPerlPlugin *plugin = GPLUGIN_PERL_PLUGIN(obj);
switch(param_id) {
case PROP_INTERPRETER:
g_value_set_pointer(
value,
gplugin_perl_plugin_get_interpreter(plugin));
break;
/* overrides */
case PROP_FILENAME:
g_value_set_string(value, plugin->filename);
break;
case PROP_LOADER:
g_value_set_object(value, plugin->loader);
break;
case PROP_INFO:
g_value_set_object(value, plugin->info);
break;
case PROP_STATE:
g_value_set_enum(value, plugin->state);
break;
case PROP_ERROR:
g_value_set_boxed(value, plugin->error);
break;
default:
G_OBJECT_WARN_INVALID_PROPERTY_ID(obj, param_id, pspec);
break;
}
}
static void
gplugin_perl_plugin_set_property(
GObject *obj,
guint param_id,
const GValue *value,
GParamSpec *pspec)
{
GPluginPerlPlugin *plugin = GPLUGIN_PERL_PLUGIN(obj);
switch(param_id) {
case PROP_INTERPRETER:
plugin->interpreter = g_value_get_pointer(value);
break;
/* overrides */
case PROP_FILENAME:
plugin->filename = g_value_dup_string(value);
break;
case PROP_LOADER:
plugin->loader = g_value_dup_object(value);
break;
case PROP_INFO:
plugin->info = g_value_dup_object(value);
break;
case PROP_STATE:
plugin->state = g_value_get_enum(value);
break;
case PROP_ERROR:
plugin->error = g_value_dup_boxed(value);
break;
default:
G_OBJECT_WARN_INVALID_PROPERTY_ID(obj, param_id, pspec);
}
}
static void
gplugin_perl_plugin_finalize(GObject *obj)
{
GPluginPerlPlugin *plugin = GPLUGIN_PERL_PLUGIN(obj);
perl_destruct(plugin->interpreter);
perl_free(plugin->interpreter);
plugin->interpreter = NULL;
g_clear_pointer(&plugin->filename, g_free);
g_clear_object(&plugin->loader);
g_clear_object(&plugin->info);
g_clear_error(&plugin->error);
G_OBJECT_CLASS(gplugin_perl_plugin_parent_class)->finalize(obj);
}
static void
gplugin_perl_plugin_init(G_GNUC_UNUSED GPluginPerlPlugin *plugin)
{
}
static void
gplugin_perl_plugin_class_finalize(G_GNUC_UNUSED GPluginPerlPluginClass *klass)
{
}
static void
gplugin_perl_plugin_class_init(GPluginPerlPluginClass *klass)
{
GObjectClass *obj_class = G_OBJECT_CLASS(klass);
obj_class->get_property = gplugin_perl_plugin_get_property;
obj_class->set_property = gplugin_perl_plugin_set_property;
obj_class->finalize = gplugin_perl_plugin_finalize;
properties[PROP_INTERPRETER] = g_param_spec_pointer(
"interpreter",
"interpreter",
"The PERL interpreter for this plugin",
G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY | G_PARAM_STATIC_STRINGS);
g_object_class_install_properties(obj_class, N_PROPERTIES, properties);
/* add our overrides */
g_object_class_override_property(obj_class, PROP_FILENAME, "filename");
g_object_class_override_property(obj_class, PROP_LOADER, "loader");
g_object_class_override_property(obj_class, PROP_INFO, "info");
g_object_class_override_property(obj_class, PROP_STATE, "state");
g_object_class_override_property(obj_class, PROP_ERROR, "error");
}
/******************************************************************************
* API
*****************************************************************************/
void
gplugin_perl_plugin_register(GTypeModule *module)
{
gplugin_perl_plugin_register_type(module);
}
PerlInterpreter *
gplugin_perl_plugin_get_interpreter(GPluginPerlPlugin *plugin)
{
g_return_val_if_fail(GPLUGIN_PERL_IS_PLUGIN(plugin), NULL);
return plugin->interpreter;
}