plugins/perl/perl-common.h

changeset 11170
d8941580d87f
parent 6921
3d49b89fc920
child 12419
745d9e5460ea
equal deleted inserted replaced
11169:96612b706d45 11170:d8941580d87f
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);

mercurial