Mercurial > pidgin
diff libpurple/plugins/perl/perl-common.h @ 15822:32c366eeeb99
sed -ie 's/gaim/purple/g'
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Mon, 19 Mar 2007 07:01:17 +0000 |
parents | 5fe8042783c1 |
children | b8572b937c09 |
line wrap: on
line diff
--- a/libpurple/plugins/perl/perl-common.h Mon Mar 19 06:11:46 2007 +0000 +++ b/libpurple/plugins/perl/perl-common.h Mon Mar 19 07:01:17 2007 +0000 @@ -1,5 +1,5 @@ -#ifndef _GAIM_PERL_COMMON_H_ -#define _GAIM_PERL_COMMON_H_ +#ifndef _PURPLE_PERL_COMMON_H_ +#define _PURPLE_PERL_COMMON_H_ #include <glib.h> #ifdef _WIN32 @@ -18,44 +18,44 @@ #define hvref(o) \ (is_hvref(o) ? (HV *)SvRV(o) : NULL); -#define GAIM_PERL_BOOT_PROTO(x) \ - void boot_Gaim__##x(pTHX_ CV *cv); +#define PURPLE_PERL_BOOT_PROTO(x) \ + void boot_Purple__##x(pTHX_ CV *cv); -#define GAIM_PERL_BOOT(x) \ - gaim_perl_callXS(boot_Gaim__##x, cv, mark) +#define PURPLE_PERL_BOOT(x) \ + purple_perl_callXS(boot_Purple__##x, cv, mark) typedef struct { - GaimPlugin *plugin; + PurplePlugin *plugin; char *package; char *load_sub; char *unload_sub; char *prefs_sub; -#ifdef GAIM_GTKPERL +#ifdef PURPLE_GTKPERL char *gtk_prefs_sub; #endif char *plugin_action_sub; -} GaimPerlScript; +} PurplePerlScript; -void gaim_perl_normalize_script_name(char *name); +void purple_perl_normalize_script_name(char *name); SV *newSVGChar(const char *str); -void gaim_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); -void gaim_perl_bless_plain(const char *stash, void *object); -SV *gaim_perl_bless_object(void *object, const char *stash); -gboolean gaim_perl_is_ref_object(SV *o); -void *gaim_perl_ref_object(SV *o); +void purple_perl_callXS(void (*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark); +void purple_perl_bless_plain(const char *stash, void *object); +SV *purple_perl_bless_object(void *object, const char *stash); +gboolean purple_perl_is_ref_object(SV *o); +void *purple_perl_ref_object(SV *o); int execute_perl(const char *function, int argc, char **args); #if 0 -gboolean gaim_perl_value_from_sv(GaimValue *value, SV *sv); -SV *gaim_perl_sv_from_value(const GaimValue *value); +gboolean purple_perl_value_from_sv(PurpleValue *value, SV *sv); +SV *purple_perl_sv_from_value(const PurpleValue *value); #endif -void *gaim_perl_data_from_sv(GaimValue *value, SV *sv); -SV *gaim_perl_sv_from_vargs(const GaimValue *value, va_list *args, +void *purple_perl_data_from_sv(PurpleValue *value, SV *sv); +SV *purple_perl_sv_from_vargs(const PurpleValue *value, va_list *args, void ***copy_arg); -#endif /* _GAIM_PERL_COMMON_H_ */ +#endif /* _PURPLE_PERL_COMMON_H_ */