Mercurial > pidgin.yaz
diff plugins/perl/perl-common.h @ 6566:f6c2a7b5afa7
[gaim-migrate @ 7088]
PERL SIGNAL HANDLING WORKS!!!! Ahem. I shall now continue professionally
developing other aspects of this instant messenger application. WOOHOO
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Thu, 21 Aug 2003 23:41:52 +0000 |
| parents | 7c42b8ca3222 |
| children | 5aeba37b303c |
line wrap: on
line diff
--- a/plugins/perl/perl-common.h Thu Aug 21 23:26:13 2003 +0000 +++ b/plugins/perl/perl-common.h Thu Aug 21 23:41:52 2003 +0000 @@ -6,6 +6,8 @@ #include <perl.h> #include <glib.h> +#include "value.h" + #define is_hvref(o) \ ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) @@ -18,6 +20,8 @@ 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); @@ -26,4 +30,11 @@ 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 + +SV *gaim_perl_sv_from_vargs(const GaimValue *value, va_list args); + #endif /* _GAIM_PERL_COMMON_H_ */