diff libpurple/plugins/perl/perl-common.h @ 15374:5fe8042783c1

Rename gtk/ and libgaim/ to pidgin/ and libpurple/

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libpurple/plugins/perl/perl-common.h	Sat Jan 20 02:32:10 2007 +0000
@@ -0,0 +1,61 @@
+#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;
+#ifdef GAIM_GTKPERL
+	char *gtk_prefs_sub;
+#endif
+	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_ */