Mercurial > pidgin3 / file diff

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libpurple/plugins/perl/common/Signal.xs	Sun Apr 15 03:43:17 2007 +0000
@@ -0,0 +1,34 @@
+#include "module.h"
+#include "../perl-handlers.h"
+
+MODULE = Purple::Signal  PACKAGE = Purple::Signal  PREFIX = purple_signal_
+PROTOTYPES: ENABLE
+
+void
+purple_signal_connect_priority(instance, signal, plugin, callback, priority, data = 0)
+	Purple::Handle instance
+	const char *signal
+	Purple::Plugin plugin
+	SV *callback
+	int priority
+	SV *data
+CODE:
+	purple_perl_signal_connect(plugin, instance, signal, callback, data, priority);
+
+void
+purple_signal_connect(instance, signal, plugin, callback, data = 0)
+	Purple::Handle instance
+	const char *signal
+	Purple::Plugin plugin
+	SV *callback
+	SV *data
+CODE:
+	purple_perl_signal_connect(plugin, instance, signal, callback, data, PURPLE_SIGNAL_PRIORITY_DEFAULT);
+
+void
+purple_signal_disconnect(instance, signal, plugin)
+	Purple::Handle instance
+	const char *signal
+	Purple::Plugin plugin
+CODE:
+	purple_perl_signal_disconnect(plugin, instance, signal);