diff libgaim/plugins/perl/common/Signal.xs @ 14192:60b1bc8dbf37

[gaim-migrate @ 16863] Renamed 'core' to 'libgaim' committer: Tailor Script <[e-mail]>

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libgaim/plugins/perl/common/Signal.xs	Sat Aug 19 01:50:10 2006 +0000
@@ -0,0 +1,34 @@
+#include "module.h"
+#include "../perl-handlers.h"
+
+MODULE = Gaim::Signal  PACKAGE = Gaim::Signal  PREFIX = gaim_signal_
+PROTOTYPES: ENABLE
+
+void
+gaim_signal_connect_priority(instance, signal, plugin, callback, priority, data = 0)
+	void *instance
+	const char *signal
+	Gaim::Plugin plugin
+	SV *callback
+	int priority
+	SV *data
+CODE:
+	gaim_perl_signal_connect(plugin, instance, signal, callback, data, priority);
+
+void
+gaim_signal_connect(instance, signal, plugin, callback, data = 0)
+	void *instance
+	const char *signal
+	Gaim::Plugin plugin
+	SV *callback
+	SV *data
+CODE:
+	gaim_perl_signal_connect(plugin, instance, signal, callback, data, GAIM_SIGNAL_PRIORITY_DEFAULT);
+
+void
+gaim_signal_disconnect(instance, signal, plugin)
+	void *instance
+	const char *signal
+	Gaim::Plugin plugin
+CODE:
+	gaim_perl_signal_disconnect(plugin, instance, signal);