Mercurial > pidgin
view libpurple/plugins/perl/perl-common.h @ 28892:42f0ad857051
Updated Czech translation based on mcepl's issue. Closes #11172.
author | Paul Aurich <paul@darkrain42.org> |
---|---|
date | Thu, 14 Jan 2010 20:22:07 +0000 |
parents | df9e569b8f1f |
children | 6288bbd53f44 |
line wrap: on
line source
#ifndef _PURPLE_PERL_COMMON_H_ #define _PURPLE_PERL_COMMON_H_ #include <glib.h> #ifdef _WIN32 #undef pipe #endif #include <EXTERN.h> #include <perl.h> #include <XSUB.h> /* XXX: perl defines it's own _ but I think it's safe to undef it */ #undef _ /* Dirty hack to prevent the win32 libc compat stuff from interfering with the Perl internal stuff */ #ifdef _WIN32 #define _WIN32DEP_H_ #endif #include "internal.h" #ifdef _WIN32 #undef _WIN32DEP_H_ #endif #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 PURPLE_PERL_BOOT_PROTO(x) \ void boot_Purple__##x(pTHX_ CV *cv); #define PURPLE_PERL_BOOT(x) \ purple_perl_callXS(boot_Purple__##x, cv, mark) typedef struct { PurplePlugin *plugin; char *package; char *load_sub; char *unload_sub; char *prefs_sub; #ifdef PURPLE_GTKPERL char *gtk_prefs_sub; #endif char *plugin_action_sub; } PurplePerlScript; void purple_perl_normalize_script_name(char *name); SV *newSVGChar(const char *str); void purple_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); void purple_perl_bless_plain(const char *stash, void *object); SV *purple_perl_bless_object(void *object, const char *stash); gboolean purple_perl_is_ref_object(SV *o); void *purple_perl_ref_object(SV *o); int execute_perl(const char *function, int argc, char **args); #if 0 gboolean purple_perl_value_from_sv(PurpleValue *value, SV *sv); SV *purple_perl_sv_from_value(const PurpleValue *value); #endif void *purple_perl_data_from_sv(PurpleValue *value, SV *sv); SV *purple_perl_sv_from_vargs(const PurpleValue *value, va_list *args, void ***copy_arg); SV *purple_perl_sv_from_fun(PurplePlugin *plugin, SV *callback); #endif /* _PURPLE_PERL_COMMON_H_ */