Mercurial > pidgin
comparison plugins/perl/perl-common.h @ 11170:0e9e2b923d09
[gaim-migrate @ 13271]
Fixed some bugs and made some additions to the XSUBS. Added some of my test scripts which are incomplete, but mostly functional. GaimPluginPrefs and GaimGtkPluginPrefs--using evals to do the Gtk widgets with gtk2-perl--work. Plugin actions can now be added, but only one for now.
committer: Tailor Script <tailor@pidgin.im>
author | John H. Kelm <johnkelm@gmail.com> |
---|---|
date | Fri, 29 Jul 2005 13:38:00 +0000 |
parents | 11d05ddf30a3 |
children | 455610a80747 |
comparison
equal
deleted
inserted
replaced
11169:778d5464a9b8 | 11170:0e9e2b923d09 |
---|---|
21 { \ | 21 { \ |
22 extern void boot_Gaim__##x(pTHX_ CV *cv); \ | 22 extern void boot_Gaim__##x(pTHX_ CV *cv); \ |
23 gaim_perl_callXS(boot_Gaim__##x, cv, mark); \ | 23 gaim_perl_callXS(boot_Gaim__##x, cv, mark); \ |
24 } | 24 } |
25 | 25 |
26 void gaim_perl_normalize_script_name(char *name); | |
27 | |
28 | |
26 SV *newSVGChar(const char *str); | 29 SV *newSVGChar(const char *str); |
27 | 30 |
28 void gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); | 31 void gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); |
29 void gaim_perl_bless_plain(const char *stash, void *object); | 32 void gaim_perl_bless_plain(const char *stash, void *object); |
30 SV *gaim_perl_bless_object(void *object, const char *stash); | 33 SV *gaim_perl_bless_object(void *object, const char *stash); |