view plugins/perl/perl-common.h @ 6840:b67670ac5584

[gaim-migrate @ 7385] Tim Ringenbach (marv_sf) writes: " This fixes the following bugs: Deleting a buddy didn't make the prpl realize he was no longer on the server list (until signoff/signon), so adding his back yet failing didn't seem to fail. Adding a buddy that was offline showed him as not on server list until signoff/signon or he came online. Adding a buddy to a 2nd group actually added him a 2nd time to his first group on the server list (which isn't allowed, so generated an error) This also adds an error when adding to the server list fails for any reason except already being on the list. This also makes the error when a buddy rejects us a little nicer looking." 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

SV *gaim_perl_sv_from_vargs(const GaimValue *value, va_list args);

#endif /* _GAIM_PERL_COMMON_H_ */