gplugin/gplugin
Clone
Summary
Browse
Changes
Graph
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
;
}