view plugins/perl/perl-common.h @ 13202:241c59e3906b

[gaim-migrate @ 15565] fix sf bug #1413457 Having the horizontal scrollbar set to NEVER was causing weird bugs with the new status dialog where typing into the imhtml would cause the window to grow in width and the text would not wrap (well, it would eventually). I know having the horizontal scrollbar set to AUTOMATIC was causing problems in the past, but I played around with it and everything seems ok to me. If this becomes a problem I'm thinking we can set it to the horizontal policy to NEVER for editable imhtmls when using GTK < 2.4.0. I think maybe our use of GTK_WRAP_WORD_CHAR might be a partial cause of the bug mentioned in the comment that I'm removing. 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 "plugin.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_PROTO(x) \
	void boot_Gaim__##x(pTHX_ CV *cv);

#define GAIM_PERL_BOOT(x) \
	gaim_perl_callXS(boot_Gaim__##x, cv, mark)

typedef struct
{
	GaimPlugin *plugin;
	char *package;
	char *load_sub;
	char *unload_sub;
	char *prefs_sub;
	char *gtk_prefs_sub;
	char *plugin_action_sub;
} GaimPerlScript;

void gaim_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);

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