Mercurial > pidgin.yaz
comparison 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 |
comparison
equal
deleted
inserted
replaced
6565:cb00e9647033 | 6566:f6c2a7b5afa7 |
---|---|
3 | 3 |
4 #include <XSUB.h> | 4 #include <XSUB.h> |
5 #include <EXTERN.h> | 5 #include <EXTERN.h> |
6 #include <perl.h> | 6 #include <perl.h> |
7 #include <glib.h> | 7 #include <glib.h> |
8 | |
9 #include "value.h" | |
8 | 10 |
9 #define is_hvref(o) \ | 11 #define is_hvref(o) \ |
10 ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) | 12 ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) |
11 | 13 |
12 #define hvref(o) \ | 14 #define hvref(o) \ |
16 { \ | 18 { \ |
17 extern void boot_Gaim__##x(pTHX_ CV *cv); \ | 19 extern void boot_Gaim__##x(pTHX_ CV *cv); \ |
18 gaim_perl_callXS(boot_Gaim__##x, cv, mark); \ | 20 gaim_perl_callXS(boot_Gaim__##x, cv, mark); \ |
19 } | 21 } |
20 | 22 |
23 SV *newSVGChar(const char *str); | |
24 | |
21 void gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); | 25 void gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); |
22 void gaim_perl_bless_plain(const char *stash, void *object); | 26 void gaim_perl_bless_plain(const char *stash, void *object); |
23 SV *gaim_perl_bless_object(void *object, const char *stash); | 27 SV *gaim_perl_bless_object(void *object, const char *stash); |
24 gboolean gaim_perl_is_ref_object(SV *o); | 28 gboolean gaim_perl_is_ref_object(SV *o); |
25 void *gaim_perl_ref_object(SV *o); | 29 void *gaim_perl_ref_object(SV *o); |
26 | 30 |
27 int execute_perl(const char *function, int argc, char **args); | 31 int execute_perl(const char *function, int argc, char **args); |
28 | 32 |
33 #if 0 | |
34 gboolean gaim_perl_value_from_sv(GaimValue *value, SV *sv); | |
35 SV *gaim_perl_sv_from_value(const GaimValue *value); | |
36 #endif | |
37 | |
38 SV *gaim_perl_sv_from_vargs(const GaimValue *value, va_list args); | |
39 | |
29 #endif /* _GAIM_PERL_COMMON_H_ */ | 40 #endif /* _GAIM_PERL_COMMON_H_ */ |