Mercurial > pidgin.yaz
diff libpurple/plugins/perl/perl-common.h @ 15374:5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Sat, 20 Jan 2007 02:32:10 +0000 |
parents | |
children | 32c366eeeb99 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/libpurple/plugins/perl/perl-common.h Sat Jan 20 02:32:10 2007 +0000 @@ -0,0 +1,61 @@ +#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 "plugin.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_PROTO(x) \ + void boot_Gaim__##x(pTHX_ CV *cv); + +#define GAIM_PERL_BOOT(x) \ + gaim_perl_callXS(boot_Gaim__##x, cv, mark) + +typedef struct +{ + GaimPlugin *plugin; + char *package; + char *load_sub; + char *unload_sub; + char *prefs_sub; +#ifdef GAIM_GTKPERL + char *gtk_prefs_sub; +#endif + char *plugin_action_sub; +} GaimPerlScript; + +void gaim_perl_normalize_script_name(char *name); + +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_ */