Mercurial > pidgin
comparison plugins/perl/perl-common.h @ 12872:59ff3e1c874e
[gaim-migrate @ 15224]
Perl plugins can now each have their own plugin pref frame. Plugin actions are
still limited to one per plugin I'll deal with that a bit later.
committer: Tailor Script <tailor@pidgin.im>
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Sat, 14 Jan 2006 08:28:05 +0000 |
parents | 2422097a7a5e |
children | b457aa723bab |
comparison
equal
deleted
inserted
replaced
12871:2422097a7a5e | 12872:59ff3e1c874e |
---|---|
7 #endif | 7 #endif |
8 #include <XSUB.h> | 8 #include <XSUB.h> |
9 #include <EXTERN.h> | 9 #include <EXTERN.h> |
10 #include <perl.h> | 10 #include <perl.h> |
11 | 11 |
12 #include "plugin.h" | |
12 #include "value.h" | 13 #include "value.h" |
13 | 14 |
14 #define is_hvref(o) \ | 15 #define is_hvref(o) \ |
15 ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) | 16 ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) |
16 | 17 |
20 #define GAIM_PERL_BOOT_PROTO(x) \ | 21 #define GAIM_PERL_BOOT_PROTO(x) \ |
21 void boot_Gaim__##x(pTHX_ CV *cv); | 22 void boot_Gaim__##x(pTHX_ CV *cv); |
22 | 23 |
23 #define GAIM_PERL_BOOT(x) \ | 24 #define GAIM_PERL_BOOT(x) \ |
24 gaim_perl_callXS(boot_Gaim__##x, cv, mark) | 25 gaim_perl_callXS(boot_Gaim__##x, cv, mark) |
26 | |
27 typedef struct | |
28 { | |
29 GaimPlugin *plugin; | |
30 char *package; | |
31 char *load_sub; | |
32 char *unload_sub; | |
33 char *prefs_sub; | |
34 char *gtk_prefs_sub; | |
35 } GaimPerlScript; | |
25 | 36 |
26 void gaim_perl_normalize_script_name(char *name); | 37 void gaim_perl_normalize_script_name(char *name); |
27 | 38 |
28 SV *newSVGChar(const char *str); | 39 SV *newSVGChar(const char *str); |
29 | 40 |