Gnome2-GConf
view release on metacpan or search on metacpan
A gconf.typemap
M MANIFEST
add new files.
* Makefile.PL: add the new typemap; use postamble_docs_full() so we
can supply doctypes and give decent names to the unregistered
structures in the bindings. this requires an update to
ExtUtils::Depends 0.2 and bleeding edge Glib.
* xs/GConfClient.xs: use the new typemaps instead of hand-coded
PPCODE sections; this eliminates the need for several =for signature
directives in pod.
2004/02/20 14:15 (+0100) ebassi
* GConf,pm, README: version 0.91 - final beta cycle before API freeze
for the GNOME Platform Bindings.
2004/02/20 13:48 (+0100) ebassi
* GConf.pm, README, perl-Gnome2-GConf.spec.in: remove runtime
xs/GConf2.xs view on Meta::CPAN
"Gnome2::GConf::Error");
=for apidoc
=for signature (MAJOR, MINOR, MICRO) = Gnome2::GConf->GET_VERSION_INFO
Fetch as a list the version of libgconf for which Gnome2::GConf was
built.
=cut
void
GET_VERSION_INFO (class)
PPCODE:
EXTEND (SP, 3);
PUSHs (sv_2mortal (newSViv (GCONF_MAJOR_VERSION)));
PUSHs (sv_2mortal (newSViv (GCONF_MINOR_VERSION)));
PUSHs (sv_2mortal (newSViv (GCONF_MICRO_VERSION)));
PERL_UNUSED_VAR (ax);
gboolean
CHECK_VERSION (class, major, minor, micro)
int major
int minor
xs/GConf2.xs view on Meta::CPAN
user-readable explanation of the problem.
=cut
void
gconf_valid_key (class, key)
const gchar * key
C_ARGS:
key
PREINIT:
gchar *why_invalid = NULL;
gboolean is_valid;
PPCODE:
is_valid = gconf_valid_key (key, &why_invalid);
if (GIMME_V == G_ARRAY) {
EXTEND (SP, 2);
PUSHs (sv_2mortal (newSViv (is_valid)));
PUSHs (sv_2mortal (newSVpv (why_invalid, 0)));
g_free (why_invalid); /* leaks otherwise */
}
else {
XPUSHs (sv_2mortal (newSViv (is_valid)));
}
xs/GConfClient.xs view on Meta::CPAN
This method returns an array containing all the entries (as L<Gnome2::GConf::Entry>) of a given directory.
=cut
void
gconf_client_all_entries (client, dir, check_error=TRUE)
GConfClient * client
const gchar * dir
gboolean check_error
PREINIT:
GError * err = NULL;
GSList * l, * tmp;
PPCODE:
if (TRUE == check_error) {
l = gconf_client_all_entries (client, dir, &err);
if (err)
gperl_croak_gerror (NULL, err);
}
else {
l = gconf_client_all_entries (client, dir, NULL);
}
for (tmp = l; tmp != NULL; tmp = tmp->next) {
GConfEntry *entry = (GConfEntry *) tmp->data;
xs/GConfClient.xs view on Meta::CPAN
This method returns an array containing all the directories in a given directory.
=cut
void
gconf_client_all_dirs (client, dir, check_error=TRUE)
GConfClient * client
const gchar * dir
gboolean check_error
PREINIT:
GError * err = NULL;
GSList * l, * tmp;
PPCODE:
if (TRUE == check_error) {
l = gconf_client_all_dirs (client, dir, &err);
if (err)
gperl_croak_gerror (NULL, err);
}
else {
l = gconf_client_all_dirs (client, dir, NULL);
}
for (tmp = l; tmp != NULL; tmp = tmp->next)
XPUSHs (sv_2mortal (newSVGChar (tmp->data)));
xs/GConfClient.xs view on Meta::CPAN
You should not use this method.
This method emits the "error" signal.
=cut
void
gconf_client_error (client, error)
GConfClient * client
SV * error
PREINIT:
GError * err = NULL;
PPCODE:
gperl_gerror_from_sv (error, &err);
gconf_client_error (client, err);
/* free err, otherwise we'd leak it. */
g_error_free (err);
##void gconf_client_unreturned_error (GConfClient* client, GError* error);
=for apidoc
=for arg error a L<Glib::Error>
You should not use this method.
This method emits the "unreturned-error" signal.
=cut
void
gconf_client_unreturned_error (client, error)
GConfClient * client
SV * error
PREINIT:
GError * err = NULL;
PPCODE:
gperl_gerror_from_sv (error, &err);
gconf_client_unreturned_error (client, err);
/* free err, otherwise we'd leak it. */
g_error_free (err);
##void gconf_client_value_changed (GConfClient* client,
## const gchar* key,
## GConfValue* value);
=for apidoc
You should not use this method.
This method emits the "value-changed" signal.
=cut
void
gconf_client_value_changed (client, key, value)
GConfClient * client
const gchar * key
GConfValue * value
PPCODE:
gconf_client_value_changed (client, key, value);
gconf_value_free (value); /* leaks otherwise */
##/*
## * Change set stuff
## */
##
##gboolean gconf_client_commit_change_set (GConfClient* client,
## GConfChangeSet* cs,
## /* remove all
xs/GConfClient.xs view on Meta::CPAN
=cut
void
gconf_client_commit_change_set (client, cs, remove_committed, check_error=TRUE)
GConfClient * client
GConfChangeSet * cs
gboolean remove_committed
gboolean check_error
PREINIT:
GError * err = NULL;
gboolean res;
PPCODE:
if (TRUE == check_error) {
res = gconf_client_commit_change_set (client, cs, remove_committed, &err);
if (err)
gperl_croak_gerror (NULL, err);
}
else {
res = gconf_client_commit_change_set (client, cs, remove_committed, NULL);
}
if ((GIMME_V != G_ARRAY) || (! remove_committed)) {
xs/GConfEngine.xs view on Meta::CPAN
=for apidoc
This method returns an array containing all the entries of a given directory.
=cut
void
gconf_engine_all_entries (engine, dir)
GConfEngine * engine
const gchar * dir
PREINIT:
GError * err = NULL;
GSList * l, * tmp;
PPCODE:
l = gconf_engine_all_entries (engine, dir, &err);
if (err)
gperl_croak_gerror (NULL, err);
for (tmp = l; tmp != NULL; tmp = tmp->next)
XPUSHs (sv_2mortal (newSVGChar (gconf_entry_get_key(tmp->data))));
g_slist_free (l);
=for apidoc
This method returns an array containing all the directories in a given directory.
=cut
void
gconf_engine_all_dirs (engine, dir)
GConfEngine * engine
const gchar * dir
PREINIT:
GError * err = NULL;
GSList * l, * tmp;
PPCODE:
l = gconf_engine_all_dirs (engine, dir, &err);
if (err)
gperl_croak_gerror (NULL, err);
for (tmp = l; tmp != NULL; tmp = tmp->next)
XPUSHs (sv_2mortal (newSVGChar (tmp->data)));
g_slist_free (l);
##void gconf_engine_suggest_sync (GConfEngine *conf,
## GError **err);
void
xs/GConfEngine.xs view on Meta::CPAN
successfully committed changes.
=cut
void
gconf_engine_commit_change_set (engine, cs, remove_committed)
GConfEngine * engine
GConfChangeSet * cs
gboolean remove_committed
PREINIT:
GError * err = NULL;
gboolean res;
PPCODE:
res = gconf_engine_commit_change_set (engine, cs, remove_committed, &err);
if (err) {
gperl_croak_gerror (NULL, err);
}
if ((GIMME_V != G_ARRAY) || (! remove_committed)) {
/* push on the stack the returned boolean value if the user
* wants only that, or if the user does not want to remove
* the successfully committed keys. */
XPUSHs (sv_2mortal (newSViv (res)));
gconf_change_set_unref (cs);
( run in 0.692 second using v1.01-cache-2.11-cpan-5511b514fd6 )