Mercurial > pidgin.yaz
view plugins/perl/perl-common.h @ 8146:596c64a2a2d0
[gaim-migrate @ 8854]
"
(16:36:05) Me: Hi Sean
(16:36:21) Me: Mind if I e-mail you a little COPYRIGHT related diff?
(16:37:17) Sean: Yes, I do!
(16:37:22) Sean: How dare you consider e-mailing me patches?
(16:37:26) Sean: seriously, now.
(16:37:32) Me:
(16:38:42) Me: Look at my webcam:
[URL to patch, now attached to this message]
(16:43:03) Sean: Have Luke commit it for me
(16:43:17) Sean: I won't be around until late tomorrow night.
(16:46:53) Me: ahh, k
It's a pretty straightforward deal - I think I mentioned this the other
day: .[c|h] files in src/ should have the generic copyright. Also,
giving Marc Mulcahy credit for the accessibility stuff.
Cheers,
John [Silvestri]"
except that i'd already given Marc credit
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Tue, 20 Jan 2004 02:51:14 +0000 |
parents | 11d05ddf30a3 |
children | 0e9e2b923d09 |
line wrap: on
line source
#ifndef _GAIM_PERL_COMMON_H_ #define _GAIM_PERL_COMMON_H_ #include <glib.h> #ifdef _WIN32 #undef pipe #endif #include <XSUB.h> #include <EXTERN.h> #include <perl.h> #include "value.h" #define is_hvref(o) \ ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) #define hvref(o) \ (is_hvref(o) ? (HV *)SvRV(o) : NULL); #define GAIM_PERL_BOOT(x) \ { \ extern void boot_Gaim__##x(pTHX_ CV *cv); \ gaim_perl_callXS(boot_Gaim__##x, cv, mark); \ } 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); 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); #endif void *gaim_perl_data_from_sv(GaimValue *value, SV *sv); SV *gaim_perl_sv_from_vargs(const GaimValue *value, va_list *args, void ***copy_arg); #endif /* _GAIM_PERL_COMMON_H_ */