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 <[e-mail]>

#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_ */