Mercurial > pidgin
view plugins/perl/perl-common.h @ 8203:72311ba4ad8b
[gaim-migrate @ 8926]
From Alex Smith (madalex):
"In the Buddy List if you turn on 'Show Offline Buddies' then empty
groups are shown regardless of the setting of 'Show Empty Groups'.
This patch for gtkblist.c should fix this. It is a very straightforward
change."
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Tue, 03 Feb 2004 06:55:59 +0000 |
parents | 11d05ddf30a3 |
children | 0e9e2b923d09 |
line wrap: on
line source
#ifndef _GAIM_PERL_COMMON_H_ #define _GAIM_PERL_COMMON_H_ #include <glib.h> #ifdef _WIN32 #undef pipe #endif #include <XSUB.h> #include <EXTERN.h> #include <perl.h> #include "value.h" #define is_hvref(o) \ ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) #define hvref(o) \ (is_hvref(o) ? (HV *)SvRV(o) : NULL); #define GAIM_PERL_BOOT(x) \ { \ extern void boot_Gaim__##x(pTHX_ CV *cv); \ gaim_perl_callXS(boot_Gaim__##x, cv, mark); \ } SV *newSVGChar(const char *str); void gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); void gaim_perl_bless_plain(const char *stash, void *object); SV *gaim_perl_bless_object(void *object, const char *stash); gboolean gaim_perl_is_ref_object(SV *o); void *gaim_perl_ref_object(SV *o); int execute_perl(const char *function, int argc, char **args); #if 0 gboolean gaim_perl_value_from_sv(GaimValue *value, SV *sv); SV *gaim_perl_sv_from_value(const GaimValue *value); #endif void *gaim_perl_data_from_sv(GaimValue *value, SV *sv); SV *gaim_perl_sv_from_vargs(const GaimValue *value, va_list *args, void ***copy_arg); #endif /* _GAIM_PERL_COMMON_H_ */