comparison: plugins/perl/perl-common.h
plugins/perl/perl-common.h
- changeset 12872
- b3d38f1b9bd7
- parent 12871
- 3584d93ae63c
- child 12988
- 2a53945982f5
equal
deleted
inserted
replaced
| 12871:3584d93ae63c | 12872:b3d38f1b9bd7 |
|---|---|
| 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 |
