gplugin/gplugin

Merged in feature/convey-cleanup (pull request #18)
develop
2019-07-24, Gary Kramlich
57eea9e383c9
Merged in feature/convey-cleanup (pull request #18)

Update convey.yml for all the thingz

Approved-by: Elliott Sales de Andrade
/*
* Copyright (C) 2011-2014 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 <http://www.gnu.org/licenses/>.
*/
#include "gplugin-perl-plugin.h"
#include <EXTERN.h>
#include <perl.h>
/* perl define's _() to something completely different that we don't use. So
* we undef it so that we can use it for gettext.
*/
#undef _
#include <glib/gi18n.h>
/******************************************************************************
* Typedefs
*****************************************************************************/
typedef struct {
PerlInterpreter *interpreter;
/* overrides */
gchar *filename;
GPluginLoader *loader;
GPluginPluginInfo *info;
GPluginPluginState state;
} GPluginPerlPluginPrivate;
/******************************************************************************
* Enums
*****************************************************************************/
enum {
PROP_ZERO,
PROP_INTERPRETER,
N_PROPERTIES,
/* overrides */
PROP_FILENAME = N_PROPERTIES,
PROP_LOADER,
PROP_INFO,
PROP_STATE
};
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_ADD_PRIVATE_DYNAMIC(GPluginPerlPlugin)
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)
{
}
/******************************************************************************
* Private Stuff
*****************************************************************************/
static void
gplugin_perl_plugin_set_interpreter(GPluginPerlPlugin *plugin,
PerlInterpreter *interpreter)
{
GPluginPerlPluginPrivate *priv = gplugin_perl_plugin_get_instance_private(plugin);
priv->interpreter = interpreter;
}
/******************************************************************************
* Object Stuff
*****************************************************************************/
static void
gplugin_perl_plugin_get_property(GObject *obj, guint param_id, GValue *value,
GParamSpec *pspec)
{
GPluginPerlPlugin *plugin = GPLUGIN_PERL_PLUGIN(obj);
GPluginPerlPluginPrivate *priv = gplugin_perl_plugin_get_instance_private(plugin);
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, priv->filename);
break;
case PROP_LOADER:
g_value_set_object(value, priv->loader);
break;
case PROP_INFO:
g_value_set_object(value, priv->info);
break;
case PROP_STATE:
g_value_set_enum(value, priv->state);
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);
GPluginPerlPluginPrivate *priv = gplugin_perl_plugin_get_instance_private(plugin);
switch(param_id) {
case PROP_INTERPRETER:
gplugin_perl_plugin_set_interpreter(plugin,
g_value_get_pointer(value));
break;
/* overrides */
case PROP_FILENAME:
priv->filename = g_value_dup_string(value);
break;
case PROP_LOADER:
priv->loader = g_value_dup_object(value);
break;
case PROP_INFO:
priv->info = g_value_dup_object(value);
break;
case PROP_STATE:
priv->state = g_value_get_enum(value);
break;
default:
G_OBJECT_WARN_INVALID_PROPERTY_ID(obj, param_id, pspec);
}
}
static void
gplugin_perl_plugin_finalize(GObject *obj) {
GPluginPerlPluginPrivate *priv = gplugin_perl_plugin_get_instance_private(GPLUGIN_PERL_PLUGIN(obj));
perl_destruct(priv->interpreter);
perl_free(priv->interpreter);
priv->interpreter = NULL;
g_clear_pointer(&priv->filename, g_free);
g_clear_object(&priv->loader);
g_clear_object(&priv->info);
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");
}
/******************************************************************************
* API
*****************************************************************************/
void
gplugin_perl_plugin_register(GPluginNativePlugin *native)
{
gplugin_perl_plugin_register_type(G_TYPE_MODULE(native));
}
PerlInterpreter *
gplugin_perl_plugin_get_interpreter(GPluginPerlPlugin *plugin) {
GPluginPerlPluginPrivate *priv = NULL;
g_return_val_if_fail(GPLUGIN_IS_PERL_PLUGIN(plugin), NULL);
priv = gplugin_perl_plugin_get_instance_private(plugin);
return priv->interpreter;
}